Читать диплом по Отсутствует: "Автоматизация вещевого учета на военном складе" Страница 11

(Назад) (Cкачать работу)

end;;TVydach.N2Click(Sender: TObject);.Close;.Show;;TVydach.N3Click(Sender: TObject);.Close;;TVydach.Button1Click(Sender: TObject);: Variant;, j: Integer;:= CreateOleObject('Excel.Application');.Visible:=true;.WorkBooks.open('H:Накладная.xls') ;

// book.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:='Выдача довольствия';.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]:='Наименование предмета';

Tab.Cells[1,0]:='Количество';;TSkladF.FormShow(Sender: TObject);j,k:longint; sdf:string;.RowCount:=2;j:=0 to 1 do.Cells[j,1]:='';.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:='SELECT * FROM Склад';.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;.GridSelectAll(MainF.DBGrid1);MainF.DBGrid1.SelectedRows.Count>0 then.RowCount:=MainF.DBGrid1.SelectedRows.Count+1;j:=0 to MainF.DBGrid1.SelectedRows.Count-1 do.DBGrid1.DataSource.DataSet.GotoBookmark(pointer(MainF.DBGrid1.SelectedRows.Items[j]));.Cells[0,j+1]:=MainF.DBGrid1.Fields[0].AsString;.Cells[1,j+1]:=MainF.DBGrid1.Fields[1].AsString;;j:=1 to Tab.RowCount-1 do.ADOQuery1.Close;.ADOQuery1.SQL.Clear;:='SELECT Наименование FROM Вещевое_имущество WHERE Код_вещевого_имущества = '+Tab.Cells[0,j];.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;.Cells[0,j]:=MainF.DBGrid1.Fields[0].AsString;;;j:=1 to Tab.RowCount-2 dok:=j+1 to Tab.RowCount-1 doTab.Cells[0,j]>Tab.Cells[0,k] then:=Tab.Cells[0,j];.Cells[0,j]:=Tab.Cells[0,k];.Cells[0,k]:=sdf;:=Tab.Cells[1,j];.Cells[1,j]:=Tab.Cells[1,k];.Cells[1,k]:=sdf;;;TSkladF.Button3Click(Sender: TObject);.Close;;TSkladF.Button2Click(Sender: TObject);: Variant;, j: Integer;:= CreateOleObject('Excel.Application');.Visible:=true;.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:='Выдача довольствия';i := 0 to Tab.ColCount-1 doj := 0 to Tab.RowCount-1 do.Cells[j+1, i+1].value := Tab.Cells[i,j];;TSkladF.Button1Click(Sender: TObject);i : integer;i := 0 to Tab.RowCount -1 doTab.Cells[0,i] = Edit1.Text then.Row := i;('Найдена запись на ' + IntToStr(i) + ' строке.')(handle,PChar('Такого предмета нет'), PChar('Внимание'), 48)MessageBox(handle,PChar('Такого предмета нет'), PChar('Внимание'), 48);;;(handle,PChar('Такого предмета нет'), PChar('Внимание'), 48)

end;.

Форма «Новый предмет»

unit New;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,;= class(TForm): TDataSource;: TADOTable;: TDBGrid;: TDBNavigator;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;N2Click(Sender: TObject);FormCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };: TNewT;Main;

{$R *.dfm}TNewT.N2Click(Sender: TObject);.show;.Close;;TNewT.FormCreate(Sender: TObject);

begin;.

Форма «Отчеты за период».

unit Otchet;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, Printers, Grids, DBGrids, DB, ADODB, Menus;= class(TForm): TRadioButton;: TRadioButton;: TButton;: TLabel;: TLabel;: TButton;: TPrinterSetupDialog;: TDataSource;: TADOTable;: TDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TDateTimePicker;: TDateTimePicker;

//procedure probel(k:integer);OKClick(Sender: TObject);PrntClick(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);N2Click(Sender: TObject);N3Click(Sender: TObject);FormCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };: TOtchetF;Main;

{$R *.dfm}TOtchetF.OKClick(Sender: TObject);Com.Checked then.Active := False;.TableName := 'Запрос на приход';.Filter := 'Дата >= ' + DateToStr(D1.Date)+ ' AND Дата = ' + DateToStr(D1.Date)+ ' AND Дата

Похожие работы