seechangebc.pas

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

unit seechangebc;

interface

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

type
  Tseejb = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    q1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seejb: Tseejb;

implementation
uses dataproc;

{$R *.DFM}

procedure Tseejb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  q1.free;
end;

procedure Tseejb.FormCreate(Sender: TObject);
begin
   shortdateformat:='yyyy-mm-dd';
   q1.Active :=false;
   q1.sql.clear;
   q1.sql.add('select givetime,newbc,oldbc,money,emptyroom,dumproom,manroom,freeman,freewoman,regid from changebc');
   q1.Prepare;
   q1.open;
   chinesegrid(dbgrid1);
   q1.Active :=true;
end;

procedure Tseejb.Button1Click(Sender: TObject);
begin
   seejb.close;
end;

end.