seek3form.pas

简单的餐饮软件部分源码

unit seek3form;

interface

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

type
  TFseek3 = class(TForm)
    dbg1: TDBGrid;
    but1: TButton;
    but2: TButton;
    dbg2: TDBGrid;
    but3: TButton;
    but4: TButton;
    but5: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure dbg1DblClick(Sender: TObject);
    procedure Insertshow(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but4Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Seek3Str,Inser3str:string;
    formflag,codeflag,Dflag:string;
  end;

var
  Fseek3: TFseek3;

implementation
uses SnackDM,memomeal;
{$R *.dfm}
procedure TFseek3.Insertshow(Sender: TObject);
begin
 with datam.insert3ado do
  begin
   Close;
   SQL.Clear;
   SQL.Add(''+Inser3str+'');
   Open;
  end;
 with dbg2 do
  begin
   Columns[0].Title.caption:=DataM.SPLanguage.ReadString('captions','00059','');
   Columns[1].Title.caption:=DataM.SPLanguage.ReadString('captions','00062','');
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=120;
  end;
end;
procedure TFseek3.FormCreate(Sender: TObject);
begin
 but1.Caption:=DataM.SPLanguage.ReadString('captions','00079','');
 but2.Caption:=DataM.SPLanguage.ReadString('captions','00036','');
 but3.Caption:=DataM.SPLanguage.ReadString('captions','00061','');
 but4.Caption:=DataM.SPLanguage.ReadString('captions','00067','');
 but5.Caption:=DataM.SPLanguage.ReadString('captions','00099','');
 self.Caption:=DataM.SPLanguage.ReadString('captions','00080','');
end;
procedure TFseek3.FormShow(Sender: TObject);
begin
 if (formflag='mealkw') or (formflag='Tcmemo') then
  begin
    but1.Visible:=Not but1.Visible;
    but2.Visible:=Not but2.Visible;
    if formflag='Tcmemo' then but5.Visible:=Not but5.Visible;  
    Insertshow(Sender);
  end;
 with datam.seek3ado do
  begin
   Close;
   SQL.Clear;
   SQL.Add(''+Seek3Str+'');
   Open;
  end;
 with dbg1 do
  begin
   Columns[0].Title.caption:=DataM.SPLanguage.ReadString('captions','00059','');
   Columns[1].Title.caption:=DataM.SPLanguage.ReadString('captions','00062','');
   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 TFseek3.but1Click(Sender: TObject);
begin
  if Formflag='memomeal' then
   begin
    fmemomeal.Ftxtid:=dbg1.Fields[0].Value;
    fmemomeal.Ftxtname:=dbg1.Fields[1].Value;
    fmemomeal.Fdlcode:=dbg1.Fields[2].Value;
    but2Click(Sender);
    Exit;
   end;
  if Formflag='mealkw' then
   begin
    with datam.insert3ado do
     begin
      Close;
      SQL.Clear;
      SQL.Add('Insert snmealkw(kwid,kwidname,mealid) Values('''+dbg1.Fields[0].Value+''','''+dbg1.Fields[1].Value+''','''+codeflag+''')');
      ExecSQL;
     end;
   end else if Formflag='Tcmemo' then
    begin
     with datam.mealado do
      begin
       Close;
       SQL.Clear;
       SQL.Add('select * from snmeal where mealid='''+dbg1.Fields[0].Value+'''');
       Open;
      end;
     with datam.insert3ado do
      begin
       Close;
       SQL.Clear;
       SQL.Add('insert snsutiemeal(mealids,mealid,mealname,unit,mealnu,mealprice,mealgd) Values('''+codeflag+''','''+datam.mealado.FieldValues['mealid']+''','''+datam.mealado.FieldValues['mealname']+''','''+datam.mealado.FieldValues['unit']+''',1,0,''N'')');
       ExecSQL;
      end;
    end;
   Insertshow(Sender);
end;

procedure TFseek3.FormResize(Sender: TObject);
begin
  if Fseek3.Height<>368 then Fseek3.Height:=368;
  if Formflag='memomeal' then
  begin
   if Fseek3.Width<>252 then Fseek3.Width:=252;
  end else if (formflag='mealkw') or (formflag='Tcmemo') then
   begin
    if Fseek3.Width<>490 then Fseek3.Width:=490;
   end;
end;
procedure TFseek3.but2Click(Sender: TObject);
begin
 Fseek3.Close;
 Fseek3.Release;
end;
procedure TFseek3.dbg1DblClick(Sender: TObject);
begin
 but1Click(Sender);
end;
procedure TFseek3.but5Click(Sender: TObject);
begin
 with datam.mealado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('update snsutiemeal set mealgd=''Y'' where mealids='''+codeflag+''' And mealid='''+dbg2.Fields[0].Value+'''');
   ExecSQL;
  end;
end;

procedure TFseek3.but4Click(Sender: TObject);
Var delstr:string;
begin
 messagebeep(0);
 if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0018','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0019','')+''),MB_ICONQUESTION or MB_OKCANCEL)=IDOK then
   begin
   if Dflag='Addnew' then
    begin
     if Formflag='memomeal' then delstr:='delete snsutiemeal where mealids='''+codeflag+'''';
     if formflag='mealkw' then delstr:='delete snmealkw where mealid='''+codeflag+'''';
     if formflag='Tcmemo' then delstr:='delete snsutiemeal where mealids='''+codeflag+'''';
      with datam.freeado do
       begin
        Close;
        SQL.Clear;
        SQL.Add(''+delstr+'');
        ExecSQL;
       end;
    end;
    self.Close;
    self.Release;
   end;
end;

procedure TFseek3.but3Click(Sender: TObject);
begin
 if formflag='Tcmemo' then
  begin
   with datam.freeado  do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select mealid from snsutiemeal where mealids='''+codeflag+''' And mealgd=''Y''');
     Open;
     if RecordCount<=0 then
      begin
       messagebeep(0);
       messagebox(self.Handle,Pchar(''+DataM.SPlanguage.ReadString('msgbox','0024','')+''),Pchar(''+DataM.SPlanguage.ReadString('msgbox','0021','')+''),MB_ICONEXCLAMATION or MB_OK);
       Exit;
      end;
    end;
  end;
  self.Close;
  self.Release;  
end;

end.