dm_unit.dfm

客户关系管理系统 DELPHI7下的

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 57
  Top = 177
  Height = 514
  Width = 832
  object SQLConn: TSQLConnection
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'Database=..\Data\CRM.GDB'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=1'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=False')
    VendorLib = 'gds32.dll'
    Connected = True
    Left = 32
    Top = 16
  end
  object qryUsers: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM Users')
    SQLConnection = SQLConn
    Left = 88
    Top = 16
  end
  object qryTemp: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConn
    Left = 304
    Top = 16
  end
  object cdsUsers: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUsers'
    Left = 224
    Top = 16
    object cdsUsersUSERID: TStringField
      FieldName = 'USERID'
      Size = 10
    end
    object cdsUsersUSERNAME: TStringField
      FieldName = 'USERNAME'
      Size = 10
    end
    object cdsUsersUSERPWD: TStringField
      FieldName = 'USERPWD'
      Size = 16
    end
  end
  object dspUsers: TDataSetProvider
    DataSet = qryUsers
    Options = [poAllowCommandText]
    Left = 152
    Top = 16
  end
  object qryEmployees: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM Employees')
    SQLConnection = SQLConn
    Left = 64
    Top = 344
  end
  object cdsEmployees: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspEmployees'
    Left = 264
    Top = 344
    object cdsEmployeesEMPLOYEEID: TStringField
      FieldName = 'EMPLOYEEID'
      Size = 10
    end
    object cdsEmployeesNAME: TStringField
      FieldName = 'NAME'
      Size = 10
    end
    object cdsEmployeesSEX: TStringField
      FieldName = 'SEX'
      FixedChar = True
      Size = 2
    end
    object cdsEmployeesBIRTHDAY: TSQLTimeStampField
      FieldName = 'BIRTHDAY'
    end
    object cdsEmployeesNATION: TStringField
      FieldName = 'NATION'
      Size = 30
    end
    object cdsEmployeesISMARRAIGE: TStringField
      FieldName = 'ISMARRAIGE'
      FixedChar = True
      Size = 2
    end
    object cdsEmployeesIDCARD: TStringField
      FieldName = 'IDCARD'
    end
    object cdsEmployeesLITERACY: TStringField
      FieldName = 'LITERACY'
    end
    object cdsEmployeesSPECIALTY: TStringField
      FieldName = 'SPECIALTY'
    end
    object cdsEmployeesSCHOOL: TStringField
      FieldName = 'SCHOOL'
      Size = 30
    end
    object cdsEmployeesTELEPHONE: TStringField
      FieldName = 'TELEPHONE'
    end
    object cdsEmployeesEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 30
    end
    object cdsEmployeesEMPPOSITION: TStringField
      FieldName = 'EMPPOSITION'
      Size = 10
    end
    object cdsEmployeesDEPARTMENT: TStringField
      FieldName = 'DEPARTMENT'
      Size = 10
    end
    object cdsEmployeesADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 50
    end
    object cdsEmployeesREMARK: TStringField
      FieldName = 'REMARK'
      Size = 100
    end
  end
  object dspEmployees: TDataSetProvider
    DataSet = qryEmployees
    Left = 160
    Top = 344
  end
  object dsrUsers: TDataSource
    DataSet = cdsUsers
    Left = 368
    Top = 16
  end
  object dsrEmployees: TDataSource
    DataSet = cdsEmployees
    Left = 368
    Top = 344
  end
  object dsrCustomer: TDataSource
    DataSet = cdsCustomer
    Left = 368
    Top = 88
  end
  object qryCustomerInfo: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM Customers')
    SQLConnection = SQLConn
    Left = 64
    Top = 150
  end
  object cdsCustomerInfo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCustomerInfo'
    Left = 264
    Top = 152
    object cdsCustomerInfoCUSTOMERID: TStringField
      FieldName = 'CUSTOMERID'
      Size = 10
    end
    object cdsCustomerInfoCUSTOMERLEVEL: TStringField
      FieldName = 'CUSTOMERLEVEL'
      Size = 10
    end
    object cdsCustomerInfoCUSTOMER: TStringField
      FieldName = 'CUSTOMER'
    end
    object cdsCustomerInfoBOOKDATE: TSQLTimeStampField
      FieldName = 'BOOKDATE'
    end
    object cdsCustomerInfoCONTACT: TStringField
      FieldName = 'CONTACT'
      Size = 10
    end
    object cdsCustomerInfoCONTACTTEL: TStringField
      FieldName = 'CONTACTTEL'
    end
    object cdsCustomerInfoADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 50
    end
    object cdsCustomerInfoPOSTCODE: TStringField
      FieldName = 'POSTCODE'
    end
    object cdsCustomerInfoFAX: TStringField
      FieldName = 'FAX'
    end
    object cdsCustomerInfoNETADDRESS: TStringField
      FieldName = 'NETADDRESS'
      Size = 30
    end
    object cdsCustomerInfoEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 30
    end
    object cdsCustomerInfoREMARK: TStringField
      FieldName = 'REMARK'
      Size = 100
    end
    object cdsCustomerInfoCUSTOMERTYPE: TStringField
      FieldName = 'CUSTOMERTYPE'
      Size = 10
    end
    object cdsCustomerInfoWORKRANGE: TStringField
      FieldName = 'WORKRANGE'
      Size = 10
    end
    object cdsCustomerInfoPRODUCTION: TStringField
      FieldName = 'PRODUCTION'
      Size = 10
    end
    object cdsCustomerInfoBANKID: TStringField
      FieldName = 'BANKID'
    end
    object cdsCustomerInfoBANKNUMBER: TStringField
      FieldName = 'BANKNUMBER'
    end
    object cdsCustomerInfoCORPSIZE: TStringField
      FieldName = 'CORPSIZE'
      Size = 10
    end
    object cdsCustomerInfoCORPKIND: TStringField
      FieldName = 'CORPKIND'
      Size = 10
    end
    object cdsCustomerInfoCALLING: TStringField
      FieldName = 'CALLING'
      Size = 10
    end
  end
  object dspCustomerInfo: TDataSetProvider
    DataSet = qryCustomerInfo
    Options = [poAllowCommandText]
    Left = 160
    Top = 150
  end
  object dsrCustomerInfo: TDataSource
    DataSet = cdsCustomerInfo
    Left = 368
    Top = 150
  end
  object qryCustEmp: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM CustEmployee')
    SQLConnection = SQLConn
    Left = 64
    Top = 206
  end
  object cdsCustEmp: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCustEmp'
    Left = 264
    Top = 208
    object cdsCustEmpCUSTEMPID: TStringField
      FieldName = 'CUSTEMPID'
      Size = 10
    end
    object cdsCustEmpNAME: TStringField
      FieldName = 'NAME'
      Size = 10
    end
    object cdsCustEmpSEX: TStringField
      FieldName = 'SEX'
      FixedChar = True
      Size = 2
    end
    object cdsCustEmpTELEPHONE: TStringField
      FieldName = 'TELEPHONE'
    end
    object cdsCustEmpEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 30
    end
    object cdsCustEmpCUSTPOST: TStringField
      FieldName = 'CUSTPOST'
      Size = 10
    end
    object cdsCustEmpCUSTDEPT: TStringField
      FieldName = 'CUSTDEPT'
      Size = 10
    end
    object cdsCustEmpREMARK: TStringField
      FieldName = 'REMARK'
      Size = 100
    end
  end
  object dspCustEmp: TDataSetProvider
    DataSet = qryCustEmp
    Options = [poAllowCommandText]
    Left = 160
    Top = 206
  end
  object dsrCustEmp: TDataSource
    DataSet = cdsCustEmp
    Left = 368
    Top = 208
  end
  object qryDepartment: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM Department')
    SQLConnection = SQLConn
    Left = 64
    Top = 278
    object qryDepartmentDEPARTMENTID: TStringField
      FieldName = 'DEPARTMENTID'
      Size = 10
    end
    object qryDepartmentDEPARTMENTDESCN: TStringField
      FieldName = 'DEPARTMENTDESCN'
    end
  end
  object cdsDepartment: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDepartment'
    Left = 264
    Top = 280
    object cdsDepartmentDEPARTMENTID: TStringField
      FieldName = 'DEPARTMENTID'
      Size = 10
    end
    object cdsDepartmentDEPARTMENTDESCN: TStringField
      FieldName = 'DEPARTMENTDESCN'
    end