fzpayment01.dfm

在打沙场用的最简单

object fzpayment1: Tfzpayment1
  Left = 63
  Top = 265
  Width = 780
  Height = 485
  Caption = #30332#32340#23565#24115#21934
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 772
    Height = 49
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 7
      Top = 9
      Width = 48
      Height = 13
      Caption = #23458#25142#21517#31281
    end
    object Label2: TLabel
      Left = 188
      Top = 10
      Width = 12
      Height = 13
      Caption = #24180
    end
    object Label3: TLabel
      Left = 304
      Top = 16
      Width = 12
      Height = 13
      Caption = #26376
    end
    object Edit1: TEdit
      Left = 64
      Top = 6
      Width = 115
      Height = 21
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 520
      Top = 8
      Width = 75
      Height = 25
      Caption = #26597#25214
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 600
      Top = 8
      Width = 75
      Height = 25
      Caption = #21015#21360
      TabOrder = 2
      OnClick = BitBtn2Click
    end
    object CheckBox1: TCheckBox
      Left = 448
      Top = 8
      Width = 57
      Height = 17
      Caption = #24050#32080#21542
      TabOrder = 3
    end
    object PBSpinEdit1: TPBSpinEdit
      Left = 200
      Top = 8
      Width = 100
      Height = 22
      Cursor = crDefault
      MaxValue = 0
      MinValue = 0
      TabOrder = 4
      Value = 0
      Alignment = taLeftJustify
    end
    object PBSpinEdit2: TPBSpinEdit
      Left = 336
      Top = 8
      Width = 100
      Height = 22
      Cursor = crDefault
      MaxValue = 0
      MinValue = 0
      TabOrder = 5
      Value = 0
      Alignment = taLeftJustify
    end
    object BitBtn3: TBitBtn
      Left = 680
      Top = 8
      Width = 75
      Height = 25
      Caption = #23565#24115#21934#35336#31639
      TabOrder = 6
      OnClick = BitBtn3Click
    end
  end
  object dbgrideh1: TDBGridEh
    Left = 0
    Top = 49
    Width = 772
    Height = 409
    Align = alClient
    ColumnDefValues.Title.Color = 12181977
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clDefault
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnColExit = dbgrideh1ColExit
    OnKeyDown = dbgrideh1KeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'company'
        Footers = <>
        Title.Caption = #20379#25033#21830#21517#31281
      end
      item
        EditButtons = <>
        FieldName = 'pno3'
        Footers = <>
        Title.Caption = #25209#34399
      end
      item
        EditButtons = <>
        FieldName = 'gx'
        Footers = <>
        Title.Caption = #21152#24037#20839#23481
      end
      item
        EditButtons = <>
        FieldName = 'price1'
        Footers = <>
        Title.Caption = #21934#20729
      end
      item
        EditButtons = <>
        FieldName = 'fzqty'
        Footers = <>
        Title.Caption = #30332#32340#25976
      end
      item
        EditButtons = <>
        FieldName = 'fzweight'
        Footers = <>
        Title.Caption = #30332#32340#37325
      end
      item
        EditButtons = <>
        FieldName = 'spqty'
        Footers = <>
        Title.Caption = #25910#29255#25976
      end
      item
        EditButtons = <>
        FieldName = 'spweight'
        Footers = <>
        Title.Caption = #25910#29255#37325
      end
      item
        EditButtons = <>
        FieldName = 'jgf'
        Footers = <>
        Title.Caption = #21152#24037#36027
      end
      item
        EditButtons = <>
        FieldName = 'hmweight'
        Footers = <>
        Title.Caption = #22238#27611#37325
      end
      item
        EditButtons = <>
        FieldName = 'sh'
        Footers = <>
        Title.Caption = #25613#32791'%'
      end
      item
        EditButtons = <>
        FieldName = 'price2'
        Footers = <>
        Title.Caption = #27611#20729
      end
      item
        EditButtons = <>
        FieldName = 'kmnk'
        Footers = <>
        Title.Caption = #25187#27611#27454
      end
      item
        EditButtons = <>
        FieldName = 'chkk'
        Footers = <>
        Title.Caption = #27425#36008#27454
      end
      item
        EditButtons = <>
        FieldName = 'yfk'
        Footers = <>
        Title.Caption = #25033#20184#27454
      end
      item
        EditButtons = <>
        FieldName = 'years'
        Footers = <>
        Title.Caption = #24180
      end
      item
        EditButtons = <>
        FieldName = 'months'
        Footers = <>
        Title.Caption = #26376
      end
      item
        EditButtons = <>
        FieldName = 'yj'
        Footers = <>
        Title.Caption = #24050#32080#21542
      end>
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 24
    Top = 32
  end
  object Query1: TQuery
    DatabaseName = 'leaders'
    RequestLive = True
    SQL.Strings = (
      'select * from jsb')
    Left = 432
    Top = 160
    object Query1pno3: TStringField
      FieldName = 'pno3'
      Origin = 'LEADERS.jsb.pno3'
      FixedChar = True
    end
    object Query1price1: TFloatField
      FieldName = 'price1'
      Origin = 'LEADERS.jsb.price1'
    end
    object Query1fzqty: TFloatField
      FieldName = 'fzqty'
      Origin = 'LEADERS.jsb.fzqty'
    end
    object Query1fzweight: TFloatField
      FieldName = 'fzweight'
      Origin = 'LEADERS.jsb.fzweight'
    end
    object Query1spqty: TFloatField
      FieldName = 'spqty'
      Origin = 'LEADERS.jsb.spqty'
    end
    object Query1spweight: TFloatField
      FieldName = 'spweight'
      Origin = 'LEADERS.jsb.spweight'
    end
    object Query1jgf: TFloatField
      FieldName = 'jgf'
      Origin = 'LEADERS.jsb.jgf'
    end
    object Query1hmweight: TFloatField
      FieldName = 'hmweight'
      Origin = 'LEADERS.jsb.hmweight'
    end
    object Query1sh: TFloatField
      FieldName = 'sh'
      Origin = 'LEADERS.jsb.sh'
    end
    object Query1price2: TFloatField
      FieldName = 'price2'
      Origin = 'LEADERS.jsb.price2'
    end
    object Query1mnsh: TFloatField
      FieldName = 'mnsh'
      Origin = 'LEADERS.jsb.mnsh'
    end
    object Query1kmnk: TFloatField
      FieldName = 'kmnk'
      Origin = 'LEADERS.jsb.kmnk'
    end
    object Query1chkk: TFloatField
      FieldName = 'chkk'
      Origin = 'LEADERS.jsb.chkk'
    end
    object Query1yfk: TFloatField
      FieldName = 'yfk'
      Origin = 'LEADERS.jsb.yfk'
    end
    object Query1years: TStringField
      FieldName = 'years'
      Origin = 'LEADERS.jsb.years'
      FixedChar = True
      Size = 4
    end
    object Query1months: TStringField
      FieldName = 'months'
      Origin = 'LEADERS.jsb.months'
      FixedChar = True
      Size = 2
    end
    object Query1yj: TBooleanField
      FieldName = 'yj'
      Origin = 'LEADERS.jsb.yj'
    end
  end
  object con1: TADOConnection
    LoginPrompt = False
    Left = 272
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 336
    Top = 112
  end
  object ADOQuery2: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 392
    Top = 112
  end
  object Query2: TQuery
    DatabaseName = 'leaders'
    Left = 488
    Top = 152
  end
end