unit1.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

        query1zxh.AsString:=edit6.Text;
        query1cxh.AsString:=edit1.Text;
        query1lbbm.Value:=query3lbbm.AsString;
        query1dycdbh.AsString:=query2bh.AsString;
        query1mc.AsString:=query2mc.AsString;
        query1ywmc.AsString:=query2ywmc.AsString;
        query1.Post;
      end;
     edit5.Text:=query2mc.AsString;
     btlb[rrow,ccol].Caption:=query2mc.AsString;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     if query1.CachedUpdates then query1.ApplyUpdates;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     if edit6.Text='' then begin
       messagedlg('请选择待定义的区域！',mtwarning,[mbok],0);
       exit;
     end;
     if edit1.Text='' then begin
       messagedlg('请选择待定义的按键！',mtwarning,[mbok],0);
       exit;
     end;
     FontDialog1.Execute;
     edit2.Text:=FontDialog1.Font.Name;
     edit3.Text:=inttostr(FontDialog1.Font.Size);
     label5.Color:=FontDialog1.Font.Color;
     btlb[rrow,ccol].Font.Name:=FontDialog1.Font.Name;
     btlb[rrow,ccol].Font.Size:=FontDialog1.Font.Size;
     btlb[rrow,ccol].Font.Color:=FontDialog1.Font.Color;
     if (edit1.Text<>'') and (edit6.Text<>'') then
      if query1.Locate('zxh;cxh',vararrayof([edit6.text,edit1.text]),[]) then
      begin
        query1.Edit;
        query1dycdbh.AsString:=query2bh.AsString;
        query1mc.AsString:=query2mc.AsString;
        query1ywmc.AsString:=query2ywmc.AsString;
        query1zt.AsString:=FontDialog1.Font.Name;
        query1zh.AsString:=inttostr(FontDialog1.Font.size);
        query1ys.AsString:=inttostr(FontDialog1.Font.color);
        query1.Post;
      end
      else
      begin
        query1.Append;
        query1zxh.AsString:=edit6.Text;
        query1cxh.AsString:=edit1.Text;
        query1lbbm.Value:=query3lbbm.AsString;
        query1dycdbh.AsString:=query2bh.AsString;
        query1mc.AsString:=query2mc.AsString;
        query1ywmc.AsString:=query2ywmc.AsString;
        query1.Post;
      end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
     if edit6.Text='' then begin
       messagedlg('请选择待定义的区域！',mtwarning,[mbok],0);
       exit;
     end;
     if edit1.Text='' then begin
       messagedlg('请选择待定义的按键！',mtwarning,[mbok],0);
       exit;
     end;
  imageform.BitBtn1.Caption:=btlb[rrow,ccol].Caption;
  imageform.BitBtn1.Font.Color:=btlb[rrow,ccol].Font.Color;
  imageform.BitBtn1.Font.Size:=btlb[rrow,ccol].Font.Size;
  imageform.BitBtn1.Font.Name:=btlb[rrow,ccol].Font.Name;
  imageform.BitBtn2.Caption:=btlb[rrow,ccol].Caption;
  imageform.BitBtn2.Font.Color:=btlb[rrow,ccol].Font.Color;
  imageform.BitBtn2.Font.Size:=btlb[rrow,ccol].Font.Size;
  imageform.BitBtn2.Font.Name:=btlb[rrow,ccol].Font.Name;
  if imageform.showmodal =mrok then begin
    edit4.Text:=imageform.FileListBox1.FileName;
    image1.Picture.LoadFromFile(trim(edit4.Text));
     if (edit1.Text<>'') and (edit6.Text<>'') then
      if query1.Locate('zxh;cxh',vararrayof([edit6.text,edit1.text]),[]) then
      begin
        query1.Edit;
        query1dycdbh.AsString:=query2bh.AsString;
        query1mc.AsString:=query2mc.AsString;
        query1ywmc.AsString:=query2ywmc.AsString;
        query1zt.AsString:=FontDialog1.Font.Name;
        query1zh.AsString:=inttostr(FontDialog1.Font.size);
        query1ys.AsString:=inttostr(FontDialog1.Font.color);
        query1bz.AsString:=edit4.Text;
        query1.Post;
      end
      else
      begin
        query1.Append;
        query1zxh.AsString:=edit6.Text;
        query1cxh.AsString:=edit1.Text;
        query1lbbm.Value:=query3lbbm.AsString;
        query1dycdbh.AsString:=query2bh.AsString;
        query1mc.AsString:=query2mc.AsString;
        query1ywmc.AsString:=query2ywmc.AsString;
        query1bz.AsString:=edit4.Text;
        query1.Post;
      end;
      btlb[rrow,ccol].Glyph.LoadFromFile(trim(edit4.Text));
  end
  else edit4.Text:='';
end;

procedure TForm1.Query3FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  accept:=dataset.FieldByName('lbbm').AsString=lb[strtoint(edit6.Text)];
end;

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='1';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     timer1.Enabled:=false;
     query3.Close;
     query2.Close;
     if query1.UpdatesPending then
      if messagedlg('按键数据已经改动，保存吗？'+#13+'Yes__保存 No__放弃！',mtwarning,[mbyes,mbno],0)=mryes
       then BitBtn1Click(sender);
     query1.Close;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='2';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet3Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='3';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet4Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='4';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet5Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='5';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet6Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='6';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet7Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='7';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet8Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='8';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet9Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='9';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet10Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='10';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet11Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='11';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet12Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='12';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet13Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='13';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet14Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='14';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet15Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='15';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet16Show(Sender: TObject);
begin
    if ls='' then exit;
    edit6.Text:='16';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet17Show(Sender: TObject);
begin
    edit6.Text:='17';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

procedure TForm1.TabSheet18Show(Sender: TObject);
begin
    edit6.Text:='18';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
end;

end.