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

delphi实验室仪器管理系统(十)     if MDIChildCount=1 then
      StatusBar.Panels[1].Text:='';
  end;
  Query1.Close;
  Action:=caFree;
end;

procedure Tfrm_Sort.FormShow(Sender: TObject);
begin
  OpenDialog1.InitialDir:=MainForm.GetExePath+'mdb';
end;

procedure Tfrm_Sort.FormCreate(Sender: TObject);
begin
  Height:=Constraints.MinHeight;
  Width:=Constraints.MinWidth;
  Panel1.Align:=alTop;
  DBGrid1.Align:=alClient;
end;

procedure Tfrm_Sort.FormActivate(Sender: TObject);
begin
  if (Table1.Active)or(Query1.Active) then
    MainForm.StatusBar.Panels[1].Text:='排序浏览纪录导航信息：第'+inttostr(DataSource1.DataSet.RecNo)+'笔纪录-总共'+inttostr(DataSource1.DataSet.RecordCount)+'笔纪录';
end;

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

procedure Tfrm_Sort.SpeedButton2Click(Sender: TObject);
var
  I:integer;
begin
  if OpenDialog1.Execute then
  begin
    try
      Query1.Close;
      Table1.Close;
      Table1.DatabaseName:=ExtractFilePath(OpenDialog1.FileName);
      Table1.TableName:=OpenDialog1.FileName;
      Edit1.Text:=OpenDialog1.FileName;
      Table1.Open;
      ComboBox1.Clear;
      for I := 0 to Table1.FieldDefs.Count-1  do
        ComboBox1.Items.Add(Table1.FieldDefs.Items[i].Name);
      ComboBox1.ItemIndex:=0;
      Table1.Close;
    except
      ShowMessage('无法打开的数据库文件');
    end;
  end;
end;

procedure Tfrm_Sort.SpeedButton1Click(Sender: TObject);
var
  DBName,FieldName:string;
begin
  try
    DBName:=Edit1.Text;
    FieldName:=ComboBox1.Text;
    Query1.SQL.Clear;
    Query1.SQL.Add('SELECT * FROM "'+DBName+'" Order by '+FieldName);
    Query1.Prepare;
    Query1.ExecSQL;
    Query1.Open;
  except
    ShowMessage('错误，空数据库或者无效数据库');
  end;
end;

end.

3.5  主界面设计与代码设计

代码设计:
unit Main;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList, Registry;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    Window1: TMenuItem;
    Help1: TMenuItem;
    N1: TMenuItem;
    FileExitItem: TMenuItem;
    WindowCascadeItem: TMenuItem;
    WindowTileItem: TMenuItem;
  &

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

delphi实验室仪器管理系统(十)由毕业论文网（www.huoyuandh.com）会员上传。