105
data_sm:=strtodate(suiEdit21.text)+strtoint(suiEdit4.text);
tuz.FieldByName('data_smen').AsString:=DateToStr(data_sm);
tuz.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
end;
procedure TForm1.suiButton5Click(Sender: TObject);
vardata_sm:extended;
begin
try
tuz.Append;
tuz.FieldByName('nomer_uz').AsInteger:=strtoint(suiEdit2.text);
tuz.FieldByName('domen').AsString:=suiEdit5.text;
tuz.FieldByName('log').AsString:=suiEdit8.text;
tuz.FieldByName('parol').AsString:=suiEdit9.text;
tuz.FieldByName('polzovatel').AsString:=suiEdit7.text;
tuz.FieldByName('srok_deist').AsInteger:=strtoint(suiEdit4.text);
tuz.FieldByName('data_ust').AsString:=suiEdit21.text;
data_sm:=strtodate(suiEdit21.text)+strtoint(suiEdit4.text);
tuz.FieldByName('data_smen').AsString:=DateToStr(data_sm);
tuz.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
end;
procedure TForm1.suiButton4Click(Sender: TObject);
begin
tuz.Delete;
end;
106
procedure TForm1.suiButton9Click(Sender: TObject);
begin
try
tsob.Append;
tsob.FieldByName('kod_sob').AsInteger:=strtoint(suiEdit10.text);
tsob.FieldByName('data').AsString:=suiEdit12.text;
tsob.FieldByName('vrem').AsString:=suiEdit11.text;
tsob.FieldByName('sob').AsString:=suiEdit13.text;
tsob.FieldByName('opis').AsString:=suiMemo2.text;
tsob.FieldByName('mery').AsString:=suiMemo3.text;
tsob.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
end;
procedure TForm1.suiButton3Click(Sender: TObject);
begin
tr_st.Delete;
end;
procedure TForm1.suiDBGrid1CellClick(Column: TColumn);
begin
suiEdit3.text:=tr_st.FieldValues['nomer_rs'];
suiEdit1.text:=tr_st.FieldValues['ip_adr'];
suiEdit6.text:=tr_st.FieldValues['ident'];
suiMemo1.text:=tr_st.FieldValues['spec'];
end;
procedure TForm1.suiDBGrid3CellClick(Column: TColumn);
begin
107
//suiEdit2.text:=tuz.FieldValues['nomer_uz];
suiEdit5.text:=tuz.FieldValues['domen'];
suiEdit8.text:=tuz.FieldValues['log'];
suiEdit9.text:=tuz.FieldValues['parol'];
suiEdit7.text:=tuz.FieldValues['polzovatel'];
suiEdit4.text:=tuz.FieldValues['srok_deist'];
suiEdit21.text:=tuz.FieldValues['data_ust'];
end;
procedure TForm1.suiDBGrid4CellClick(Column: TColumn);
begin
suiEdit10.text:=tsob.FieldValues['kod_sob'];
suiEdit12.text:=tsob.FieldValues['data'];
suiEdit11.text:=tsob.FieldValues['vrem'];
suiEdit13.text:=tsob.FieldValues['sob'];
suiMemo2.text:=tsob.FieldValues['opis'];
suiMemo3.text:=tsob.FieldValues['mery'];
end;
procedure TForm1.suiDBGrid5CellClick(Column: TColumn);
begin
suiEdit23.text:=tmer.FieldValues['kod_mer'];
suiEdit14.text:=tmer.FieldValues['data'];
suiEdit15.text:=tmer.FieldValues['vrem'];
suiEdit16.text:=tmer.FieldValues['mer'];
suiEdit20.text:=tmer.FieldValues['isp'];
end;
end.
108