fy.pas

来自「一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码」· PAS 代码 · 共 50 行

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.