ord300_01.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

        Width = 240
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FItemName'
      end
      object dxDBGrid1FItemSpec: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 240
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FItemSpec'
      end
      object dxDBGrid1FUnitName: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FUnitName'
      end
      object dxDBGrid1FQty: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FQty'
      end
      object dxDBGrid1FPrice: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FPrice'
      end
      object dxDBGrid1FAmount: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FAmount'
      end
      object dxDBGrid1FDisRate: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FDisRate'
      end
      object dxDBGrid1FDisAmt: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FDisAmt'
      end
      object dxDBGrid1FNetAmt: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FNetAmt'
      end
      object dxDBGrid1FTaxRate: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FTaxRate'
      end
      object dxDBGrid1FTaxAmt: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FTaxAmt'
      end
      object dxDBGrid1FAcrAmt: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FAcrAmt'
      end
    end
  end
  inherited pmPrint: TPopupMenu
    Left = 440
    Top = 8
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select 0 as FType,O500A_001 as FCode,O500A_003 as FDate,O150_002' +
        ' as FCust,O150_003 as FCustName,'
      
        '       I150_002 as FItem,I150_003 as FItemName,I150_004 as FItem' +
        'Spec,I140_003 as FUnitName,O500B_005 as FQty,'
      
        '       O500B_006 as FPrice,O500B_007 as FAmount,O500B_008 as FDi' +
        'sRate,O500B_009 as FDisAmt,O500B_010 as FNetAmt,'
      
        '       O500B_011 as FTaxRate,O500B_012 as FTaxAmt,O500B_013 as F' +
        'AcrAmt'
      'from ORD500A,ORD500B,ORD150,INV150,INV140'
      
        'where O500A_001=O500B_001 and O500A_017=O150_001 and O500B_003=I' +
        '150_001 and O500B_004=I140_001'
      'order by O500A_003,O500A_001')
    object ADOQuery1FType: TIntegerField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'FType'
      ReadOnly = True
      OnGetText = ADOQuery1FTypeGetText
    end
    object ADOQuery1FCode: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'FCode'
      Size = 30
    end
    object ADOQuery1FDate: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'FDate'
    end
    object ADOQuery1FCust: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'FCust'
    end
    object ADOQuery1FCustName: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'FCustName'
      Size = 60
    end
    object ADOQuery1FItem: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'FItem'
      Size = 30
    end
    object ADOQuery1FItemName: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'FItemName'
      Size = 60
    end
    object ADOQuery1FItemSpec: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'FItemSpec'
      Size = 60
    end
    object ADOQuery1FUnitName: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'FUnitName'
      Size = 50
    end
    object ADOQuery1FQty: TFloatField
      DisplayLabel = #20135#21697#25968#37327
      FieldName = 'FQty'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FPrice: TFloatField
      DisplayLabel = #20135#21697#21333#20215
      FieldName = 'FPrice'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FAmount: TFloatField
      DisplayLabel = #20135#21697#37329#39069
      FieldName = 'FAmount'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FDisRate: TFloatField
      DisplayLabel = #25240#25187#27604#29575
      FieldName = 'FDisRate'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FDisAmt: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'FDisAmt'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FNetAmt: TFloatField
      DisplayLabel = #25240#21518#37329#39069
      FieldName = 'FNetAmt'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FTaxRate: TFloatField
      DisplayLabel = #38144#21806#31246#29575
      FieldName = 'FTaxRate'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FTaxAmt: TFloatField
      DisplayLabel = #38144#21806#31246#39069
      FieldName = 'FTaxAmt'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FAcrAmt: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      FieldName = 'FAcrAmt'
      DisplayFormat = ',0.00'
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004 from INV150 order by ' +
        'I150_002')
    Left = 192
    Top = 48
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryInv150I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
  end
end