sczrz_form.pas

Access数据库用户权限的管理程序

unit SCZRZ_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatComboBoxUnit, StdCtrls, TFlatButtonUnit, Grids, DBGrids,
  TFlatCheckBoxUnit, TFlatGroupBoxUnit, DB,ADODB;

type
  TSCZRZ_F = class(TForm)
    FlatGroupBox1: TFlatGroupBox;
    MHCX_FCB: TFlatCheckBox;
    FlatGroupBox3: TFlatGroupBox;
    CZRZ_DG: TDBGrid;
    FlatGroupBox2: TFlatGroupBox;
    Label1: TLabel;
    KSCX_FBtn: TFlatButton;
    GJZ_CB: TComboBox;
    CXFS_CB: TFlatComboBox;
    FlatButton1: TFlatButton;
    CZRZ_DS: TDataSource;
    RZ_Lable: TLabel;
    procedure FlatButton1Click(Sender: TObject);
    procedure KSCX_FBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CXFS_CBChange(Sender: TObject);
    procedure GJZ_CBKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CXFS_CBKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MHCX_FCBKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure GJZ_CBKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CZRZ_DGKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SCZRZ_F: TSCZRZ_F;
  CZRZ_Q: TADOQuery;
  
implementation

uses share, Main_Form;

{$R *.dfm}
//******************************************************************************
procedure TSCZRZ_F.FormCreate(Sender: TObject);
begin
  CZRZ_Q := TADOQuery.Create(nil);
  CZRZ_Q.Connection := Connect;
end;
//******************************************************************************
procedure TSCZRZ_F.KSCX_FBtnClick(Sender: TObject);
begin
  case CXFS_CB.ItemIndex of
     0:if MHCX_FCB.Checked then
      begin
        CZRZ_Q.Close;
        CZRZ_Q.SQL.Clear;
        CZRZ_Q.SQL.Add('Select * From 操作日志');
        CZRZ_Q.SQL.Add('Where 帐号 Like :帐号');
        CZRZ_Q.Parameters.ParamByName('帐号').Value:='%'+GJZ_CB.Text+'%';

        CZRZ_DS.DataSet:=CZRZ_Q;
        CZRZ_DG.Columns[0].FieldName:='帐号';
        CZRZ_DG.Columns[1].FieldName:='日期';
        CZRZ_DG.Columns[2].FieldName:='操作';
        CZRZ_Q.Open;
        RZ_Lable.Caption:=Format('共 %d 条记录',[CZRZ_Q.RecordCount]);
      end
      else begin
        CZRZ_Q.Close;
        CZRZ_Q.SQL.Clear;
        CZRZ_Q.SQL.Add('Select * From 操作日志');
        CZRZ_Q.SQL.Add('Where 帐号 Like :帐号');
        CZRZ_Q.Parameters.ParamByName('帐号').Value:=GJZ_CB.Text;

        CZRZ_DS.DataSet:=CZRZ_Q;
        CZRZ_DG.Columns[0].FieldName:='帐号';
        CZRZ_DG.Columns[1].FieldName:='日期';
        CZRZ_DG.Columns[2].FieldName:='操作';
        CZRZ_Q.Open;

        RZ_Lable.Caption:=Format('共 %d 条记录',[CZRZ_Q.RecordCount]);
      end;
     1:if MHCX_FCB.Checked then
      begin
        CZRZ_Q.Close;
        CZRZ_Q.SQL.Clear;
        CZRZ_Q.SQL.Add('Select * From 操作日志');
        CZRZ_Q.SQL.Add('Where 日期 Like :日期');
        CZRZ_Q.Parameters.ParamByName('日期').Value:='%'+GJZ_CB.Text+'%';

        CZRZ_DS.DataSet:=CZRZ_Q;
        CZRZ_DG.Columns[0].FieldName:='帐号';
        CZRZ_DG.Columns[1].FieldName:='日期';
        CZRZ_DG.Columns[2].FieldName:='操作';
        CZRZ_Q.Open;

        RZ_Lable.Caption:=Format('共 %d 条记录',[CZRZ_Q.RecordCount]);
      end
      else begin
        CZRZ_Q.Close;
        CZRZ_Q.SQL.Clear;
        CZRZ_Q.SQL.Add('Select * From 操作日志');
        CZRZ_Q.SQL.Add('Where 日期 Like :日期');
        CZRZ_Q.Parameters.ParamByName('日期').Value:=GJZ_CB.Text;

        CZRZ_DS.DataSet:=CZRZ_Q;
        CZRZ_DG.Columns[0].FieldName:='帐号';
        CZRZ_DG.Columns[1].FieldName:='日期';
        CZRZ_DG.Columns[2].FieldName:='操作';
        CZRZ_Q.Open;

        RZ_Lable.Caption:=Format('共 %d 条记录',[CZRZ_Q.RecordCount]);
      end;
     2:if MHCX_FCB.Checked then
      begin
        CZRZ_Q.Close;
        CZRZ_Q.SQL.Clear;
        CZRZ_Q.SQL.Add('Select * From 操作日志');
        CZRZ_Q.SQL.Add('Where 操作 Like :操作');
        CZRZ_Q.Parameters.ParamByName('操作').Value:='%'+GJZ_CB.Text+'%';

        CZRZ_DS.DataSet:=CZRZ_Q;
        CZRZ_DG.Columns[0].FieldName:='帐号';
        CZRZ_DG.Columns[1].FieldName:='日期';
        CZRZ_DG.Columns[2].FieldName:='操作';
        CZRZ_Q.Open;
        RZ_Lable.Caption:=Format('共 %d 条记录',[CZRZ_Q.RecordCount]);
      end
      else begin
        CZRZ_Q.Close;
        CZRZ_Q.SQL.Clear;
        CZRZ_Q.SQL.Add('Select * From 操作日志');
        CZRZ_Q.SQL.Add('Where 操作 Like :操作');
        CZRZ_Q.Parameters.ParamByName('操作').Value:=GJZ_CB.Text;

        CZRZ_DS.DataSet:=CZRZ_Q;
        CZRZ_DG.Columns[0].FieldName:='帐号';
        CZRZ_DG.Columns[1].FieldName:='日期';
        CZRZ_DG.Columns[2].FieldName:='操作';
        CZRZ_Q.Open;
        
        RZ_Lable.Caption:=Format('共 %d 条记录',[CZRZ_Q.RecordCount]);
      end;
   end;
end;
//******************************************************************************
procedure TSCZRZ_F.FlatButton1Click(Sender: TObject);
begin
  close;
end;
//******************************************************************************
procedure TSCZRZ_F.CXFS_CBChange(Sender: TObject);
begin
  case CXFS_CB.ItemIndex of
     0:begin
         MHCX_FCB.Checked:=false;
         CZRZ_Q.Close;
         RZ_Lable.Caption:='共 0 条记录';
       end;
     1:begin
         MHCX_FCB.Checked:=false;
         CZRZ_Q.Close;
         RZ_Lable.Caption:='共 0 条记录';
       end;
     2:begin
         MHCX_FCB.Checked:=true;
         CZRZ_Q.Close;
         RZ_Lable.Caption:='共 0 条记录';
       end;
  end;
end;
//******************************************************************************
procedure TSCZRZ_F.GJZ_CBKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=VK_RETURN then KSCX_FBtnClick(KSCX_FBtn);
end;
//******************************************************************************
procedure TSCZRZ_F.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
procedure TSCZRZ_F.CXFS_CBKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
procedure TSCZRZ_F.MHCX_FCBKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
procedure TSCZRZ_F.GJZ_CBKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
procedure TSCZRZ_F.CZRZ_DGKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
end.