dlmeal.pas

简单的餐饮软件部分源码

unit dlmeal;

interface

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

type
  Tfmeallb = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    bit1: TBitBtn;
    bit2: TBitBtn;
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bit2Click(Sender: TObject);
    procedure bit1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
  private
    { Private declarations }
    SQLstr:string;
  public
    { Public declarations }
    Flbflag,Fseflag,Ffieldv:string;
    Ftablename:string;
  end;

var
  fmeallb: Tfmeallb;

implementation
uses snackdm;
{$R *.dfm}

procedure Tfmeallb.FormResize(Sender: TObject);
begin
 if fmeallb.Width<>352 then fmeallb.Width:=352;
 if fmeallb.Height<>154 then fmeallb.Height:=154;     
end;

procedure Tfmeallb.FormCreate(Sender: TObject);
begin
 self.Caption:=datam.SPLanguage.ReadString('captions','00063','');
 label1.Caption:=datam.SPLanguage.ReadString('captions','00059','');
 label2.Caption:=datam.SPLanguage.ReadString('captions','00062','');
 bit1.Caption:=datam.SPLanguage.ReadString('captions','00061','');
 bit2.Caption:=datam.SPLanguage.ReadString('captions','00036','');
end;
procedure Tfmeallb.bit2Click(Sender: TObject);
begin
 self.Close;
 self.Release;
end;
procedure Tfmeallb.bit1Click(Sender: TObject);
begin
  if Flbflag='dladd' then
    begin
     if Fseflag='AddNew' then SQLstr:='insert sndlmeal(mealdlid,mealname) Values('''+Trim(edit1.Text)+''','''+Trim(edit2.Text)+''')';
     if Fseflag='Edit' then SQLStr:='update sndlmeal set mealname='''+Trim(edit2.Text)+''' where mealdlid='''+edit1.Text+'''';
     with datam.mealdlado do
      begin
       Close;
       SQL.Clear;
       SQL.Add(''+SQLstr+'');
       ExecSQL;
      end;
    end;
  if Flbflag='xladd' then
    begin
     if Fseflag='AddNew' then SQLstr:='insert snxlmeal(mealdlid,mealxlid,xlname) Values('''+Ffieldv+''','''+Trim(edit1.Text)+''','''+Trim(edit2.Text)+''')';
     if Fseflag='Edit' then SQLstr:='update snxlmeal set xlname='''+Trim(edit2.Text)+''' where mealxlid='''+edit1.Text+'''';
     with datam.mealdlado do
      begin
       Close;
       SQL.Clear;
       SQL.Add(''+SQLstr+'');
       ExecSQL;
      end;
    end;
  if Flbflag='keyadd' then
    begin
     if Fseflag='AddNew' then SQLstr:='insert snkeyname(mealdlid,keynameid,keyidname) Values('''+Ffieldv+''','''+Trim(edit1.Text)+''','''+Trim(edit2.Text)+''')';
     if Fseflag='Edit' then SQLstr:='update snkeyname set keyidname='''+Trim(edit2.Text)+''' where keynameid='''+edit1.Text+'''';
     with datam.keymealado  do
      begin
       Close;
       SQL.Clear;
       SQL.Add(''+SQLstr+'');
       ExecSQL;
      end;
    end;
  if Flbflag='kwadd' then
   begin
     if Fseflag='AddNew' then SQLstr:='insert snkwrec(mealdxid,kwid,kwidname) Values('''+Ffieldv+''','''+Trim(edit1.Text)+''','''+Trim(edit2.Text)+''')';
     if Fseflag='Edit' then SQLstr:='update snkwrec set kwidname='''+Trim(edit2.Text)+''' where kwid='''+edit1.Text+'''';
     with datam.adokw do
      begin
       Close;
       SQL.Clear;
       SQL.Add(''+SQLstr+'');
       ExecSQL;
      end;
   end;
  if Flbflag='kwmemoadd' then
   begin
     if Fseflag='AddNew' then SQLstr:='insert snkwmemo(kwid,kwmemoid,kwname) Values('''+Ffieldv+''','''+Trim(edit1.Text)+''','''+Trim(edit2.Text)+''')';
     if Fseflag='Edit' then SQLstr:='update snkwmemo set kwname='''+Trim(edit2.Text)+''' where kwid='''+edit1.Text+'''';
     with datam.adokwmemo  do
      begin
       Close;
       SQL.Clear;
       SQL.Add(''+SQLstr+'');
       ExecSQL;
      end;
   end;
  bit2Click(Sender);
end;
procedure Tfmeallb.FormShow(Sender: TObject);
begin
 if Fseflag='Edit' then edit1.Enabled:=NOT edit1.Enabled;
 if Flbflag='kwmemoadd' then edit1.MaxLength:=3 else edit1.MaxLength:=6;  
end;

procedure Tfmeallb.Edit2Enter(Sender: TObject);
begin
 edit2.SelectAll; 
end;

end.