udm.~pas

快餐店管理系统 很好的参考材料 谢谢您的合作

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;
    ADODSHYXXhyrq: TWideStringField;
    ADODSHYXXjbr: TWideStringField;
    ADODSHYXXhydd: TWideStringField;
    ADODSHYXXbz: TMemoField;
    ADODSJYXXbh: TWideStringField;
    ADODSJYXXcph: TWideStringField;
    ADODSJYXXclmc: TWideStringField;
    ADODSJYXXrylx: TWideStringField;
    ADODSJYXXdj: TWideStringField;
    ADODSJYXXjyl: TWideStringField;
    ADODSJYXXje: TWideStringField;
    ADODSJYXXjyrq: TWideStringField;
    ADODSJYXXjbr: TWideStringField;
    ADODSJYXXyzmc: TWideStringField;
    ADODSJYXXyzdz: TWideStringField;
    ADODSJYXXbz: TMemoField;
    csh: TADOQuery;
    ADODSOPER: TADODataSet;
    DSoOPER: TDataSource;
    ADODSZLDJhth: TWideStringField;
    ADODSZLDJcph: TWideStringField;
    ADODSZLDJkhxm: TWideStringField;
    ADODSZLDJzldjj: TWideStringField;
    ADODSZLDJzlqx: TWideStringField;
    ADODSZLDJxslc: TWideStringField;
    ADODSZLDJcsdj: TWideStringField;
    ADODSZLDJcssdj: TWideStringField;
    ADODSZLDJfclc: TWideStringField;
    ADODSZLDJfcrq: TWideStringField;
    ADODSZLDJfcsj: TWideStringField;
    ADODSZLDJyuszj: TWideStringField;
    ADODSZLDJxzts: TWideStringField;
    ADODSZLDJxzzj: TWideStringField;
    ADODSZLDJyj: TWideStringField;
    ADODSZLDJyingszj: TWideStringField;
    ADODSZLDJssje: TWideStringField;
    ADODSZLDJjbr: TWideStringField;
    ADODSZLDJbz: TMemoField;
    ADODSZLDJsfxz: TBooleanField;
    ADODSZLJShth: TWideStringField;
    ADODSZLJScph: TWideStringField;
    ADODSZLJSkhxm: TWideStringField;
    ADODSZLJSzldjj: TWideStringField;
    ADODSZLJSzlqx: TWideStringField;
    ADODSZLJSxslc: TWideStringField;
    ADODSZLJScsdj: TWideStringField;
    ADODSZLJScssdj: TWideStringField;
    ADODSZLJSfclc: TWideStringField;
    ADODSZLJSfcrq: TWideStringField;
    ADODSZLJSfcsj: TWideStringField;
    ADODSZLJSyuszj: TWideStringField;
    ADODSZLJSxzts: TWideStringField;
    ADODSZLJSxzzj: TWideStringField;
    ADODSZLJSyj: TWideStringField;
    ADODSZLJSyingszj: TWideStringField;
    ADODSZLJSjbr: TWideStringField;
    ADODSZLJSscrq: TWideStringField;
    ADODSZLJSscsj: TWideStringField;
    ADODSZLJSsclc: TWideStringField;
    ADODSZLJScsxs: TWideStringField;
    ADODSZLJScssf: TWideStringField;
    ADODSZLJScsslc: TWideStringField;
    ADODSZLJScsssf: TWideStringField;
    ADODSZLJSqjy: TWideStringField;
    ADODSZLJSqyf: TWideStringField;
    ADODSZLJScsf: TWideStringField;
    ADODSZLJSdjf: TWideStringField;
    ADODSZLJSwyj: TWideStringField;
    ADODSZLJSwzyj: TWideStringField;
    ADODSZLJSqtfy: TWideStringField;
    ADODSZLJSyingsje: TWideStringField;
    ADODSZLJSytje: TWideStringField;
    ADODSZLJSsssje: TWideStringField;
    ADODSZLJSjkr: TWideStringField;
    ADODSZLJSskrq: TWideStringField;
    ADODSZLJSjsr: TWideStringField;
    ADODSZLJSbbz: TMemoField;
    ADODSZLJSzkjq: TBooleanField;
    ADODSZLJSsfxz: TBooleanField;
    ADODSOPERuserno: TWideStringField;
    ADODSOPERusername: TWideStringField;
    ADODSOPERpas: TWideStringField;
    ADODSOPERn1: TBooleanField;
    ADODSOPERn2: TBooleanField;
    ADODSOPERn11: TBooleanField;
    ADODSOPERn5: TBooleanField;
    ADODSKHXXk_bh: TWideStringField;
    ADODSKHXXk_khxm: TWideStringField;
    ADODSKHXXk_khxb: TWideStringField;
    ADODSKHXXk_zjm: TWideStringField;
    ADODSKHXXk_zjh: TWideStringField;
    ADODSKHXXk_khdj: TWideStringField;
    ADODSKHXXk_yddh: TWideStringField;
    ADODSKHXXk_gddh: TWideStringField;
    ADODSKHXXk_cz: TWideStringField;
    ADODSKHXXk_yb: TWideStringField;
    ADODSKHXXk_dzyj: TWideStringField;
    ADODSKHXXk_jszh: TWideStringField;
    ADODSKHXXk_jtzz: TWideStringField;
    ADODSKHXXd_bh: TWideStringField;
    ADODSKHXXd_xm: TWideStringField;
    ADODSKHXXd_xb: TWideStringField;
    ADODSKHXXd_yb: TWideStringField;
    ADODSKHXXd_zjm: TWideStringField;
    ADODSKHXXd_zjh: TWideStringField;
    ADODSKHXXd_yddh: TWideStringField;
    ADODSKHXXd_gddh: TWideStringField;
    ADODSKHXXd_cz: TWideStringField;
    ADODSKHXXd_dzyj: TWideStringField;
    ADODSKHXXd_jtdz: TWideStringField;
    ADODSKHXXq_qymc: TWideStringField;
    ADODSKHXXq_frdb: TWideStringField;
    ADODSKHXXq_zczj: TWideStringField;
    ADODSKHXXq_qyzch: TWideStringField;
    ADODSKHXXq_zzjgdm: TWideStringField;
    ADODSKHXXq_qydz: TWideStringField;
    ADODSKHXXbz: TMemoField;
    ADODSKHXXk_zp: TBlobField;
    ADODSKHXXd_zp: TBlobField;
    ADODSWZDJsgrq: TWideStringField;
    ADODSBXXXbh: TWideStringField;
    ADODSBXXXgsmc: TWideStringField;
    ADODSBXXXgsdz: TWideStringField;
    ADODSBXXXgsdh: TWideStringField;
    ADODSBXXXlxr: TWideStringField;
    ADODSBXXXyb: TWideStringField;
    ADODSBXXXcz: TWideStringField;
    ADODSBXXXdzyj: TWideStringField;
    ADODSBXXXjbr: TWideStringField;
    ADODSBXXXbz: TMemoField;
    DSBXLXSZ: TDataSource;
    DSoBXLXSZ: TDataSource;
    QBXLXSZ: TADOQuery;
    ADODSBXLXSZ: TADODataSet;
    ADODSBXLXSZbh: TWideStringField;
    ADODSBXLXSZbxlx: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const DataIniFileName='SysData.ini';
var
  DM: TDM;

implementation

uses USC, ULOGIN, UMain, UCLXX_ED;

{$R *.dfm}



procedure TDM.DataModuleCreate(Sender: TObject);
var DataIni:TInifile;
MDBfile:String;
begin
 try
    AdoConn.Connected:=False;
    DataIni:=TInifile.Create(ExtractShortPathName(Extractfilepath(Application.ExeName))+DataIniFileName);
    MDBfile:=DataIni.ReadString('MDBPATH','NAME','');
    AdoConn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source='+MDBfile+';'+'Persist Security Info=False';
//    +ExtractFilePath(Application.ExeName)+
//    'Data\db.mdb;Persist Security Info=False;Jet OLEDB:Database Password=3330';
   AdoConn.Connected:=True;
  finally
    DataIni.Free;
  end;
end;
end.