user.~pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit User;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseForm, ExtCtrls, wwdblook, DBCtrls, Grids, Wwdbigrd,
  Wwdbgrid, StdCtrls, Buttons, Mask, ComCtrls, ImgList,DataMod, DB, ADODB,Func;
const cstPassword='@@@@@@@@@@';
type
  TfUser = class(TfBaseForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    gboxUserInfo: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    dbeUserId: TDBEdit;
    dbeUserName: TDBEdit;
    DBEdit3: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    dbcobRightGroup: TDBComboBox;
    edPassword: TEdit;
    btnNew: TBitBtn;
    btnModify: TBitBtn;
    btnDelete: TBitBtn;
    btnSave: TBitBtn;
    btnCancel: TBitBtn;
    GroupBox2: TGroupBox;
    wwDBGrid1: TwwDBGrid;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    wwDBGrid3: TwwDBGrid;
    wwDBGrid2: TwwDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel3: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    btnExit: TBitBtn;
    ImageList1: TImageList;
    labFunctionExplain: TLabel;
    imgFunctionImage: TImage;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery3: TADOQuery;
    DBCheckBox2: TDBCheckBox;
    DBText1: TDBText;
    DBText3: TDBText;
    ComboBox1: TComboBox;
    ADOQuery4: TADOQuery;
    ADOQuery4cUserId: TStringField;
    ADOQuery4cMenuId: TStringField;
    ADOQuery4lInfoBrow: TBooleanField;
    ADOQuery4lInfoModify: TBooleanField;
    ADOQuery4lInfoDelete: TBooleanField;
    ADOQuery4lInfoAdd: TBooleanField;
    ADOQuery4FuncName: TStringField;
    procedure btnNewClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ADOQuery4AfterInsert(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure wwDBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
   public
    { Public declarations }
  end;

var
  fUser: TfUser;

implementation

{$R *.dfm}

procedure TfUser.btnNewClick(Sender: TObject);
begin
  inherited;
  AdoQuery1.Append ;
end;

procedure TfUser.btnModifyClick(Sender: TObject);
begin
  inherited;
  AdoQuery1.Edit;
end;

procedure TfUser.btnDeleteClick(Sender: TObject);
begin
  inherited;
  Try
     AdoQuery1.Delete;
  except
     application.MessageBox('