开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DMs.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

DMs.pas：源码内容
  1. unit DMs;
  3. interface
  5. uses                                                                          
  6.   SysUtils, Classes, DB, DBClient;
  8. type
  9.   TDM = class(TDataModule)
  10.     pass: TClientDataSet;
  11.     xt_rz: TClientDataSet;
  12.     xt_yhz: TClientDataSet;
  13.     xt_js: TClientDataSet;
  14.     ug_js: TClientDataSet;
  15.     am_dz: TClientDataSet;
  16.     sz_zjlb: TClientDataSet;
  17.     V_DZ: TClientDataSet;
  18.     am_jygz: TClientDataSet;
  19.     sz_jyfs: TClientDataSet;
  20.     sz_jymd: TClientDataSet;
  21.     am_jygl: TClientDataSet;
  22.     v_jy: TClientDataSet;
  23.     v_gh: TClientDataSet;
  24.     sz_bm: TClientDataSet;
  25.     xt_lbjs: TClientDataSet;
  26.     xt_ajcs: TClientDataSet;
  27.     sz_bgqx: TClientDataSet;
  28.     sz_mj: TClientDataSet;
  29.     sz_ztlb: TClientDataSet;
  30.     sz_xtajlb: TClientDataSet;
  31.     sz_wjlb: TClientDataSet;
  32.     sz_yg: TClientDataSet;
  33.     Am_wjgl: TClientDataSet;
  34.     Am_wjfj: TClientDataSet;
  35.     Am_kwzk: TClientDataSet;
  36.     lbjs: TDataSource;
  37.     sz_kw: TClientDataSet;
  38.     v_yggl: TClientDataSet;
  39.     sz_ztcl: TClientDataSet;
  40.     sz_ztck: TClientDataSet;
  41.     sz_qz: TClientDataSet;
  42.     sz_ajlb: TClientDataSet;
  43.     Am_ajgl: TClientDataSet;
  44.     Ds_mj: TDataSource;
  45.     Ds_Bgqx: TDataSource;
  46.     Ds_Ajlb: TDataSource;
  47.     V_ylj: TClientDataSet;
  48.     Ds_Ajgl: TDataSource;
  49.     Ds_Wjgl: TDataSource;
  50.     Ds_Ztlb: TDataSource;
  51.     Ds_bm: TDataSource;
  52.     V_Wjgl: TClientDataSet;
  53.     Ds_wjlb: TDataSource;
  54.     V_ajgl_gd: TClientDataSet;
  55.     DS_v_ajgl: TDataSource;
  56.     Ds_Kw: TDataSource;
  57.     Am_Ajyj: TClientDataSet;
  58.     v_ajgl:Tclientdataset;
  59.     V_Wjgl2: TClientDataSet;
  60.     am_YJml: TClientDataSet;
  61.     V_YJDY: TClientDataSet;
  62.     am_ajxh: TClientDataSet;
  63.     am_ajxhaj_xh: TIntegerField;
  64.     am_ajxhaj_ajxh: TAutoIncField;
  65.     am_ajxhajxh_jdrq: TDateTimeField;
  66.     am_ajxhajxh_jdyy: TStringField;
  67.     am_ajxhajxh_jdyj: TStringField;
  68.     am_ajxhajxh_jdr: TStringField;
  69.     am_ajxhajxh_xhrq: TDateTimeField;
  70.     am_ajxhajxh_xhr: TStringField;
  71.     V_ajgl_yxh: TClientDataSet;
  72.     V_ajgl_Dxh: TClientDataSet;
  73.     V_AJGD: TClientDataSet;
  74.     Ds_Zjlb: TDataSource;
  75.     Ds_Jygz: TDataSource;
  76.     xt_user: TClientDataSet;
  77.     xt_UandG: TClientDataSet;
  78.     V_UandG: TClientDataSet;
  79.     xt_cdqx: TClientDataSet;
  80.   private
  81.     { Private declarations }
  82.   public
  83.     { Public declarations }
  84.   end;
  86. var
  87.   DM: TDM;
  89. implementation
  90. uses ljszs,sz_ajlbs,am_yljs;
  91. {$R *.dfm}
  93. end.