userunit.pas

本软件专门用于管理餐饮行业的点菜单、加菜单酒水单等重要票据的领用及回收情况

unit userunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, db,wwSpeedButton, wwDBNavigator, ExtCtrls, wwclearpanel, Grids,
  Wwdbigrd, Wwdbgrid, StdCtrls, Buttons, SUIForm, Mask, wwdbedit, Wwdotdot,
  Wwdbcomb, DBTables;

type
  Tuserform = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1PriorPage: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1NextPage: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Delete: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBNavigator1Refresh: TwwNavButton;
    wwDBNavigator1SaveBookmark: TwwNavButton;
    wwDBNavigator1RestoreBookmark: TwwNavButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    wwDBGrid1: TwwDBGrid;
    Query1Userid: TStringField;
    Query1Username: TStringField;
    Query1Useerpsd: TStringField;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Query1BeforeDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userform: Tuserform;

implementation

uses guestform, Unit1;


{$R *.dfm}

procedure Tuserform.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure Tuserform.FormActivate(Sender: TObject);
begin
  IF Query1.Active=FALSE THEN
     Query1.Open;
end;

procedure Tuserform.SpeedButton1Click(Sender: TObject);
begin
  if query1.state in [dsedit,dsinsert] then
     query1.post;
     close;
end;

procedure Tuserform.Query1BeforeDelete(DataSet: TDataSet);
begin
 if query1.FieldByName('username').AsString='0000' then
 begin
    showmessage('管理员不能删除');
    exit;
 end;
end;
end.