systemfile.pas

pasa人力资源考勤管理系统

unit systemfile;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ADODB, ExtCtrls, Grids, DBTables,sqledit,adoint,
  DBCtrls, Menus, ImgList, ComCtrls, ToolWin, DBGrids;

type
  TFormsystemfile = class(TForm)
    Panel1: Tpanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DStablename: TDataSource;
    DSfieldname: TDataSource;
    DBNavigator1: TDBNavigator;
    MainMenu1: TMainMenu;
    view: TMenuItem;
    table: TMenuItem;
    func: TMenuItem;
    userdefine: TMenuItem;
    proc: TMenuItem;
    modal: TMenuItem;
    Qrytablename: TADOQuery;
    Qrytablenametablename: TStringField;
    Qrytablenametablechinese: TStringField;
    Qryfieldname: TADOQuery;
    QryfieldnameID: TAutoIncField;
    Qryfieldnametablename: TStringField;
    Qryfieldnametablechinese: TStringField;
    Qryfieldnamefieldname: TStringField;
    Qryfieldnamefieldtype: TStringField;
    Qryfieldnamefieldlength: TIntegerField;
    Qryfieldnamefieldfloat: TIntegerField;
    Qryfieldnamefielddesc: TIntegerField;
    Qryfieldnamefieldchinese: TStringField;
    Qryfieldnameempty: TBooleanField;
    Qryfieldnamedefultvalue: TStringField;
    Qryfieldnameidenty: TBooleanField;
    Qrymodal: TADOQuery;
    Qryproc: TADOQuery;
    QrymodalID: TAutoIncField;
    Qrymodalmodaldisplay: TStringField;
    Qrymodalmodalname: TStringField;
    Qrymodalmodalitemdisplay: TStringField;
    Qrymodalmodalitemname: TStringField;
    Qrymodalprocedurename: TStringField;
    Qrymodalmodalfunc: TStringField;
    QryprocID: TAutoIncField;
    Qryprocprocname: TStringField;
    Qryprocprocfunc: TStringField;
    ControlBar2: TControlBar;
    ToolBar2: TToolBar;
    find: TToolButton;
    sort: TToolButton;
    ToolButton19: TToolButton;
    quit: TToolButton;
    ImageList2: TImageList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tableClick(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure userdefineClick(Sender: TObject);
    procedure modalClick(Sender: TObject);
    procedure procClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    width,height:word;
  end;

var
  Formsystemfile: TFormsystemfile;

implementation

uses datamol;
{$R *.DFM}

procedure TFormsystemfile.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     Qrytablename.Close;
     Qryfieldname.Close;
     Qryproc.close;
     Qrymodal.close;
     formsystemfile:=nil;
     action:=cafree;
end;

procedure TFormsystemfile.tableClick(Sender: TObject);
begin
     Qrymodal.Close;
     Qryproc.close;
     if panel1.align=alclient then
     begin
        panel1.Align:=alnone;
        panel1.Width:=width;
        panel1.height:=Height;
     end;
     dstablename.dataset:=qrytablename;
     Qrytablename.open;
     Qryfieldname.open;
     find.Enabled:=true;
     if not panel2.visible then
        panel2.visible:=true;
end;

procedure TFormsystemfile.exitClick(Sender: TObject);
begin
    Close;
end;

procedure TFormsystemfile.userdefineClick(Sender: TObject);
begin
      find.Enabled:=false;
end;

procedure TFormsystemfile.modalClick(Sender: TObject);
begin
      panel2.visible:=false;
      width:=panel1.Width;
      height:=panel1.Height;
      panel1.Align:=alClient;
      Qrytablename.Close;
      Qryfieldname.close;
      Dstablename.dataset:=Qrymodal;
      Qrymodal.open;
end;

procedure TFormsystemfile.procClick(Sender: TObject);
begin
      panel2.visible:=false;
      width:=panel1.Width;
      height:=panel1.Height;
      panel1.Align:=alClient;
      Qrytablename.Close;
      Qryfieldname.close;
      Dstablename.dataset:=Qryproc;
      Qryproc.open;
end;

end.