kwform.~pas

简单的餐饮软件部分源码

unit kwform;

interface

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

type
  Tfkw = class(TForm)
    dbg1: TDBGrid;
    dbg2: TDBGrid;
    but1: TButton;
    but2: TButton;
    but3: TButton;
    but4: TButton;
    but5: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Mealdlshow(Sender:TObject);
    procedure Kwshow(Sender:TObject);
    procedure FormShow(Sender: TObject);
    procedure dbg1DblClick(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
    cap1,cap2,cap3,cap4:string;
  public
    { Public declarations }
    Formflag:string;
  end;

var
  fkw: Tfkw;

implementation

uses SnackDM, dlmeal;

{$R *.dfm}
procedure Tfkw.Kwshow(Sender:TObject);
begin
if Formflag='kwform' then
 begin
   dbg2.DataSource:=datam.kwdata;
   cap3:=datam.SPLanguage.ReadString('captions','00059','');
   cap4:=datam.SPLanguage.ReadString('captions','00082','');
   with datam.kwado  do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select kwid,kwidname,mealdxid from snkwrec where mealdxid='''+Trim(dbg1.Fields[0].Value)+'''');
     Open;
    end;
 end else if Formflag='kwmemoform' then
  begin
   dbg2.DataSource:=datam.kwmemodata;
   cap3:=datam.SPLanguage.ReadString('captions','00059','');
   cap4:=datam.SPLanguage.ReadString('captions','00083','');
   with datam.kwmemoado  do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select kwmemoid,kwname,kwid from snkwmemo where kwid='''+Trim(dbg1.Fields[0].Value)+'''');
     Open;
    end;
  end;
 with dbg2 do
  begin
   Columns[0].Title.caption:=cap3;
   Columns[1].Title.caption:=cap4;
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=140;
   Columns[2].Visible:=False;
  end;
end;

procedure Tfkw.Mealdlshow(Sender:TObject);
begin
if Formflag='kwform' then
 begin
 dbg1.DataSource:=DataM.mdldata;
 cap1:=datam.SPLanguage.ReadString('captions','00059','');
 cap2:=datam.SPLanguage.ReadString('captions','00060','');
  with datam.mdlado  do
   begin
    Close;
    SQL.Clear;
    SQL.Add('select mealdlid,mealname from sndlmeal');
    Open;
   end;
  end else if Formflag='kwmemoform' then
   begin
   dbg1.DataSource:=DataM.kwdata;
   cap1:=datam.SPLanguage.ReadString('captions','00059','');
   cap2:=datam.SPLanguage.ReadString('captions','00082','');
   with datam.kwado  do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select kwid,kwidname from snkwrec');
     Open;
    end;
   end;
 with dbg1 do
  begin
   Columns[0].Title.caption:=cap1;
   Columns[1].Title.caption:=cap2;
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=120;
  end;
end;

procedure Tfkw.FormCreate(Sender: TObject);
begin
 self.Caption:=datam.SPLanguage.ReadString('captions','00081','');
 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 Tfkw.FormShow(Sender: TObject);
begin
 Mealdlshow(Sender);
 Kwshow(Sender);
end;

procedure Tfkw.dbg1DblClick(Sender: TObject);
begin
 Kwshow(Sender);
end;

procedure Tfkw.but1Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 if Formflag='kwform' then fmeallb.Flbflag:='kwadd';
 if Formflag='kwmemoform' then fmeallb.Flbflag:='kwmemoadd';
 fmeallb.Fseflag:='AddNew';
 fmeallb.Ffieldv:=Trim(dbg1.Fields[0].Value);
 fmeallb.ShowModal;
 Kwshow(Sender);
end;
procedure Tfkw.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
   if Formflag='kwform' then datam.kwado.Delete;
   if Formflag='kwmemoform' then datam.adokwmemo.Delete;  
   end;
 finally
  Abort;
 end;
end;
procedure Tfkw.but3Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 if Formflag='kwform' then fmeallb.Flbflag:='kwadd';
 if Formflag='kwmemoform' then fmeallb.Flbflag:='kwmemoadd';
 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;
 Kwshow(Sender);
end;
procedure Tfkw.but5Click(Sender: TObject);
begin
 self.Close;
 self.Release;
end;
procedure Tfkw.FormResize(Sender: TObject);
begin
 if fkw.Height<>374 then fkw.Height:=374;
 if fkw.Width<>590 then fkw.Width:=590;    
end;

end.