frmfylistunit.~dfm

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

inherited frmFYList: TfrmFYList
  Left = 144
  Top = 102
  Caption = #36153#29992#34920
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited btn_Insert: TBitBtn
      OnClick = btn_InsertClick
    end
    inherited btn_Search: TBitBtn
      OnClick = btn_SearchClick
    end
    inherited btn_Edit: TBitBtn
      OnClick = btn_EditClick
    end
    inherited btn_Save: TBitBtn
      OnClick = btn_SaveClick
    end
  end
  inherited Panel3: TPanel
    Height = 121
    object Label1: TLabel
      Left = 232
      Top = 32
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36153#29992#21333#21495
    end
    object Label2: TLabel
      Left = 432
      Top = 32
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #36153#29992#31867#21035
    end
    object Label3: TLabel
      Left = 16
      Top = 24
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36153#29992#26085#26399
    end
    object DBText1: TDBText
      Left = 640
      Top = 32
      Width = 161
      Height = 17
      DataField = 'FY_NAME'
      DataSource = dsMaster
    end
    object Label4: TLabel
      Left = 32
      Top = 64
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #35746#21333#21495
    end
    object Label5: TLabel
      Left = 224
      Top = 64
      Width = 69
      Height = 13
      AutoSize = False
      Caption = #19994#21153#21592#32534#21495
    end
    object Label6: TLabel
      Left = 464
      Top = 96
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #37329#39069
    end
    object Label7: TLabel
      Left = 432
      Top = 64
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #19994#21153#21592#21517#31216
    end
    object Label8: TLabel
      Left = 16
      Top = 96
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #23458#25143#32534#21495
    end
    object Label9: TLabel
      Left = 232
      Top = 96
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #23458#25143#21517#31216
    end
    object DBEdit1: TDBEdit
      Left = 304
      Top = 24
      Width = 121
      Height = 21
      DataField = 'FYDH'
      DataSource = dsMaster
      TabOrder = 0
      OnEnter = DBEdit1Enter
    end
    object wwDBDateTimePicker1: TwwDBDateTimePicker
      Left = 80
      Top = 24
      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 = []
      DataField = 'FYDATE'
      DataSource = dsMaster
      Date = 39682.000000000000000000
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
    object wwDBLookupComboDlg1: TwwDBLookupComboDlg
      Left = 504
      Top = 32
      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 = (
        'FY_NO'#9'30'#9#36153#29992#31867#21035#9'F'
        'FY_NAME'#9'50'#9#36153#29992#21517#31216#9'F')
      DataField = 'FY'
      DataSource = dsMaster
      LookupTable = qryKND
      LookupField = 'FY_NO'
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object wwDBLookupComboDlg2: TwwDBLookupComboDlg
      Left = 80
      Top = 58
      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
      OnInitDialog = wwDBLookupComboDlg2InitDialog
      Selected.Strings = (
        'oS_NO'#9'20'#9#35746#21333#32534#21495#9'F'
        'CUS_NO'#9'12'#9#23458#25143#32534#21495#9'F'
        'OS_DD'#9'18'#9#35746#21333#26085#26399#9'F'
        'SAL_NO'#9'12'#9#19994#21153#21592#32534#21495#9'F')
      DataField = 'OS_NO'
      DataSource = dsMaster
      LookupTable = qrySO
      LookupField = 'oS_NO'
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnChange = wwDBLookupComboDlg2Change
    end
    object DBEdit2: TDBEdit
      Left = 304
      Top = 56
      Width = 121
      Height = 21
      DataField = 'SAL_NO'
      DataSource = dsMaster
      Enabled = False
      TabOrder = 4
    end
    object DBEdit3: TDBEdit
      Left = 504
      Top = 91
      Width = 121
      Height = 21
      DataField = 'QTY'
      DataSource = dsMaster
      TabOrder = 5
    end
    object DBEdit4: TDBEdit
      Left = 504
      Top = 56
      Width = 121
      Height = 21
      DataField = 'SAL_NAME'
      DataSource = dsMaster
      TabOrder = 6
    end
    object DBEdit5: TDBEdit
      Left = 80
      Top = 88
      Width = 121
      Height = 21
      DataField = 'CUS_NO'
      DataSource = dsMaster
      TabOrder = 7
    end
    object DBEdit6: TDBEdit
      Left = 304
      Top = 88
      Width = 121
      Height = 21
      DataField = 'CUS_NAME'
      DataSource = dsMaster
      Enabled = False
      TabOrder = 8
    end
  end
  inherited Panel2: TPanel
    Visible = False
  end
  object wwDBGrid1: TwwDBGrid [3]
    Left = 0
    Top = 121
    Width = 688
    Height = 259
    Selected.Strings = (
      'FYDH'#9'14'#9#36153#29992#32534#21495
      'OS_NO'#9'13'#9#35746#21333#21495
      'FY'#9'10'#9#36153#29992#31867#21035
      'FYDATE'#9'10'#9#26085#26399
      'CUS_NO'#9'10'#9#23458#25143#32534#21495
      'CUS_NAME'#9'23'#9#23458#25143#21517#31216
      'SAL_NO'#9'10'#9#19994#21153#21592#32534#21495
      'SAL_NAME'#9'12'#9#19994#21153#20154#21592#21517#31216
      'FY_NAME'#9'16'#9#36153#29992#21517#31216
      'QTY'#9'14'#9#37329#39069#9'F')
    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 = qryFYList
    Left = 584
    Top = 200
  end
  object qryFYList: TADOQuery [5]
    AutoCalcFields = False
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    BeforePost = qryFYListBeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from FYList where 1=2')
    Left = 544
    Top = 176
    object qryFYListFYDH: TStringField
      DisplayLabel = #36153#29992#32534#21495
      DisplayWidth = 14
      FieldName = 'FYDH'
      Size = 30
    end
    object qryFYListOS_NO: TStringField
      DisplayLabel = #35746#21333#21495
      DisplayWidth = 13
      FieldName = 'OS_NO'
      Size = 30
    end
    object qryFYListFY: TStringField
      DisplayLabel = #36153#29992#31867#21035
      DisplayWidth = 10
      FieldName = 'FY'
      Size = 30
    end
    object qryFYListFYDATE: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 10
      FieldName = 'FYDATE'
    end
    object qryFYListCUS_NO: TStringField
      DisplayLabel = #23458#25143#32534#21495
      DisplayWidth = 10
      FieldName = 'CUS_NO'
      Size = 50
    end
    object qryFYListCUS_NAME: TStringField
      DisplayLabel = #23458#25143#21517#31216
      DisplayWidth = 23
      FieldKind = fkLookup
      FieldName = 'CUS_NAME'
      LookupDataSet = qryCUS
      LookupKeyFields = 'cus_no'
      LookupResultField = 'name'
      KeyFields = 'CUS_NO'
      Lookup = True
    end
    object qryFYListSAL_NO: TStringField
      DisplayLabel = #19994#21153#21592#32534#21495
      DisplayWidth = 10
      FieldName = 'SAL_NO'
      Size = 30
    end
    object qryFYListSAL_NAME: TStringField
      DisplayLabel = #19994#21153#20154#21592#21517#31216
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'SAL_NAME'
      LookupDataSet = qrySAL_NAME
      LookupKeyFields = 'SAL_NO'
      LookupResultField = 'NAME'
      KeyFields = 'SAL_NO'
      Size = 30
      Lookup = True
    end
    object qryFYListFY_NAME: TStringField
      DisplayLabel = #36153#29992#21517#31216
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'FY_NAME'
      LookupDataSet = qryKND
      LookupKeyFields = 'FY_NO'
      LookupResultField = 'FY_NAME'
      KeyFields = 'FY'
      Size = 30
      Lookup = True
    end
    object qryFYListQTY: TBCDField
      DisplayLabel = #37329#39069
      DisplayWidth = 14
      FieldName = 'QTY'
      Precision = 28
      Size = 8
    end
  end
  object qrySO: TADOQuery [6]
    Connection = dm.ADOConnection2
    Parameters = <>
    SQL.Strings = (
      ''
      'select oS_NO,OS_DD,CUS_NO,SAL_NO from MF_POS where OS_ID='#39'SO'#39' ')
    Left = 624
    Top = 256
    object qrySOoS_NO: TStringField
      DisplayLabel = #35746#21333#32534#21495
      DisplayWidth = 20
      FieldName = 'oS_NO'
    end
    object qrySOCUS_NO: TStringField
      DisplayLabel = #23458#25143#32534#21495
      DisplayWidth = 12
      FieldName = 'CUS_NO'
      Size = 12
    end
    object qrySOOS_DD: TDateTimeField
      DisplayLabel = #35746#21333#26085#26399
      DisplayWidth = 18
      FieldName = 'OS_DD'
    end
    object qrySOSAL_NO: TStringField
      DisplayLabel = #19994#21153#21592#32534#21495
      DisplayWidth = 12
      FieldName = 'SAL_NO'
      Size = 12
    end
  end
  object wwLookupDialog1: TwwLookupDialog [7]
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    Caption = 'Lookup'
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 616
    Top = 168
  end
  object qryCUS: TADOQuery [8]
    Active = True
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select cus_no,name from cust')
    Left = 520
    Top = 256
    object qryCUScus_no: TStringField
      FieldName = 'cus_no'
      Size = 12
    end
    object qryCUSname: TStringField
      FieldName = 'name'
      Size = 50
    end
  end
  object qrySAL_NAME: TADOQuery [9]
    Active = True
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select SAL_NO,NAME from salm')
    Left = 600
    Top = 328
    object qrySAL_NAMESAL_NO: TStringField
      FieldName = 'SAL_NO'
      Size = 12
    end
    object qrySAL_NAMENAME: TStringField
      FieldName = 'NAME'
      Size = 40
    end
  end
  object qryKND: TADOQuery [10]
    Active = True
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from FY')
    Left = 520
    Top = 344
    object qryKNDFY_NO: TStringField
      FieldName = 'FY_NO'
      Size = 30
    end
    object qryKNDFY_NAME: TStringField
      FieldName = 'FY_NAME'
      Size = 50
    end
  end
  inherited fSave: TSaveDialog
    Left = 712
    Top = 184
  end
end