udatamo.~dfm

天涯進銷存系統

object dmData: TdmData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 570
  Width = 800
  object SQLConnection: TSQLConnection
    ConnectionName = 'SQLServerConnection'
    DriverName = 'SQLServer'
    GetDriverFunc = 'getSQLDriverSQLServer'
    LibraryName = 'dbexpsda.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'HostName=a6'
      'DataBase=letwin'
      'DriverName=SQLServer'
      'User_Name=sa'
      'Password='
      'LongStrings=True'
      'EnableBCD=True'
      'FetchAll=True')
    VendorLib = 'sqloledb.dll'
    Left = 32
    Top = 8
  end
  object sdsSysinfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from SYSINFO'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 56
    object sdsSysinfoCORPCODE: TStringField
      FieldName = 'CORPCODE'
      FixedChar = True
      Size = 3
    end
    object sdsSysinfoCORPNAME: TStringField
      FieldName = 'CORPNAME'
      Size = 100
    end
    object sdsSysinfoENGNAME: TStringField
      FieldName = 'ENGNAME'
      Size = 100
    end
    object sdsSysinfoADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 100
    end
    object sdsSysinfoPOSTCODE: TStringField
      FieldName = 'POSTCODE'
      FixedChar = True
      Size = 6
    end
    object sdsSysinfoPHONECODE: TStringField
      FieldName = 'PHONECODE'
      Size = 24
    end
    object sdsSysinfoFAX: TStringField
      FieldName = 'FAX'
      Size = 24
    end
    object sdsSysinfoEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object sdsSysinfoURL: TStringField
      FieldName = 'URL'
      Size = 50
    end
    object sdsSysinfoBANKNAME: TStringField
      FieldName = 'BANKNAME'
      Size = 50
    end
    object sdsSysinfoBANKCODE: TStringField
      FieldName = 'BANKCODE'
      Size = 50
    end
    object sdsSysinfoBANKUSERNAME: TStringField
      FieldName = 'BANKUSERNAME'
      Size = 50
    end
    object sdsSysinfoTAXCODE: TStringField
      FieldName = 'TAXCODE'
      Size = 50
    end
    object sdsSysinfoREPMODE: TStringField
      FieldName = 'REPMODE'
      FixedChar = True
      Size = 1
    end
    object sdsSysinfoISINSIDERSYS: TStringField
      FieldName = 'ISINSIDERSYS'
      FixedChar = True
      Size = 1
    end
    object sdsSysinfoCOSTPRICEMODE: TStringField
      FieldName = 'COSTPRICEMODE'
      FixedChar = True
      Size = 1
    end
    object sdsSysinfoISSTOCKNEG: TStringField
      FieldName = 'ISSTOCKNEG'
      FixedChar = True
      Size = 1
    end
    object sdsSysinfoPARTCESS: TBCDField
      FieldName = 'PARTCESS'
      Precision = 9
      Size = 2
    end
    object sdsSysinfoWORKTIMECESS: TBCDField
      FieldName = 'WORKTIMECESS'
      Precision = 9
      Size = 2
    end
    object sdsSysinfoINSIDERSTR: TStringField
      FieldName = 'INSIDERSTR'
      FixedChar = True
      Size = 3
    end
    object sdsSysinfoINSIDERSIZE: TStringField
      FieldName = 'INSIDERSIZE'
      FixedChar = True
      Size = 15
    end
    object sdsSysinfoBALANCECURRENCY: TStringField
      FieldName = 'BALANCECURRENCY'
    end
    object sdsSysinfoISNEW: TStringField
      FieldName = 'ISNEW'
      FixedChar = True
      Size = 1
    end
    object sdsSysinfoMAXAGIOSUM: TBCDField
      FieldName = 'MAXAGIOSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsSysinfoMEMO: TStringField
      FieldName = 'MEMO'
      Size = 200
    end
  end
  object sdsPublic: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select BillCode From StockOrderBillHand'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 120
    Top = 8
  end
  object dsSysinfo: TDataSource
    DataSet = sdsSysinfo
    Left = 120
    Top = 56
  end
  object sdsClientinfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from clientinfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 104
    object sdsClientinfoCODE: TStringField
      FieldName = 'CODE'
      Required = True
    end
    object sdsClientinfoCLIENTNAME: TStringField
      FieldName = 'CLIENTNAME'
      Size = 100
    end
    object sdsClientinfoENGNAME: TStringField
      FieldName = 'ENGNAME'
      Size = 50
    end
    object sdsClientinfoLINKMAN: TStringField
      FieldName = 'LINKMAN'
      Size = 50
    end
    object sdsClientinfoLINKPHONE: TStringField
      FieldName = 'LINKPHONE'
      Size = 50
    end
    object sdsClientinfoFAX: TStringField
      FieldName = 'FAX'
    end
    object sdsClientinfoHANDSET: TStringField
      FieldName = 'HANDSET'
      FixedChar = True
      Size = 13
    end
    object sdsClientinfoADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 100
    end
    object sdsClientinfoPOSTCODE: TStringField
      FieldName = 'POSTCODE'
      FixedChar = True
      Size = 6
    end
    object sdsClientinfoEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object sdsClientinfoURL: TStringField
      FieldName = 'URL'
      Size = 50
    end
    object sdsClientinfoPREPAYSUM: TBCDField
      FieldName = 'PREPAYSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsClientinfoARREARAGESUM: TBCDField
      FieldName = 'ARREARAGESUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsClientinfoREIMBURSESUM: TBCDField
      FieldName = 'REIMBURSESUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsClientinfoPAYMENTSUM: TBCDField
      FieldName = 'PAYMENTSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsClientinfoBANK: TStringField
      FieldName = 'BANK'
      Size = 50
    end
    object sdsClientinfoBANKCODE: TStringField
      FieldName = 'BANKCODE'
      Size = 50
    end
    object sdsClientinfoBANKACCOUNTNAME: TStringField
      FieldName = 'BANKACCOUNTNAME'
      Size = 50
    end
    object sdsClientinfoGSREGCODE: TStringField
      FieldName = 'GSREGCODE'
      Size = 50
    end
    object sdsClientinfoTAXCODE: TStringField
      FieldName = 'TAXCODE'
      Size = 50
    end
    object sdsClientinfoMOSTLYOPERATION: TStringField
      FieldName = 'MOSTLYOPERATION'
      Size = 50
    end
    object sdsClientinfoCLIENTTYPE: TStringField
      FieldName = 'CLIENTTYPE'
    end
    object sdsClientinfoISINSIDER: TStringField
      FieldName = 'ISINSIDER'
      FixedChar = True
      Size = 1
    end
    object sdsClientinfoINSIDERCODE: TStringField
      FieldName = 'INSIDERCODE'
      FixedChar = True
    end
    object sdsClientinfoINSIDERTYPE: TStringField
      FieldName = 'INSIDERTYPE'
      FixedChar = True
    end
    object sdsClientinfoMAXTICKSUM: TBCDField
      FieldName = 'MAXTICKSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsClientinfoDEL: TStringField
      FieldName = 'DEL'
      FixedChar = True
      Size = 1
    end
    object sdsClientinfoMEMO: TStringField
      FieldName = 'MEMO'
      Size = 200
    end
  end
  object dsClientinfo: TDataSource
    DataSet = sdsClientinfo
    Left = 120
    Top = 104
  end
  object sdsFind: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from clientinfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 192
    Top = 8
  end
  object dsFind: TDataSource
    DataSet = sdsFind
    Left = 256
    Top = 8
  end
  object sdsProviderinfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from providerinfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 152
    object sdsProviderinfoCODE: TStringField
      FieldName = 'CODE'
      Required = True
    end
    object sdsProviderinfoENGNAME: TStringField
      FieldName = 'ENGNAME'
      Size = 50
    end
    object sdsProviderinfoLINKMAN: TStringField
      FieldName = 'LINKMAN'
      Size = 50
    end
    object sdsProviderinfoLINKPHONE: TStringField
      FieldName = 'LINKPHONE'
      Size = 50
    end
    object sdsProviderinfoFAX: TStringField
      FieldName = 'FAX'
    end
    object sdsProviderinfoHANDSET: TStringField
      FieldName = 'HANDSET'
      FixedChar = True
      Size = 13
    end
    object sdsProviderinfoADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 100
    end
    object sdsProviderinfoPOSTCODE: TStringField
      FieldName = 'POSTCODE'
      FixedChar = True
      Size = 6
    end
    object sdsProviderinfoEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object sdsProviderinfoURL: TStringField
      FieldName = 'URL'
      Size = 50
    end
    object sdsProviderinfoPREPAYSUM: TBCDField
      FieldName = 'PREPAYSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsProviderinfoARREARAGESUM: TBCDField
      FieldName = 'ARREARAGESUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsProviderinfoREIMBURSESUM: TBCDField
      FieldName = 'REIMBURSESUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsProviderinfoPAYMENTSUM: TBCDField
      FieldName = 'PAYMENTSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsProviderinfoBANK: TStringField
      FieldName = 'BANK'
      Size = 50
    end
    object sdsProviderinfoBANKCODE: TStringField
      FieldName = 'BANKCODE'
      Size = 50
    end
    object sdsProviderinfoBANKACCOUNTNAME: TStringField
      FieldName = 'BANKACCOUNTNAME'
      Size = 50
    end
    object sdsProviderinfoGSREGCODE: TStringField
      FieldName = 'GSREGCODE'
      Size = 50
    end
    object sdsProviderinfoTAXCODE: TStringField
      FieldName = 'TAXCODE'
      Size = 50
    end
    object sdsProviderinfoMOSTLYOPERATION: TStringField
      FieldName = 'MOSTLYOPERATION'
      Size = 50
    end
    object sdsProviderinfoMAXTICKSUM: TBCDField
      FieldName = 'MAXTICKSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsProviderinfoPROVIDERTYPE: TStringField
      FieldName = 'PROVIDERTYPE'
    end
    object sdsProviderinfoDEL: TStringField
      FieldName = 'DEL'
      FixedChar = True
      Size = 1
    end
    object sdsProviderinfoMEMO: TStringField
      FieldName = 'MEMO'
      Size = 200
    end
    object sdsProviderinfoPROVIDERNAME: TStringField
      FieldName = 'PROVIDERNAME'
      Size = 100
    end
  end