fwdjbdata.pas

来自「服务信息管理系统」· PAS 代码 · 共 56 行

unit fwdjbData;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TfrmfwdjbDataModule = class(TDataModule)
    fwdjbTable: TTable;
    fwdjbDataSource: TDataSource;
    khxxTable: TTable;
    khxxDataSource: TDataSource;
    ygdaTable: TTable;
    ygdaDataSource: TDataSource;
    fwddTable: TTable;
    fwddDataSource: TDataSource;
    fwlxTable: TTable;
    fwlxDataSource: TDataSource;
    sjcxQuery: TQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmfwdjbDataModule: TfrmfwdjbDataModule;

implementation

{$R *.dfm}

procedure TfrmfwdjbDataModule.DataModuleCreate(Sender: TObject);
begin
  fwdjbtable.Active := True;
  khxxtable.Active := True;
  ygdatable.Active := True;
  fwddtable.Active := True;
  fwlxtable.Active := True;
end;

procedure TfrmfwdjbDataModule.DataModuleDestroy(Sender: TObject);
begin
  fwdjbtable.Active := False;
  khxxtable.Active := False;
  ygdatable.Active := False;
  fwddtable.Active := False;
  fwlxtable.Active := False;
end;

end.