udm.~pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· ~PAS 代码 · 共 432 行 · 第 1/2 页

{※-------------※--------------※-------------※--------------※--------------※

  ★★ 版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商业
 用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费下载，必须经过吉林省
 明日科技有限公司授权，并保证程序的完整（不得修改代码、注释和相关内容），否则，
 我公司将追究其法律责任。

 ★★《Delphi编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好
 者的技术最全、案例最多和使用最方便的Delphi编程技术词典。它包含30个实际项目的开
 发过程和源码（每月新增加一个实际开发项目源码）；最完整、最全面、最实用的函数、
 控件和基础技术大全；上千个编程技巧和几百个典型实例；同时还提供了编程中所需的各
 种素材和资源。价值无限，服务无限。技术服务及升级请访问www.cccxy.com

 ★★《Delphi编程词典》是各级编程人员不可缺少的编程技术资源管理软件。如果您是初
 学者，本软件提供了大量实例、项目的源码及其详尽、完整的开发过程文档和技术说明文
 件，同时还配有各方面的学习录像，让您快速入门，快速精通；如果您是编程设计高手，
 本软件提供了大量编程技巧、源码速查和全方位的技术资源，让您轻松编程、轻松赚钱。

 ★★《Delphi编程词典》软件是软件开发商和软件服务商的资源宝库，它提供了几十个实
 际项目案例的项目源码、软件升级和有限服务支持，同时每月还提供新的行业软件，让您
 用最好、最多的软件资源开拓您的软件市场，创造更多的利润空间。价值无限，服务无限。
 技术服务及升级请访问www.cccxy.com

 ★★《Delphi编程词典》对所有源码项目的实例的开发过程和代码功能都作了详细说明，
 让您真正融会贯通，迅速提高编程本领。

 ★★如果您在使用《Delphi编程词典》中有疑问或好的建议，请访问我公司"编程词典"技
 术服务网站www.cccxy.com或拨打我公司电话[phone]），我们愿为广大
 编程者提供最好的产品和最佳的服务。对于提出好的建议的读者，我们将给与奖励，
 详情请访问www.cccxy.com。

 ★★吉林省明日科技有限公司 www.mingrisoft.com  www.cccxy.com  价值无限，服务无
 限（0431）4978981,4978982

※-------------※--------------※-------------※--------------※--------------※}


{※-------------※--------------※数据模块窗体※--------------※------------※

实现目标: 将数据组件放在同一窗体以提高编程效率

※-------------※--------------※数据模块窗体※--------------※------------※}
unit UDM;

interface              

uses
  SysUtils, Classes, DB, ADODB,IniFiles,Forms, DBTables;

type
  TDM = class(TDataModule)
    ADOConn: TADOConnection;
    Quser: TADOQuery;
    DSuser: TDataSource;
    DSoper: TDataSource;
    Qoper: TADOQuery;
    QCLXX: TADOQuery;
    DSCLXX: TDataSource;
    DSJYZXX: TDataSource;
    QJYZXX: TADOQuery;
    DSXPCXX: TDataSource;
    QXPCXX: TADOQuery;
    QJSYXX: TADOQuery;
    DSJSYXX: TDataSource;
    DSBXXX: TDataSource;
    QBXXX: TADOQuery;
    QKHXX: TADOQuery;
    DSKHXX: TDataSource;
    DSZLDJ: TDataSource;
    QZLDJ: TADOQuery;
    QZLJS: TADOQuery;
    QGKCLDJ: TADOQuery;
    QGKCLJS: TADOQuery;
    QJYXX: TADOQuery;
    QWZDJ: TADOQuery;
    QWXXX: TADOQuery;
    DSZLJS: TDataSource;
    DSGKCLDJ: TDataSource;
    DSGKCLJS: TDataSource;
    DSJYXX: TDataSource;
    DSWZDJ: TDataSource;
    DSWXXX: TDataSource;
    QQTFY: TADOQuery;
    DSQTFY: TDataSource;
    ADODSJYZXX: TADODataSet;
    DSoJYZXX: TDataSource;
    ADODSJYZXXyzmc: TWideStringField;
    ADODSJYZXXbh: TWideStringField;
    ADODSJYZXXlxr: TWideStringField;
    ADODSJYZXXlxdh: TWideStringField;
    ADODSJYZXXcz: TWideStringField;
    ADODSJYZXXyb: TWideStringField;
    ADODSJYZXXdzyj: TWideStringField;
    ADODSJYZXXyzdz: TWideStringField;
    ADODSJYZXXbz: TMemoField;
    ADODSCLXX: TADODataSet;
    DSoCLXX: TDataSource;
    ADODSCLXXclbh: TWideStringField;
    ADODSCLXXclmc: TWideStringField;
    ADODSCLXXcllx: TWideStringField;
    ADODSCLXXcph: TWideStringField;
    ADODSCLXXclys: TWideStringField;
    ADODSCLXXfdjh: TWideStringField;
    ADODSCLXXdpbh: TWideStringField;
    ADODSCLXXbxdh: TWideStringField;
    ADODSCLXXbxlx: TWideStringField;
    ADODSCLXXbxgmrq: TWideStringField;
    ADODSCLXXbxjzrq: TWideStringField;
    ADODSCLXXbxgs: TWideStringField;
    ADODSCLXXyyzh: TWideStringField;
    ADODSCLXXrylx: TWideStringField;
    ADODSCLXXqccj: TWideStringField;
    ADODSCLXXgmrq: TWideStringField;
    ADODSCLXXbfrq: TWideStringField;
    ADODSCLXXwhsj: TWideStringField;
    ADODSCLXXecwhsj: TWideStringField;
    ADODSCLXXfjfh: TWideStringField;
    ADODSCLXXpfl: TWideStringField;
    ADODSCLXXclzt: TWideStringField;
    ADODSCLXXbz: TMemoField;
    ADODSCLXXclzp: TBlobField;
    ADODSBXXX: TADODataSet;
    DSoBXXX: TDataSource;
    ADODSKHXX: TADODataSet;
    DSoKHXX: TDataSource;
    ADODSJSYXX: TADODataSet;
    DSoJSYXX: TDataSource;
    ADODSJSYXXbh: TWideStringField;
    ADODSJSYXXxm: TWideStringField;
    ADODSJSYXXxb: TWideStringField;
    ADODSJSYXXnl: TWideStringField;
    ADODSJSYXXsfzh: TWideStringField;
    ADODSJSYXXjszh: TWideStringField;
    ADODSJSYXXlxdh: TWideStringField;
    ADODSJSYXXpysj: TWideStringField;
    ADODSJSYXXxl: TWideStringField;
    ADODSJSYXXsjjl: TWideStringField;
    ADODSJSYXXjtzz: TWideStringField;
    ADODSJSYXXbz: TMemoField;
    ADODSJSYXXzp: TBlobField;
    DSoXPCXX: TDataSource;
    ADODSXPCXX: TADODataSet;
    ADODSXPCXXgsmc: TWideStringField;
    ADODSXPCXXbh: TWideStringField;
    ADODSXPCXXlxr: TWideStringField;
    ADODSXPCXXlxdh: TWideStringField;
    ADODSXPCXXcz: TWideStringField;
    ADODSXPCXXyb: TWideStringField;
    ADODSXPCXXdzyj: TWideStringField;
    ADODSXPCXXgsdz: TWideStringField;
    ADODSJYXX: TADODataSet;
    DSoJYXX: TDataSource;
    DSoWZDJ: TDataSource;
    DSoWXXX: TDataSource;
    DSoQTFY: TDataSource;
    DSoZLDJ: TDataSource;
    DSoZLJS: TDataSource;
    DSoGKCLDJ: TDataSource;
    DSoGKCLJS: TDataSource;
    ADODSZLDJ: TADODataSet;
    ADODSZLJS: TADODataSet;
    ADODSGKCLDJ: TADODataSet;
    ADODSGKCLJS: TADODataSet;
    ADODSWZDJ: TADODataSet;
    ADODSWXXX: TADODataSet;
    ADODSQTFY: TADODataSet;
    ADODSWXXXbh: TWideStringField;
    ADODSWXXXcph: TWideStringField;
    ADODSWXXXclmc: TWideStringField;
    ADODSWXXXclf: TBCDField;
    ADODSWXXXrgf: TBCDField;
    ADODSWXXXqtfy: TBCDField;
    ADODSWXXXzfy: TBCDField;
    ADODSWXXXwxrq: TWideStringField;
    ADODSWXXXdjsj: TWideStringField;
    ADODSWXXXjsr: TWideStringField;
    ADODSWXXXwxnr: TWideStringField;
    ADODSWXXXxpc: TWideStringField;
    ADODSWXXXdz: TWideStringField;
    ADODSWXXXbz: TMemoField;
    ADODSWZDJbh: TWideStringField;
    ADODSWZDJcph: TWideStringField;
    ADODSWZDJzrr: TWideStringField;
    ADODSWZDJtbgs: TWideStringField;
    ADODSWZDJwzsj: TWideStringField;
    ADODSWZDJryqk: TWideStringField;
    ADODSWZDJylfy: TBCDField;
    ADODSWZDJcsqk: TWideStringField;
    ADODSWZDJcsje: TBCDField;
    ADODSWZDJfsdd: TWideStringField;
    ADODSWZDJwzyy: TWideStringField;
    ADODSWZDJjjyj: TWideStringField;
    ADODSWZDJfyyj: TWideStringField;
    ADODSWZDJcljg: TWideStringField;
    ADODSWZDJfk: TBCDField;
    ADODSWZDJzrf: TWideStringField;
    ADODSWZDJqtfy: TBCDField;
    ADODSWZDJbz: TMemoField;
    ADODSXPCXXbz: TMemoField;
    ADODSQTFYbh: TWideStringField;
    ADODSQTFYdjrq: TWideStringField;
    ADODSQTFYfymc: TWideStringField;
    ADODSQTFYfymr: TWideStringField;
    ADODSQTFYfyje: TWideStringField;
    ADODSQTFYjbr: TWideStringField;
    ADODSQTFYbz: TMemoField;
    QHYXX: TADOQuery;
    ADODSHYXX: TADODataSet;
    DSHYXX: TDataSource;
    DSoHYXX: TDataSource;
    ADODSHYXXbh: TWideStringField;
    ADODSHYXXcph: TWideStringField;
    ADODSHYXXgls: TWideStringField;
    ADODSHYXXdj: TWideStringField;
    ADODSHYXXsl: TWideStringField;
    ADODSHYXXje: TWideStringField;