data_unit.pas

医药管理系统

unit data_unit;

interface

uses
  SysUtils, Classes, DB, ADODB, cxStyles, FR_Class, FR_DSet, FR_DBSet;

type
  Tdata_form = class(TDataModule)
    data_con: TADOConnection;
    yptable: TADODataSet;
    cdtable: TADODataSet;
    gdtable: TADODataSet;
    usertable: TADODataSet;
    ddtable: TADODataSet;
    bstable: TADODataSet;
    tempquery: TADOQuery;
    ypsource: TDataSource;
    cxStyleRepository2: TcxStyleRepository;
    head: TcxStyle;
    select: TcxStyle;
    group: TcxStyle;
    gdsource: TDataSource;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    cdsource: TDataSource;
    ddsource: TDataSource;
    bssource: TDataSource;
    procedure yptableAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  data_form: Tdata_form;

implementation

uses main_unit;

{$R *.dfm}

procedure Tdata_form.yptableAfterScroll(DataSet: TDataSet);
begin
if yptable.IsEmpty then
   exit;
if main_form.pf_check.Checked then
   main_form.dj_edit.Text:=yptable.FieldByName('yp_pfdj').AsString
   else
   main_form.dj_edit.Text:=yptable.FieldByName('yp_lsdj').AsString;
end;

end.