seek2.~pas

简单的餐饮软件部分源码

unit seek2;

interface

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

type
  Tfseek2 = class(TForm)
    dbg1: TDBGrid;
    but1: TButton;
    but2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure dbg1DblClick(Sender: TObject);
  private
    { Private declarations }
    Cname1,Cname2:string;
  public
    { Public declarations }
  end;

var
  fseek2: Tfseek2;

implementation
uses snackdm,usermodel;
{$R *.dfm}

procedure Tfseek2.FormCreate(Sender: TObject);
begin
 self.Caption:=DataM.SPLanguage.ReadString('captions','00080','');
 but1.Caption:=DataM.SPLanguage.ReadString('captions','00079','');
 but2.Caption:=DataM.SPLanguage.ReadString('captions','00036','');
 Cname1:=DataM.SPLanguage.ReadString('captions','00005','');
 Cname2:=DataM.SPLanguage.ReadString('captions','00069','');
end;
procedure Tfseek2.FormShow(Sender: TObject);
begin
 with DataM.seek2ado do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select userid,username from snuser');
   Open;
  end;
 with dbg1 do
  begin
   Columns[0].Title.caption:=Cname1;
   Columns[1].Title.caption:=Cname2;
   Columns[0].Title.Alignment:=taCenter;
   Columns[1].Title.Alignment:=taCenter;
   Columns[0].Width:=60;
   Columns[1].Width:=180;
  end;
end;
procedure Tfseek2.but2Click(Sender: TObject);
begin
 self.Close;
 self.Release;  
end;

procedure Tfseek2.FormResize(Sender: TObject);
begin
 if fseek2.Height<>374 then fseek2.Height:=374;
 if fseek2.Width<>310 then fseek2.Width:=310;    
end;

procedure Tfseek2.but1Click(Sender: TObject);
begin
  fusermodel.Fidcode:=Trim(dbg1.Fields[0].Value);
  but2click(Sender); 
end;

procedure Tfseek2.dbg1DblClick(Sender: TObject);
begin
 but1Click(Sender);
end;

end.