upurpayment.dfm

三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写

inherited frmpurpayment: Tfrmpurpayment
  Left = 192
  Top = 206
  Caption = #37319#36141#20184#27454#21333
  PixelsPerInch = 96
  TextHeight = 12
  inherited paneltitle: TPanel
    BevelInner = bvRaised
    inherited formTitle: TLabel
      Caption = #37319#36141#20184#27454#21333
    end
    inherited refno: TwwDBEdit
      DataField = 'frefno'
      DataSource = dsMaster
    end
  end
  inherited paneledit: TPanel
    inherited Label1: TLabel
      Caption = #32463#25163#20154
    end
    inherited Label2: TLabel
      Caption = #20184#27454#26085#26399
    end
    inherited Label4: TLabel
      Top = 10
    end
    object Label5: TLabel [3]
      Left = 195
      Top = 58
      Width = 35
      Height = 15
      AutoSize = False
      Caption = #31080#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel [4]
      Left = 16
      Top = 34
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #20184#27454#31867#22411
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel [5]
      Left = 195
      Top = 34
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #25910#27454#26041#24335
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel [6]
      Left = 16
      Top = 58
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #23384#27454#24080#25143
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel [7]
      Left = 16
      Top = 82
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #22791#27880
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel [8]
      Left = 195
      Top = 10
      Width = 54
      Height = 15
      AutoSize = False
      Caption = #20379#24212#21830
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited wwDBDateTimePicker1: TwwDBDateTimePicker
      DataField = 'fcreadate'
      DataSource = dsMaster
      TabOrder = 10
    end
    inherited wwDBEdit1: TwwDBEdit
      DataField = 'fcreauser'
      DataSource = dsMaster
      TabOrder = 9
    end
    inherited billno: TwwDBEdit
      DataField = 'fno'
      DataSource = dsMaster
      TabOrder = 0
    end
    object wwDBEdit2: TwwDBEdit
      Left = 244
      Top = 56
      Width = 101
      Height = 20
      CharCase = ecUpperCase
      DataField = 'fbillno'
      DataSource = dsMaster
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 68
      Top = 32
      Width = 117
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'20'#9#36873#39033#9#9)
      DataField = 'fpaymenttype'
      DataSource = dsMaster
      LookupTable = CDSpaytype
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 244
      Top = 32
      Width = 103
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'20'#9#36873#39033#9#9)
      DataField = 'freceipttype'
      DataSource = dsMaster
      LookupTable = CDSreceipttype
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 68
      Top = 56
      Width = 117
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'20'#9#36873#39033#9#9)
      DataField = 'fdeposituser'
      DataSource = dsMaster
      LookupTable = CDSdeposit
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 4
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object Button1: TButton
      Left = 418
      Top = 80
      Width = 80
      Height = 21
      Caption = #26412#27425#20184#27454#37329#39069' '
      TabOrder = 7
      OnClick = Button1Click
    end
    object wwDBEdit3: TwwDBEdit
      Left = 500
      Top = 80
      Width = 87
      Height = 20
      CharCase = ecUpperCase
      Color = 15530210
      DataField = 'fcountpay'
      DataSource = dsMaster
      ReadOnly = True
      TabOrder = 8
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit4: TwwDBEdit
      Left = 68
      Top = 80
      Width = 341
      Height = 20
      CharCase = ecUpperCase
      DataField = 'fnote'
      DataSource = dsMaster
      TabOrder = 6
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 244
      Top = 8
      Width = 197
      Height = 20
      CharCase = ecUpperCase
      DataField = 'fprovider'
      DataSource = dsMaster
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited Grid: TDBGridEh
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fpurno'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36827#36135#21333#21495
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
      end
      item
        EditButtons = <>
        FieldName = 'fincludetax'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21547#31246#37329#39069
      end
      item
        EditButtons = <>
        FieldName = 'ftax'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31246#29575
      end
      item
        EditButtons = <>
        FieldName = 'falreadypay'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24050#20184#27454#39069
      end
      item
        EditButtons = <>
        FieldName = 'fpay'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26412#27425#20184#27454
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20184#27454#26126#32454#22791#27880
      end
      item
        EditButtons = <>
        FieldName = 'fnopayment'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26410#20184#37329#39069
      end>
  end
  inherited CDSmaster: TClientDataSet
    object CDSmasterfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSmasterfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSmasterfrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSmasterfno: TWideStringField
      FieldName = 'fno'
      Size = 18
    end
    object CDSmasterfprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSmasterfpaymenttype: TWideStringField
      FieldName = 'fpaymenttype'
      Size = 30
    end
    object CDSmasterfreceipttype: TWideStringField
      FieldName = 'freceipttype'
      Size = 30
    end
    object CDSmasterfdeposituser: TWideStringField
      FieldName = 'fdeposituser'
      Size = 30
    end
    object CDSmasterfbillno: TWideStringField
      FieldName = 'fbillno'
    end
    object CDSmasterfnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
    object CDSmasterfcountpay: TBCDField
      FieldName = 'fcountpay'
      Precision = 9
      Size = 2
    end
    object CDSmasterfcreauser: TWideStringField
      FieldName = 'fcreauser'
      Size = 18
    end
    object CDSmasterfcreadate: TDateTimeField
      FieldName = 'fcreadate'
    end
  end
  inherited CDSsub: TClientDataSet
    OnCalcFields = CDSsubCalcFields
    object CDSsubfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSsubfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSsubfpurno: TWideStringField
      FieldName = 'fpurno'
      Size = 18
    end
    object CDSsubfitemid: TBCDField
      FieldName = 'fitemid'
      Precision = 9
      Size = 2
    end
    object CDSsubfincludetax: TBCDField
      FieldName = 'fincludetax'
      Precision = 9
      Size = 2
    end
    object CDSsubftax: TBCDField
      FieldName = 'ftax'
      Precision = 9
      Size = 2
    end
    object CDSsubfalreadypay: TBCDField
      FieldName = 'falreadypay'
      Precision = 9
      Size = 2
    end
    object CDSsubfpay: TBCDField
      FieldName = 'fpay'
      Precision = 9
      Size = 2
    end
    object CDSsubfnote: TWideStringField
      FieldName = 'fnote'
      Size = 30
    end
    object CDSsubfnopayment: TFloatField
      FieldKind = fkCalculated
      FieldName = 'fnopayment'
      Calculated = True
    end
  end
  inherited frDSMaster: TfrDBDataSet
    Top = 152
  end
  inherited frDSsub: TfrDBDataSet
    Top = 152
  end
  inherited frMD: TfrReport
    Top = 152
    ReportForm = {19000000}
  end
  inherited popupprint: TPopupMenu
    Top = 152
  end
  inherited ActionListprint: TActionList
    Top = 152
  end
  object CDSpaytype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 96
    Top = 72
    object CDSpaytypeField: TStringField
      DisplayWidth = 20
      FieldName = #36873#39033
    end
  end
  object CDSreceipttype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 264
    Top = 64
    object CDSreceipttypeStringField: TStringField
      DisplayWidth = 20
      FieldName = #36873#39033
    end
  end
  object CDSdeposit: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 128
    Top = 104
    object CDSdepositStringField: TStringField
      DisplayWidth = 20
      FieldName = #36873#39033
    end
  end
end