Информационная безопасность в ГУП ОЦ "Московский дом книги"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?имечание';:=0;:=1;;
procedure TForm5.Button1Click(Sender: TObject);Kol0 then StringGrid1.RowCount:= Kol+1 else.Enabled:=False;;;;
procedure TForm5.Button2Click(Sender: TObject);.Caption:='Добавление записи';:=true;.ShowModal;
procedure TForm5.Button3Click(Sender: TObject);.Caption:='Изменение записи';:=true;.ShowModal;;
procedure TForm5.Button4Click(Sender: TObject);SaveDialog1.Execute then(f,savedialog1.FileName);FileExists(SaveDialog1.FileName) then
beginMessageDlg('Файл с таким именем уже существует. Перезаписать?', mtConfirmation,[mbYes,mbNo],0)=mrNo then exit;;(f,savedialog1.FileName);:=0;i<>StringGrid1.rowCount-1 do begin(i);.ID := StrToInt(stringgrid1.cells[0,i]);.Chisl:=stringgrid1.cells[1,i];.Ug:=stringgrid1.cells[2,i];.Otm:=stringgrid1.cells[3,i];.Prim:=stringgrid1.cells[4,i];
write(f,Rec); //запись данных в файл
end;(f);;;
procedure TForm5.Button5Click(Sender: TObject);Opendialog1.ExecuteFileExists(OpenDialog1.FileName) then(f,OpenDialog1.FileName);(f);:=0;not eof(f) do begin
read(f,Rec); //чтение данных из файла
inc(i);.cells[0,i]:=IntToStr(Rec.ID);.cells[1,i]:=Rec.Chisl;.cells[2,i]:=Rec.Ug;.cells[3,i]:=Rec.Otm;.cells[4,i]:=Rec.Prim;.RowCount:=i+1;;:=i;(f);else ShowMessage('Файл не существует!');
procedure TForm5.Button6Click(Sender: TObject);
begin;;.
unit Unit6;
interface
uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;
type= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TComboBox;: TEdit;: TButton;: TButton;Button1Click(Sender: TObject);FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations };
var: TForm6;
implementationUnit5, Unit3;
{$R *.dfm}
procedure TForm6.FormCreate(Sender: TObject);.Items.Add('true');.Items.Add('false');Unit5.add=true then.Edit1.Text:='';.Edit2.Text:='';.Edit3.Text:='';.Edit3.Text:='';.ComboBox1.SelText := Form5.StringGrid1.Cells[3, Nomer];else.Edit1.Text:=Form5.StringGrid1.Cells[0,Nomer];.Edit2.Text:=Form5.StringGrid1.Cells[1,Nomer];.Edit3.Text:=Form5.StringGrid1.Cells[2,Nomer];.Edit4.Text:=Form5.StringGrid1.Cells[4,Nomer];.ComboBox1.Text:=Form5.StringGrid1.Cells[3,Nomer];;;
procedure TForm6.Button1Click(Sender: TObject);d:integer;Unit5.add then.Kol:=Unit5.Kol+1;.StringGrid1.RowCount:= Unit5.Kol+1;:=Unit5.Kol;Unit5.kol>0 then begin.Button1.Enabled:=True;;else d:=Unit5.Nomer;.StringGrid1.Cells[0,d]:=Edit1.Text;.StringGrid1.Cells[1,d]:=Edit2.Text;.StringGrid1.Cells[2,d]:=Edit3.Text;.StringGrid1.Cells[4,d]:=Edit4.Text;.StringGrid1.Cells[3,d]:=Form6.ComboBox1.Text;
Close;;.