atdset.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 100 行

unit atdset;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Mask, DBCtrls, ComCtrls, ToolWin, ImgList, Buttons;

type
  TFormatdset = class(TForm)
    Panel1: TPanel;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    Label8: TLabel;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label10: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit6: TDBEdit;
    Label4: TLabel;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    Label11: TLabel;
    Label1: TLabel;
    DBEdit5: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formatdset: TFormatdset;

implementation

uses main, datamol;
{$R *.DFM}

procedure TFormatdset.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     formatdset:=nil;
     action:=cafree;
     datamod.adoatdset.Close;
end;

procedure TFormatdset.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin
     key:=#0;
     selectnext(activecontrol,true,true);
   end;
end;
procedure TFormatdset.Button3Click(Sender: TObject);
begin
      datamod.adoatdset.cancel;
      close;
end;

procedure TFormatdset.ToolButton4Click(Sender: TObject);
begin
  close;
end;
procedure TFormatdset.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_f1 then
   begin
    Application.HelpFile :=extractfilepath(application.exename) +'help\pasahelp.hlp';
    application.HelpJump('shm_contents0052');
   end;
end;
procedure TFormatdset.FormCreate(Sender: TObject);
begin
  datamod.adoatdset.open;
end;
end.