ord510_01.dfm.svn-base

一个用Delphi开发的ERP软件

        RowIndex = 0
        FieldName = 'O150_012'
      end
      object dxDBGrid1O510A_018: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_018'
      end
      object dxDBGrid1O510A_019: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_019'
      end
      object dxDBGrid1O510A_022: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_022'
      end
      object dxDBGrid1O510A_023: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_023'
      end
      object dxDBGrid1O510A_024: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_024'
      end
      object dxDBGrid1O510A_025: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_025'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select A.*,'
      '    B.O100_002,'
      '    C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.O150_012,'
      '    D.G100_002,D.G100_003,'
      '    E.G110_002'
      'from ORD510A A,ORD100 B,ORD150 C,GLD100 D,GLD110 E'

        'where A.O510A_002=B.O100_001 and A.O510A_017=C.O150_001 and A.O5' +
        '10A_007=D.G100_001 and A.O510A_009=E.G110_001'
      'order by A.O510A_001')
    object ADOQuery1O510A_001: TWideStringField
      DisplayLabel = '销售单号'
      FieldName = 'O510A_001'
      Size = 30
    end
    object ADOQuery1O100_002: TWideStringField
      DisplayLabel = '销售类型'
      FieldName = 'O100_002'
      Size = 50
    end
    object ADOQuery1O510A_002: TIntegerField
      FieldName = 'O510A_002'
      Visible = False
    end
    object ADOQuery1O510A_003: TDateTimeField
      DisplayLabel = '销售日期'
      FieldName = 'O510A_003'
    end
    object ADOQuery1O510A_004: TSmallintField
      DisplayLabel = '定单状态'
      FieldName = 'O510A_004'
      OnGetText = ADOQuery1O510A_004GetText
    end
    object ADOQuery1H150_002: TStringField
      DisplayLabel = '员工编号'
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'O510A_005'
      Lookup = True
    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = '员工姓名'
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'O510A_005'
      Lookup = True
    end
    object ADOQuery1O510A_005: TIntegerField
      FieldName = 'O510A_005'
      Visible = False
    end
    object ADOQuery1O510A_006: TIntegerField
      FieldName = 'O510A_006'
      Visible = False
    end
    object ADOQuery1G100_002: TWideStringField
      DisplayLabel = '币别编号'
      FieldName = 'G100_002'
      Size = 10
    end
    object ADOQuery1G100_003: TWideStringField
      DisplayLabel = '币别名称'
      FieldName = 'G100_003'
      Size = 30
    end
    object ADOQuery1O510A_007: TIntegerField
      FieldName = 'O510A_007'
      Visible = False
    end
    object ADOQuery1O510A_008: TBCDField
      DisplayLabel = '币别汇率'
      FieldName = 'O510A_008'
      DisplayFormat = '0.0000'
      Precision = 10
      Size = 6
    end
    object ADOQuery1G110_002: TWideStringField
      DisplayLabel = '付款方式'
      FieldName = 'G110_002'
      Size = 50
    end
    object ADOQuery1O510A_009: TIntegerField
      FieldName = 'O510A_009'
      Visible = False
    end
    object ADOQuery1O510A_010: TSmallintField
      DisplayLabel = '来源类型'
      FieldName = 'O510A_010'
      OnGetText = ADOQuery1O510A_010GetText
    end
    object ADOQuery1O510A_011: TWideStringField
      FieldName = 'O510A_011'
      Visible = False
      Size = 30
    end
    object ADOQuery1O510A_012: TFloatField
      DisplayLabel = '金额总计'
      FieldName = 'O510A_012'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1O510A_013: TBCDField
      DisplayLabel = '折扣比率'
      FieldName = 'O510A_013'
      Precision = 8
      Size = 2
    end
    object ADOQuery1O510A_014: TFloatField
      DisplayLabel = '折扣金额'
      FieldName = 'O510A_014'
    end
    object ADOQuery1O510A_015: TFloatField
      DisplayLabel = '特殊费用'
      FieldName = 'O510A_015'
    end
    object ADOQuery1O510A_016: TFloatField
      DisplayLabel = '应收金额'
      FieldName = 'O510A_016'
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = '客户编号'
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = '客户名称'
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1O150_005: TWideStringField
      DisplayLabel = '电话号码'
      FieldName = 'O150_005'
      Size = 50
    end
    object ADOQuery1O150_006: TWideStringField
      DisplayLabel = '传真号码'
      FieldName = 'O150_006'
      Size = 50
    end
    object ADOQuery1O150_012: TWideStringField
      DisplayLabel = '客户址址'
      FieldName = 'O150_012'
      Size = 100
    end
    object ADOQuery1O510A_017: TIntegerField
      FieldName = 'O510A_017'
      Visible = False
    end
    object ADOQuery1O510A_018: TWideStringField
      DisplayLabel = '交货地址'
      FieldName = 'O510A_018'
    end
    object ADOQuery1O510A_019: TSmallintField
      DisplayLabel = '提货方式'
      FieldName = 'O510A_019'
      OnGetText = ADOQuery1O510A_019GetText
    end
    object ADOQuery1O510A_020: TMemoField
      DisplayLabel = '销售条款'
      FieldName = 'O510A_020'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1O510A_021: TMemoField
      DisplayLabel = '备注说明'
      FieldName = 'O510A_021'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1O510A_022: TDateTimeField
      DisplayLabel = '制单日期'
      FieldName = 'O510A_022'
    end
    object ADOQuery1O510A_023: TWideStringField
      DisplayLabel = '制单人员'
      FieldName = 'O510A_023'
    end
    object ADOQuery1O510A_024: TDateTimeField
      DisplayLabel = '修改日期'
      FieldName = 'O510A_024'
    end
    object ADOQuery1O510A_025: TWideStringField
      DisplayLabel = '修改人员'
      FieldName = 'O510A_025'
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = '转采'
      Hint = '转采'
      ImageIndex = 19
      ShortCut = 32845
      OnExecute = Action1Execute
    end
    inherited Action2: TAction
      Caption = '解锁'
      Hint = '解锁'
      ImageIndex = 13
      ShortCut = 32844
      Visible = True
      OnExecute = Action2Execute
    end
    inherited Action3: TAction
      Caption = '取消'
      Hint = '取消'
      ImageIndex = 14
      ShortCut = 32857
      Visible = True
      OnExecute = Action3Execute
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150')
    Left = 88
    Top = 160
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TWideStringField
      DisplayLabel = '员工编号'
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TWideStringField
      DisplayLabel = '员工姓名'
      FieldName = 'H150_003'
    end
  end
end