bkzlcx.pas

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

unit bkzlcx;

interface

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

type
  TbkzlcxForm = class(TForm)
    Panel1: TPanel;
    xm: TCheckBox;
    gz: TCheckBox;
    name: TEdit;
    dw: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bkzlcxForm: TbkzlcxForm;

implementation

{$R *.DFM}

procedure TbkzlcxForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TbkzlcxForm.BitBtn1Click(Sender: TObject);
var tj:string;
begin
  tj:='';
  if xm.Checked then
  begin
    if tj='' then tj:=' where ' else tj:=tj+' and ';
    tj:=tj+' name>='''+trim(name.Text)+''' and name <'''+trim(name.Text)+chr(255)+'''';
  end;
  if gz.Checked then
  begin
    if tj='' then tj:=' where ' else tj:=tj+' and ';
    tj:=tj+' '''+trim(dw.Text)+''' like WorkUnit';
  end;
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from '+Label1.Caption+tj);
  Query1.Open;
end;

end.