Реферат Автоматизація обліку матеріалів на складі виробничого підприємства

y"> DataSource12: TDataSource;

ADOTable10: TADOTable;

DBGrid2: TDBGrid;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

ADOQuery1IdOperacii: TAutoIncField;

ADOQuery1KodOperacii: TIntegerField;

ADOQuery1Data: TDateTimeField;

ADOQuery1KodTovara: TIntegerField;

ADOQuery1Koli4estvo: TIntegerField;

ADOQuery1KodPostavs4ika: TIntegerField;

ADOQuery1KodSklada: TIntegerField;

Label18: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Button6: TButton;

Label19: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Button1: TButton;

procedure Button6Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form11: TForm11; unit1;

{$ R * .dfm} TForm11.Button6Click (Sender: TObject);.Filter:=laquo;KodTovara=raquo;+quotedstr(DBLookupComboBox1.ListSource.DataSet.fieldbyname(laquo;KodTovararaquo;).AsString);.Filtered:=true;;TForm11.Button1Click(Sender: TObject);.Filter:=laquo;KodTovara=raquo;+quotedstr(DBLookupComboBox2.ListSource.DataSet.fieldbyname(laquo;KodTovararaquo;).AsString);.Filtered:=true;;.Unit12;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, QuickRpt, QRCtrls;

TForm12=class (TForm)

QuickRep1: TQuickRep;

QRStringsBand1: TQRStringsBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRSubDetail1: TQRSubDetail;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

private

{Private declarations}

public

{Public declarations}

end;

Form12: TForm12; unit7;

{$ R * .dfm} .Unit13;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons,

ComCtrls;

TForm13=class (TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

DBLookupComboBox2: TDBLookupComboBox;

BitBtn1: TBitBtn;

DBLookupComboBox3: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure BitBtn1Click (Sender: TObject);

procedure DBEdit1KeyPress (Sender: TObject; var Key: Char);

private

{Private declarations}

public

{Public declarations}

end;

Form13: TForm13; Unit1, Unit4, Unit3, Unit7;

{$ R ...