hbunt.pas

商品销售系统完全的功能SQL和JAVA

unit hbunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons;

type
  Tdyhbfrm = class(TForm)
    Label1: TLabel;
    users: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    MainMenu1: TMainMenu;
    admin1: TMenuItem;
    windows1: TMenuItem;
    pasw: TEdit;
    Label7: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dyhbfrm: Tdyhbfrm;

implementation

uses mainunt,datam;

{$R *.dfm}

procedure Tdyhbfrm.BitBtn1Click(Sender: TObject);
begin
   if user_check(users.Text,pasw.Text)=true then
       begin
          usrname:=users.text;
          if recommit_sys(trim(users.text),edit1.Text,edit2.Text,strtofloatdef(trim(edit3.Text),0))=true then
            begin
              main.statusbar1.Panels.Items[1].Text :='收银员 '+usrname;
              main.Edit8.Text:=usrname;
               dyhbfrm.close;
            end;
       end
   else
    begin
    Tag:=tag+1;
    showmessage('用户不存在！');
    users.SelectAll;
    users.SetFocus;
    pasw.Text:='';
    if Tag>4 then
           showmessage('你的登陆次数已经超过3次了！');
   end;
end;

procedure Tdyhbfrm.FormActivate(Sender: TObject);
begin
edit1.Text:=formatdatetime('yyyy年mm月dd日',date);
edit2.Text:=formatdatetime('hh点mm分 ampm',now);
users.SetFocus;
end;

procedure Tdyhbfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
dyhbfrm:=nil;
dyhbfrm.Free;
end;

procedure Tdyhbfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

end.