ualluser.~pas

用delphi实现的一个酒店管理系统框架

unit UAllUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Inherit, RpDefine, RpRave, DB, ADODB, ImgList, StdCtrls,
  ComCtrls, Grids, DBGrids, DBCtrls, ExtCtrls, ToolWin, Menus, ExtDlgs;

type
  TAllUser = class(TTInherit)
    XZcx: TADODataSet;
    procedure FormShow(Sender: TObject);
    procedure ADODataSet1BeforePost(DataSet: TDataSet);
    procedure ADODataSet1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AllUser: TAllUser;

implementation

uses Unit3;

{$R *.dfm}

procedure TAllUser.FormShow(Sender: TObject);
begin
  inherited;ADODataSet1.Close;
ADODataSet1.CommandText:='select * from MyUser where 等级>'''+Form3.dj+'''';
ADODataSet1.Open;
end;

procedure TAllUser.ADODataSet1BeforePost(DataSet: TDataSet);
begin
if (ADODataSet1['等级']=null)or(ADODataSet1['姓名']=null) then
 Begin showmessage('用户名或等级不能为空!');DataSet.Cancel;exit;End;
ADODataSet1['等级']:=uppercase(copy(ADODataSet1['等级'],1,1));
if (ADODataSet1['等级']<=Form3.dj)or(pos(ADODataSet1['等级'],'AGR')=0) then
 Begin showmessage('不能添加此等级用户!');DataSet.Cancel;exit;End;
if ADODataSet1.State=dsInsert then begin
 XZCx.CommandText:='select * from MyUser';XZCx.Open;
 if XZCx.Locate('姓名',ADODataSet1['姓名'],[]) then
 Begin showmessage('该用户已经存在!');exit;End;XZCx.Close;End;
  inherited;
end;

procedure TAllUser.ADODataSet1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
 Action:=daAbort; //
end;

procedure TAllUser.FormResize(Sender: TObject);
begin
  inherited;
//ToolBar1.Height:=ord(width<400)*40+40;
DBGrid1.Top:=ToolBar1.Height+3;
end;

end.