memomeal.pas

简单的餐饮软件部分源码

if Trim(edit1.Text)='' then
  begin
   messagebeep(0);
   messagebox(self.Handle,Pchar(''+DataM.SPlanguage.ReadString('msgbox','0020','')+''),Pchar(''+DataM.SPlanguage.ReadString('msgbox','0021','')+''),MB_ICONEXCLAMATION or MB_OK);
   edit12.SetFocus;
   Exit;
  end;
 Fseek3:=TFseek3.Create(nil);
 Fseek3.Seek3Str:='select keynameid,keyidname,mealdlid from snkeyname where mealdlid='''+Fdlcode+'''';
 Fseek3.formflag:='memomeal';
 Fseek3.ShowModal;
 edit9.Text:=Ftxtid;
 edit8.Text:=Ftxtname;
end;
procedure Tfmemomeal.SpeedButton4Click(Sender: TObject);
begin
if Trim(edit1.Text)='' then
  begin
   messagebeep(0);
   messagebox(self.Handle,Pchar(''+DataM.SPlanguage.ReadString('msgbox','0020','')+''),Pchar(''+DataM.SPlanguage.ReadString('msgbox','0021','')+''),MB_ICONEXCLAMATION or MB_OK);
   edit12.SetFocus;
   Exit;
  end;
 Fseek3:=TFseek3.Create(nil);
 Fseek3.Seek3Str:='select keynameid,keyidname,mealdlid from snkeyname where mealdlid='''+Fdlcode+'''';
 Fseek3.formflag:='memomeal';
 Fseek3.ShowModal;
 edit11.Text:=Ftxtid;
 edit10.Text:=Ftxtname;
end;
procedure Tfmemomeal.FormShow(Sender: TObject);
begin
 if Fseflag='Edit' then
  begin
   edit2.Enabled:=Not edit2.Enabled;
   with datam.freeado do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select * from snmeal where mealid='''+Fmealid+'''');
     Open;
     edit3.Text:=FieldValues['mealname'];
     edit4.Text:=FieldValues['unit'];
     edit5.Text:=Trim(FieldValues['mealprice']);
     cmbox.Text:=FieldValues['mealprinter'];
     if Trim(FieldValues['mealtcflag'])='TC' then cbox1.Checked:=True;
    end;
  with datam.freeado do
   begin
    Close;
    SQL.Clear;
    SQL.Add('select * from mealkeyxlview where mealid='''+Fmealid+'''');
    Open;
    edit12.Text:=FieldValues['mealxlid'];
    edit1.Text:=FieldValues['xlname'];
    edit6.Text:=FieldValues['keynameid1'];
    with datam.bfreeado do
     begin
      Close;
      SQL.Clear;
      SQL.Add('select keyidname from snkeyname where keynameid='''+edit6.Text+'''');
      Open;
      edit7.Text:=FieldValues['keyidname'];
     end;
    edit9.Text:=FieldValues['keynameid2'];
    with datam.bfreeado do
     begin
      Close;
      SQL.Clear;
      SQL.Add('select keyidname from snkeyname where keynameid='''+edit9.Text+'''');
      Open;
      edit8.Text:=FieldValues['keyidname'];
     end;
    edit11.Text:=FieldValues['keynameid3'];
    with datam.bfreeado do
     begin
      Close;
      SQL.Clear;
      SQL.Add('select keyidname from snkeyname where keynameid='''+edit11.Text+'''');
      Open;
      edit10.Text:=FieldValues['keyidname'];
     end;
   end;
 end;
 mealkwshow(Sender);
 suitmealshow(Sender);
end;
procedure Tfmemomeal.but1Click(Sender: TObject);
var suitflag,tcflag:string;
begin
 if cbox1.Checked=True then
   begin
    suitflag:='Y';
    tcflag:='TC';
   end else if cbox1.Checked=False then
    begin
      suitflag:='N';
      tcflag:='M';
    end;
 if Fseflag='AddNew' then
  begin
   MealSQLstr:='insert snmeal(mealxlid,mealid,mealname,unit,mealprice,mealtcflag,mealprinter,mealdlid) Values('''+edit12.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+tcflag+''','''+cmbox.Text+''','''+Fdlcode+''')';
   keymealstr:='insert snkeymeal(keynameid1,keynameid2,keynameid3,mealid,mealname,unit,mealprice,suite,mpriter) Values('''+edit6.Text+''','''+edit9.Text+''','''+edit11.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+suitflag+''','''+cmbox.Text+''' )';
  end else
 if Fseflag='Edit' then
   begin
     MealSQLstr:='update snmeal set mealxlid='''+edit12.Text+''',mealname='''+edit3.Text+''',unit='''+edit4.Text+''',mealprice='''+edit5.Text+''',mealtcflag='''+tcflag+''',mealprinter='''+cmbox.Text+''',mealdlid='''+Fdlcode+''' where mealid='''+edit2.Text+'''';
     keymealstr:='update snkeymeal set keynameid1='''+edit6.Text+''',keynameid2='''+edit9.Text+''',keynameid3='''+edit11.Text+''',mealname='''+edit3.Text+''',unit='''+edit4.Text+''',mealprice='''+edit5.Text+''',suite='''+suitflag+''',mpriter='''+cmbox.Text+''' where mealid='''+edit2.Text+'''';
   end;
   with datam.snmealado do
    begin
     Close;
     SQL.Clear;
     SQL.Add(''+MealSQLstr+'');
     ExecSQL;
    end;
   with datam.keymealado do
    begin
     Close;
     SQL.Clear;
     SQL.Add(''+keymealstr+'');
     ExecSQL;
    end;
  with datam.keymealado do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select mealid,mealname from snsutiemeal where mealids='''+edit2.Text+'''');
     Open;
     if RecordCount<=0 then
       begin
        with datam.keymealado do
         begin
          Close;
          SQL.Clear;
          SQL.Add('update snkeymeal set suite=''N'' where mealid='''+edit2.Text+'''');
          ExecSQL;
         end;
        with datam.snmealado do
         begin
          Close;
          SQL.Clear;
          SQL.Add('update snmeal set mealtcflag=''M'' where mealid='''+edit2.Text+'''');
          ExecSQL
         end;
       end;
    end;
  fmemomeal.Close;
  fmemomeal.Release;
end;
procedure Tfmemomeal.but3Click(Sender: TObject);
begin
if (Trim(edit2.Text)='') or (Trim(edit12.Text)='') then
  begin
   messagebeep(0);
   messagebox(self.Handle,Pchar(''+DataM.SPlanguage.ReadString('msgbox','0023','')+''),Pchar(''+DataM.SPlanguage.ReadString('msgbox','0021','')+''),MB_ICONEXCLAMATION or MB_OK);
   edit2.SetFocus;
   Exit;
  end;
 Fseek3:=TFseek3.Create(nil);
 Fseek3.formflag:='mealkw';
 Fseek3.Dflag:=Fseflag; 
 Fseek3.codeflag:=edit2.Text;
 Fmealid:=edit2.Text; 
 Fseek3.Seek3Str:='select kwid,kwidname,mealdxid from snkwrec where mealdxid='''+Fdlcode+'''';
 Fseek3.Inser3str:='select kwid,kwidname from snmealkw where mealid='''+edit2.Text+'''';
 Fseek3.ShowModal;
 mealkwshow(Sender);
end;
procedure Tfmemomeal.but5Click(Sender: TObject);
begin
if Trim(edit2.Text)='' then
  begin
   messagebeep(0);
   messagebox(self.Handle,Pchar(''+DataM.SPlanguage.ReadString('msgbox','0023','')+''),Pchar(''+DataM.SPlanguage.ReadString('msgbox','0021','')+''),MB_ICONEXCLAMATION or MB_OK);
   edit2.SetFocus;
   Exit;
  end;
 Fseek3:=TFseek3.Create(nil);
 Fseek3.formflag:='Tcmemo';
 Fseek3.Dflag:=Fseflag; 
 Fseek3.codeflag:=edit2.Text;
 Fmealid:=edit2.Text; 
 Fseek3.Seek3Str:='select mealid,mealname,mealxlid from snmeal';
 Fseek3.Inser3str:='select mealid,mealname from snsutiemeal where mealids='''+edit2.Text+'''';
 Fseek3.ShowModal;
 suitmealshow(Sender);
end;

procedure Tfmemomeal.but4Click(Sender: TObject);
Var kwidflag:string;
begin
 kwidflag:=Trim(dbg1.Fields[0].Value);
 With datam.kwado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('delete snmealkw where mealid='''+Fmealid+''' And kwid='''+kwidflag+'''');
   ExecSQL;
  end;
  mealkwshow(Sender);
end;

procedure Tfmemomeal.but6Click(Sender: TObject);
Var mealidflag:string;
begin
 mealidflag:=Trim(dbg2.Fields[0].Value);
 With datam.suitado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('delete snsutiemeal where mealids='''+Fmealid+''' And mealid='''+mealidflag+'''');
   ExecSQL;
  end;
 suitmealshow(Sender);
end;

procedure Tfmemomeal.but8Click(Sender: TObject);
begin
  With datam.kwado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('delete snmealkw where mealid='''+Fmealid+'''');
   ExecSQL;
  end;
  mealkwshow(Sender);
end;
procedure Tfmemomeal.but7Click(Sender: TObject);
begin
  With datam.suitado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('delete snsutiemeal where mealids='''+Fmealid+'''');
   ExecSQL;
  end;
 suitmealshow(Sender);
end;
end.