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

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

2013-06-04 01:56 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;

（科教作文网http://zw.ΝsΕac.cOM编辑）

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;