dmunit.~dfm

根据客户对销售人员回款返利和业绩返利的功能需求所开发

object dm: Tdm
  OldCreateOrder = False
  Left = 560
  Top = 305
  Height = 340
  Width = 315
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 24
  end
  object ADOConnection2: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=DB_LG;Data Source=JIMMY'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 128
    Top = 40
  end
  object cdsPSWD: TADOQuery
    Connection = ADOConnection1
    OnCalcFields = cdsPSWDCalcFields
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM PSWD')
    Left = 88
    Top = 112
    object cdsPSWDCOMPNO: TStringField
      FieldName = 'COMPNO'
      Size = 4
    end
    object cdsPSWDUSR: TStringField
      FieldName = 'USR'
      Size = 12
    end
    object cdsPSWDNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object cdsPSWDPWD: TStringField
      FieldName = 'PWD'
      Size = 15
    end
    object cdsPSWDMNG: TStringField
      FieldName = 'MNG'
      Size = 12
    end
    object cdsPSWDE_DAT: TDateTimeField
      FieldName = 'E_DAT'
    end
    object cdsPSWDDEP: TStringField
      FieldName = 'DEP'
      Size = 8
    end
    object cdsPSWDB_DAT: TDateTimeField
      FieldName = 'B_DAT'
    end
    object cdsPSWDREM: TStringField
      FieldName = 'REM'
      Size = 200
    end
    object cdsPSWDSPC_CTL: TStringField
      FieldName = 'SPC_CTL'
      Size = 1
    end
    object cdsPSWDALL_CMP: TStringField
      FieldName = 'ALL_CMP'
      Size = 1
    end
    object cdsPSWDCOMP_BOSS: TStringField
      FieldName = 'COMP_BOSS'
      Size = 1
    end
    object cdsPSWDMOD: TBlobField
      FieldName = 'MOD'
    end
    object cdsPSWDNO_DESKTOP: TStringField
      FieldName = 'NO_DESKTOP'
      Size = 1
    end
    object cdsPSWDISSHOW: TStringField
      FieldName = 'ISSHOW'
      Size = 1
    end
    object cdsPSWDDEP_UP: TStringField
      FieldName = 'DEP_UP'
      Size = 8
    end
    object cdsPSWDISMAIL: TStringField
      FieldName = 'ISMAIL'
      Size = 1
    end
    object cdsPSWDE_MAIL: TStringField
      FieldName = 'E_MAIL'
      Size = 50
    end
    object cdsPSWDISGROUP: TStringField
      FieldName = 'ISGROUP'
      Size = 1
    end
    object cdsPSWDISSALM: TStringField
      FieldName = 'ISSALM'
      Size = 1
    end
    object cdsPSWDISCUST: TStringField
      FieldName = 'ISCUST'
      Size = 1
    end
    object cdsPSWDISYG: TStringField
      FieldName = 'ISYG'
      Size = 1
    end
    object cdsPSWDUPD_DD: TDateTimeField
      FieldName = 'UPD_DD'
    end
    object cdsPSWDPWD_CHG: TStringField
      FieldName = 'PWD_CHG'
      Size = 1
    end
    object cdsPSWDEXPIRE_ID: TStringField
      FieldName = 'EXPIRE_ID'
      Size = 1
    end
    object cdsPSWDPWD_NOTCHG: TStringField
      FieldName = 'PWD_NOTCHG'
      Size = 1
    end
    object cdsPSWDLANG_ID: TStringField
      FieldName = 'LANG_ID'
      Size = 10
    end
    object cdsPSWDEXPIRE_DD: TDateTimeField
      FieldName = 'EXPIRE_DD'
    end
    object cdsPSWDHOSTNAME: TWideStringField
      FieldName = 'HOSTNAME'
      FixedChar = True
      Size = 128
    end
    object cdsPSWDdisUser: TStringField
      FieldKind = fkCalculated
      FieldName = 'disUser'
      Size = 40
      Calculated = True
    end
  end
  object cdsCOMP: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select COMPNO,NAME from comp')
    Left = 32
    Top = 96
    object cdsCOMPCOMPNO: TStringField
      FieldName = 'COMPNO'
      Size = 4
    end
    object cdsCOMPNAME: TStringField
      FieldName = 'NAME'
      Size = 60
    end
  end
  object DataSource1: TDataSource
    DataSet = cdsCOMP
    Left = 40
    Top = 152
  end
  object qryQuery: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 176
    Top = 104
  end
  object qryQuery1: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 248
    Top = 104
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 168
    Top = 152
  end
  object ado1: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 232
    Top = 168
  end
  object ado2: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 232
    Top = 224
  end
end