advance.pas

pasa人力资源考勤管理系统

unit advance;

interface

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

type
  Tformadvance = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    btnok: TBitBtn;
    btncancel: TBitBtn;
    btnexit: TBitBtn;
    TabSheet3: TTabSheet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    btnprint: TBitBtn;
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure btnexitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formadvance: Tformadvance;

implementation

uses datamol;
{$R *.DFM}

procedure Tformadvance.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
     begin
       with sender as twincontrol do
         postmessage(handle,wm_keydown,vk_tab,0);
         key:=#0;
     end;
end;

procedure Tformadvance.FormActivate(Sender: TObject);
begin
   //datamod.Adoadvance.Active:=true;
   //datamod.Adoadvance.Open;
end;

procedure Tformadvance.btnexitClick(Sender: TObject);
begin
  close;
end;

procedure Tformadvance.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   datamod.Adoadvance.Close;
end;

procedure Tformadvance.PageControl1Change(Sender: TObject);
begin
     with datamod.Adoadvance do
     begin
       Filtered :=false;
       case pagecontrol1.ActivePageIndex of
         0:filter:='movekind=0';
         1:filter:='movekind=1';
         2:filter:='movekind=2';
       end;
       filtered:=true;
     end;
end;

end.