delphi实验室仪器管理系统(四)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi实验室仪器管理系统(四) nbsp; DataSource4: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DBEdit3: TDBEdit;
    Label13: TLabel;
    Table1Field_OutUserName: TStringField;
    Table1Field_BeOut: TBooleanField;
    Query1_YQBH: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TDateField;
    Query1BDEDesigner5: TCurrencyField;
    Query1BDEDesigner6: TStringField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TSmallintField;
    Query1BDEDesigner9: TSmallintField;
    Query1BDEDesigner10: TStringField;
    Query1Field_OutUserName: TStringField;
    Query1Field_BeOut: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormActivate(Sender: TObject);
    procedure Table1CalcFields(DataSet: TDataSet);
    procedure Query1CalcFields(DataSet: TDataSet);
private
    procedure AllRec;
    { Private declarations }
public
    { Public declarations }
end;

var
frm_YQ_Lab: Tfrm_YQ_Lab;

implementation

uses Main, prt_lab;

{$R *.DFM}

procedure Tfrm_YQ_Lab.AllRec;
begin
with Query1 do
begin
    SQL.Clear;
    SQL.Add('SELECT * FROM "仪器库.db"');
    Prepare;
    ExecSQL;
    Open;
end;
end;

procedure Tfrm_YQ_Lab.FormCreate(Sender: TObject);
begin
Height:=Constraints.MinHeight;
Width:=Constraints.MinWidth;
Panel1.Align:=alTop;
Panel3.Align:=alClient;
PageControl1.Align:=alClient;
PageControl1.ActivePageIndex:=0;
DBGrid1.Align:=alClient;
Table1.DatabaseName:=MainForm.GetExePath+'mdb';
Table1.TableName:='仪器库.db';
Table2.DatabaseName:=MainForm.GetExePath+'mdb';
Table2.TableName:='仪器类型代码库.db';
Table3.DatabaseName:=MainForm.GetExePath+'mdb';
Table3.TableName:='所属试验代码库.db';
Table4.DatabaseName:=MainForm.GetExePath+'mdb';
Table4.TableName:='仪器借出信息库.DB';
table4.Open;
Query1.DatabaseName:=MainForm.GetExePath+'mdb';
AllRec;
table1.Open;
table2.Open;
table3.Open;
end;

procedure Tfrm_YQ_Lab.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table4.Close;

首页上一页 1 2 3 4 5 6 7 下一页尾页 4/13/13

delphi实验室仪器管理系统(四)由毕业论文网（www.huoyuandh.com）会员上传。