Отчет по практике на тему Работа с программным обеспечением компьютера
Работа добавлена на сайт bukvasha.net: 2014-12-19Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
от 25%
договор
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
ГОУ СПО ТАМБОВСКИЙ БИЗНЕС-КОЛЛЕДЖ
ОТЧЁТ ПО ПРОИЗВОДСТВЕННОЙ ПРАКТИКЕ
Задание на практику
Производственная практика студентов по специальности «Программное обеспечение вычислительной техники и автоматизированных систем» является неотъемлемой частью учебно-воспитательного процесса и имеет целью приобретение студентами практических навыков и умений производственной деятельности на предприятиях, в учреждениях и организациях, на основе применения теоретических знаний, полученных бизнес-колледже. Производственная практика завершает 2‑й курс обучения студентов.
Объектами профессиональной деятельности техника по специальности «Программное обеспечение вычислительной техники и автоматизированных систем» являются информационные системы и сети, а также программное обеспечение и сопровождение.
В процессе производственной (профессиональной) практики техник информационных систем должен закрепить и углубить знания, полученные в процессе обучения, приобрести умения и навыки работы по всем видам профессиональной деятельности. Должен закрепить навыки и овладеть умениями: адаптации программного продукта к конкретной системе автоматизированной обработки информации, работы в заданном операционном и / или телекоммуникационном окружении, практических средств конкретных технических средств информатизации.
Введение
В течение всего периода прохождения производственной практики необходимо:
1. Следовать указаниям руководителя, выполнять их с высшей степенью ответственности, профессионализма, приобретённого в бизнес – колледже, добросовестности и самоотдачи;
2. По указанию директора школы (либо его заместителя или какого-то другого уполномоченного должностного лица) выполнять требуемые действия с электронной вычислительной техникой, а именно осуществлять организацию работы с 5 имеющимися компьютерами, их обслуживание: установку на них программного обеспечения (ПО), а именно программ – антивирусов, корректирование или полная переустановка самой операционной системы, а также стандартных программ предназначенных для офиса (по мере необходимости).
3. Создавать текстовые документы, необходимые педагогам и начальству, в текстовом редакторе Microsoft Office Word в среде Windows.
4. В своей деятельности непосредственно руководствоваться требованиями и указаниями руководителя производственной практики, «приказ директора» ни в коем случае не предпринимать действий, которые могут повлечь за собой нежелательные последствия. Кроме того, крайне необходимо согласовывать свои действия с заведующим компьютерным классом (или, при его отсутствии учителем информатики).
5. Постоянно находиться на рабочем месте в указанное, отведённое руководителем практики время.
Описание деятельности учреждения
Общество с ограниченной ответственностью «Строй сервис» основано в 2006 году является коммерческой организацией. На сегодняшний день основным направлением деятельности компании является комплекс услуг по благоустройству на объектах любой сложности. Так же производит продажу стройматериалов.
Описание индивидуальной работы
В течение всей практики я занималась большей частью набором официальных текстовых документов, которые требуются организации, в текстовом редакторы среды Windows, под названием Microsoft Office Word. Также по распоряжению генерального директора организации и в соответствии с требованиями работников осуществлял установку программного обеспечения на имеющийся компьютер.
На все компьютеры мной была установлена антивирусная программа: Avast Pro 4.7 Rus, которая является достаточно хорошим сканером среды Windows. Кроме того на компьютер был установлен пакет офисных программ (Microsoft Office 2007 Enterprise Final (Официальная Русская Версия)), этот набор программ является более поздней версией, чем тот который был установлен ранее (Microsoft Office 2003). Преимущество первого перед вторым состоит в модернизированном интерфейсе, а также, что не менее важно, в удобстве и простоте работы. Компьютер, на который я производил установку офисных программ и средств был снабжен операционной системой Microsoft Windows XP Service Pack2, поэтому установка прошла успешно и более поздняя версия была заменена более новой. До конца практики не наблюдалось сбоев в работе офисных программ и, по моему мнению, они были установлены вполне корректно. Также по моей инициативе и просьбе работников бухгалтерии, на компьютер была установлена программа «NERO 8.3.2.1RUS», для упрощения процесса записи данных на компакт диск. Так же в связи с частым использованием интернета, была установлена программа «Opera» которая облегчила доступ в интернет.
Приложение 1
Программа использует два юнита (fil и Unit2) первый – главный, второй используется только при добавлении нового дилера или при его увольнении
Код программы и интерфейс программы:
unit fil;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, XPMan, ComCtrls, Menus;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
StringGrid1: TStringGrid;
Button2: TButton;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
ComboBox3: TComboBox;
CheckBox1: TCheckBox;
Button4: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
menu1: TMenuItem;
newDealer1: TMenuItem;
eXIt1: TMenuItem;
ExitProgramm1: TMenuItem;
Memo1: TMemo;
Button1: TButton;
Help1: TMenuItem;
procedure BitBtn1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure CheckBox1Click (Sender: TObject);
procedure ComboBox3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure ExitProgramm1Click (Sender: TObject);
procedure newDealer1Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormClick (Sender: TObject);
procedure Help1Click (Sender: TObject);
procedure Memo1Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure FormDblClick (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
uses Math, Unit2;
{$R *.dfm}
Var
z: integer=1;
procedure TForm1. BitBtn1Click (Sender: TObject);
begin
StringGrid1. Visible:= true;
StringGrid2. Visible:= false;
end;
procedure TForm1. Button2Click (Sender: TObject);
begin
StringGrid1. Visible:= False;
StringGrid2. Visible:= True;
end;
procedure TForm1. FormClick (Sender: TObject);
begin
if StringGrid2. Cells [5,5]='fil' then Button4. Visible:= true;
end;
end.
procedure TForm1. Button4Click (Sender: TObject);
var
h, l, p, f, x, a: integer;
begin
p:= 1;
Randomize;
for f:= 1 to 37
do begin
for x:= 1 to 5 do begin
a:= (Random((49)+1)*100+Random(200)*50);
StringGrid1. Cells [f, x]:= IntToStr(a);
end;
end;
for l:= 1 to 37 do begin
for h:= 1 to 5 do begin
StringGrid2. Cells [l, h]:= IntToStr(p);
inc(p);
if p > z‑1 then p:= 1;
end;
end;
end;
procedure TForm1. CheckBox1Click (Sender: TObject);
begin
if CheckBox1. Checked
then StringGrid3. Visible:= true
else StringGrid3. Visible:= false
end;
Procedure TForm1. ComboBox3Click (Sender: TObject);
Begin
StringGrid3. Cells [0, z]:= ComboBox3. Text;
Inc (z);
End;
Procedure TForm1. FormCreate (Sender: TObject);
Var
o, x, i, q: integer;
Begin
Button4. Visible:= false;
Form1. ComboBox3. Items. LoadFromFile ('c:\file.txt');
i:= 0;
for q:=1 to 40
do begin
*озаглавливаем String Grid 1, 2, 3.
StringGrid3. Cells [1, q]:= '0';
end;
StringGrid3. Cells [1,0]:= 'total';
StringGrid2. Cells [0,0]:= 'Dealers';
StringGrid1. Cells [0,0]:= 'money';
StringGrid2. ColCount:= 38;
StringGrid2. Cells [0,1]:= 'AR';
StringGrid2. Cells [0,2]:= 'BJ';
StringGrid2. Cells [0,3]:= 'OP1';
StringGrid2. Cells [0,4]:= 'OP2';
StringGrid2. Cells [0,5]:= 'OP3';
StringGrid1. ColCount:=38;
StringGrid1. Cells [0,1]:= 'AR';
StringGrid1. Cells [0,2]:= 'BJ';
StringGrid1. Cells [0,3]:= 'OP1';
StringGrid1. Cells [0,4]:= 'OP2';
StringGrid1. Cells [0,5]:= 'OP3';
for o:= 8 to 20 do begin
for x:= 0 to 2 do begin
Inc(i);
StringGrid1. Cells [i, 0]:= IntToStr (o) + ':' + IntToStr (x*2) + '0';
StringGrid2. Cells [i, 0]:= IntToStr (o) + ':' + IntToStr (x*2) + '0';
end;
end;
end;
procedure TForm1. Button3Click (Sender: TObject);
var
dl: integer;
st, y: string;
fl: TextFile;
sav: TextFile;
q, w, c, s, f, d, r, t, l, p: integer;
begin
w:= 0;
for c:= 1 to 36
do begin
for s:= 1 to 5
do begin
d:= StrToInt (StringGrid2. Cells [c, s]);
f:= StrToInt (StringGrid1. Cells [c, s]);
t:= StrToInt (StringGrid1. Cells [c+1, s]);
r:= t-f;
l:= StrToInt (StringGrid3. Cells [1, d]);
p:= r+l;
StringGrid3. Cells [1, d]:= IntToStr(p);
Button3. Enabled:= false;
Button4. Enabled:= false;
end;
end;
for q:= 1 to 40 do begin
w:= w + StrToInt (StringGrid3. Cells [1, q]);
end;\
For dl:= 1 to z do begin
st:= StringGrid3. Cells [0, dl];
y:= StringGrid3. Cells [1, dl];
assignfile (fl, 'c:\rez\' + st +'.txt');
if not fileexists ('c:\rez\' + st +'.txt') then
rewrite(fl)
else append(fl);
writeln (fl, y);
closefile(fl);
end;
assignfile (sav, 'c:\rez\.txt');
if not fileexists ('c:\rez\.txt') then
rewrite(sav)
else append(sav);
writeln (sav, IntToStr(w));
closefile(sav);
ShowMessage ('Результат дня: ' + IntToStr(w));
end;
procedure TForm1. ExitProgramm1Click (Sender: TObject);
begin
ShowMessage ('Good Luck!!!');
Hide;
Form1. Close;
Form2. Close;
end;
procedure TForm1.newDealer1Click (Sender: TObject);
begin
Form1. Visible:= False;
form2. Visible:= true;
Form2. ComboBox1. Items. LoadFromFile ('c:\file.txt');
end;
procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);
begin
ShowMessage ('Good Luck!!!');
form1. Hide;
end;
procedure TForm1. Memo1Click (Sender: TObject);
begin
Button1. Visible:= true;
end;
procedure TForm1. Button1Click (Sender: TObject);
begin
Memo1. Visible:= false;
Button1. Visible:= false;
end;
procedure TForm1. FormDblClick (Sender: TObject);
begin
Button3. Visible:= false;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, CheckLst;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ComboBox1: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click (Sender: TObject);
procedure FormHide (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button3Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form2: TForm2;
implementation
uses fil, Math;
{$R *.dfm}
procedure TForm2. Button2Click (Sender: TObject);
var
q: string;
w: TextFile;
begin
q:= Edit1. Text + ' ' + Edit2. Text;
Form2. ComboBox1. Items. Add(q);
Form2. Close;
Form1. ComboBox3. Items. Add(q);
AssignFile (w, 'c:\file.txt');
If not FileExists ('c:\file.txt')
Then Rewrite(w)
else Append(w);
Writeln (w, Edit1. Text + ' ' + Edit2. Text);
CloseFile(w);
end;
procedure TForm2. FormHide (Sender: TObject);
begin
Form1. Visible:= true;
end;
procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);
begin
Form1. Visible:= true;
end;
procedure TForm2. Button3Click (Sender: TObject);
begin
Hide;
end;
procedure TForm2. Button1Click (Sender: TObject);
begin
ComboBox1. Items. Delete (ComboBox1. ItemIndex);
ComboBox1. Items. SaveToFile ('c:\file.txt');
form1. ComboBox3. Items. LoadFromFile ('c:\file.txt');
ComboBox1. Items. LoadFromFile ('c:\file.txt');
hide;
end;
end.
ГОУ СПО ТАМБОВСКИЙ БИЗНЕС-КОЛЛЕДЖ
ОТЧЁТ ПО ПРОИЗВОДСТВЕННОЙ ПРАКТИКЕ
Задание на практику
Производственная практика студентов по специальности «Программное обеспечение вычислительной техники и автоматизированных систем» является неотъемлемой частью учебно-воспитательного процесса и имеет целью приобретение студентами практических навыков и умений производственной деятельности на предприятиях, в учреждениях и организациях, на основе применения теоретических знаний, полученных бизнес-колледже. Производственная практика завершает 2‑й курс обучения студентов.
Объектами профессиональной деятельности техника по специальности «Программное обеспечение вычислительной техники и автоматизированных систем» являются информационные системы и сети, а также программное обеспечение и сопровождение.
В процессе производственной (профессиональной) практики техник информационных систем должен закрепить и углубить знания, полученные в процессе обучения, приобрести умения и навыки работы по всем видам профессиональной деятельности. Должен закрепить навыки и овладеть умениями: адаптации программного продукта к конкретной системе автоматизированной обработки информации, работы в заданном операционном и / или телекоммуникационном окружении, практических средств конкретных технических средств информатизации.
Введение
В течение всего периода прохождения производственной практики необходимо:
1. Следовать указаниям руководителя, выполнять их с высшей степенью ответственности, профессионализма, приобретённого в бизнес – колледже, добросовестности и самоотдачи;
2. По указанию директора школы (либо его заместителя или какого-то другого уполномоченного должностного лица) выполнять требуемые действия с электронной вычислительной техникой, а именно осуществлять организацию работы с 5 имеющимися компьютерами, их обслуживание: установку на них программного обеспечения (ПО), а именно программ – антивирусов, корректирование или полная переустановка самой операционной системы, а также стандартных программ предназначенных для офиса (по мере необходимости).
3. Создавать текстовые документы, необходимые педагогам и начальству, в текстовом редакторе Microsoft Office Word в среде Windows.
4. В своей деятельности непосредственно руководствоваться требованиями и указаниями руководителя производственной практики, «приказ директора» ни в коем случае не предпринимать действий, которые могут повлечь за собой нежелательные последствия. Кроме того, крайне необходимо согласовывать свои действия с заведующим компьютерным классом (или, при его отсутствии учителем информатики).
5. Постоянно находиться на рабочем месте в указанное, отведённое руководителем практики время.
Описание деятельности учреждения
Общество с ограниченной ответственностью «Строй сервис» основано в 2006 году является коммерческой организацией. На сегодняшний день основным направлением деятельности компании является комплекс услуг по благоустройству на объектах любой сложности. Так же производит продажу стройматериалов.
Описание индивидуальной работы
В течение всей практики я занималась большей частью набором официальных текстовых документов, которые требуются организации, в текстовом редакторы среды Windows, под названием Microsoft Office Word. Также по распоряжению генерального директора организации и в соответствии с требованиями работников осуществлял установку программного обеспечения на имеющийся компьютер.
На все компьютеры мной была установлена антивирусная программа: Avast Pro 4.7 Rus, которая является достаточно хорошим сканером среды Windows. Кроме того на компьютер был установлен пакет офисных программ (Microsoft Office 2007 Enterprise Final (Официальная Русская Версия)), этот набор программ является более поздней версией, чем тот который был установлен ранее (Microsoft Office 2003). Преимущество первого перед вторым состоит в модернизированном интерфейсе, а также, что не менее важно, в удобстве и простоте работы. Компьютер, на который я производил установку офисных программ и средств был снабжен операционной системой Microsoft Windows XP Service Pack2, поэтому установка прошла успешно и более поздняя версия была заменена более новой. До конца практики не наблюдалось сбоев в работе офисных программ и, по моему мнению, они были установлены вполне корректно. Также по моей инициативе и просьбе работников бухгалтерии, на компьютер была установлена программа «NERO 8.3.2.1RUS», для упрощения процесса записи данных на компакт диск. Так же в связи с частым использованием интернета, была установлена программа «Opera» которая облегчила доступ в интернет.
Приложение 1
Программа использует два юнита (fil и Unit2) первый – главный, второй используется только при добавлении нового дилера или при его увольнении
Код программы и интерфейс программы:
unit fil;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, XPMan, ComCtrls, Menus;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
StringGrid1: TStringGrid;
Button2: TButton;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
ComboBox3: TComboBox;
CheckBox1: TCheckBox;
Button4: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
menu1: TMenuItem;
newDealer1: TMenuItem;
eXIt1: TMenuItem;
ExitProgramm1: TMenuItem;
Memo1: TMemo;
Button1: TButton;
Help1: TMenuItem;
procedure BitBtn1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure CheckBox1Click (Sender: TObject);
procedure ComboBox3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure ExitProgramm1Click (Sender: TObject);
procedure newDealer1Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormClick (Sender: TObject);
procedure Help1Click (Sender: TObject);
procedure Memo1Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure FormDblClick (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
uses Math, Unit2;
{$R *.dfm}
Var
z: integer=1;
procedure TForm1. BitBtn1Click (Sender: TObject);
begin
StringGrid1. Visible:= true;
StringGrid2. Visible:= false;
end;
procedure TForm1. Button2Click (Sender: TObject);
begin
StringGrid1. Visible:= False;
StringGrid2. Visible:= True;
end;
procedure TForm1. FormClick (Sender: TObject);
begin
if StringGrid2. Cells [5,5]='fil' then Button4. Visible:= true;
end;
end.
procedure TForm1. Button4Click (Sender: TObject);
var
h, l, p, f, x, a: integer;
begin
p:= 1;
Randomize;
for f:= 1 to 37
do begin
for x:= 1 to 5 do begin
a:= (Random((49)+1)*100+Random(200)*50);
StringGrid1. Cells [f, x]:= IntToStr(a);
end;
end;
for l:= 1 to 37 do begin
for h:= 1 to 5 do begin
StringGrid2. Cells [l, h]:= IntToStr(p);
inc(p);
if p > z‑1 then p:= 1;
end;
end;
end;
procedure TForm1. CheckBox1Click (Sender: TObject);
begin
if CheckBox1. Checked
then StringGrid3. Visible:= true
else StringGrid3. Visible:= false
end;
Procedure TForm1. ComboBox3Click (Sender: TObject);
Begin
StringGrid3. Cells [0, z]:= ComboBox3. Text;
Inc (z);
End;
Procedure TForm1. FormCreate (Sender: TObject);
Var
o, x, i, q: integer;
Begin
Button4. Visible:= false;
Form1. ComboBox3. Items. LoadFromFile ('c:\file.txt');
i:= 0;
for q:=1 to 40
do begin
*озаглавливаем String Grid 1, 2, 3.
StringGrid3. Cells [1, q]:= '0';
end;
StringGrid3. Cells [1,0]:= 'total';
StringGrid2. Cells [0,0]:= 'Dealers';
StringGrid1. Cells [0,0]:= 'money';
StringGrid2. ColCount:= 38;
StringGrid2. Cells [0,1]:= 'AR';
StringGrid2. Cells [0,2]:= 'BJ';
StringGrid2. Cells [0,3]:= 'OP1';
StringGrid2. Cells [0,4]:= 'OP2';
StringGrid2. Cells [0,5]:= 'OP3';
StringGrid1. ColCount:=38;
StringGrid1. Cells [0,1]:= 'AR';
StringGrid1. Cells [0,2]:= 'BJ';
StringGrid1. Cells [0,3]:= 'OP1';
StringGrid1. Cells [0,4]:= 'OP2';
StringGrid1. Cells [0,5]:= 'OP3';
for o:= 8 to 20 do begin
for x:= 0 to 2 do begin
Inc(i);
StringGrid1. Cells [i, 0]:= IntToStr (o) + ':' + IntToStr (x*2) + '0';
StringGrid2. Cells [i, 0]:= IntToStr (o) + ':' + IntToStr (x*2) + '0';
end;
end;
end;
procedure TForm1. Button3Click (Sender: TObject);
var
dl: integer;
st, y: string;
fl: TextFile;
sav: TextFile;
q, w, c, s, f, d, r, t, l, p: integer;
begin
w:= 0;
for c:= 1 to 36
do begin
for s:= 1 to 5
do begin
d:= StrToInt (StringGrid2. Cells [c, s]);
f:= StrToInt (StringGrid1. Cells [c, s]);
t:= StrToInt (StringGrid1. Cells [c+1, s]);
r:= t-f;
l:= StrToInt (StringGrid3. Cells [1, d]);
p:= r+l;
StringGrid3. Cells [1, d]:= IntToStr(p);
Button3. Enabled:= false;
Button4. Enabled:= false;
end;
end;
for q:= 1 to 40 do begin
w:= w + StrToInt (StringGrid3. Cells [1, q]);
end;\
For dl:= 1 to z do begin
st:= StringGrid3. Cells [0, dl];
y:= StringGrid3. Cells [1, dl];
assignfile (fl, 'c:\rez\' + st +'.txt');
if not fileexists ('c:\rez\' + st +'.txt') then
rewrite(fl)
else append(fl);
writeln (fl, y);
closefile(fl);
end;
assignfile (sav, 'c:\rez\.txt');
if not fileexists ('c:\rez\.txt') then
rewrite(sav)
else append(sav);
writeln (sav, IntToStr(w));
closefile(sav);
ShowMessage ('Результат дня: ' + IntToStr(w));
end;
procedure TForm1. ExitProgramm1Click (Sender: TObject);
begin
ShowMessage ('Good Luck!!!');
Hide;
Form1. Close;
Form2. Close;
end;
procedure TForm1.newDealer1Click (Sender: TObject);
begin
Form1. Visible:= False;
form2. Visible:= true;
Form2. ComboBox1. Items. LoadFromFile ('c:\file.txt');
end;
procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);
begin
ShowMessage ('Good Luck!!!');
form1. Hide;
end;
procedure TForm1. Memo1Click (Sender: TObject);
begin
Button1. Visible:= true;
end;
procedure TForm1. Button1Click (Sender: TObject);
begin
Memo1. Visible:= false;
Button1. Visible:= false;
end;
procedure TForm1. FormDblClick (Sender: TObject);
begin
Button3. Visible:= false;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, CheckLst;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ComboBox1: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click (Sender: TObject);
procedure FormHide (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button3Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form2: TForm2;
implementation
uses fil, Math;
{$R *.dfm}
procedure TForm2. Button2Click (Sender: TObject);
var
q: string;
w: TextFile;
begin
q:= Edit1. Text + ' ' + Edit2. Text;
Form2. ComboBox1. Items. Add(q);
Form2. Close;
Form1. ComboBox3. Items. Add(q);
AssignFile (w, 'c:\file.txt');
If not FileExists ('c:\file.txt')
Then Rewrite(w)
else Append(w);
Writeln (w, Edit1. Text + ' ' + Edit2. Text);
CloseFile(w);
end;
procedure TForm2. FormHide (Sender: TObject);
begin
Form1. Visible:= true;
end;
procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);
begin
Form1. Visible:= true;
end;
procedure TForm2. Button3Click (Sender: TObject);
begin
Hide;
end;
procedure TForm2. Button1Click (Sender: TObject);
begin
ComboBox1. Items. Delete (ComboBox1. ItemIndex);
ComboBox1. Items. SaveToFile ('c:\file.txt');
form1. ComboBox3. Items. LoadFromFile ('c:\file.txt');
ComboBox1. Items. LoadFromFile ('c:\file.txt');
hide;
end;
end.