used.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

unit used;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  StdCtrls, Buttons;

type
  Tfused = class(Tfbaseform)
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Ut_name: TdxDBGridColumn;
    dxDBGrid1fmem: TdxDBGridColumn;
    BitBtn1: TBitBtn;
    btn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fused: Tfused;

implementation

uses pubdata, Bs_physic;



{$R *.dfm}

procedure Tfused.BitBtn1Click(Sender: TObject);
begin
  inherited;
fBs_physic.Qbaseinfo.FieldByName('phy_used').Value:=fpubdata.qrydisp_utype['fmem'];
fused.Close;
end;

procedure Tfused.btn1Click(Sender: TObject);
begin
  inherited;
Close;
end;

end.