frmup_a2unit.~dfm

根据客户对销售人员回款返利和业绩返利的功能需求所开发

      AllowClearKey = False
    end
    object ww4: TwwDBLookupComboDlg
      Left = 232
      Top = 27
      Width = 121
      Height = 21
      GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
      GridColor = clWhite
      GridTitleAlignment = taLeftJustify
      Caption = 'Lookup'
      MaxWidth = 0
      MaxHeight = 209
      Selected.Strings = (
        'AREA_NO'#9'20'#9#21306#22495#32534#21495#9'F'
        'NAME'#9'20'#9#21306#22495#21517#31216#9'F')
      LookupTable = qryAREA2
      LookupField = 'AREA_NO'
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object ww5: TwwDBLookupComboDlg
      Left = 80
      Top = 52
      Width = 121
      Height = 21
      GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
      GridColor = clWhite
      GridTitleAlignment = taLeftJustify
      Caption = 'Lookup'
      MaxWidth = 0
      MaxHeight = 209
      Selected.Strings = (
        'prd_no'#9'30'#9#20135#21697#32534#21495#9'F'
        'name'#9'50'#9#20135#21697#21517#31216#9'F')
      LookupTable = qryPRDT2
      LookupField = 'prd_no'
      TabOrder = 4
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnChange = wwDBLookupComboDlg3Change
    end
    object ww6: TwwDBLookupComboDlg
      Left = 232
      Top = 54
      Width = 121
      Height = 21
      GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
      GridColor = clWhite
      GridTitleAlignment = taLeftJustify
      Caption = 'Lookup'
      MaxWidth = 0
      MaxHeight = 209
      Selected.Strings = (
        'prd_no'#9'30'#9#20135#21697#32534#21495#9'F'
        'name'#9'50'#9#20135#21697#21517#31216#9'F')
      LookupTable = qryPRDT2
      LookupField = 'prd_no'
      TabOrder = 5
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnChange = wwDBLookupComboDlg3Change
    end
    object ww7: TwwDBDateTimePicker
      Left = 80
      Top = 80
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 6
    end
    object ww8: TwwDBDateTimePicker
      Left = 232
      Top = 80
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 7
    end
    object Button1: TButton
      Left = 376
      Top = 72
      Width = 75
      Height = 25
      Caption = #36895#26597
      TabOrder = 8
      OnClick = Button1Click
    end
  end
  object wwDBGrid1: TwwDBGrid [3]
    Left = 0
    Top = 225
    Width = 805
    Height = 205
    Selected.Strings = (
      'SAL_NO'#9'11'#9#38144#21806#20154#21592
      'SAL_NAME'#9'14'#9#38144#21806#20154#21592#21517#31216
      'PRD_NO'#9'17'#9#20135#21697#32534#21495
      'PRD_NAME'#9'14'#9#20135#21697#21517#31216
      'CUS_ARE'#9'16'#9#21306#22495#32534#21495
      'AREA_NAME'#9'20'#9#21306#22495#21517#31216
      'S_DD'#9'13'#9#26377#25928#26085#26399
      'E_DD'#9'11'#9#32467#26463#26085#26399
      'QTY'#9'10'#9#24213#20215)
    IniAttributes.Delimiter = ';;'
    ExportOptions.ExportType = wwgetSYLK
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = dsMaster
    TabOrder = 3
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
  end
  inherited dsMaster: TDataSource
    DataSet = qryUP_A2
    Left = 728
    Top = 160
  end
  inherited fSave: TSaveDialog
    Left = 672
    Top = 120
  end
  object qryUP_A2: TADOQuery
    AutoCalcFields = False
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from UP_A2 where 1=2')
    Left = 624
    Top = 184
    object qryUP_A2SAL_NO: TStringField
      DisplayLabel = #38144#21806#20154#21592
      DisplayWidth = 11
      FieldName = 'SAL_NO'
      Size = 30
    end
    object qryUP_A2SAL_NAME: TStringField
      DisplayLabel = #38144#21806#20154#21592#21517#31216
      DisplayWidth = 14
      FieldKind = fkLookup
      FieldName = 'SAL_NAME'
      LookupDataSet = qrySAL_NAME
      LookupKeyFields = 'SAL_NO'
      LookupResultField = 'NAME'
      KeyFields = 'SAL_NO'
      Size = 30
      Lookup = True
    end
    object qryUP_A2PRD_NO: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 17
      FieldName = 'PRD_NO'
      Size = 30
    end
    object qryUP_A2PRD_NAME: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 14
      FieldName = 'PRD_NAME'
      Size = 50
    end
    object qryUP_A2CUS_ARE: TStringField
      DisplayLabel = #21306#22495#32534#21495
      DisplayWidth = 16
      FieldName = 'CUS_ARE'
      Size = 30
    end
    object qryUP_A2AREA_NAME: TStringField
      DisplayLabel = #21306#22495#21517#31216
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'AREA_NAME'
      LookupDataSet = qryArea
      LookupKeyFields = 'AREA_NO'
      LookupResultField = 'NAME'
      KeyFields = 'CUS_ARE'
      Lookup = True
    end
    object qryUP_A2S_DD: TDateTimeField
      DisplayLabel = #26377#25928#26085#26399
      DisplayWidth = 13
      FieldName = 'S_DD'
    end
    object qryUP_A2E_DD: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      DisplayWidth = 11
      FieldName = 'E_DD'
    end
    object qryUP_A2QTY: TBCDField
      DisplayLabel = #24213#20215
      DisplayWidth = 10
      FieldName = 'QTY'
      Precision = 28
      Size = 8
    end
  end
  object qrySAL_NAME: TADOQuery
    Active = True
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select SAL_NO,NAME from salm')
    Left = 680
    Top = 200
    object qrySAL_NAMESAL_NO: TStringField
      DisplayLabel = #19994#21153#21592#32534#21495
      DisplayWidth = 12
      FieldName = 'SAL_NO'
      Size = 12
    end
    object qrySAL_NAMENAME: TStringField
      DisplayLabel = #19994#21153#21592#21517#31216
      DisplayWidth = 40
      FieldName = 'NAME'
      Size = 40
    end
  end
  object qryArea: TADOQuery
    Active = True
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select AREA_NO,NAME from area')
    Left = 608
    Top = 248
    object qryAreaAREA_NO: TStringField
      DisplayLabel = #21306#22495#32534#21495
      DisplayWidth = 20
      FieldName = 'AREA_NO'
    end
    object qryAreaNAME: TStringField
      DisplayLabel = #21306#22495#21517#31216
      DisplayWidth = 20
      FieldName = 'NAME'
    end
  end
  object qryPRDT: TADOQuery
    Connection = dm.ADOConnection2
    Parameters = <>
    SQL.Strings = (
      'select prd_no,name from prdt where knd in ('#39'1'#39','#39'2'#39','#39'3'#39')')
    Left = 544
    Top = 192
    object qryPRDTprd_no: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 30
      FieldName = 'prd_no'
      Size = 30
    end
    object qryPRDTname: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 50
      FieldName = 'name'
      Size = 100
    end
  end
  object qrySA_NAME2: TADOQuery
    Active = True
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select SAL_NO,NAME from salm')
    Left = 696
    Top = 248
    object StringField1: TStringField
      DisplayLabel = #19994#21153#21592#32534#21495
      DisplayWidth = 12
      FieldName = 'SAL_NO'
      Size = 12
    end
    object StringField2: TStringField
      DisplayLabel = #19994#21153#21592#21517#31216
      DisplayWidth = 40
      FieldName = 'NAME'
      Size = 40
    end
  end
  object qryAREA2: TADOQuery
    Active = True
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select AREA_NO,NAME from area')
    Left = 640
    Top = 304
    object StringField3: TStringField
      DisplayLabel = #21306#22495#32534#21495
      DisplayWidth = 20
      FieldName = 'AREA_NO'
    end
    object StringField4: TStringField
      DisplayLabel = #21306#22495#21517#31216
      DisplayWidth = 20
      FieldName = 'NAME'
    end
  end
  object qryPRDT2: TADOQuery
    Connection = dm.ADOConnection2
    Parameters = <>
    SQL.Strings = (
      'select prd_no,name from prdt where knd in ('#39'1'#39','#39'2'#39','#39'3'#39')')
    Left = 544
    Top = 296
    object StringField5: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 30
      FieldName = 'prd_no'
      Size = 30
    end
    object StringField6: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 50
      FieldName = 'name'
      Size = 100
    end
  end
end