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

var
  frm_Borrow: Tfrm_Borrow;

implementation

uses Main;

{$R *.DFM}

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

procedure Tfrm_Borrow.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';
  Query1.DatabaseName:=MainForm.GetExePath+'mdb';
  table1.Open;
  table2.Open;
end;

procedure Tfrm_Borrow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.Close;
  table2.Close;
  Query1.Close;
  with Mainform do
  begin
//    StatusBar.Panels[1].Text:='仪器借用库已关闭';
    if MDIChildCount=1 then
      StatusBar.Panels[1].Text:='';
  end;
  Action:=caFree;
end;

procedure Tfrm_Borrow.PageControl1Change(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:begin
      DataSource1.DataSet:=Table1;
      Table1.Open;
    end;
  1:begin
      DataSource1.DataSet:=Query1;
      AllRec;
    end;
  end;
end;

procedure Tfrm_Borrow.SpeedButton1Click(Sender: TObject);
var
  SQLStr,SQLAll,Log:String;
  SQLTemp:Pchar;
  arrstr:array[1..5

首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/13/13