logoform.~pas

简单的餐饮软件部分源码

unit logoform;

interface

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

type
  Tsnlogo = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    spbut1: TSpeedButton;
    spbut2: TSpeedButton;
    bit1: TBitBtn;
    Bit4: TBitBtn;
    Bit5: TBitBtn;
    Bit3: TBitBtn;
    Bit7: TBitBtn;
    Bit8: TBitBtn;
    Bit6: TBitBtn;
    Bit9: TBitBtn;
    Bit10: TBitBtn;
    Bit11: TBitBtn;
    Bit12: TBitBtn;
    bit2: TBitBtn;
    Image1: TImage;
    Timer1: TTimer;
    Bit13: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Bit12Click(Sender: TObject);
    procedure Bit13Click(Sender: TObject);
    procedure spbut1Click(Sender: TObject);
    procedure spbut2Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure bit1Click(Sender: TObject);
    procedure Bit3Click(Sender: TObject);
    procedure Bit4Click(Sender: TObject);
    procedure Bit5Click(Sender: TObject);
    procedure Bit6Click(Sender: TObject);
    procedure Bit7Click(Sender: TObject);
    procedure Bit8Click(Sender: TObject);
    procedure Bit9Click(Sender: TObject);
    procedure Bit10Click(Sender: TObject);
    procedure Bit11Click(Sender: TObject);
    procedure bit2Click(Sender: TObject);
  private
    { Private declarations }
  checkword:string;
  editid:string;
  public
    { Public declarations }

  end;

var
  snlogo: Tsnlogo;

implementation
uses snackdm,snmai;
{$R *.dfm}
procedure Tsnlogo.Timer1Timer(Sender: TObject);
begin
if image1.Top >=380 then
 begin
  image1.Top:=90;
 end
else image1.Top:=image1.Top+3;
end;

procedure Tsnlogo.FormCreate(Sender: TObject);
Var
  CNameBuffer : PChar;
  fl_loaded : Boolean;
  CLen : ^DWord;
begin
GetMem(CNameBuffer,255);
    New(CLen);
    CLen^:= 255;
    fl_loaded := GetComputerName(CNameBuffer,CLen^);
    if fl_loaded then
      DataM.ComputerName:= StrPas(CNameBuffer)
    else
      DataM.ComputerName:='Unkown';
    FreeMem(CNameBuffer,255);
    Dispose(CLen);
if datam.sppushmodelid='1' then
 begin
  bit1.Enabled:=False;
  bit2.Enabled:=False;
  bit3.Enabled:=False;
  bit4.Enabled:=False;
  bit5.Enabled:=False;
  bit6.Enabled:=False;
  bit7.Enabled:=False;
  bit8.Enabled:=False;
  bit9.Enabled:=False;
  bit10.Enabled:=False;
  bit11.Enabled:=False;
 end;
end;
procedure Tsnlogo.FormShow(Sender: TObject);
begin
 bit2.Caption:=DataM.SPLanguage.ReadString('captions','00001','');
 bit12.Caption:=DataM.SPLanguage.ReadString('captions','00002','');
 bit13.Caption:=DataM.SPLanguage.ReadString('captions','00003','');
 spbut1.Caption:=DataM.SPLanguage.ReadString('captions','00004','');
 spbut2.Caption:=DataM.SPLanguage.ReadString('captions','00004','');
 label1.Caption:=DataM.SPLanguage.ReadString('captions','00005','');
 label2.Caption:=DataM.SPLanguage.ReadString('captions','00006','');
 self.Caption:=DataM.SPLanguage.ReadString('captions','00007','');
end;
procedure Tsnlogo.Bit12Click(Sender: TObject);
begin
 with DataM.UserADO do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select username,userpassword from snuser where userid='''+Trim(edit1.Text)+'''');
   Open;
  end;

 if DataM.UserADO.RecordCount>0 then
  begin
   checkword:=DataM.UserADO.FieldValues['userpassword'];
   if edit2.Text<>checkword then
    begin
     messagebeep(0);
     messagebox(0,PChar(''+DataM.SPLanguage.ReadString('msgbox','0009','')+''),PChar(''+DataM.SPLanguage.ReadString('msgbox','0010','')+''),MB_ICONEXCLAMATION or MB_OK);
     edit2.SetFocus;
     edit2.SelectAll;
     exit;
    end;
  end else
   begin
    messagebeep(0);
    messagebox(0,PChar(''+DataM.SPLanguage.ReadString('msgbox','0008','')+''),PChar(''+DataM.SPLanguage.ReadString('msgbox','0011','')+''),MB_ICONEXCLAMATION or MB_OK);
    edit1.SetFocus;
    edit1.SelectAll;
    exit;
   end;
  with DataM.recado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('insert snrecorder(userid,username,recdate,rectime,hostname,recmodel) values('''+edit1.Text+''','''+DataM.UserADO.FieldValues['username']+''','''+DateToStr(Date)+''','''+TimeToStr(time)+''','''+DataM.ComputerName+''','''+Self.Caption+''')');
   ExecSQL;
  end;
   Application.CreateForm(Tmainform,mainform);
   mainform.FLogoid:=edit1.Text;
   mainform.FLogouser:=DataM.UserADO.FieldValues['username'];
   snlogo.Hide;
   snlogo.Release;
   mainform.ShowModal;
end;
procedure Tsnlogo.Bit13Click(Sender: TObject);
begin
 messagebeep(0);
 if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0006','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0007','')+''),MB_ICONQUESTION or MB_YESNO)=IDNO then
    Abort
 else Application.Terminate;
end;
procedure Tsnlogo.spbut1Click(Sender: TObject);
begin
 edit1.SetFocus;
 edit1.SelectAll;
 editid:='Edit1';
end;

procedure Tsnlogo.spbut2Click(Sender: TObject);
begin
 edit2.SetFocus;
 edit2.SelectAll;
 editid:='Edit2';
end;
procedure Tsnlogo.Edit1Enter(Sender: TObject);
begin
 spbut1Click(Sender);
end;
procedure Tsnlogo.Edit2Enter(Sender: TObject);
begin
  spbut2Click(Sender);
end;
procedure Tsnlogo.bit1Click(Sender: TObject);
begin
 if editid='Edit1' then edit1.Text:=edit1.Text+bit1.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit1.Caption;
end;
procedure Tsnlogo.Bit3Click(Sender: TObject);
begin
 if editid='edit1' then Edit1.Text:=Edit1.Text+bit3.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit3.Caption;
end;
procedure Tsnlogo.Bit4Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Text:=Edit1.Text+bit4.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit4.Caption;
end;
procedure Tsnlogo.Bit5Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Text:=Edit1.Text+bit5.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit5.Caption;
end;
procedure Tsnlogo.Bit6Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Text:=Edit1.Text+bit6.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit6.Caption;
end;
procedure Tsnlogo.Bit7Click(Sender: TObject);
begin
  if editid='Edit1' then Edit1.Text:=Edit1.Text+bit7.Caption;
  if editid='Edit2' then edit2.Text:=edit2.Text+bit7.Caption;
end;
procedure Tsnlogo.Bit8Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Text:=Edit1.Text+bit8.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit8.Caption;
end;
procedure Tsnlogo.Bit9Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Text:=Edit1.Text+bit9.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit9.Caption;
end;
procedure Tsnlogo.Bit10Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Text:=Edit1.Text+bit10.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit10.Caption;
end;

procedure Tsnlogo.Bit11Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Text:=Edit1.Text+bit11.Caption;
 if editid='Edit2' then edit2.Text:=edit2.Text+bit11.Caption;
end;
procedure Tsnlogo.bit2Click(Sender: TObject);
begin
 if editid='Edit1' then Edit1.Clear;
 if editid='Edit2' then edit2.Clear;
end;

end.