评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi实验室仪器管理系统(一)毕业论文(7)

2013-06-04 01:56 sp;  EditDBEdit4: TDBEdit;
    DBEdit1: TDBEdit;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label22: TLabel;
    Label21: TLabel;
    Label20: TLabel;
    Label23: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit_No: TEdit;
    Edit_name: TEdit;
    Edit_DateIn: TEdit;
    RadioGroup1: TRadioGroup;
    Edit_DateOut: TEdit;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormActivate(Sender: TObject);
  private
    procedure AllRec;
    { Private declarations }
  public
    { Public declarations }
  end;

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; （科教范文网 fw.nseac.com编辑发布）
  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