fy.pas

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

unit fy;

interface

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

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

var
  ffy: Tffy;

implementation

uses pubdata, Bs_physic, Xs_charge;



{$R *.dfm}

procedure Tffy.BitBtn1Click(Sender: TObject);
begin
  inherited;
fXs_charge.Qbaseinfo.FieldByName('Xs_name').Value:=fpubdata.qryfy['Fy_name'];
Close;
end;

procedure Tffy.btn1Click(Sender: TObject);
begin
  inherited;
close;
end;

end.