mealkey.pas

简单的餐饮软件部分源码

unit mealkey;

interface

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

type
  Tfmealkey = class(TForm)
    dbg1: TDBGrid;
    dbg2: TDBGrid;
    but1: TButton;
    but2: TButton;
    but3: TButton;
    but4: TButton;
    but5: TButton;
    procedure FormResize(Sender: TObject);
    procedure Mealdlshow(Sender: TObject);
    procedure Keynameshow(Sender:TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dbg1DblClick(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmealkey: Tfmealkey;

implementation
uses snackdm, dlmeal;
{$R *.dfm}
procedure Tfmealkey.Keynameshow(Sender:TObject);
begin
 with datam.keynameado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select keynameid,keyidname,mealdlid from snkeyname where mealdlid='''+Trim(dbg1.Fields[0].Value)+'''');
   Open;
  end;
 with dbg2 do
  begin
   Columns[0].Title.caption:=datam.SPLanguage.ReadString('captions','00059','');
   Columns[1].Title.caption:=datam.SPLanguage.ReadString('captions','00065','');
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=120;
   Columns[2].Visible:=False; 
  end;
end;
procedure Tfmealkey.Mealdlshow(Sender:TObject);
begin
 with datam.mdlado  do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select mealdlid,mealname from sndlmeal');
   Open;
  end;
 with dbg1 do
  begin
   Columns[0].Title.caption:=datam.SPLanguage.ReadString('captions','00059','');
   Columns[1].Title.caption:=datam.SPLanguage.ReadString('captions','00060','');
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=120;
  end;
end;

procedure Tfmealkey.FormResize(Sender: TObject);
begin
 if fmealkey.Height<>374 then fmealkey.Height:=374;
 if fmealkey.Width<>590 then fmealkey.Width:=590;
end;

procedure Tfmealkey.FormCreate(Sender: TObject);
begin
 self.Caption:=datam.SPLanguage.ReadString('captions','00065','');
 but1.Caption:=datam.SPLanguage.ReadString('captions','00053','');
 but2.Caption:=datam.SPLanguage.ReadString('captions','00054','');
 but3.Caption:=datam.SPLanguage.ReadString('captions','00055','');
 but4.Caption:=datam.SPLanguage.ReadString('captions','00057','');
 but5.Caption:=datam.SPLanguage.ReadString('captions','00036','');
end;
procedure Tfmealkey.FormShow(Sender: TObject);
begin
 Mealdlshow(Sender);
 Keynameshow(Sender);
end;
procedure Tfmealkey.dbg1DblClick(Sender: TObject);
begin
 Keynameshow(Sender);
end;

procedure Tfmealkey.but5Click(Sender: TObject);
begin
 self.Close;
 self.Release;  
end;

procedure Tfmealkey.but2Click(Sender: TObject);
begin
 messagebeep(0);
 try
  if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0014','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0017','')+''),MB_ICONWARNING or MB_YESNO)=IDYES then
   begin
    datam.keynameado.Delete;
   end;
 finally
  Abort;
 end;
end;
procedure Tfmealkey.but1Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 fmeallb.Flbflag:='keyadd';
 fmeallb.Fseflag:='AddNew';
 fmeallb.Ffieldv:=Trim(dbg1.Fields[0].Value);
 fmeallb.ShowModal;
 Keynameshow(Sender);

end;
procedure Tfmealkey.but3Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 fmeallb.Flbflag:='keyadd';
 fmeallb.Fseflag:='Edit';
 fmeallb.Ffieldv:=dbg2.Fields[2].Value;
 fmeallb.Edit1.Text:=dbg2.Fields[0].Value;
 fmeallb.Edit2.Text:=dbg2.Fields[1].Value;
 fmeallb.ShowModal;
 Keynameshow(Sender);
end;
end.