tbasicbill.dfm

仲裁委仲裁案件计酬程序.有基础资料设置、分级设置

    TableName = #24050#23433#35013#29992#25143'$'
    Left = 84
    Top = 56
  end
  object OpenExcel: TOpenDialog
    Left = 20
    Top = 56
  end
  object SourceTab: TADOTable
    Connection = LinkSQL.PubLink
    CursorType = ctStatic
    TableDirect = True
    TableName = #24050#23433#35013#29992#25143'$'
    Left = 148
    Top = 76
  end
  object _ExcelTab: TDataSource
    DataSet = SourceTab
    Left = 152
    Top = 104
  end
  object InitCMD: TADOCommand
    Connection = LinkSQL.PubLink
    Parameters = <>
    Left = 116
    Top = 60
  end
  object ErrQry: TADOQuery
    Connection = LinkSQL.PubLink
    Parameters = <>
    SQL.Strings = (
      'Select * '
      'From #Transfer_Source '
      'Where '#36135#21495' Not In (Select Distinct FName From T_ICItem)')
    Left = 88
    Top = 357
  end
  object _ErrQry: TDataSource
    DataSet = ErrQry
    Left = 116
    Top = 356
  end
  object BillHead: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = '@FInterID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * From POOrder Where FInterID=:@FInterID')
    Left = 604
    Top = 72
  end
  object _BillHead: TDataSource
    DataSet = BillHead
    Left = 632
    Top = 72
  end
  object BillEntry: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = '@FInterID'
        Attributes = [paSigned]
        DataType = ftInteger
        Value = Null
      end>
    SQL.Strings = (
      'Select * From POOrderEntry Where FInterID=:@FInterID')
    Left = 604
    Top = 100
    object BillEntryFBrNo: TStringField
      FieldName = 'FBrNo'
      Size = 10
    end
    object BillEntryFInterID: TIntegerField
      FieldName = 'FInterID'
    end
    object BillEntryFEntryID: TIntegerField
      FieldName = 'FEntryID'
    end
    object BillEntryFItemNumber: TStringField
      FieldKind = fkLookup
      FieldName = 'FItemNumber'
      LookupKeyFields = 'FItemID'
      LookupResultField = 'FNumber'
      KeyFields = 'FItemID'
      Size = 255
      Lookup = True
    end
    object BillEntryFItemName: TStringField
      FieldKind = fkCalculated
      FieldName = 'FItemName'
      Size = 255
      Calculated = True
    end
    object BillEntryFModel: TStringField
      FieldKind = fkCalculated
      FieldName = 'FModel'
      Size = 255
      Calculated = True
    end
    object BillEntryFItemID: TIntegerField
      FieldName = 'FItemID'
    end
    object BillEntryFUnitName: TStringField
      FieldKind = fkLookup
      FieldName = 'FUnitName'
      LookupKeyFields = 'FMeasureUnitID'
      LookupResultField = 'FName'
      KeyFields = 'FUnitID'
      Size = 50
      Lookup = True
    end
    object BillEntryFQty: TBCDField
      FieldName = 'FQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFPrice: TBCDField
      FieldName = 'FPrice'
      Precision = 28
      Size = 10
    end
    object BillEntryFAmount: TBCDField
      FieldName = 'FAmount'
      Precision = 20
      Size = 2
    end
    object BillEntryFNote: TStringField
      FieldName = 'FNote'
      Size = 255
    end
    object BillEntryFUnitID: TIntegerField
      FieldName = 'FUnitID'
    end
    object BillEntryFAuxPrice: TBCDField
      FieldName = 'FAuxPrice'
      Precision = 28
      Size = 10
    end
    object BillEntryFAuxQty: TBCDField
      FieldName = 'FAuxQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFStockQty: TBCDField
      FieldName = 'FStockQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFAllAmount: TBCDField
      FieldName = 'FAllAmount'
      Precision = 28
    end
    object BillEntryFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object BillEntryFCommitQty: TBCDField
      FieldName = 'FCommitQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFTaxRate: TBCDField
      FieldName = 'FTaxRate'
      Precision = 28
      Size = 10
    end
    object BillEntryFTax: TBCDField
      FieldName = 'FTax'
      Precision = 20
      Size = 2
    end
    object BillEntryFTaxAmount: TBCDField
      FieldName = 'FTaxAmount'
      Precision = 20
      Size = 2
    end
    object BillEntryFAuxCommitQty: TBCDField
      FieldName = 'FAuxCommitQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFSourceEntryID: TSmallintField
      FieldName = 'FSourceEntryID'
    end
    object BillEntryFCess: TBCDField
      FieldName = 'FCess'
      Precision = 20
      Size = 2
    end
    object BillEntryFAuxStockQty: TBCDField
      FieldName = 'FAuxStockQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFMapNumber: TStringField
      FieldName = 'FMapNumber'
      Size = 80
    end
    object BillEntryFMapName: TStringField
      FieldName = 'FMapName'
      Size = 80
    end
    object BillEntryFAuxPropID: TIntegerField
      FieldName = 'FAuxPropID'
    end
    object BillEntryFAuxPriceDiscount: TBCDField
      FieldName = 'FAuxPriceDiscount'
      Precision = 28
      Size = 10
    end
    object BillEntryFPriceDiscount: TBCDField
      FieldName = 'FPriceDiscount'
      Precision = 28
      Size = 10
    end
    object BillEntryFQtyInvoice: TBCDField
      FieldName = 'FQtyInvoice'
      Precision = 28
      Size = 10
    end
    object BillEntryFQtyInvoiceBase: TBCDField
      FieldName = 'FQtyInvoiceBase'
      Precision = 28
      Size = 10
    end
    object BillEntryFAuxTaxPrice: TBCDField
      FieldName = 'FAuxTaxPrice'
      Precision = 28
      Size = 10
    end
    object BillEntryFTaxPrice: TBCDField
      FieldName = 'FTaxPrice'
      Precision = 28
      Size = 10
    end
    object BillEntryFReceiveAmountFor_Commit: TBCDField
      FieldName = 'FReceiveAmountFor_Commit'
      Precision = 28
    end
    object BillEntryFReceiveAmount_Commit: TBCDField
      FieldName = 'FReceiveAmount_Commit'
      Precision = 28
    end
    object BillEntryFSecCoefficient: TBCDField
      FieldName = 'FSecCoefficient'
      Precision = 28
      Size = 10
    end
    object BillEntryFSecQty: TBCDField
      FieldName = 'FSecQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFSecCommitQty: TBCDField
      FieldName = 'FSecCommitQty'
      Precision = 28
      Size = 10
    end
    object BillEntryFSourceTranType: TIntegerField
      FieldName = 'FSourceTranType'
    end
    object BillEntryFSourceInterId: TIntegerField
      FieldName = 'FSourceInterId'
    end
    object BillEntryFSourceBillNo: TWideStringField
      FieldName = 'FSourceBillNo'
      Size = 255
    end
    object BillEntryFContractInterID: TIntegerField
      FieldName = 'FContractInterID'
    end
    object BillEntryFContractEntryID: TIntegerField
      FieldName = 'FContractEntryID'
    end
    object BillEntryFContractBillNo: TWideStringField
      FieldName = 'FContractBillNo'
      Size = 255
    end
    object BillEntryFAuxQtyInvoice: TBCDField
      FieldName = 'FAuxQtyInvoice'
      Precision = 28
      Size = 10
    end
    object BillEntryFMRPLockFlag: TIntegerField
      FieldName = 'FMRPLockFlag'
    end
    object BillEntryFMrpClosed: TIntegerField
      FieldName = 'FMrpClosed'
    end
  end
  object _BillEntry: TDataSource
    DataSet = BillEntry
    Left = 632
    Top = 100
  end
  object People: TADOQuery
    Connection = LinkSQL.PubLink
    Parameters = <>
    SQL.Strings = (
      'Select FUserID,FName From T_User')
    Left = 372
    Top = 392
    object PeopleFUserID: TSmallintField
      FieldName = 'FUserID'
    end
    object PeopleFName: TStringField
      FieldName = 'FName'
      Size = 30
    end
  end
  object _People: TDataSource
    DataSet = People
    Left = 400
    Top = 392
  end
end