cseek.~pas

简单的餐饮软件部分源码

unit cseek;

interface

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

type
  Tcform = class(TForm)
    dbg1: TDBGrid;
    but1: TButton;
    but2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    Ftableid,Fmealid:string;
  end;

var
  cform: Tcform;

implementation
uses SnackDM,mealform;
{$R *.dfm}
procedure Tcform.FormCreate(Sender: TObject);
begin
 self.Caption:=datam.SPLanguage.ReadString('captions','00102','');
 but1.Caption:=datam.SPLanguage.ReadString('captions','00054','');
 but2.Caption:=datam.SPLanguage.ReadString('captions','00036','');
end;
procedure Tcform.FormShow(Sender: TObject);
begin
 with datam.cseekado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select kwmemoid,kwname from snmealkwmemo where tableno='''+Ftableid+''' And mealid='''+Fmealid+'''');
   Open;
  end;
 with dbg1 do
  begin
   Columns[0].Title.caption:=datam.SPLanguage.ReadString('captions','00059','');
   Columns[1].Title.caption:=datam.SPLanguage.ReadString('captions','00083','');
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=140;
 end;
end;
procedure Tcform.but2Click(Sender: TObject);
begin
 cform.Close;
 cform.Release;
end;
procedure Tcform.but1Click(Sender: TObject);
var ckwid:string;
begin
Try
 ckwid:=dbg1.Fields[0].Value;
 with datam.cseekado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('delete snmealkwmemo where tableno='''+Ftableid+''' And mealid='''+Fmealid+''' And kwmemoid='''+ckwid+'''');
   ExecSQL;
   FormShow(Sender);
  end;
Finally
 Abort;
end;
end;
procedure Tcform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var kwtxt:string;
begin
  with datam.cseekado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select kwmemoid,kwname from snmealkwmemo where tableno='''+Ftableid+''' And mealid='''+Fmealid+'''');
   Open;
   First;
   while not Eof do
    begin
      kwtxt:=kwtxt+' '+Trim(FieldValues['kwname']);
      Next;
    end;
  end;
  meal.edit5.Text:=Trim(meal.DBGrid.Fields[0].Value)+':';
  meal.Edit4.Text:=kwtxt;
  DataM.inmealdata.Edit;
  meal.DBGrid.Fields[4].Value:=meal.edit4.Text;
  DataM.tempmealado.Post;

end;
end.