dm.dfm

delphi作得信息业进销存源码.功能全面,运行稳定.

object Data: TData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 308
  Top = 167
  Height = 537
  Width = 800
  object Cn: TDCOMConnection
    ServerGUID = '{7EC66AE4-5977-11D4-927E-0000210072AB}'
    ServerName = 'JxcS.datas'
    Left = 8
    Top = 6
  end
  object Tmp: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pTmp'
    RemoteServer = Cn
    Left = 264
    Top = 6
  end
  object Tmpf: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pTmpf'
    RemoteServer = Cn
    Left = 294
    Top = 6
  end
  object Tmpl: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pTmpl'
    RemoteServer = Cn
    Left = 324
    Top = 6
  end
  object AppUserGroup: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from AppUserGroup'
    PacketRecords = 50
    Params = <>
    ProviderName = 'pAppUserGroup'
    RemoteServer = Cn
    Left = 102
    Top = 2
    object AppUserGroupgName: TStringField
      DisplayLabel = #29992#25143#32452#21035
      FieldName = 'gName'
    end
    object AppUserGroupgMemo: TStringField
      FieldName = 'gMemo'
      Size = 200
    end
  end
  object AppUser: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from AppUser'
    PacketRecords = 50
    Params = <>
    ProviderName = 'pAppUser'
    RemoteServer = Cn
    Left = 132
    Top = 2
    object AppUseruCode: TStringField
      DisplayLabel = #29992#25143#20195#30721
      FieldName = 'uCode'
      Size = 8
    end
    object AppUseruName: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'uName'
    end
    object AppUsergName: TStringField
      DisplayLabel = #32452#21035
      FieldName = 'gName'
    end
    object AppUserID: TIntegerField
      FieldName = 'ID'
    end
  end
  object sAppUser: TDataSource
    DataSet = AppUser
    Left = 140
    Top = 10
  end
  object AppGroupDesktopClass: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from AppGroupDesktopClass'
    PacketRecords = 50
    Params = <>
    ProviderName = 'pAppGroupDesktopClass'
    RemoteServer = Cn
    Left = 162
    Top = 2
    object AppGroupDesktopClassgName: TStringField
      FieldName = 'gName'
    end
    object AppGroupDesktopClasscName: TStringField
      DisplayLabel = #26700#38754#31867#21035
      FieldName = 'cName'
      Size = 30
    end
  end
  object sAppGroupDesktopClass: TDataSource
    DataSet = AppGroupDesktopClass
    Left = 170
    Top = 10
  end
  object sAppUserGroup: TDataSource
    DataSet = AppUserGroup
    Left = 110
    Top = 10
  end
  object AppSelect: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pAppSelect'
    RemoteServer = Cn
    Left = 192
    Top = 2
    object AppSelectDATASET: TStringField
      FieldName = 'DATASET'
    end
    object AppSelectFIELDNAME: TStringField
      FieldName = 'FIELDNAME'
    end
    object AppSelectAUTOUPDATE: TBooleanField
      FieldName = 'AUTOUPDATE'
    end
    object AppSelectDATASELECT: TMemoField
      FieldName = 'DATASELECT'
      BlobType = ftMemo
    end
    object AppSelectDefaultRow: TIntegerField
      FieldName = 'DefaultRow'
    end
  end
  object sAppSelect: TDataSource
    DataSet = AppSelect
    Left = 200
    Top = 10
  end
  object AppLog: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pAppLog'
    RemoteServer = Cn
    Left = 222
    Top = 2
    object AppLoguName: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'uName'
    end
    object AppLogcName: TStringField
      DisplayLabel = #24037#20316#31449#21517#31216
      FieldName = 'cName'
    end
    object AppLogCZ: TStringField
      DisplayLabel = #25805#20316
      FieldName = 'CZ'
      Size = 30
    end
    object AppLogRQ: TDateField
      DisplayLabel = #26085#26399
      FieldName = 'RQ'
    end
    object AppLogSJ: TStringField
      DisplayLabel = #26102#38388
      FieldName = 'SJ'
      Size = 5
    end
  end
  object sAppLog: TDataSource
    DataSet = AppLog
    Left = 230
    Top = 10
  end
  object Dq: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pDq'
    RemoteServer = Cn
    Left = 4
    Top = 54
    object DqID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object DqMC: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'MC'
      Size = 12
    end
  end
  object sDq: TDataSource
    DataSet = Dq
    Left = 12
    Top = 66
  end
  object AppMenu: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from AppMenu order by mIndex'
    Params = <>
    ProviderName = 'pAppMenu'
    RemoteServer = Cn
    Left = 72
    Top = 2
    object AppMenumName: TStringField
      FieldName = 'mName'
      Size = 30
    end
    object AppMenumCaption: TStringField
      DisplayLabel = #39033#30446
      FieldName = 'mCaption'
      OnGetText = AppMenumCaptionGetText
      Size = 50
    end
    object AppMenumLevel: TIntegerField
      FieldName = 'mLevel'
    end
    object AppMenumIndex: TIntegerField
      FieldName = 'mIndex'
    end
    object AppMenumIsParent: TBooleanField
      FieldName = 'mIsParent'
    end
  end
  object sAppMenu: TDataSource
    DataSet = AppMenu
    Left = 80
    Top = 10
  end
  object Kh: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    PacketRecords = 50
    Params = <>
    ProviderName = 'pKh'
    RemoteServer = Cn
    Left = 35
    Top = 54
    object KhID: TIntegerField
      Tag = 1
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object KhBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object KhMC: TStringField
      DisplayLabel = #31616#31216
      FieldName = 'MC'
    end
    object KhQC: TStringField
      DisplayLabel = #20840#31216
      FieldName = 'QC'
      Size = 40
    end
    object KhDQID: TIntegerField
      Tag = 1
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'DQID'
    end
    object KhaDQMC: TStringField
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'aDQMC'
      Size = 12
    end
    object KhLXR: TStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'LXR'
      Size = 16
    end
    object KhDH: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'DH'
    end
    object KhCZ: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'CZ'
    end
    object KhDZ: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'DZ'
      Size = 40
    end
    object KhYB: TStringField
      DisplayLabel = #37038#32534
      FieldName = 'YB'
      Size = 6
    end
    object KhWZ: TStringField
      DisplayLabel = #32593#22336
      FieldName = 'WZ'
      Size = 40
    end
    object KhDY: TStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldName = 'DY'
      Size = 40
    end
    object KhKHYH: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'KHYH'
      Size = 30
    end
    object KhYHZH: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'YHZH'
    end
    object KhNSH: TStringField
      DisplayLabel = #32435#31246#21495
      FieldName = 'NSH'
    end
    object KhQCJE: TFloatField
      DisplayLabel = #26399#21021#24212#25910#27454
      DisplayWidth = 12
      FieldName = 'QCJE'
      DisplayFormat = '#,0.00'
    end
    object KhYXJE: TFloatField
      DisplayLabel = #39044#25910#37329#39069
      DisplayWidth = 12
      FieldName = 'YXJE'
      DisplayFormat = '#,0.00'
    end
    object KhQMJE: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      DisplayWidth = 12
      FieldName = 'QMJE'
      DisplayFormat = '#,0.00'
    end
    object KhaSJJE: TFloatField
      DisplayLabel = #23454#38469#27424#27454
      DisplayWidth = 12
      FieldName = 'aSJJE'
      DisplayFormat = '#,0.00'
    end
    object KhXYED: TFloatField
      DisplayLabel = #20449#29992#39069#24230
      DisplayWidth = 12
      FieldName = 'XYED'
      DisplayFormat = '#,#.##'
    end
    object KhZT: TBooleanField
      Tag = 1
      DisplayLabel = #38750#20351#29992#20013
      FieldName = 'ZT'
      DisplayValues = #8730';'
    end
    object KhBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 40
    end
    object KhITMP: TIntegerField
      Tag = 1
      FieldName = 'ITMP'
    end
  end
  object sKh: TDataSource
    DataSet = Kh
    Left = 45
    Top = 66
  end
  object Gys: TClientDataSet
    Aggregates = <>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pGys'
    RemoteServer = Cn
    Left = 66
    Top = 54
    object GysID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object GysBH: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
      Size = 12
    end
    object GysMC: TStringField
      DisplayLabel = #31616#31216
      FieldName = 'MC'
    end
    object GysQC: TStringField
      DisplayLabel = #20840#31216
      FieldName = 'QC'
      Size = 40
    end
    object GysLXR: TStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'LXR'
      Size = 16
    end
    object GysDH: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'DH'
    end
    object GysCZ: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'CZ'
    end
    object GysDZ: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'DZ'
      Size = 40
    end
    object GysYB: TStringField
      DisplayLabel = #37038#32534
      FieldName = 'YB'
      Size = 6
    end
    object GysWZ: TStringField
      DisplayLabel = #32593#22336
      FieldName = 'WZ'
      Size = 40
    end
    object GysDY: TStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldName = 'DY'
      Size = 40
    end
    object GysKHYH: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'KHYH'
      Size = 30
    end
    object GysYHZH: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'YHZH'
    end
    object GysNSH: TStringField
      DisplayLabel = #32435#31246#21495
      FieldName = 'NSH'
    end
    object GysQCJE: TFloatField
      DisplayLabel = #26399#21021#24212#20184#27454
      DisplayWidth = 12
      FieldName = 'QCJE'
      DisplayFormat = '#,0.00'
    end
    object GysYXJE: TFloatField
      DisplayLabel = #39044#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'YXJE'
      DisplayFormat = '#,0.00'
    end
    object GysQMJE: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      DisplayWidth = 12
      FieldName = 'QMJE'
      DisplayFormat = '#,0.00'
    end
    object GysaSJJE: TFloatField
      DisplayLabel = #23454#38469#27424#27454
      DisplayWidth = 12
      FieldName = 'aSJJE'
      DisplayFormat = '#,0.00'
    end
    object GysZT: TBooleanField
      Tag = 1
      DisplayLabel = #38750#20351#29992#20013
      FieldName = 'ZT'
      DisplayValues = #8730';'
    end
    object GysBZ: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'BZ'
      Size = 50
    end
    object GysITMP: TIntegerField
      FieldName = 'ITMP'
    end
  end
  object sGys: TDataSource
    DataSet = Gys
    Left = 78
    Top = 66
  end
  object Zh: TClientDataSet
    Aggregates = <
      item
        Visible = False
      end>
    PacketRecords = 50
    Params = <>
    ProviderName = 'pZh'
    RemoteServer = Cn
    Left = 96
    Top = 54
    object ZhID: TIntegerField
      Tag = 1
      FieldName = 'ID'
    end
    object ZhMC: TStringField
      DisplayLabel = #24080#25143#21517#31216
      FieldName = 'MC'
    end
    object ZhYHL: TBooleanField
      Tag = 1
      DisplayLabel = #31867#21035
      DisplayWidth = 10
      FieldName = 'YHL'
      OnGetText = ZhYHLGetText
    end
    object ZhaYHL: TStringField
      DisplayLabel = #31867#21035
      FieldName = 'aYHL'
      Size = 255
    end
    object ZhKHYH: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'KHYH'
      Size = 40
    end
    object ZhYHZH: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'YHZH'
    end
    object ZhQCJE: TFloatField
      DisplayLabel = #26399#21021#20313#39069
      DisplayWidth = 12
      FieldName = 'QCJE'