udm.~pas

青年文明号管理系统

unit Udm;

interface

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

type
  TDM = class(TDataModule)
    com: TADOConnection;
    tmp: TADOQuery;
    frRep: TfrReport;
    frDS: TfrDBDataSet;
    t_sbb: TADOQuery;
    Dt_sbb: TDataSource;
    v_sbb: TADOQuery;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    WideStringField3: TWideStringField;
    IntegerField1: TIntegerField;
    WideStringField4: TWideStringField;
    IntegerField2: TIntegerField;
    WideStringField5: TWideStringField;
    IntegerField3: TIntegerField;
    WideStringField6: TWideStringField;
    MemoField1: TMemoField;
    MemoField2: TMemoField;
    Dv_sbb: TDataSource;
    t_jtqk: TADOQuery;
    t_jtqkdwbh: TWideStringField;
    t_jtqkdwmc: TWideStringField;
    t_jtqkxm: TWideStringField;
    t_jtqkxb: TWideStringField;
    t_jtqkmz: TWideStringField;
    t_jtqkcsny: TDateTimeField;
    t_jtqkzzmm: TWideStringField;
    t_jtqkwhcd: TWideStringField;
    t_jtqkxh: TIntegerField;
    Dt_jtqk: TDataSource;
    mz: TADOQuery;
    mzdm: TWideStringField;
    mzmc: TWideStringField;
    Dmz: TDataSource;
    whcd: TADOQuery;
    Dwhcd: TDataSource;
    zzmm: TADOQuery;
    Dzzmm: TDataSource;
    v_jtqk: TADOQuery;
    v_jtqkdwmc: TWideStringField;
    v_jtqkfzrxm: TWideStringField;
    v_jtqkzrs: TIntegerField;
    v_jtqkdy: TIntegerField;
    v_jtqkdybl: TFloatField;
    v_jtqkty: TIntegerField;
    v_jtqktybl: TFloatField;
    v_jtqkhz: TIntegerField;
    v_jtqkwz: TIntegerField;
    v_jtqkT_SBBmz: TIntegerField;
    v_jtqkqtmz: TIntegerField;
    v_jtqkbk: TIntegerField;
    v_jtqkdz: TIntegerField;
    v_jtqkzj: TIntegerField;
    v_jtqkqz: TIntegerField;
    v_jtqkdzysbl: TIntegerField;
    v_jtqktxdz: TWideStringField;
    v_jtqkzygz: TMemoField;
    v_jtqkxm: TWideStringField;
    v_jtqkxb: TWideStringField;
    v_jtqkT_jtqkmz: TWideStringField;
    v_jtqkcsny: TDateTimeField;
    v_jtqkzzmm: TWideStringField;
    v_jtqkwhcd: TWideStringField;
    v_jtqkdwbh: TWideStringField;
    v_jtqklxfs: TWideStringField;
    xzqh: TADOQuery;
    xzqhdm: TWideStringField;
    xzqhmc: TWideStringField;
    xzqhpy: TWideStringField;
    Dxzqh: TDataSource;
    t_sbbdwbh: TWideStringField;
    t_sbbdwmc: TWideStringField;
    t_sbbjb: TWideStringField;
    t_sbbzrs: TIntegerField;
    t_sbbfzrxm: TWideStringField;
    t_sbbpjnl: TIntegerField;
    t_sbblxfs: TWideStringField;
    t_sbbfzrnl: TIntegerField;
    t_sbbtxdz: TWideStringField;
    t_sbbhjqk: TMemoField;
    t_sbbjysj: TMemoField;
    t_sbbdy: TIntegerField;
    t_sbbdybl: TFloatField;
    t_sbbty: TIntegerField;
    t_sbbtybl: TFloatField;
    t_sbbhz: TIntegerField;
    t_sbbwz: TIntegerField;
    t_sbbmz: TIntegerField;
    t_sbbqtmz: TIntegerField;
    t_sbbbk: TIntegerField;
    t_sbbdz: TIntegerField;
    t_sbbzj: TIntegerField;
    t_sbbqz: TIntegerField;
    t_sbbdzysbl: TIntegerField;
    t_sbbzygz: TMemoField;
    v_sbbdy: TIntegerField;
    v_sbbdybl: TFloatField;
    v_sbbty: TIntegerField;
    v_sbbtybl: TFloatField;
    v_sbbhz: TIntegerField;
    v_sbbwz: TIntegerField;
    v_sbbmz: TIntegerField;
    v_sbbqtmz: TIntegerField;
    v_sbbbk: TIntegerField;
    v_sbbdz: TIntegerField;
    v_sbbzj: TIntegerField;
    v_sbbqz: TIntegerField;
    v_sbbdzysbl: TIntegerField;
    v_sbbzygz: TMemoField;
    Dt_sbb_in: TDataSource;
    t_sbb_in: TADOTable;
    t_sbb_indwbh: TWideStringField;
    t_sbb_indwmc: TWideStringField;
    t_sbb_injb: TWideStringField;
    t_sbb_inzrs: TIntegerField;
    t_sbb_infzrxm: TWideStringField;
    t_sbb_inpjnl: TIntegerField;
    t_sbb_inlxfs: TWideStringField;
    t_sbb_infzrnl: TIntegerField;
    t_sbb_intxdz: TWideStringField;
    t_sbb_inhjqk: TMemoField;
    t_sbb_injysj: TMemoField;
    t_sbb_indy: TIntegerField;
    t_sbb_indybl: TFloatField;
    t_sbb_inty: TIntegerField;
    t_sbb_intybl: TFloatField;
    t_sbb_inhz: TIntegerField;
    t_sbb_inwz: TIntegerField;
    t_sbb_inmz: TIntegerField;
    t_sbb_inqtmz: TIntegerField;
    t_sbb_inbk: TIntegerField;
    t_sbb_indz: TIntegerField;
    t_sbb_inzj: TIntegerField;
    t_sbb_inqz: TIntegerField;
    t_sbb_indzysbl: TIntegerField;
    t_sbb_inzygz: TMemoField;
    jtqk_exp: TADOTable;
    jtqk_expdwbh: TWideStringField;
    jtqk_expdwmc: TWideStringField;
    jtqk_expxh: TIntegerField;
    jtqk_expxm: TWideStringField;
    jtqk_expxb: TWideStringField;
    jtqk_expmz: TWideStringField;
    jtqk_expcsny: TDateTimeField;
    jtqk_expzzmm: TWideStringField;
    jtqk_expwhcd: TWideStringField;
    Djtqk_exp: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses u_vardef;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
s:widestring;
begin
s:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+gdir()+'\xfh.mdb;Persist Security Info=False';
dm.com.Connected:=false;
dm.com.ConnectionString:=s;
dm.com.Connected:=true;
end;

end.