guestform.pas

来自「本软件专门用于管理餐饮行业的点菜单、加菜单酒水单等重要票据的领用及回收情况」· PAS 代码 · 共 108 行

unit guestform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, TFlatComboBoxUnit, TFlatEditUnit,
  Buttons, ImgList, abcshapf, SUIComboBox, jpeg, SUIButton, TFlatHintUnit,
  Grids, DBGrids;

type
  Tguestforms = class(TForm)
    abcShapeForm1: TabcShapeForm;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    cmb1: TsuiComboBox;
    Label2: TLabel;
    passtr: TFlatEdit;
    ImageList1: TImageList;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    FlatHint1: TFlatHint;
    procedure passtrKeyPress(Sender: TObject; var Key: Char);
    procedure cmb1DropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  guestforms: Tguestforms;

implementation

uses pjmagagerunit, Unit1;


{$R *.dfm}

procedure Tguestforms.passtrKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     suiButton1Click(Sender);
end;

procedure Tguestforms.cmb1DropDown(Sender: TObject);
begin
  if mydata.query1.Active=true then
     mydata.query1.Close;
     mydata.Query1.SQL.Clear;
     mydata.Query1.SQL.Add('select * from usertable');
     mydata.query1.Open;
  mydata.query1.First;
  cmb1.items.clear;
  while not mydata.query1.Eof do
  begin
     cmb1.Items.Add(mydata.query1.fieldbyname('userid').AsString);
     mydata.query1.Next;
  end;

end;

procedure Tguestforms.BitBtn1Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tguestforms.suiButton1Click(Sender: TObject);
begin
  if mydata.query1.Active=false then
     mydata.Query1.Active:=true;
  mydata.Query1.SQL.Clear;
  mydata.Query1.SQL.Add('select * from usertable');
  mydata.Query1.SQL.Add('where userid=:params0');
  mydata.Query1.SQL.Add('and useerpsd=:params1');
  mydata.Query1.Prepare;
  mydata.Query1.Params[0].AsString:=trim(cmb1.Text);
  mydata.Query1.Params[1].AsString:=trim(passtr.Text);
  mydata.query1.Open;
  if mydata.Query1.RecordCount=0 then
     showmessage('用户名或密码错误！')
    else
     begin
       guestforms.Hide;
       form1.show;
     end;

end;

procedure Tguestforms.suiButton2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tguestforms.FormActivate(Sender: TObject);
begin
  if mydata.query1.Active=false then
     mydata.query1.Open;
end;

end.