xishu.pas

一个很好的考勤系统

unit XiShu;

interface

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

type
  TFormXiShu = class(TForm)
    DBGridXiShu: TDBGrid;
    DBNavigatorXiShu: TDBNavigator;
    PanelNavigator: TPanel;
    PanelGrid: TPanel;
    procedure FormActivate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormXiShu: TFormXiShu;

implementation

{$R *.DFM}

uses DataModule,Login;

procedure TFormXiShu.FormActivate(Sender: TObject);
begin
   If Login.QuanXian='geren' Then
      Begin
      DataModuleKaoQin.TableXiShu.Close;
      DataModuleKaoQin.TableXiShu.Filtered:=False;
      DataModuleKaoQin.TableXiShu.ReadOnly:=True;
      DataModuleKaoQin.TableXiShu.Open;
      End
   Else If Login.QuanXian='caiwu' Then
      Begin
      DataModuleKaoQin.TableXiShu.Close;
      DataModuleKaoQin.TableXiShu.Filtered:=False;
      DataModuleKaoQin.TableXiShu.ReadOnly:=False;
      DataModuleKaoQin.TableXiShu.Open;
      End
   Else
       Application.Terminate;

end;

end.