lsxx.pas

集成酒店桑拿食管管理的完整程序

unit lsxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids;

type
  TlsxxForm = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1Exit(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lsxxForm: TlsxxForm;

implementation

uses bkzl;

{$R *.DFM}

procedure TlsxxForm.FormShow(Sender: TObject);
begin
     DBGrid1.Visible:=true;
     Query1.Active:=false;
     Query1.SQL.Clear;
     Query1.sql.Text:='select DISTINCT name,workunit,zjid,(select sum(ysmoney) from lsjz where welid in (select welid from LsGuestMx as a where a.name=LsGuestMx.name and a.workunit=lsguestmx.workunit and a.zjid=LsGuestMx.zjid)) as 消费合计,';
     Query1.sql.Add('(select name from zj where code=lsguestmx.zj) as zjname, sex,zj from LsGuestMx where name>='''+trim(bkzlform.name.text)+''' and name<='''+trim(bkzlform.name.text)+chr(255)+''' and welid in (select welid from lsnowin) and isnull(groupid,'''')=''''');
     Query1.Open;
     DBGrid1.SetFocus;

end;

procedure TlsxxForm.DBGrid1DblClick(Sender: TObject);
var key:Char;
begin
   key:=#13;
   DBGrid1KeyPress(nil,key);
end;

procedure TlsxxForm.DBGrid1Exit(Sender: TObject);
begin
     Query1.Active:=false;
     Query1.SQL.Clear;
     close;
end;

procedure TlsxxForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then
  begin
     Query1.Active:=false;
     Query1.SQL.Clear;
     close;
  end;
end;

procedure TlsxxForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
//     bkzlform.id.:=Query1.Fields[5].asstring;
     bkzlform.zj.Text:=Query1.Fields[3].asstring;
     bkzlform.name.Text:=Query1.Fields[0].asstring;
     bkzlform.id.Text:=Query1.Fields[2].asstring;
     bkzlform.workdw.Text:=Query1.Fields[1].asstring;
     if Query1.Fields[4].asboolean then
       bkzlform.man.Checked:=true
     else
       bkzlform.woman.Checked:=true;
     close;
   end;
end;

end.