delphi实验室仪器管理系统

Public declarations }
end;

var
frm_Code: Tfrm_Code;

implementation

uses Main;

{$R *.DFM}

function Tfrm_Code.GetDBName:String;
begin
case ComboBox1.ItemIndex of
0:begin
      Result:='仪器类型代码库.db';
    end;
1:begin
      Result:='所属试验代码库.db';
    end;
end;
end;

procedure Tfrm_Code.FormCreate(Sender: TObject);
begin
Height:=Constraints.MinHeight;
Width:=Constraints.MinWidth;
Panel1.Align:=alTop;
DBGrid1.Align:=alClient;
ComboBox1.ItemIndex:=0;
Table1.DatabaseName:=MainForm.GetExePath+'mdb';
Table1.TableName:=GetDBName;
Table1.Open;
end;

procedure Tfrm_Code.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
with Mainform do
begin
//    StatusBar.Panels[1].Text:='代码库已关闭';
    if MDIChildCount=1 then
      StatusBar.Panels[1].Text:='';
end;
Action:=caFree;
end;

procedure Tfrm_Code.ComboBox1Change(Sender: TObject);
begin
Table1.Close;
Table1.TableName:=GetDBName;
Table1.Open;
end;

procedure Tfrm_Code.DataSource1DataChange(Sender: TObject; Field: TField);
begin
FormActivate(Sender);
end;

procedure Tfrm_Code.FormActivate(Sender: TObject);
begin
MainForm.StatusBar.Panels[1].Text:='代码库纪录导航信息：第'+inttostr(DataSource1.DataSet.RecNo)+'笔纪录-总共'+inttostr(DataSource1.DataSet.RecordCount)+'笔纪录';
end;

end.

3.4 仪器代码库维护界面与代码设计

代码设计:
unit Child_Sort;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls;

type
Tfrm_Sort = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Query1: TQuery;
    Table1: TTable;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
frm_Sort: Tfrm_Sort;

implementation

uses Main;

{$R *.DFM}

procedure Tfrm_Sort.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with Mainform do
begin

首页上一页 6 7 8 9 10 11 12 下一页尾页 9/13/13

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