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

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