kaoqin.pas

来自「一个很好的考勤系统」· PAS 代码 · 共 65 行

unit KaoQin;

interface

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

type
  TFormKaoQin = class(TForm)
    DBGridKaoQin: TDBGrid;
    DBNavigatorKaoQin: TDBNavigator;
    PanelNavigator: TPanel;
    PanelGrid: TPanel;
    procedure FormActivate(Sender: TObject);
    procedure DBGridKaoQinEditButtonClick(Sender: TObject);
    procedure DBGridKaoQinDblClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormKaoQin: TFormKaoQin;

implementation

{$R *.DFM}

uses DataModule, Login, JiBen;

procedure TFormKaoQin.FormActivate(Sender: TObject);
begin
   If Login.QuanXian='geren' Then
      Begin
      DataModuleKaoQin.TableKaoQin.Close;
      DataModuleKaoQin.TableKaoQin.Filtered:=True;
      DataModuleKaoQin.TableKaoQin.Filter:='GongXuHao='+FormLogin.EditUser.Text;
      DataModuleKaoQin.TableKaoQin.ReadOnly:=True;
      DataModuleKaoQin.TableKaoQin.Open;
      End
   Else If Login.QuanXian='renshi' Then
      Begin
      DataModuleKaoQin.TableKaoQin.Close;
      DataModuleKaoQin.TableKaoQin.Filtered:=False;
      DataModuleKaoQin.TableKaoQin.ReadOnly:=False;
      DataModuleKaoQin.TableKaoQin.Open;
      End
   Else
       Application.Terminate;
end;

procedure TFormKaoQin.DBGridKaoQinEditButtonClick(Sender: TObject);
begin
     FormJiBen.ShowModal;
end;

procedure TFormKaoQin.DBGridKaoQinDblClick(Sender: TObject);
Var GongHao:String;
begin
    GongHao:=DataModuleKaoQin.TableKaoQin.FieldByName('GongXuHao').AsString;
end;

end.