udatamo.~dfm

天涯進銷存系統

  object dsProviderinfo: TDataSource
    DataSet = sdsProviderinfo
    Left = 120
    Top = 152
  end
  object sdsPartinfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from partinfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    AfterScroll = sdsPartinfoAfterScroll
    Left = 32
    Top = 200
    object sdsPartinfoCODE: TStringField
      FieldName = 'CODE'
      Required = True
      Size = 30
    end
    object sdsPartinfoBORNCODE: TStringField
      FieldName = 'BORNCODE'
      Size = 50
    end
    object sdsPartinfoNAME: TStringField
      FieldName = 'NAME'
      Size = 100
    end
    object sdsPartinfoPRODUCING: TStringField
      FieldName = 'PRODUCING'
    end
    object sdsPartinfoCARMODEL: TStringField
      FieldName = 'CARMODEL'
    end
    object sdsPartinfoPARTTYPE: TStringField
      FieldName = 'PARTTYPE'
    end
    object sdsPartinfoUNITS: TStringField
      FieldName = 'UNITS'
    end
    object sdsPartinfoMAXSTOCK: TBCDField
      FieldName = 'MAXSTOCK'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoMINSTOCK: TBCDField
      FieldName = 'MINSTOCK'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoINPUTPRICE: TBCDField
      FieldName = 'INPUTPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoOUTPOUTPRICE: TBCDField
      FieldName = 'OUTPOUTPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoTRADEPRICE: TBCDField
      FieldName = 'TRADEPRICE'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoPREFERENTIAL: TBCDField
      FieldName = 'PREFERENTIAL'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoFOREIGNPRICE: TBCDField
      FieldName = 'FOREIGNPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoFOREIGNTYPE: TStringField
      FieldName = 'FOREIGNTYPE'
    end
    object sdsPartinfoDEPOTPLACE: TStringField
      FieldName = 'DEPOTPLACE'
    end
    object sdsPartinfoHELPNOTENO: TStringField
      FieldName = 'HELPNOTENO'
    end
    object sdsPartinfoSTOCKPRICE: TBCDField
      FieldName = 'STOCKPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoSALEPRICE: TBCDField
      FieldName = 'SALEPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoSTOCKDATE: TSQLTimeStampField
      FieldName = 'STOCKDATE'
    end
    object sdsPartinfoSALEDATE: TSQLTimeStampField
      FieldName = 'SALEDATE'
    end
    object sdsPartinfoBILLQUANTITY: TBCDField
      FieldName = 'BILLQUANTITY'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoSTOCKQUANTITY: TBCDField
      FieldName = 'STOCKQUANTITY'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoCOSTPRICE: TBCDField
      FieldName = 'COSTPRICE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsPartinfoIMAGE: TBlobField
      FieldName = 'IMAGE'
      Size = 1
    end
    object sdsPartinfoMEMO: TStringField
      FieldName = 'MEMO'
      Size = 100
    end
    object sdsPartinfoDEL: TStringField
      FieldName = 'DEL'
      FixedChar = True
      Size = 1
    end
    object sdsPartinfoENNAME: TStringField
      FieldName = 'ENNAME'
      Size = 100
    end
  end
  object dsPartinfo: TDataSource
    DataSet = sdsPartinfo
    Left = 120
    Top = 200
  end
  object sdsInterconvertPart: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from partinfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 248
  end
  object dsInterconvertPart: TDataSource
    DataSet = sdsInterconvertPart
    Left = 120
    Top = 248
  end
  object sdsSelectPart: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 
      'select Code, Borncode, name, Producing, Carmodel, Units, InPutPr' +
      'ice, '#13#10'COSTPRICE, DepotPlace, BillQuantity, StockQuantity, Stock' +
      'Price, Parttype, SalePrice From PartInfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 320
    Top = 8
  end
  object dsSelectPart: TDataSource
    DataSet = sdsSelectPart
    Left = 392
    Top = 8
  end
  object ExistData: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 192
    Top = 56
  end
  object SQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection
    Left = 256
    Top = 56
  end
  object sdsStorage: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from Depot'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 296
  end
  object dsStorage: TDataSource
    DataSet = sdsStorage
    Left = 120
    Top = 296
  end
  object sdsDepartment: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from Department'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 344
  end
  object dsDepartment: TDataSource
    DataSet = sdsDepartment
    Left = 120
    Top = 344
  end
  object sdsEmployee: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from Employee'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 392
    object sdsEmployeeCODE: TStringField
      FieldName = 'CODE'
      Required = True
      Size = 10
    end
    object sdsEmployeeNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object sdsEmployeeSEX: TStringField
      FieldName = 'SEX'
      FixedChar = True
      Size = 2
    end
    object sdsEmployeeBIRTHDAY: TSQLTimeStampField
      FieldName = 'BIRTHDAY'
    end
    object sdsEmployeeNATIVEPLACE: TStringField
      FieldName = 'NATIVEPLACE'
    end
    object sdsEmployeeIDCARD: TStringField
      FieldName = 'IDCARD'
      Size = 18
    end
    object sdsEmployeeLITERACY: TStringField
      FieldName = 'LITERACY'
      FixedChar = True
      Size = 10
    end
    object sdsEmployeeDWELLING: TStringField
      FieldName = 'DWELLING'
      Size = 50
    end
    object sdsEmployeeHANDSET: TStringField
      FieldName = 'HANDSET'
      FixedChar = True
      Size = 12
    end
    object sdsEmployeeLINKPHONE: TStringField
      FieldName = 'LINKPHONE'
      Size = 50
    end
    object sdsEmployeeDEPT: TStringField
      FieldName = 'DEPT'
      Size = 50
    end
    object sdsEmployeeBASICLABORAGE: TBCDField
      FieldName = 'BASICLABORAGE'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsEmployeeBJOBLABORAGE: TBCDField
      FieldName = 'BJOBLABORAGE'
      Precision = 9
      Size = 2
    end
    object sdsEmployeeJTIMELABORAGE: TBCDField
      FieldName = 'JTIMELABORAGE'
      Precision = 9
      Size = 2
    end
    object sdsEmployeeJOB: TStringField
      FieldName = 'JOB'
    end
    object sdsEmployeeISRMMAN: TStringField
      FieldName = 'ISRMMAN'
      FixedChar = True
      Size = 5
    end
    object sdsEmployeeISOPERATION: TStringField
      FieldName = 'ISOPERATION'
      FixedChar = True
      Size = 5
    end
    object sdsEmployeeJOBCLASS: TStringField
      FieldName = 'JOBCLASS'
    end
    object sdsEmployeeMEMO: TStringField
      FieldName = 'MEMO'
      Size = 100
    end
  end
  object dsEmployee: TDataSource
    DataSet = sdsEmployee
    Left = 120
    Top = 392
  end
  object sdsBaseData: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from ELSEINFO'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 440
  end
  object dsBaseData: TDataSource
    DataSet = sdsBaseData
    Left = 120
    Top = 440
  end
  object sdsSelectProvider: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from providerinfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 320
    Top = 56
  end
  object dsSelectProvider: TDataSource
    DataSet = sdsSelectProvider
    Left = 392
    Top = 56
  end
  object sdsSelectClient: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from partinfo'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 320
    Top = 104
  end
  object dsSelectClient: TDataSource
    DataSet = sdsSelectClient
    Left = 392
    Top = 104
  end
  object sdsPub: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 192
    Top = 104
  end
  object sdsPri: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 256
    Top = 104
  end
  object sdsFilialeinfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection
    DataSet.CommandText = 'select * from FILIALEINFO'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 488
    object sdsFilialeinfoFILIALECODE: TStringField
      FieldName = 'FILIALECODE'
      Required = True
    end
    object sdsFilialeinfoFILIALENAME: TStringField
      FieldName = 'FILIALENAME'
      Size = 50
    end
    object sdsFilialeinfoPHONE: TStringField
      FieldName = 'PHONE'
      Size = 30
    end
    object sdsFilialeinfoADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 100
    end
    object sdsFilialeinfoLINKMAN: TStringField
      FieldName = 'LINKMAN'
    end
    object sdsFilialeinfoINPUTSUM: TBCDField
      FieldName = 'INPUTSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsFilialeinfoOUTPUTSUM: TBCDField
      FieldName = 'OUTPUTSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object sdsFilialeinfoMEMO: TStringField
      FieldName = 'MEMO'
      Size = 50
    end
    object sdsFilialeinfoDEL: TStringField
      FieldName = 'DEL'
      FixedChar = True
      Size = 1
    end
  end
  object dsFilialeinfo: TDataSource
    DataSet = sdsFilialeinfo
    Left = 120
    Top = 488
  end
end