Field; DSDesigner4: TWideStringField; DSDesigner5: TWideStringField; FormCreate (Sender: TObject); FormShow (Sender: TObject); OKClick (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TVydach;: integer; Main, ComObj, StrUtils;
{$ R * .dfm} TVydach.FormCreate (Sender: TObject) ;. Cells [0,0]:= Код имуществаraquo;;.Cells[1,0]:=laquo;Выданоraquo;;.Cells[2,0]:=laquo;Количествоraquo;;.Cells[3,0]:=laquo;Размерraquo;;.Cells[4,0]:=laquo;Дата видачі raquo ;;. Cells [5,0]:= Номер накладної raquo ;;. Cells [6,0]:= Одержувач raquo ;;; TVydach.FormShow (Sender: TObject);j:longint;.Text:=laquo;raquo;;.Date:=Date;.Items.Clear;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.RowCount:=2;j:=0 to 6 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:=0;:=1;;TVydach.OKClick(Sender: TObject); s, id, k, k_s, d, c, rr, ss: string; j: integer; met1, met2; (StrToInt (Kol.Text) gt; 0) and (StrToInt (Nomer.Text) gt; 0) then:=Sotr.Text;:=Nomer.Text;:=Goods.Text;:=DateToStr(Dat.Date);:=Kol.Text;:=Razmer1.Text;.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;:=laquo;SELECT Кількість FROM Склад WHERE Код_вещевого_імущества=raquo;+id;.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;StrToInt(k)gt;StrToInt(MainF.DBGrid1.Fields[0].AsString) then goto met1k_s:=IntToStr(StrToInt(MainF.DBGrid1.Fields[0].AsString)-StrToInt(k));.ADOQuery1.Close;.ADOQuery1.SQL.Clear;
search:= INSERT INTO Видача (Код_вещевого_імущества, Видано, Розмір, Дата, Співробітник) VALUES ( + id + raquo ;, + k + raquo ;, + c + raquo ;, + d + raquo ;, + ss + ) raquo ;;
MainF.ADOQuery1.SQL.Add(search);.ADOQuery1.ExecSQL;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:=laquo;UPDATE Склад SET Кількість= + k_s + Where Код_вещевого_імущества=raquo;+id;.ADOQuery1.SQL.Add(search);.ADOQuery1.ExecSQL;.Cells[0,x]:=id;.Cells[1,x]:=s;.Cells[2,x]:=k;.Cells[3,x]:=c;.Cells[4,x]:=d;.Cells[5,x]:=rr;.Cells[6,x]:=ss;:=x+1;.RowCount:=x;.Text:=laquo;raquo;;.Items.Clear;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:=laquo;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:=0;met2;
met1: ( Кількість видаваного майна перевищує кількість майна на складі! На складі всього + MainF.DBGrid1.Fields [0] .AsString + од! );
met2: ShowMessage ( Кількість повинна бути позитивним! ); ShowMessage ( Перевірте правильність заповнення! );
end ;; TVydach.N2Click (Sender: TObject) ;. Close; .Show ;; TVydach.N3Click (Sender: TObject) ;. Close ;; TVydach.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; .ActiveSheet.Range [ C4 ]. Value:=Sotr.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 Sklad ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, StdCtrls;=class (TForm): TStringGrid ;: TLabel ;: TEdit ;: TButton ;: TButton ;: TButton; FormCreate (Sender: TObject); FormShow (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TSkladF; Main, ComObj;
{$ R * .dfm} TSkladF.FormCreate (Sender: TObject);
begin.Cells [0,0]:= Найменування предмета raquo ;;
Tab.Cells [1,0]:= Кількість raquo ;;; TSkladF.FormShow (Sender: TObject); j, k: longint; sdf: string; .RowCount:=2; j:=0 to 1 do.Cells [j, 1]:= raquo ;;. ADOQuery1.Close; .ADOQuery1.SQL.Clear;:= SELECT * FROM Складraquo;;.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;.GridSelectAll(MainF.DBGrid1);Ma...
