=laquo;Дата надходження raquo ;;. Cells [4,0]:= Розмір raquo ;;. Cells [5,0]:= Номер накладної raquo ;;;
procedure TPostup.FormShow (Sender: TObject);j:longint;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Date:=Date;.Items.Clear;.Items.Clear;.Text:=laquo;1raquo;;.RowCount:=2;j:=0 to 5 do.Cells [j, 1]:= raquo ;;. ADOQuery1.Close; .ADOQuery1.SQL.Clear;:= SELECT Найменування FROM Вещевое_имуществоraquo;;.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;.GridSelectAll(MainF.DBGrid1);MainF.DBGrid1.SelectedRows.Countgt;0 thenj:=0 to MainF.DBGrid1.SelectedRows.Count - 1 do.DBGrid1.DataSource.DataSet.GotoBookmark(pointer(MainF.DBGrid1.SelectedRows.Items[j]));.Items.Add(MainF.DBGrid1.Fields[0].AsString);;.ItemIndex:=- 1;:=1 ;; TPostup.OKClick (Sender: TObject); s, id, k, k_s, d, r, n: string; j: integer; Goods.Text lt; gt; thenStrToInt (Kol.Text) gt; 0 then:=Nomer.Text;:=Razm.Text;:=Goods.Text;:=DateToStr (Dat.Date);:=Kol.Text; Goods.ItemIndex=- 1 then.ADOQuery1. Close; .ADOQuery1.SQL.Clear;:= INSERT INTO Вещевое_імущество (Найменування) VALUES (laquo;raquo;+s+laquo;raquo;)raquo;;.ADOQuery1.SQL.Add(search);.ADOQuery1.ExecSQL;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:=laquo;SELECT Код_вещевого_імущества FROM Вещевое_імущество WHERE Найменування=laquo;raquo;+s+laquo;raquo;raquo;;.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;:=MainF.DBGrid1.Fields[0].AsString;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;
search:= INSERT INTO Прихід (Номер_накладной, Код_вещевого_імущества, Прийшов, Дата, Розмір) VALUES ( + n + raquo ;, + id + raquo ;, + k + raquo ;, + d + raquo ;, + r + ) raquo ;;
MainF.ADOQuery1.SQL.Add(search);.ADOQuery1.ExecSQL;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:=laquo;INSERT INTO Склад (Код_вещевого_імущества, Кількість) VALUES ( + id + raquo ;, laquo;raquo;+k+laquo;raquo;)raquo;;.ADOQuery1.SQL.Add(search);.ADOQuery1.ExecSQL;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;
search:= SELECT Код_вещевого_імущества FROM Вещевое_імущество WHERE Найменування= + s + raquo ;;
MainF.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;:=MainF.DBGrid1.Fields[0].AsString;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;
search:= INSERT INTO Прихід (Номер_накладной, Код_вещевого_імущества, Прийшов, Дата, Розмір) VALUES ( + n + raquo ;, + id + raquo ;, + k + raquo ;, + d + raquo ;, + r + ) raquo ;;
MainF.ADOQuery1.SQL.Add(search);.ADOQuery1.ExecSQL;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:=laquo;SELECT Кількість FROM Склад WHERE Код_вещевого_імущества=raquo;+id;.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;_s:=IntToStr(StrToInt(MainF.DBGrid1.Fields[0].AsString)+StrToInt(k));.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:=laquo;UPDATE Склад SET Кількість= + k_s + WHERE Код_вещевого_імущества=raquo;+id;.ADOQuery1.SQL.Add(search);.ADOQuery1.ExecSQL;;.Cells[0,m]:=id;.Cells[1,m]:=s;.Cells[2,m]:=k;.Cells[3,m]:=d;.Cells[4,m]:=r;.Cells[5,m]:=n;:=m+1;.RowCount:=m;.Text:=laquo;raquo;;.Items.Clear;.Text:=laquo;1raquo;;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;
search:= SELECT Найменування FROM Вещевое_імущество raquo ;;
MainF.ADOQuery1.SQL.Add (search) ;. ADOQuery1.Open;
////.Text:=laquo;raquo;;.Items.Clear;.Text:=laquo;1raquo;;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;
search:= SELECT Найменування FROM Вещевое_імущество raquo ;;
MainF.ADOQuery1.SQL.Add (search) ;. ADOQuery1.Open;
////. GridSelectAll (MainF.DBGrid1); MainF.DBGrid1.SelectedRows.Count gt; 0 thenj:=0 to MainF.DBGrid1.SelectedRows.Count - 1 do.DBGrid1.DataSource.DataSet.GotoBookmark(pointer(MainF.DBGrid1.SelectedRows.Items[j]));.Items.Add(MainF.DBGrid1.Fields[0].AsString);
end; .ItemIndex:=- 1; ShowMessage ( Кількість повинна бути позитивним! ); ShowMessage ( Перевірте заповнення всіх полів! );
end ;; TPostup.N2Click (Sender: TObject) ;. Show; .Close ;; TPostup.N3Click (Sender: TObject) ;. Close ;; TPostup.Button1Click (Sender: TObject) ;: Variant ;, j: Integer;:=CreateOleObject(laquo;Excel.Applicationraquo;);.Visible:=true;.WorkBooks.open(laquo;H:Накладная.xlsraquo;) ;
//book.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:=laquo;Поступление довольствия raquo ;;. ActiveSheet.Range [ C2 ]. Value:=Nomer.Text; i:=1 to Tab.ColCount - 1 doj:=0 to Tab.RowCount - 1 do.Cells [j + 5, i +1] .value:=Tab.Cells [i, j];
end;.
Форма «Видача постачання»
unit Leave ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ComCtrls, StdCtrls, ExtCtrls, Grids, Menus, DB, ADODB;=class (TForm): TLabel ;: TComboBox ;: TEdit;:TUpDown ;: TLabel ;: TLabel ;: TButton ;: TStringGrid ;: TLabel ;: TLabel ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TComboBox ;: TLabel ;: TComboBox ;: TButton ;: TADOTable ;: TDataSource ;: TEdit ;: TDateTimePicker; __: TIntegerField; DSDesigner: TWideStringField; DSDesigner2: TDateTimeField; DSDesigner3: TInteger...
