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

* .dfm} TForm13.BitBtn1Click (Sender: TObject);.FieldByName(laquo;Dataraquo;).AsDateTime:=DateTimePicker1.Date;.Post;;TForm13.DBEdit1KeyPress(Sender: TObject; var Key: Char); key of

0 .. 9 , # 8: key:=chr (0) ;;;. Unit14;

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls;

TForm14=class (TForm)

QuickRep1: TQuickRep;

QRStringsBand1: TQRStringsBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRSubDetail1: TQRSubDetail;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

private

{Private declarations}

public

{Public declarations}

end;

Form14: TForm14; unit9;

{$ R * .dfm} .Unit2;

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

TForm2=class (TForm)

DataSource1: TDataSource;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOTable1KodSotrudnika: TAutoIncField;

ADOTable1FIO: TWideStringField;

ADOTable1Dolznostb: TWideStringField;

ADOTable1Telafon: TWideStringField;

private

{Private declarations}

public

{Public declarations}

end;

Form2: TForm2; unit1;

{$ R * .dfm} .Unit3;

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

Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;

TForm3=class (TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1: TADOTable;

DBNavigator1: TDBNavigator;

ADOTable1KodTovara: TAutoIncField;

ADOTable1NazvanieTovara: TWideStringField;

ADOTable1Cena: TBCDField;

procedure BitBtn1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form3: TForm3;

uses unit1, Unit13;

{$ R * .dfm} TForm3.BitBtn1Click (Sender: TObject) ;. ADOTable1.Append; .ShowModal ;;. Unit4;

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

Dialogs, DBCtrls, StdCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids;

TForm4=class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

DataSource2: TDataSource;

GroupBox1: TGroupBox;

Label1: TLabel;

Label4: TLabel;

Label5: TLabel;

DBText1: TDBText;

DBText4: TDBText;

DBText5: TDBText;

ADOTable1KodSklada: TAutoIncField;

ADOTable1NazvanieSklada: TWideStringField;

ADOTable1KodSotrudnika: TIntegerField;

procedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

private

{Private declarations}

public

{Public declarations}

end;

Form4: TForm4; unit1, Unit6, Unit13;

{$ R * .dfm} TForm4.DBNavigator1Click (Sender: TObject; Button: TNavigateBtn); button=...