Advertisement
Guest User

Untitled

a guest
Jun 30th, 2016
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.30 KB | None | 0 0
  1. procedure TForm4.Button4Click(Sender: TObject);
  2. var temp : integer;
  3. begin
  4. Save := True;
  5. DobavPodverdit := -1;
  6. Form5.ShowModal;
  7. if DobavPodverdit = 0 then
  8. Begin
  9. ProverkaDannih;
  10. if Proverka = False then
  11. exit;
  12.  
  13. ///////////////////////
  14. ADOQuery2.Active := False;
  15. ADOQuery2.SQL.Clear;
  16. ADOQuery2.SQL.Add('SELECT id_vod FROM voditeli WHERE ''' + sComboBox1.Text + ''' LIKE fam + " " + name + " " + otch');
  17. ADOQuery2.Active := True;
  18. if ADOQuery2.RecNo = 0 then
  19. Begin
  20. MessageBox(Handle, 'Проверьте данные в поле Водитель', 'Ошибка', MB_ICONINFORMATION + MB_OK);
  21. sCombobox1.SetFocus;
  22. exit;
  23. End;
  24. /////////////////////////
  25. temp := ADOQuery1.RecNo;
  26. ADOQuery1.Active := False;
  27. ADOQuery1.SQL.Clear;
  28. ADOQuery1.SQL.Add('SELECT * FROM Shtraf ORDER BY Post');
  29. ADOQuery1.Active := True;
  30. ADOQuery1.RecNo := temp;
  31. /////////////////////////
  32. ADOQuery1.Edit;
  33. // ADOQuery1.FieldByName('post').Value := sedit1.Text;
  34. ADOQuery1.FieldByName('id_vod').Value := ADOQuery2.FieldByName('id_vod').Value;
  35. ADOQuery1.FieldByName('data').Value := FormatDateTime('dd.mm.yyyy',DateTimePicker1.Date);
  36. ADOQuery1.FieldByName('ts').Value := sedit4.Text;
  37. ADOQuery1.FieldByName('id_stat').Value := scombobox2.Text;
  38. ADOQuery1.FieldByName('summa').Value := sedit5.Text;
  39. ADOQuery1.FieldByName('podrazd').Value := sedit7.Text;
  40. ADOQuery1.FieldByName('oplat').Value := sCheckBox1.Checked;
  41. ADOQuery1.Post;
  42. //////////////////
  43. ADOQuery1.Active := False;
  44. ADOQuery1.SQL.Clear;
  45. ADOQuery1.SQL.Add('SELECT post, fam + " " + name + " " + otch AS voditel, data,'
  46. +' ts, id_stat, summa, podrazd, oplat FROM shtraf INNER JOIN voditeli '+
  47. 'ON voditeli.id_vod = shtraf.id_vod ORDER BY post');
  48. ADOQuery1.Active := True;
  49. ///////////////////////////////
  50. ADOQuery1.RecNo := temp;
  51. InfoShtraf;
  52. ViravnAndLable;
  53. Modific := False;
  54. end;
  55. Save := False;
  56. ActiveControl:=NIL;
  57. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement