dms.dfm

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

object Datas: TDatas
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  Left = 267
  Top = 62
  Height = 460
  Width = 617
  object Tmpf: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    Left = 404
    Top = 14
  end
  object Cn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\Jx' +
      'c\Data.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
      'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
      'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
      '4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bul' +
      'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
      'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
      ':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
      'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
      'P=False'
    CursorLocation = clUseServer
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    OnWillExecute = CnWillExecute
    Left = 18
    Top = 6
  end
  object AppUserGroup: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from AppUserGroup')
    Left = 152
    Top = 14
    object AppUserGroupgName: TStringField
      FieldName = 'gName'
    end
    object AppUserGroupgMemo: TStringField
      FieldName = 'gMemo'
      Size = 200
    end
  end
  object AppUser: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from appuser')
    Left = 194
    Top = 14
    object AppUserID: TIntegerField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object AppUseruCode: TStringField
      FieldName = 'uCode'
      Size = 8
    end
    object AppUseruName: TStringField
      FieldName = 'uName'
    end
    object AppUseruPassword: TStringField
      FieldName = 'uPassword'
      Size = 8
    end
    object AppUsergName: TStringField
      FieldName = 'gName'
    end
  end
  object AppGroupDesktopClass: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from AppGroupDesktopClass')
    Left = 236
    Top = 14
    object AppGroupDesktopClassgName: TStringField
      FieldName = 'gName'
    end
    object AppGroupDesktopClasscName: TStringField
      FieldName = 'cName'
      Size = 30
    end
  end
  object Tmpl: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    Left = 446
    Top = 14
  end
  object Tmp: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    Left = 362
    Top = 14
  end
  object pAppUserGroup: TDataSetProvider
    DataSet = AppUserGroup
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 144
    Top = 6
  end
  object pAppUser: TDataSetProvider
    DataSet = AppUser
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 186
    Top = 6
  end
  object pAppGroupDesktopClass: TDataSetProvider
    DataSet = AppGroupDesktopClass
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 228
    Top = 6
  end
  object pTmp: TDataSetProvider
    DataSet = Tmp
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 354
    Top = 6
  end
  object pTmpf: TDataSetProvider
    DataSet = Tmpf
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 396
    Top = 6
  end
  object pTmpl: TDataSetProvider
    DataSet = Tmpl
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 438
    Top = 6
  end
  object AppSelect: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from Appselect')
    Left = 278
    Top = 14
    object AppSelectDATASET: TStringField
      FieldName = 'DATASET'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object AppSelectFIELDNAME: TStringField
      FieldName = 'FIELDNAME'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object AppSelectAUTOUPDATE: TBooleanField
      FieldName = 'AUTOUPDATE'
    end
    object AppSelectDATASELECT: TMemoField
      FieldName = 'DATASELECT'
      BlobType = ftMemo
    end
    object AppSelectDefaultRow: TIntegerField
      FieldName = 'DefaultRow'
    end
  end
  object Cn1: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;User ID=Admin;Dat' +
      'a Source=AccessJxcDatabase'
    ConnectionTimeout = 60
    CursorLocation = clUseServer
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    OnWillExecute = CnWillExecute
    Left = 60
    Top = 6
  end
  object AppLog: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from AppLog order by RQ desc,uName,SJ')
    Left = 320
    Top = 14
    object AppLoguName: TStringField
      FieldName = 'uName'
    end
    object AppLogcName: TStringField
      FieldName = 'cName'
    end
    object AppLogCZ: TStringField
      FieldName = 'CZ'
      Size = 30
    end
    object AppLogRQ: TDateField
      FieldName = 'RQ'
    end
    object AppLogSJ: TStringField
      FieldName = 'SJ'
      Size = 5
    end
  end
  object pAppLog: TDataSetProvider
    DataSet = AppLog
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 312
    Top = 6
  end
  object Dq: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from DQ')
    Left = 26
    Top = 70
    object DqID: TIntegerField
      FieldName = 'ID'
    end
    object DqMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
  end
  object pDq: TDataSetProvider
    DataSet = Dq
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 18
    Top = 66
  end
  object AppMenu: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from AppMenu')
    Left = 110
    Top = 14
    object AppMenumName: TStringField
      FieldName = 'mName'
      Size = 30
    end
    object AppMenumCaption: TStringField
      FieldName = 'mCaption'
      Size = 50
    end
    object AppMenumLevel: TIntegerField
      FieldName = 'mLevel'
    end
    object AppMenumIndex: TIntegerField
      FieldName = 'mIndex'
    end
    object AppMenumIsParent: TBooleanField
      FieldName = 'mIsParent'
    end
  end
  object pAppMenu: TDataSetProvider
    DataSet = AppMenu
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 102
    Top = 6
  end
  object Kh: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select K.*, D.MC as aDQMC, K.QMJE-K.YXJE as aSJJE '
      'from KH K inner join DQ D on K.DQID=D.ID '
      'order by K.BH')
    Left = 56
    Top = 70
    object KhID: TIntegerField
      FieldName = 'ID'
    end
    object KhBH: TStringField
      FieldName = 'BH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object KhMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
    end
    object KhQC: TStringField
      FieldName = 'QC'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object KhDQID: TIntegerField
      FieldName = 'DQID'
      ProviderFlags = [pfInUpdate]
    end
    object KhaDQMC: TStringField
      FieldName = 'aDQMC'
      ProviderFlags = []
      Size = 12
    end
    object KhLXR: TStringField
      FieldName = 'LXR'
      ProviderFlags = [pfInUpdate]
      Size = 16
    end
    object KhDH: TStringField
      FieldName = 'DH'
      ProviderFlags = [pfInUpdate]
    end
    object KhCZ: TStringField
      FieldName = 'CZ'
      ProviderFlags = [pfInUpdate]
    end
    object KhDZ: TStringField
      FieldName = 'DZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object KhYB: TStringField
      FieldName = 'YB'
      ProviderFlags = [pfInUpdate]
      Size = 6
    end
    object KhWZ: TStringField
      FieldName = 'WZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object KhDY: TStringField
      FieldName = 'DY'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object KhKHYH: TStringField
      FieldName = 'KHYH'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object KhYHZH: TStringField
      FieldName = 'YHZH'
      ProviderFlags = [pfInUpdate]
    end
    object KhNSH: TStringField
      FieldName = 'NSH'
      ProviderFlags = [pfInUpdate]
    end
    object KhQCJE: TFloatField
      FieldName = 'QCJE'
      ProviderFlags = [pfInUpdate]
    end
    object KhYXJE: TFloatField
      FieldName = 'YXJE'
      ProviderFlags = [pfInUpdate]
    end
    object KhQMJE: TFloatField
      FieldName = 'QMJE'
      ProviderFlags = []
    end
    object KhaSJJE: TFloatField
      FieldName = 'aSJJE'
      ProviderFlags = []
    end
    object KhXYED: TFloatField
      FieldName = 'XYED'
      ProviderFlags = [pfInUpdate]
    end
    object KhZT: TBooleanField
      FieldName = 'ZT'
      ProviderFlags = [pfInUpdate]
    end
    object KhBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object KhITMP: TIntegerField
      FieldName = 'ITMP'
      ProviderFlags = [pfInUpdate]
    end
  end
  object pKh: TDataSetProvider
    DataSet = Kh
    Constraints = True
    Options = [poFetchBlobsOnDemand, poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 48
    Top = 66
  end
  object Gys: TADOQuery
    Connection = Cn
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select *,QMJE-YXJE as aSJJE from GYS G order by BH')
    Left = 86
    Top = 70
    object GysID: TIntegerField
      FieldName = 'ID'
    end
    object GysBH: TStringField
      FieldName = 'BH'
      ProviderFlags = [pfInUpdate]
      Size = 12
    end
    object GysMC: TStringField
      FieldName = 'MC'
      ProviderFlags = [pfInUpdate]
    end
    object GysQC: TStringField
      FieldName = 'QC'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object GysLXR: TStringField
      FieldName = 'LXR'
      ProviderFlags = [pfInUpdate]
      Size = 16
    end
    object GysDH: TStringField
      FieldName = 'DH'
      ProviderFlags = [pfInUpdate]
    end
    object GysCZ: TStringField
      FieldName = 'CZ'
      ProviderFlags = [pfInUpdate]
    end
    object GysDZ: TStringField
      FieldName = 'DZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object GysYB: TStringField
      FieldName = 'YB'
      ProviderFlags = [pfInUpdate]
      Size = 6
    end
    object GysWZ: TStringField
      FieldName = 'WZ'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object GysDY: TStringField
      FieldName = 'DY'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object GysKHYH: TStringField
      FieldName = 'KHYH'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object GysYHZH: TStringField
      FieldName = 'YHZH'
      ProviderFlags = [pfInUpdate]
    end
    object GysNSH: TStringField
      FieldName = 'NSH'
      ProviderFlags = [pfInUpdate]
    end
    object GysQCJE: TFloatField
      FieldName = 'QCJE'
      ProviderFlags = [pfInUpdate]
    end
    object GysYXJE: TFloatField
      FieldName = 'YXJE'
      ProviderFlags = [pfInUpdate]
    end
    object GysQMJE: TFloatField
      FieldName = 'QMJE'
      ProviderFlags = []
    end
    object GysaSJJE: TFloatField
      FieldName = 'aSJJE'
      ProviderFlags = []
    end
    object GysZT: TBooleanField
      FieldName = 'ZT'
      ProviderFlags = [pfInUpdate]
    end
    object GysBZ: TStringField
      FieldName = 'BZ'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object GysITMP: TIntegerField
      FieldName = 'ITMP'