feebrow.pas

某大型医院护士站

unit FeeBrow;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Db, Wwdatsrc, DBTables, Wwquery, Wwdbigrd,
  Wwdbgrid, Buttons;

type
  TfrmFeeBrow = class(TForm)
    qrycheck: TwwQuery;
    dsCheck: TwwDataSource;
    qrycheckiclass: TStringField;
    qrycheckprice: TFloatField;
    wwDBGrid1: TwwDBGrid;
    qrycheckname: TStringField;
    BitBtn1: TBitBtn;
    procedure btnExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFeeBrow: TfrmFeeBrow;

implementation

{$R *.DFM}
uses datamodule;

procedure TfrmFeeBrow.btnExitClick(Sender: TObject);
begin
{if dm.ProjHisadt.InTransaction then
   dm.ProjHisadt.Commit;
dm.ProjHisadt.StartTransaction;
dm.spExitcheck.params[0].asInteger := dm.PatiDatainid.AsInteger;
dm.spExitcheck.params[1].asSmallInt := dm.PatiDatatimes.Value;
dm.spExitcheck.ExecProc;
dm.ProjHisadt.Commit;
close;}
end;

procedure TfrmFeeBrow.FormShow(Sender: TObject);
begin
  {qrycheck.Active := False;
  qrycheck.ParamByName('inid').asInteger := DM.PatiDataInid.AsInteger;
  qrycheck.ParamByName('times').asSmallInt:= DM.PatiDatatimes.Value;
  qrycheck.Active :=True;}
end;

end.