mdlform.~pas

简单的餐饮软件部分源码

unit mdlform;

interface

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

type
  Tfdlmeal = class(TForm)
    dbg1: TDBGrid;
    but1: TButton;
    but2: TButton;
    but3: TButton;
    but4: TButton;
    but5: TButton;
    dbg2: TDBGrid;
    but6: TButton;
    but7: TButton;
    but8: TButton;
    but9: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Mealdlshow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure Mealxlshow(Sender: TObject);
    procedure dbg1DblClick(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
    procedure but6Click(Sender: TObject);
    procedure but8Click(Sender: TObject);
    procedure but7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fdlmeal: Tfdlmeal;

implementation
uses snackdm,dlmeal;
{$R *.dfm}
procedure Tfdlmeal.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 Tfdlmeal.Mealxlshow(Sender:TObject);
begin
 with datam.xlmealado   do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select mealxlid, xlname,mealdlid from snxlmeal 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','00064','');
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=150;
   Columns[2].Visible:=False; 
  end;
end;

procedure Tfdlmeal.FormCreate(Sender: TObject);
begin
 self.Caption:=datam.SPLanguage.ReadString('captions','00058','');
 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','');
 but6.Caption:=datam.SPLanguage.ReadString('captions','00053','');
 but7.Caption:=datam.SPLanguage.ReadString('captions','00054','');
 but8.Caption:=datam.SPLanguage.ReadString('captions','00055','');
 but9.Caption:=datam.SPLanguage.ReadString('captions','00057','');
end;
procedure Tfdlmeal.FormShow(Sender: TObject);
begin
  Mealdlshow(Sender);
  Mealxlshow(Sender);
end;
procedure Tfdlmeal.FormResize(Sender: TObject);
begin
 if fdlmeal.Width<>704 then fdlmeal.Width:=704;
 if fdlmeal.Height<>406 then fdlmeal.Height:=406;
end;
procedure Tfdlmeal.but5Click(Sender: TObject);
begin
 self.Close;
 self.Release;
end;
procedure Tfdlmeal.but1Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 fmeallb.Flbflag:='dladd';
 fmeallb.Fseflag:='AddNew';
 fmeallb.ShowModal;
 Mealdlshow(Sender); 
end;
procedure Tfdlmeal.dbg1DblClick(Sender: TObject);
begin
   Mealxlshow(Sender);
end;
procedure Tfdlmeal.but2Click(Sender: TObject);
begin
 messagebeep(0);
 try
  if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0014','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0015','')+''),MB_ICONWARNING or MB_YESNO)=IDYES then
    begin
     with datam.xlmealado do
      begin
       Close;
       SQL.Clear;
       SQL.Add('delete snxlmeal where mealdlid='''+Trim(dbg1.Fields[0].Value)+'''');
       ExecSQL;
       Mealxlshow(Sender);
      end;
     datam.mdlado.Delete;
    end;
 finally
  Abort;
 end;    
end;
procedure Tfdlmeal.but3Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 fmeallb.Flbflag:='dladd';
 fmeallb.Fseflag:='Edit';
 fmeallb.Edit1.Text:=dbg1.Fields[0].Value;
 fmeallb.Edit2.Text:=dbg1.Fields[1].Value;
 fmeallb.ShowModal;
end;
procedure Tfdlmeal.but6Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 fmeallb.Flbflag:='xladd';
 fmeallb.Fseflag:='AddNew';
 fmeallb.Ffieldv:=Trim(dbg1.Fields[0].Value);
 fmeallb.ShowModal;
 Mealxlshow(Sender); 
end;
procedure Tfdlmeal.but8Click(Sender: TObject);
begin
 fmeallb:=Tfmeallb.Create(nil);
 fmeallb.Flbflag:='xladd';
 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;
end;
procedure Tfdlmeal.but7Click(Sender: TObject);
begin
 messagebeep(0);
 try
  if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0014','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0016','')+''),MB_ICONWARNING or MB_YESNO)=IDYES then
   begin
    datam.xlmealado.Delete;
   end;
 finally
  Abort;
 end;
end;
end.