Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm4.Button4Click(Sender: TObject);
- var temp : integer;
- begin
- Save := True;
- DobavPodverdit := -1;
- Form5.ShowModal;
- if DobavPodverdit = 0 then
- Begin
- ProverkaDannih;
- if Proverka = False then
- exit;
- ///////////////////////
- ADOQuery2.Active := False;
- ADOQuery2.SQL.Clear;
- ADOQuery2.SQL.Add('SELECT id_vod FROM voditeli WHERE ''' + sComboBox1.Text + ''' LIKE fam + " " + name + " " + otch');
- ADOQuery2.Active := True;
- if ADOQuery2.RecNo = 0 then
- Begin
- MessageBox(Handle, 'Проверьте данные в поле Водитель', 'Ошибка', MB_ICONINFORMATION + MB_OK);
- sCombobox1.SetFocus;
- exit;
- End;
- /////////////////////////
- temp := ADOQuery1.RecNo;
- ADOQuery1.Active := False;
- ADOQuery1.SQL.Clear;
- ADOQuery1.SQL.Add('SELECT * FROM Shtraf ORDER BY Post');
- ADOQuery1.Active := True;
- ADOQuery1.RecNo := temp;
- /////////////////////////
- ADOQuery1.Edit;
- // ADOQuery1.FieldByName('post').Value := sedit1.Text;
- ADOQuery1.FieldByName('id_vod').Value := ADOQuery2.FieldByName('id_vod').Value;
- ADOQuery1.FieldByName('data').Value := FormatDateTime('dd.mm.yyyy',DateTimePicker1.Date);
- ADOQuery1.FieldByName('ts').Value := sedit4.Text;
- ADOQuery1.FieldByName('id_stat').Value := scombobox2.Text;
- ADOQuery1.FieldByName('summa').Value := sedit5.Text;
- ADOQuery1.FieldByName('podrazd').Value := sedit7.Text;
- ADOQuery1.FieldByName('oplat').Value := sCheckBox1.Checked;
- ADOQuery1.Post;
- //////////////////
- ADOQuery1.Active := False;
- ADOQuery1.SQL.Clear;
- ADOQuery1.SQL.Add('SELECT post, fam + " " + name + " " + otch AS voditel, data,'
- +' ts, id_stat, summa, podrazd, oplat FROM shtraf INNER JOIN voditeli '+
- 'ON voditeli.id_vod = shtraf.id_vod ORDER BY post');
- ADOQuery1.Active := True;
- ///////////////////////////////
- ADOQuery1.RecNo := temp;
- InfoShtraf;
- ViravnAndLable;
- Modific := False;
- end;
- Save := False;
- ActiveControl:=NIL;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement