frmskunit.dfm

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

inherited frmSK: TfrmSK
  Left = 185
  Caption = #25910#27454#27604#20363
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited btn_Insert: TBitBtn
      Left = 171
      Visible = False
    end
    inherited btn_Search: TBitBtn
      Left = 535
      Visible = False
    end
    inherited btn_Delete: TBitBtn
      Left = 315
      Visible = False
    end
    inherited btn_Edit: TBitBtn
      Left = 244
      Visible = False
    end
    inherited btn_Print: TBitBtn
      Left = -4
    end
    inherited btn_Save: TBitBtn
      Left = 461
      Visible = False
    end
    inherited btn_Close: TBitBtn
      Left = 73
    end
  end
  inherited Panel3: TPanel
    Height = 73
    object Label1: TLabel
      Left = 32
      Top = 24
      Width = 97
      Height = 13
      AutoSize = False
      Caption = #21463#35746#21333#21495
    end
    object ww1: TwwDBLookupComboDlg
      Left = 104
      Top = 16
      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 = (
        'oS_NO'#9'20'#9#35746#21333#32534#21495#9#9
        'OS_DD'#9'18'#9#35746#21333#26085#26399#9#9
        'CUS_NO'#9'12'#9#23458#25143#32534#21495#9#9
        'SAL_NO'#9'12'#9#19994#21153#21592#32534#21495#9#9)
      LookupTable = qrySO
      LookupField = 'oS_NO'
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object ww2: TwwDBLookupComboDlg
      Left = 248
      Top = 16
      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 = (
        'oS_NO'#9'20'#9#35746#21333#32534#21495#9#9
        'OS_DD'#9'18'#9#35746#21333#26085#26399#9#9
        'CUS_NO'#9'12'#9#23458#25143#32534#21495#9#9
        'SAL_NO'#9'12'#9#19994#21153#21592#32534#21495#9#9)
      LookupTable = qrySO
      LookupField = 'oS_NO'
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object Button1: TButton
      Left = 384
      Top = 16
      Width = 57
      Height = 25
      Caption = #36895#26597
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object Panel4: TPanel [3]
    Left = 0
    Top = 73
    Width = 688
    Height = 307
    Align = alClient
    TabOrder = 3
    object wwDBGrid1: TwwDBGrid
      Left = 1
      Top = 1
      Width = 686
      Height = 305
      Selected.Strings = (
        'OS_NO'#9'13'#9#21463#35746#21333#21495
        'qty'#9'9'#9#35746#21333#37329#39069
        'BIL_NO'#9'14'#9#38144#36135#21333#21495
        'qty1'#9'10'#9#38144#36135#37329#39069
        'RP_NO'#9'14'#9#25910#27454#21333#21495
        'AMTN_BB'#9'9'#9#25910#27454#37329#39069
        'rate'#9'9'#9#27604#20363'%'#9'F')
      IniAttributes.Delimiter = ';;'
      ExportOptions.ExportType = wwgetSYLK
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = dsMaster
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
    end
  end
  inherited dsMaster: TDataSource
    DataSet = qrySA
    Left = 624
    Top = 56
  end
  inherited fSave: TSaveDialog
    Left = 512
    Top = 32
  end
  object qrySA: TADOQuery
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.*,C.*,rate=A.AMTN_BB/(case  C.qty when  0 then 1 el' +
        'se C.qty end)*100.0 from V_AP A'
      'left join V_PSS B on A.BIL_NO=B.PS_NO'
      'left join MF_PSS D on B.PS_NO=D.PS_NO'
      'left join V_POS C on D.OS_NO=C.OS_NO'
      'where 1=2')
    Left = 576
    Top = 32
    object qrySAOS_NO: TStringField
      DisplayLabel = #21463#35746#21333#21495
      DisplayWidth = 13
      FieldName = 'OS_NO'
      Size = 25
    end
    object qrySAqty: TBCDField
      DisplayLabel = #35746#21333#37329#39069
      DisplayWidth = 9
      FieldName = 'qty'
      Precision = 32
      Size = 6
    end
    object qrySABIL_NO: TStringField
      DisplayLabel = #38144#36135#21333#21495
      DisplayWidth = 14
      FieldName = 'BIL_NO'
      Size = 25
    end
    object qrySAqty1: TBCDField
      DisplayLabel = #38144#36135#37329#39069
      DisplayWidth = 10
      FieldName = 'qty1'
      Precision = 32
      Size = 6
    end
    object qrySARP_NO: TStringField
      DisplayLabel = #25910#27454#21333#21495
      DisplayWidth = 14
      FieldName = 'RP_NO'
    end
    object qrySAAMTN_BB: TBCDField
      DisplayLabel = #25910#27454#37329#39069
      DisplayWidth = 9
      FieldName = 'AMTN_BB'
      Precision = 28
      Size = 8
    end
    object qrySArate: TBCDField
      DisplayLabel = #27604#20363'%'
      DisplayWidth = 9
      FieldName = 'rate'
      ReadOnly = True
      Precision = 32
      Size = 8
    end
  end
  object qrySO: TADOQuery
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      'select oS_NO,OS_DD,CUS_NO,SAL_NO from MF_POS where OS_ID='#39'SO'#39' ')
    Left = 432
    Top = 128
    object qrySOoS_NO: TStringField
      DisplayLabel = #35746#21333#32534#21495
      DisplayWidth = 20
      FieldName = 'oS_NO'
    end
    object qrySOOS_DD: TDateTimeField
      DisplayLabel = #35746#21333#26085#26399
      DisplayWidth = 18
      FieldName = 'OS_DD'
    end
    object qrySOCUS_NO: TStringField
      DisplayLabel = #23458#25143#32534#21495
      DisplayWidth = 12
      FieldName = 'CUS_NO'
      Size = 12
    end
    object qrySOSAL_NO: TStringField
      DisplayLabel = #19994#21153#21592#32534#21495
      DisplayWidth = 12
      FieldName = 'SAL_NO'
      Size = 12
    end
  end
end