mealform.pas

简单的餐饮软件部分源码

 Tcap1:=DataM.SPLanguage.ReadString('captions','00042','');
 Tcap2:=DataM.SPLanguage.ReadString('captions','00043','');
 Tcap3:=DataM.SPLanguage.ReadString('captions','00044','');
 Tcap4:=DataM.SPLanguage.ReadString('captions','00022','');
 ktouch:='keyop';
 dbg1.Height:=410;
 dbg1.Width:=378;
 dbg1.Top:=122;
end;
procedure Tmeal.but8Click(Sender: TObject);
begin
 self.Close;
 self.Release;
end;
procedure Tmeal.but7Click(Sender: TObject);
begin
if ktouch='keyop' then
  begin
    but7.Caption:=DataM.SPLanguage.ReadString('captions','00039','');
    ktouch:='touch';
    dbg1.Height:=410;
    dbg1.Width:=378;
    dbg1.Left:=gbox2.Left+gbox2.Width+2;
    dbg1.Top:=122;
    label3.Top:=90;
    label3.Left:=dbg1.Left+2;
    label3.Width:=60;
    label3.Caption:=DataM.SPLanguage.ReadString('captions','00041','');
    edit3.Top:=label3.Top-4;
    edit3.Left:=label3.Left+60;
    edit3.Width:=260;
    dbg1.Visible:=True;
    label3.Visible:=dbg1.Visible;
    edit3.Visible:=dbg1.Visible;
    panel1.Free;
    panel1:=TPanel.Create(nil);
    panel2.Free;
    panel2:=TPanel.Create(nil);
    SQLStr:='select mealid,mealname,mealprice,unit,mealtcflag from snmeal';
    mealvisual(Sender);
    exit;
  end else
if ktouch='touch' then
  begin
   but7.Caption:=DataM.SPLanguage.ReadString('captions','00040','');
   ktouch:='keyop';
   dbg1.Visible:=False;
   label3.Visible:=dbg1.Visible;
   edit3.Visible:=dbg1.Visible;
   visualxlmeal(Sender);
  end;
end;
procedure Tmeal.but6Click(Sender: TObject);
begin
 fpk:=Tfpk.Create(nil);
 fpk.Fpktableid:=Ftableno;
// fpk.Fpkmealid:=Trim(DBGrid.Fields[7].Value);
 fpk.ShowModal;
end;
procedure Tmeal.but1Click(Sender: TObject);
begin
try
 if Trim(DBGrid.Fields[6].Value)='TY' then
   begin
    DBFielv1:=DBGrid.Fields[5].Value;
    DBFielv2:=DBGrid.Fields[7].Value;
    with Datam.tempmealado do
     begin
      Close;
      SQL.Clear;
      SQL.Add('delete sntempmeal where tablename='''+Ftableno+''' And txid='''+DBFielv2+''' And tctime='''+DBFielv1+'''');
      ExecSQL;
     end;
   end else Datam.tempmealado.Delete;
   Gridchange(Sender);
except
  Abort;
end;
end;
procedure Tmeal.but3Click(Sender: TObject);
begin
  fmealnu:=Tfmealnu.Create(nil);
 try
  fmealnu.Ftcflag:=Trim(DBGrid.Fields[6].Value);
  fmealnu.Ftcmealid:=DBGrid.Fields[7].Value;
  fmealnu.Ftctime:=DBGrid.Fields[5].Value;
  fmealnu.Fsnuflag:='NU';
  fmealnu.ShowModal;
  Gridchange(Sender);
 except
   Abort;
 end;
end;
procedure Tmeal.but2Click(Sender: TObject);
begin
 if DBGrid.Fields[3].Value=1 then
  begin
   DataM.inmealdata.Edit;
   DBGrid.Fields[1].Value:=0;
   DBGrid.Fields[6].Value:='S';
   DataM.tempmealado.Post;
  end else
      begin
       fmealnu:=Tfmealnu.Create(nil);
       fmealnu.Fsnuflag:='Smeal';
       fmealnu.ShowModal;
      end;
  Gridchange(Sender);
end;
procedure Tmeal.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 Try
  if Trim(DBGrid.Fields[6].Value)='S' then
    begin
     DBGrid.Canvas.Font.Color:=ClBlue;
     DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
 except
  Abort;
 end;
end;
procedure Tmeal.Edit3Change(Sender: TObject);
begin
    SQLStr:='select mealid,mealname,mealprice,unit,mealtcflag from snmeal where mealid like ''%'+Trim(edit3.Text)+'%'' or mealname like ''%'+Trim(edit3.Text)+'%''';
    mealvisual(Sender);
end;
procedure Tmeal.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then dbg1.SetFocus;
end;
procedure Tmeal.dbg1KeyPress(Sender: TObject; var Key: Char);
var tcintime:String;
    tcprice,tcnocount:string;
begin
 if key=#13 then
  begin
   mealtime:=TimeToStr(time);
   if Trim(dbg1.Fields[4].Value)='M' then
    begin
      with datam.tempmealado do
       begin
        Close;
        SQL.Clear;
        SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''','''+Trim(dbg1.Fields[2].Value)+''','''+Trim(dbg1.Fields[3].Value)+''',1,'''','''+mealtime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''N'','''','''',''Upk'')');
        ExecSQL;
       end;
    end else if Trim(dbg1.Fields[4].Value)='TC' then
        begin
         tcmealcodeid:=Trim(dbg1.Fields[0].Value);
         mealtime:=TimeToStr(time);
         with datam.tempmealado do
          begin
           Close;
           SQL.Clear;
           SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''','''+Trim(dbg1.Fields[2].Value)+''','''+Trim(dbg1.Fields[3].Value)+''',1,'''','''+mealtime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''TY'','''+tcmealcodeid+''','''+mealtime+''',''Upk'')');
           ExecSQL;
          end;
         with datam.mealado do
           begin
            Close;
            SQL.Clear;
            SQL.Add('select mealid,mealname,mealnu,mealprice,unit,mealgd from snsutiemeal where mealids='''+tcmealcodeid+''' And mealgd=''Y''');
            Open;
            sleep(200);
            tcintime:=TimeToStr(time);
            tcprice:=Trim(FieldValues['mealprice']);
            tcnocount:=Trim(FieldValues['mealnu']);
           with datam.tempmealado do
              begin
               Close;
               SQL.Clear;
               SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''','''+tcprice+''','''+Trim(dbg1.Fields[4].Value)+''','''+tcnocount+''','''','''+tcintime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''N'','''+tcmealcodeid+''','''+mealtime+''',''Upk'')');
               ExecSQL;
              end;
             SQLStr:='select mealid,mealname,mealnu,unit,mealgd from snsutiemeal where mealids='''+tcmealcodeid+''' And mealgd=''N''';
             mealvisual(Sender);
             dbg1.Columns[2].Title.caption:=DataM.SPLanguage.ReadString('Captions','00023','');
             dbg1.Columns[3].Title.caption:=Tcap4;
             dbg1.Columns[1].Width:=200;
           end;
        end;
  end;
  Gridchange(Sender);
end;
procedure Tmeal.dbg1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 Try
  if Trim(DBG1.Fields[4].Value)='TC' then
    begin
     DBG1.Canvas.Font.Color:=ClRed;
     DBG1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
 except
  Abort;
 end;
end;
procedure Tmeal.dbg1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var tcintime:string;
begin
 if key=Vk_Insert then
   begin
   if Trim(dbg1.Fields[4].Value)='N' then
     begin
       tcintime:=TimeToStr(time);
         with datam.tempmealado do
           begin
            Close;
            SQL.Clear;
            SQL.Add('insert sntempmeal(tablename,mealid,mealname,mealprice,unit,mealcount,mealkw,mealtime,userid,idname,tcflag,txid,tctime,pkflag) Values('''+Ftableno+''','''+Trim(dbg1.Fields[0].Value)+''','''+Trim(dbg1.Fields[1].Value)+''',0,'''+Trim(dbg1.Fields[3].Value)+''','''+Trim(dbg1.Fields[2].Value)+''','''','''+tcintime+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''',''N'','''+tcmealcodeid+''','''+mealtime+''',''Upk'')');
            ExecSQL;
           end;
      end;
  end;
    Gridchange(Sender);
end;
procedure Tmeal.FormResize(Sender: TObject);
begin
 if meal.Width<>screen.Width then meal.Width:=screen.Width;
 if meal.Height<>screen.Height then meal.Height:=screen.Height;
end;
procedure Tmeal.but4Click(Sender: TObject);
Var mealidcode:string;
    kwcount:Integer;
begin
  mealidcode:=Trim(DBGrid.Fields[7].Value);
  with datam.freeado do
   begin
    Close;
    SQL.Clear;
    SQL.Add('select kwid,kwidname from snmealkw where mealid='''+mealidcode+'''');
    Open;
    Recount:=RecordCount;
    if Recount<=0 then Exit else
     begin
      kwpanel.Free;
      kwpanel:=Tpanel.Create(nil);
      kwpanel.Parent:=meal;
      kwpanel.Top:=0;
      kwpanel.Height:=gbox1.Top;
      kwpanel.Width:=meal.Width;
      First;

      for kwcount:=1 to Recount do
       begin
        kwbut[kwcount]:=TButton.Create(nil);
        kwbut[kwcount].Parent:=kwpanel;
        kwbut[kwcount].Width:=66;
        kwbut[kwcount].Height:=50;
        kwbut[kwcount].Left:=kwbut[kwcount].Width*(kwcount-1);
        kwbut[kwcount].Caption:=Trim(FieldValues['kwidname']);
        kwbut[kwcount].OnClick:=kwbutclick;
        kwbutid[kwcount]:=TLabel.Create(nil);
        kwbutid[kwcount].Caption:=Trim(FieldValues['kwid']);
       Next;
       end;
      end;
      Kwmemovis(Sender);
  end;
  but10.Visible:=Not but10.Visible;
  but4.Visible:=Not but4.Visible;
end;
procedure Tmeal.but9Click(Sender: TObject);
begin
 kwpanel.Free;
 kwpanel:=Tpanel.Create(nil);
 formshow(Sender);
 but10.Visible:=Not but10.Visible;
 but4.Visible:=Not but4.Visible;
end;
procedure Tmeal.but10Click(Sender: TObject);
begin
 cform:=Tcform.Create(nil);
 cform.Ftableid:=Ftableno;
 cform.Fmealid:=Trim(DBGrid.Fields[7].Value);
 cform.ShowModal;
end;
procedure Tmeal.DBGridDblClick(Sender: TObject);
begin
 edit5.Text:=Trim(dbgrid.Fields[0].Value)+':';
 edit4.Text:=Trim(DBGrid.Fields[4].Value);
end;
procedure Tmeal.but5Click(Sender: TObject);
Var sysado:TADOQuery;
    syscode,billnoid:string;
    billyear,billmonth,billday:string;
    billnorec:string;
begin
if StrToFloat(edit2.Text)>0 then
 begin
  if FChbillflag<>'Changbill' then
   begin
    sysado:=TADOQuery.Create(nil);
    sysado.Connection:=datam.SQLconADO;
    With sysado do
     begin
      Close;
      SQL.Clear;
      SQL.Add('select paymore from snsystemsetup');
      Open;
      syscode:=Trim(FieldValues['paymore']);
     end;
    with datam.freeado do
      begin
       Close;
       SQL.Clear;
       SQL.Add('select * from sncreatebillno where tableid='''+Ftableno+'''');
       Open;
       billyear:=copy(DateToStr(date),1,4);
       billmonth:=copy(DateToStr(date),6,2);
       billday:=copy(DateToStr(date),9,2);
       billnoid:=Ftableno+billyear+billmonth+billday+FieldValues['billno'];
       billnorec:=FieldValues['billno']+1;
       Close;
       SQL.Clear;
       SQL.Add('Update sncreatebillno set billno='''+billnorec+''' where tableid='''+Ftableno+'''');
       ExecSQL;
      end;
     end else
         begin
          billnoid:=Fbeforebillid;
         end;
    fpay:=Tfpay.Create(nil);
    fpay.Vtfstr:=syscode;
    fpay.Femuch:=edit2.Text;
    fpay.Edit1.Text:=edit2.Text;
    fpay.Edit3.Text:=billnoid;
    fpay.Ftablename:=Ftableno;
    fpay.Fmancount:=Fmancount;
    fpay.Fbillflag:=FChbillflag;
    fpay.Fchangbeforebillid:=Fbeforebillid;
    fpay.FPrintbillid:=FAChbillid; 
    fpay.ShowModal;
 end;
end; 
end.