mealmemo.~pas

简单的餐饮软件部分源码

unit mealmemo;

interface

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

type
  Tfmealmemo = class(TForm)
    dbg1: TDBGrid;
    bit2: TBitBtn;
    bit3: TBitBtn;
    bit4: TBitBtn;
    bit5: TBitBtn;
    BitBtn6: TBitBtn;
    Edit1: TEdit;
    procedure FormResize(Sender: TObject);
    procedure bit5Click(Sender: TObject);
    procedure Mealmemoshow(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bit3Click(Sender: TObject);
    procedure bit2Click(Sender: TObject);
    procedure bit4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    SQLStr:string;
  public
    { Public declarations }
  end;

var
  fmealmemo: Tfmealmemo;

implementation
uses SnackDM,memomeal;
{$R *.dfm}
procedure Tfmealmemo.Mealmemoshow(Sender: TObject);
begin
 with datam.mealmemoado do
  begin
   Close;
   SQL.Clear;
   SQL.Add(''+SQLStr+'');
   Open;
  end;
 with dbg1 do
  begin
   Columns[1].Title.caption:=datam.SPLanguage.ReadString('captions','00085','');
   Columns[2].Title.caption:=datam.SPLanguage.ReadString('captions','00086','');
   Columns[3].Title.caption:=datam.SPLanguage.ReadString('captions','00087','');
   Columns[4].Title.caption:=datam.SPLanguage.ReadString('captions','00088','');
   Columns[6].Title.caption:=datam.SPLanguage.ReadString('captions','00089','');
   Columns[1].Title.Alignment:=taCenter;
   Columns[2].Title.Alignment:=taCenter;
   Columns[3].Title.Alignment:=taCenter;
   Columns[4].Title.Alignment:=taCenter;
   Columns[6].Title.Alignment:=taCenter;
   Columns[1].Width:=80;
   Columns[2].Width:=200;
   Columns[3].Width:=60;
   Columns[4].Width:=80;
   Columns[6].Width:=140;
   Columns[0].Visible:=False;
   Columns[5].Visible:=False;
  end;
end;
procedure Tfmealmemo.FormResize(Sender: TObject);
begin
 if fmealmemo.Height<>546 then fmealmemo.Height:=546;
 if fmealmemo.Width<>650 then fmealmemo.Width:=650;    
end;
procedure Tfmealmemo.bit5Click(Sender: TObject);
begin
 self.Close;
 self.Release;
end;
procedure Tfmealmemo.FormShow(Sender: TObject);
begin
 SQLStr:='select * from snmeal';
 Mealmemoshow(Sender);
end;
procedure Tfmealmemo.bit3Click(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.mealmemoado.Delete;
   end;
 finally
  Abort;
 end;
end;
procedure Tfmealmemo.bit2Click(Sender: TObject);
begin
 fmemomeal:=Tfmemomeal.Create(nil);
 fmemomeal.Fseflag:='AddNew';
 fmemomeal.ShowModal;
 FormShow(Sender);
end;

procedure Tfmealmemo.bit4Click(Sender: TObject);
begin
 fmemomeal:=Tfmemomeal.Create(nil);
 fmemomeal.Fseflag:='Edit';
 fmemomeal.Edit2.Text:=Trim(dbg1.Fields[1].Value);
 fmemomeal.Fmealid:=Trim(dbg1.Fields[1].Value);
 fmemomeal.ShowModal;
// FormShow(Sender);
end;

procedure Tfmealmemo.BitBtn6Click(Sender: TObject);
begin
 SQLStr:='select * from snmeal where mealid like ''%'+edit1.Text+'%'' or mealname like ''%'+edit1.Text+'%''';
 Mealmemoshow(Sender);
end;

procedure Tfmealmemo.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then BitBtn6Click(Sender);
end;

end.