manform.~pas

简单的餐饮软件部分源码

unit manform;

interface

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

type
  Tcmform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    spbut1: TSpeedButton;
    spbut2: TSpeedButton;
    but1: TButton;
    but2: TButton;
    bit1: TBitBtn;
    Bit2: TBitBtn;
    Bit3: TBitBtn;
    Bit4: TBitBtn;
    Bit7: TBitBtn;
    Bit6: TBitBtn;
    Bit5: TBitBtn;
    Bit8: TBitBtn;
    Bit9: TBitBtn;
    Bit10: TBitBtn;
    bit11: TBitBtn;
    bit12: TBitBtn;
    bit13: TBitBtn;
    bit14: TBitBtn;
    Bit17: TBitBtn;
    bit16: TBitBtn;
    bit15: TBitBtn;
    bit18: TBitBtn;
    bit19: TBitBtn;
    bit20: TBitBtn;
    bit21: TBitBtn;
    bit22: TBitBtn;
    bit23: TBitBtn;
    bit24: TBitBtn;
    bit25: TBitBtn;
    bit26: TBitBtn;
    but3: TButton;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure but1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure spbut1Click(Sender: TObject);
    procedure spbut2Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
    procedure bit1Click(Sender: TObject);
    procedure Bit2Click(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 bit12Click(Sender: TObject);
    procedure bit13Click(Sender: TObject);
    procedure bit14Click(Sender: TObject);
    procedure bit15Click(Sender: TObject);
    procedure bit16Click(Sender: TObject);
    procedure Bit17Click(Sender: TObject);
    procedure bit18Click(Sender: TObject);
    procedure bit22Click(Sender: TObject);
    procedure bit21Click(Sender: TObject);
    procedure bit20Click(Sender: TObject);
    procedure bit19Click(Sender: TObject);
    procedure bit23Click(Sender: TObject);
    procedure bit24Click(Sender: TObject);
    procedure bit25Click(Sender: TObject);
    procedure bit26Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
  private
    { Private declarations }
    pushid:string;
    editid:string;
  public
    { Public declarations }
  end;

var
  cmform: Tcmform;

implementation
uses SnackDM, mealform;
{$R *.dfm}
procedure Tcmform.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 If (key<'0') or (key>'9') then key:=#0;
end;
procedure Tcmform.but1Click(Sender: TObject);
Var opentime:string;
begin
  if Trim(edit1.Text)='' then
  begin
    messagebeep(0);
    messagebox(0,PChar(''+DataM.SPLanguage.ReadString('msgbox','0012','')+''),PChar(''+DataM.SPLanguage.ReadString('msgbox','0013','')+''),MB_ICONEXCLAMATION or MB_OK);
    edit1.SetFocus;
    Exit;
  end;
   with datam.freeado  do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select * from sncreatebillno where tableid='''+Trim(edit1.Text)+'''');
     Open;
     if RecordCount<=0 then
      begin
      opentime:=DateToStr(date);
       Close;
       SQL.Clear;
       SQL.Add('insert sncreatebillno(opendate,tableid,billno) Values('''+opentime+''','''+Trim(edit1.Text)+''',''10001'')');
       ExecSQL;
      end;
    end;
   meal:=Tmeal.Create(nil);
   meal.FTableno:=Trim(edit1.Text);
   meal.Fmancount:=Trim(edit2.Text);
   cmform.Close;
   cmform.Release;
   meal.Show;
end;
procedure Tcmform.FormShow(Sender: TObject);
begin
if Datam.sppushmodelid='1' then
  begin
   pushid:='notouch';
   cmform.Height:=136;
   cmform.Width:=296;
  end else
    begin
     pushid:='touch';
     cmform.Height:=234;
     cmform.Width:=658;
    end;
 self.Position:=poScreenCenter;
end;
procedure Tcmform.FormCreate(Sender: TObject);
begin
 pushid:='enterkey';
 self.Caption:=DataM.SPLanguage.ReadString('captions','00045','');
 spbut1.Caption:=DataM.SPLanguage.ReadString('captions','00004','');
 spbut2.Caption:=DataM.SPLanguage.ReadString('captions','00004','');
 but1.Caption:=DataM.SPLanguage.ReadString('captions','00002','');
 but2.Caption:=DataM.SPLanguage.ReadString('captions','00036','');
 but3.Caption:=DataM.SPLanguage.ReadString('captions','00001','');
label1.Caption:=DataM.SPLanguage.ReadString('captions','00037','');
label2.Caption:=DataM.SPLanguage.ReadString('captions','00038','');
end;
procedure Tcmform.FormResize(Sender: TObject);
begin
 if pushid='notouch' then
  begin
    if cmform.Height<>136 then cmform.Height:=136;
    if cmform.Width<>296 then cmform.Width:=296;
    Exit;
  end;
 if Pushid='touch' then
  begin
    if cmform.Height<>234 then cmform.Height:=234;
    if cmform.Width<>658 then cmform.Width:=658;
  end;
end;
procedure Tcmform.but2Click(Sender: TObject);
begin
 cmform.Close;
 cmform.Release;
end;
procedure Tcmform.spbut1Click(Sender: TObject);
begin
 edit1.SetFocus;
 edit1.SelectAll;
 editid:='edit1';
end;
procedure Tcmform.spbut2Click(Sender: TObject);
begin
 edit2.SetFocus;
 edit2.SelectAll;
 editid:='edit2';  
end;
procedure Tcmform.but3Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Clear;
 if editid='edit2' then edit2.Clear;
end;
procedure Tcmform.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 Tcmform.Bit2Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit2.Caption;
 if editid='edit2' then edit2.Text:=edit2.Text+bit2.Caption;
end;
procedure Tcmform.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 Tcmform.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 Tcmform.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 Tcmform.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 Tcmform.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 Tcmform.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 Tcmform.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 Tcmform.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 Tcmform.bit11Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit11.Caption;
end;
procedure Tcmform.bit12Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit12.Caption;

end;

procedure Tcmform.bit13Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit13.Caption;

end;

procedure Tcmform.bit14Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit14.Caption;

end;

procedure Tcmform.bit15Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit15.Caption;

end;

procedure Tcmform.bit16Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit16.Caption;

end;

procedure Tcmform.Bit17Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit17.Caption;

end;

procedure Tcmform.bit18Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit18.Caption;

end;

procedure Tcmform.bit22Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit22.Caption;

end;

procedure Tcmform.bit21Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit21.Caption;

end;

procedure Tcmform.bit20Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit20.Caption;

end;

procedure Tcmform.bit19Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit19.Caption;

end;

procedure Tcmform.bit23Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit23.Caption;

end;

procedure Tcmform.bit24Click(Sender: TObject);
begin
if editid='edit1' then edit1.Text:=edit1.Text+bit24.Caption;
end;
procedure Tcmform.bit25Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit25.Caption;

end;
procedure Tcmform.bit26Click(Sender: TObject);
begin
 if editid='edit1' then edit1.Text:=edit1.Text+bit26.Caption;
end;
procedure Tcmform.Edit1Enter(Sender: TObject);
begin
 spbut1Click(Sender);
end;
procedure Tcmform.Edit2Enter(Sender: TObject);
begin
 spbut2Click(Sender);
end;
end.