seejzlf.pas

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

unit seejzlf;

interface

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

type
  Tjzlfform = class(TForm)
    DBGrid1: TDBGrid;
    q1: TQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Panel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jzlfform: Tjzlfform;

implementation
uses dataproc;

{$R *.DFM}

procedure Tjzlfform.FormCreate(Sender: TObject);
begin
  shortdateformat:='yyyy-mm-dd';
  q1.Active :=false;
  q1.sql.clear;
  q1.sql.add('select handno,num,isbj,s.sexname,istime,begtime,acctime from nowin,lssex s where ((isleft=:pisleft) and (nowin.sex=s.sex)) ');
  q1.ParamByName ('pisleft').asboolean:=true;
  q1.Prepare;
  q1.open;
  chinesegrid(jzlfform.dbgrid1);
  q1.active:=true;
end;

procedure Tjzlfform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  q1.Free;
end;

procedure Tjzlfform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then      help(4);
     if xt=0 then  help(6);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     jzlfform.Close;   
end;

procedure Tjzlfform.Panel1Click(Sender: TObject);
begin
   close;
end;

end.