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

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实验室仪器管理系统(九)由毕业论文网（www.huoyuandh.com）会员上传。