mealnuform.pas

简单的餐饮软件部分源码

unit mealnuform;

interface

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

type
  Tfmealnu = class(TForm)
    but1: TButton;
    but2: TButton;
    but3: TButton;
    but4: TButton;
    but5: TButton;
    but6: TButton;
    but7: TButton;
    but8: TButton;
    but9: TButton;
    but10: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    but11: TButton;
    but12: TButton;
    but13: TButton;
    procedure FormCreate(Sender: TObject);
    procedure but11Click(Sender: TObject);
    procedure but13Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure but12Click(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
    procedure but4Click(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but6Click(Sender: TObject);
    procedure but7Click(Sender: TObject);
    procedure but8Click(Sender: TObject);
    procedure but9Click(Sender: TObject);
    procedure but10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Fmealnu:Integer;
    Ftcflag,Ftctime,Ftcmealid:String;
    Fsnuflag:string;
  end;
var
  fmealnu: Tfmealnu;
implementation
uses snackdm,mealform,Snmai;
{$R *.dfm}
procedure Tfmealnu.FormCreate(Sender: TObject);
begin
 self.Caption:=DataM.SPLanguage.ReadString('captions','00046','');
 but11.Caption:=DataM.SPLanguage.ReadString('captions','00001','');
 but12.Caption:=DataM.SPLanguage.ReadString('captions','00002','');
 but13.Caption:=DataM.SPLanguage.ReadString('captions','00034','');
 label1.Caption:=DataM.SPLanguage.ReadString('captions','00023','');
end;
procedure Tfmealnu.but11Click(Sender: TObject);
begin
 edit1.Clear; 
end;
procedure Tfmealnu.but13Click(Sender: TObject);
begin
 self.Close;
 self.Release;  
end;
procedure Tfmealnu.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if (key>'9') or (key<'0') then key:=#0;
end;
procedure Tfmealnu.but12Click(Sender: TObject);
var tcedit,tcsid:string;
    smealid,smealname,smealprice,sunit,smealcount,smealkw,smealtime:String;
begin
  tcedit:=edit1.Text;
  if StrToInt(tcedit)=0 then exit;
  if Fsnuflag='NU' then
   begin
    if Ftcflag='TY' then
      begin
       with DataM.tempmealado do
        begin
          Close;
          SQL.Clear;
          SQL.Add('update sntempmeal set mealcount='''+tcedit+''' where tablename='''+meal.Ftableno+''' And txid='''+Ftcmealid+''' And tctime='''+Ftctime+'''');
          ExecSQL;
        end;
      end else
       begin
        DataM.inmealdata.Edit;
        meal.DBGrid.Fields[3].Value:=tcedit;
        DataM.tempmealado.Post;
       end;
   end else if Fsnuflag='Smeal' then
       begin
        if StrToInt(tcedit)>=meal.DBGrid.Fields[3].Value then
          begin
           DataM.inmealdata.Edit;
           meal.DBGrid.Fields[1].Value:=0;
           meal.DBGrid.Fields[6].Value:='S';
           DataM.tempmealado.Post;
          end else
              begin
               tcsid:=meal.DBGrid.Fields[3].Value-StrToInt(tcedit);
               smealid:=meal.DBGrid.Fields[7].Value;
               smealname:=meal.DBGrid.Fields[0].Value;
               sunit:=meal.DBGrid.Fields[2].Value;
               smealkw:=meal.DBGrid.Fields[4].Value;
               smealtime:=TimeToStr(time);
               DataM.inmealdata.Edit;
               meal.DBGrid.Fields[3].Value:=StrToInt(tcsid);
                DataM.tempmealado.Post;
               with DataM.tempmealado do
                begin
                 Close;
                 SQL.Clear;
                 SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,pkflag) Values('''+meal.Ftableno+''','''+smealid+''','''+smealname+''',0,'''+sunit+''','''+tcedit+''','''+smealkw+''','''+smealtime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''S'',''Upk'')');
                 ExecSQL;
                end;
             end;
       end;
   but13Click(Sender);
end;
procedure Tfmealnu.but1Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but1.Caption;
end;
procedure Tfmealnu.but2Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but2.Caption;
end;
procedure Tfmealnu.but3Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but3.Caption;
end;
procedure Tfmealnu.but4Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but4.Caption;
end;
procedure Tfmealnu.but5Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but5.Caption;
end;
procedure Tfmealnu.but6Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but6.Caption;
end;
procedure Tfmealnu.but7Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but7.Caption;
end;
procedure Tfmealnu.but8Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but8.Caption;
end;
procedure Tfmealnu.but9Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but9.Caption;
end;
procedure Tfmealnu.but10Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+but10.Caption;
end;
end.