frmup_a1unit.dfm

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

inherited frmUP_A1: TfrmUP_A1
  Left = 138
  Top = 187
  Width = 849
  Height = 492
  Caption = #20135#21697#24213#20215#24180#24230#20215#26684#34920
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel [0]
    Left = 40
    Top = 12
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #24180#20221
  end
  inherited Panel1: TPanel
    Top = 433
    Width = 841
    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
    inherited btn_Close: TBitBtn
      Left = 440
    end
    inherited Piror_Panel: TPanel
      Left = 737
    end
  end
  inherited Panel3: TPanel
    Width = 841
    Height = 97
    object Label1: TLabel
      Left = 40
      Top = 24
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #24180#20221
    end
    object Label3: TLabel
      Left = 200
      Top = 24
      Width = 45
      Height = 13
      AutoSize = False
      Caption = #20135#21697#20195#21495
    end
    object Label4: TLabel
      Left = 400
      Top = 24
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #20135#21697#21517#31216
      FocusControl = DBEdit3
    end
    object Label5: TLabel
      Left = 48
      Top = 56
      Width = 24
      Height = 13
      AutoSize = False
      Caption = #21333#20215
      FocusControl = DBEdit4
    end
    object Label6: TLabel
      Left = 200
      Top = 56
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #22791#27880
      FocusControl = DBEdit5
    end
    object DBEdit1: TDBEdit
      Left = 80
      Top = 20
      Width = 73
      Height = 21
      DataField = 'YY'
      DataSource = dsMaster
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 464
      Top = 20
      Width = 129
      Height = 21
      DataField = 'PRD_NAME'
      DataSource = dsMaster
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 80
      Top = 52
      Width = 73
      Height = 21
      DataField = 'QTY'
      DataSource = dsMaster
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 256
      Top = 52
      Width = 337
      Height = 21
      DataField = 'REM'
      DataSource = dsMaster
      TabOrder = 3
    end
    object wwDBLookupComboDlg1: TwwDBLookupComboDlg
      Left = 256
      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 = (
        'prd_no'#9'30'#9#20135#21697#32534#21495#9'F'
        'name'#9'50'#9#20135#21697#21517#31216#9'F')
      DataField = 'PRD_NO'
      DataSource = dsMaster
      LookupTable = qryPRDT
      LookupField = 'prd_no'
      TabOrder = 4
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnChange = wwDBLookupComboDlg1Change
    end
  end
  inherited Panel2: TPanel
    Top = 97
    Width = 841
    Height = 72
    Align = alTop
    object Label2: TLabel
      Left = 40
      Top = 12
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #24180#20221
    end
    object Label7: TLabel
      Left = 16
      Top = 44
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #20135#21697#20195#30721
    end
    object Edit1: TEdit
      Left = 80
      Top = 8
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 224
      Top = 8
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object ww1: TwwDBLookupComboDlg
      Left = 80
      Top = 40
      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 = 2
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object ww2: TwwDBLookupComboDlg
      Left = 224
      Top = 40
      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 = 3
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object Button1: TButton
      Left = 360
      Top = 40
      Width = 75
      Height = 25
      Caption = #36895#26597
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object wwDBGrid1: TwwDBGrid [4]
    Left = 0
    Top = 169
    Width = 841
    Height = 264
    Selected.Strings = (
      'YY'#9'4'#9#24180#20221
      'PRD_NO'#9'17'#9#20135#21697#20195#21495
      'PRD_NAME'#9'24'#9#20135#21697#21517#31216
      'QTY'#9'9'#9#21333#20215
      'REM'#9'37'#9#22791#27880)
    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_A1
    Left = 664
    Top = 64
  end
  inherited fSave: TSaveDialog
    Left = 608
    Top = 56
  end
  object qryUP_A1: TADOQuery
    Connection = dm.ADOConnection2
    CursorType = ctStatic
    BeforePost = qryUP_A1BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from UP_A1 where 1=2')
    Left = 536
    Top = 136
    object qryUP_A1YY: TStringField
      DisplayLabel = #24180#20221
      DisplayWidth = 4
      FieldName = 'YY'
      Size = 4
    end
    object qryUP_A1PRD_NO: TStringField
      DisplayLabel = #20135#21697#20195#21495
      DisplayWidth = 17
      FieldName = 'PRD_NO'
      Size = 30
    end
    object qryUP_A1PRD_NAME: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 24
      FieldName = 'PRD_NAME'
      Size = 50
    end
    object qryUP_A1QTY: TBCDField
      DisplayLabel = #21333#20215
      DisplayWidth = 9
      FieldName = 'QTY'
      Precision = 28
      Size = 8
    end
    object qryUP_A1REM: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 37
      FieldName = 'REM'
      Size = 100
    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 = 568
    Top = 200
    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 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 = 640
    Top = 184
    object StringField1: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 30
      FieldName = 'prd_no'
      Size = 30
    end
    object StringField2: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 50
      FieldName = 'name'
      Size = 100
    end
  end
end