ufzpayment.dfm

在打沙场用的最简单

        EditButtons = <>
        FieldName = 'cno'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20379#25033#21830#20195#30908
        Visible = False
      end>
  end
  object paneledit: TPanel [2]
    Left = 0
    Top = 40
    Width = 804
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #32048#26126#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label6: TLabel
      Left = 8
      Top = 9
      Width = 39
      Height = 15
      AutoSize = False
      Caption = #20379#36008#21830
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label8: TLabel
      Left = 186
      Top = 11
      Width = 21
      Height = 15
      AutoSize = False
      Caption = #24180
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 319
      Top = 10
      Width = 12
      Height = 12
      Caption = #26376
    end
    object CheckBox1: TCheckBox
      Left = 437
      Top = 10
      Width = 60
      Height = 17
      Caption = #24050#32080#21542
      TabOrder = 0
      Visible = False
    end
    object billno: TEdit
      Left = 48
      Top = 8
      Width = 121
      Height = 20
      ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.4'
      TabOrder = 1
      Visible = False
    end
    object PBSpinEdit1: TPBSpinEdit
      Left = 208
      Top = 8
      Width = 73
      Height = 21
      Cursor = crDefault
      MaxValue = 0
      MinValue = 0
      TabOrder = 2
      Value = 0
      Visible = False
      Alignment = taLeftJustify
    end
    object PBSpinEdit2: TPBSpinEdit
      Left = 336
      Top = 8
      Width = 57
      Height = 21
      Cursor = crDefault
      MaxValue = 0
      MinValue = 0
      TabOrder = 3
      Value = 0
      Visible = False
      Alignment = taLeftJustify
    end
  end
  object paneltitle: TPanel [3]
    Left = 0
    Top = 0
    Width = 804
    Height = 40
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #32048#26126#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object formTitle: TLabel
      Left = 2
      Top = 11
      Width = 113
      Height = 18
      Alignment = taCenter
      AutoSize = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #32048#26126#39636
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object TeThemeButton1: TTeThemeButton
      Left = 600
      Top = 8
      Width = 177
      Height = 25
      Performance = kspDoubleBuffer
      Transparent = False
      Visible = False
      OnClick = TeThemeButton1Click
      BlackAndWhiteGlyph = False
      Caption = #23565#24115#21934#35336#31639
      State = kbsNormal
      TabOrder = 0
      WordWrap = False
    end
    object BitBtn1: TBitBtn
      Left = 384
      Top = 8
      Width = 113
      Height = 25
      Caption = #26597#35426
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object BitBtn3: TBitBtn
      Left = 507
      Top = 8
      Width = 84
      Height = 25
      Caption = #21015#21360
      TabOrder = 2
      Visible = False
      OnClick = BitBtn3Click
    end
  end
  inherited PopupMenu: TPopupMenu
    inherited N1: TMenuItem
      Enabled = False
    end
    inherited N2: TMenuItem
      Caption = #20445#23384
      Enabled = False
    end
    inherited N5: TMenuItem
      Enabled = False
    end
    inherited N7: TMenuItem
      Enabled = False
    end
  end
  inherited CDSbaseinfo: TClientDataSet
    Left = 88
    Top = 128
    object CDSbaseinfocompany: TStringField
      FieldName = 'company'
    end
    object CDSbaseinfopno3: TStringField
      FieldName = 'pno3'
    end
    object CDSbaseinfogx: TStringField
      FieldName = 'gx'
      Size = 15
    end
    object CDSbaseinfoprice1: TBCDField
      FieldName = 'price1'
      Size = 2
    end
    object CDSbaseinfofzqty: TBCDField
      FieldName = 'fzqty'
      Size = 2
    end
    object CDSbaseinfofzweight: TBCDField
      FieldName = 'fzweight'
      Size = 2
    end
    object CDSbaseinfospqty: TBCDField
      FieldName = 'spqty'
      Size = 2
    end
    object CDSbaseinfospweight: TBCDField
      FieldName = 'spweight'
      Size = 2
    end
    object CDSbaseinfojgf: TBCDField
      FieldName = 'jgf'
      Size = 2
    end
    object CDSbaseinfohmweight: TBCDField
      FieldName = 'hmweight'
      Size = 2
    end
    object CDSbaseinfosh: TBCDField
      FieldName = 'sh'
      Size = 2
    end
    object CDSbaseinfoprice2: TBCDField
      FieldName = 'price2'
      Size = 2
    end
    object CDSbaseinfokmnk: TBCDField
      FieldName = 'kmnk'
      Size = 2
    end
    object CDSbaseinfochkk: TBCDField
      FieldName = 'chkk'
      Size = 2
    end
    object CDSbaseinfoyfk: TBCDField
      FieldName = 'yfk'
      Size = 2
    end
    object CDSbaseinfoyears: TStringField
      FieldName = 'years'
      Size = 4
    end
    object CDSbaseinfomonths: TStringField
      FieldName = 'months'
      Size = 2
    end
    object CDSbaseinfoyj: TBooleanField
      FieldName = 'yj'
    end
    object CDSbaseinfofid: TIntegerField
      FieldName = 'fid'
      Visible = False
    end
    object CDSbaseinfomnsh: TBCDField
      FieldName = 'mnsh'
      Visible = False
      Size = 2
    end
    object CDSbaseinfocno: TStringField
      FieldName = 'cno'
      Visible = False
      Size = 8
    end
  end
  inherited DSbaseinfo: TDataSource
    DataSet = ADOQuery1
    Top = 120
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  inherited frDBDSbaseinfo: TfrDBDataSet
    DataSet = nil
    DataSource = DSbaseinfo
  end
  object con1: TADOConnection
    LoginPrompt = False
    Left = 280
    Top = 176
  end
  object ADOQuery1: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 320
    Top = 176
  end
  object ADOQuery2: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 360
    Top = 176
  end
  object Query1: TQuery
    BeforePost = Query1BeforePost
    DatabaseName = 'leaders'
    RequestLive = True
    Left = 520
    Top = 176
  end
  object CDSselectsub: TClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    PacketRecords = 1
    Params = <>
    Left = 328
    Top = 208
  end
end