memomeal.pas

简单的餐饮软件部分源码

unit memomeal;

interface

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

type
  Tfmemomeal = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    cbox1: TCheckBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    cmbox: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    gbox1: TGroupBox;
    dbg1: TDBGrid;
    but4: TButton;
    but3: TButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox2: TGroupBox;
    but1: TButton;
    but2: TButton;
    gbox2: TGroupBox;
    dbg2: TDBGrid;
    but5: TButton;
    but6: TButton;
    Edit12: TEdit;
    Label10: TLabel;
    but7: TButton;
    but8: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure cbox1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure mealkwshow(Sender: TObject);
    procedure suitmealshow(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but4Click(Sender: TObject);
    procedure but6Click(Sender: TObject);
    procedure but8Click(Sender: TObject);
    procedure but7Click(Sender: TObject);
  private
    { Private declarations }
    kwcount,suitcount:Integer;
    MealSQLstr,Keymealstr:string;
  public
    { Public declarations }
    Fseflag,Fmealid:string;
    Ftxtid,Ftxtname,Fdlcode:string;
  end;

var
  fmemomeal: Tfmemomeal;
implementation
uses SnackDM,seek3form;
{$R *.dfm}
procedure Tfmemomeal.suitmealshow(Sender: TObject);
begin
  with datam.suitado do
   begin
    Close;
    SQL.Clear;
    SQL.Add('select mealid,mealname,unit,mealnu,mealprice from snsutiemeal where mealids='''+Fmealid+'''');
    Open;
    suitcount:=RecordCount;
   end;
  with dbg2 do
   begin
    Columns[0].Title.caption:=datam.SPLanguage.ReadString('captions','00059','');
    Columns[1].Title.caption:=datam.SPLanguage.ReadString('captions','00086','');
    Columns[2].Title.caption:=datam.SPLanguage.ReadString('captions','00087','');
    Columns[3].Title.caption:=datam.SPLanguage.ReadString('captions','00098','');
    Columns[4].Title.caption:=datam.SPLanguage.ReadString('captions','00088','');
    Columns[0].Title.Alignment:=taCenter;
    Columns[1].Title.Alignment:=taCenter;
    Columns[2].Title.Alignment:=taCenter;
    Columns[3].Title.Alignment:=taCenter;
    Columns[4].Title.Alignment:=taCenter;
    Columns[0].Width:=60;
    Columns[1].Width:=110;
    Columns[2].Width:=40;
    Columns[3].Width:=60;
    Columns[4].Width:=80;
   end;
end;
procedure Tfmemomeal.mealkwshow(Sender: TObject);
begin
 with datam.kwado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select kwid,kwidname from snmealkw where mealid='''+Fmealid+'''');
   Open;
   kwcount:=RecordCount;
  end;
 with dbg1 do
  begin
   Columns[0].Title.caption:=datam.SPLanguage.ReadString('captions','00059','');
   Columns[1].Title.caption:=datam.SPLanguage.ReadString('captions','00083','');
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=110;
  end;
end;
procedure Tfmemomeal.FormCreate(Sender: TObject);
begin
 cmbox.Items.Assign(printer.Printers);
 label1.Caption:=datam.SPLanguage.ReadString('captions','00084','');
 label2.Caption:=datam.SPLanguage.ReadString('captions','00085','');
 label3.Caption:=datam.SPLanguage.ReadString('captions','00086','');
 label4.Caption:=datam.SPLanguage.ReadString('captions','00087','');
 label5.Caption:=datam.SPLanguage.ReadString('captions','00088','');
 label6.Caption:=datam.SPLanguage.ReadString('captions','00090','');
 label7.Caption:=datam.SPLanguage.ReadString('captions','00091','');
 label8.Caption:=datam.SPLanguage.ReadString('captions','00092','');
 label9.Caption:=datam.SPLanguage.ReadString('captions','00089','');
 label10.Caption:=datam.SPLanguage.ReadString('captions','00097','');

 cbox1.Caption:=datam.SPLanguage.ReadString('captions','00093','');
 gbox1.Caption:=datam.SPLanguage.ReadString('captions','00095','');
 gbox2.Caption:=datam.SPLanguage.ReadString('captions','00096','');
 but1.Caption:=datam.SPLanguage.ReadString('captions','00061','');
 but2.Caption:=datam.SPLanguage.ReadString('captions','00036','');
 but3.Caption:=datam.SPLanguage.ReadString('captions','00053','');
 but4.Caption:=datam.SPLanguage.ReadString('captions','00054','');
 but5.Caption:=datam.SPLanguage.ReadString('captions','00053','');
 but6.Caption:=datam.SPLanguage.ReadString('captions','00054','');
 but7.Caption:=datam.SPLanguage.ReadString('captions','00100','');
 but8.Caption:=datam.SPLanguage.ReadString('captions','00100','');
end;
procedure Tfmemomeal.Edit5KeyPress(Sender: TObject; var Key: Char);
var p:Integer;
begin
 if key='.' then
  begin
   p:=pos('.',Trim(edit1.Text));
   if p>0 then key:=#0;
  end else if (key<'0') or (key>'9') then key:=#0;
end;
procedure Tfmemomeal.cbox1Click(Sender: TObject);
begin
 if cbox1.Checked=True then
   begin
    gbox2.Visible:=True;
    fmemomeal.Height:=534;
    fmemomeal.Width:=658;
    fmemomeal.Top:=fmemomeal.Top-50;
   end else
 if cbox1.Checked=False then
   begin
    fmemomeal.Height:=386;
    fmemomeal.Width:=658;
    gbox2.Visible:=False;
    fmemomeal.Top:=fmemomeal.Top+50;
   end;
end;
procedure Tfmemomeal.FormResize(Sender: TObject);
begin
 if cbox1.Checked=True then
  begin
   if fmemomeal.Height<>534 then fmemomeal.Height:=534;
  end else
 if cbox1.Checked=False then
  begin
   if fmemomeal.Height<>386 then fmemomeal.Height:=386;
  end;
 if fmemomeal.Width<>658 then fmemomeal.Width:=658;
end;
procedure Tfmemomeal.but2Click(Sender: TObject);
begin
 mealkwshow(Sender);
 suitmealshow(Sender);
 if Fseflag='AddNew' then
  begin
   if (kwcount>0) or (suitcount>0) then
     begin
      messagebeep(0);
      messagebox(self.Handle,Pchar(''+DataM.SPlanguage.ReadString('msgbox','0022','')+''),Pchar(''+DataM.SPlanguage.ReadString('msgbox','0021','')+''),MB_ICONEXCLAMATION or MB_OK);
      exit;
     end;
   end;  
  fmemomeal.Close;
  fmemomeal.Release;
end;
procedure Tfmemomeal.SpeedButton1Click(Sender: TObject);
begin
 Fseek3:=TFseek3.Create(nil);
 Fseek3.Seek3Str:='select mealxlid,xlname,mealdlid from snxlmeal';
 Fseek3.formflag:='memomeal';
 Fseek3.ShowModal;
 edit12.Text:=Ftxtid;
 edit1.Text:=Ftxtname;
end;
procedure Tfmemomeal.SpeedButton2Click(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;
 edit6.Text:=Ftxtid;
 edit7.Text:=Ftxtname;
end;
procedure Tfmemomeal.SpeedButton3Click(Sender: TObject);
begin