hykwhunit.pas

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

unit hykwhUnit;

interface

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

type
  ThykwhForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Panel4: TPanel;
    Label1: TLabel;
    km: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Panel5: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure kmChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hykwhForm: ThykwhForm;

implementation

{$R *.DFM}
 uses dataproc;
procedure ThykwhForm.FormShow(Sender: TObject);
begin
    km.Text:='';
    query1.Active:=false;
    query1.SQL.Clear;
    query1.SQL.Add('select custype,cusname from custype where parentcode=:p');
    query1.ParamByName('p').asstring:='0';
    query1.Prepare;
    query1.Open;
    query2.Active:=false;
    query2.SQL.Clear;
    query2.SQL.Add('select 卡类型,消费类型,折扣率 from xflxk');
    query2.RequestLive:=true;
    query2.Prepare;
    query2.Open;

end;

procedure ThykwhForm.BitBtn1Click(Sender: TObject);
begin
    query1.First ;
    while not query1.Eof do
    begin
  //    Query2.SQL.Add('insert into 销售单(a,b)   values(:p,:x)');
      query2.Active:=false;
      query2.SQL.Clear;
      query2.SQL.Add('insert into xflxk (卡类型,消费类型,折扣率) values(:km,:xflx,100)');
      query2.ParamByName('km').asstring:=trim(km.Text);
      query2.ParamByName('xflx').asstring:=query1.fieldbyname('custype').asstring;
      query2.RequestLive:=false;
      query2.Prepare;
      query2.ExecSQL;
      query1.Next;
    end;
      query1.First;
      query2.Active:=false;
      query2.SQL.Clear;
      query2.SQL.Add('select * from xflxk ');
      query2.RequestLive:=true;
      query2.Prepare;
      query2.Open;
      km.Text:='';
end;

procedure ThykwhForm.kmChange(Sender: TObject);
begin
     if trim(km.Text)<>'' then
     BitBtn1.Enabled:=true
     else   BitBtn1.Enabled:=false;

end;

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

procedure ThykwhForm.Query1AfterOpen(DataSet: TDataSet);
begin
   ChineseGrid(dbgrid2);
end;

end.