📄 fzpayment.dfm

📁 在打沙场用的最简单
💻 DFM
字号:
inherited fzpayment: Tfzpayment
  Left = 47
  Top = 111
  Width = 625
  Height = 451
  Caption = #29986#21697#36039#26009
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Top = 390
    Width = 617
    Bands = <
      item
        Control = Panel1
        ImageIndex = -1
        MinHeight = 30
        Width = 613
      end>
    inherited Panel1: TPanel
      Width = 600
      inherited spbtnEdit: TSpeedButton
        Font.Name = #32048#26126#39636
        ParentFont = False
      end
      inherited paprint: TPanel
        Left = 460
      end
    end
  end
  inherited Grid: TDBGridEh
    Width = 617
    Height = 390
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#34399
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#20195#30908
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#21517#31281
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'zs'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25903#25976
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'color'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38991#33394
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'colorno'
        Footers = <>
        Title.Caption = #33394#34399
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'gno'
        Footers = <>
        Title.Caption = #32568#34399
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #39006#21029
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21934#20301
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20633#27880
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Width = 160
      end
      item
        EditButtons = <>
        FieldName = 'unitqty'
        Footers = <>
        Title.Caption = #25563#31639#21295#29575'1'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fiffew'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26159#21542#20248#24800
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fminstore'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26368#20302#24235#23384#37327
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'fsort'
        Footers = <>
        Title.Caption = #25490#24207
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Width = 15
      end
      item
        EditButtons = <>
        FieldName = 'funit1'
        Footers = <>
        Title.Caption = #25563#31639#21934#20301'1'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'funit1qty'
        Footers = <>
        Title.Caption = #25563#31639#21295#29575'1'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'funit2'
        Footers = <>
        Title.Caption = #25563#31639#21934#20301'2'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        FieldName = 'funit2qty'
        Footers = <>
        Title.Caption = #25563#31639#21295#29575'2'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        Footers = <>
        Title.Caption = #26781#30908
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        Footers = <>
        Title.Caption = #29986#21697#22294#29255
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
      end
      item
        EditButtons = <>
        Footers = <>
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Visible = False
      end
      item
        EditButtons = <>
        Footers = <>
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #32048#26126#39636
        Title.Font.Style = []
        Visible = False
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofsaleprice: TBCDField
      FieldName = 'fsaleprice'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofsalehortation: TBCDField
      FieldName = 'fsalehortation'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofiffew: TBooleanField
      FieldName = 'fiffew'
    end
    object CDSbaseinfofminstore: TBCDField
      FieldName = 'fminstore'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfoffunitqty: TFloatField
      FieldName = 'unitqty'
    end
    object CDSbaseinfofsort: TStringField
      FieldName = 'fsort'
      Size = 0
    end
    object CDSbaseinfofunit2qty: TFloatField
      FieldName = 'funit2qty'
    end
    object CDSbaseinfofunit1qty: TFloatField
      FieldName = 'funit1qty'
    end
    object CDSbaseinfocolorno: TStringField
      FieldName = 'colorno'
      Size = 15
    end
    object CDSbaseinfocolor: TStringField
      FieldName = 'color'
      Size = 15
    end
    object CDSbaseinfogno: TStringField
      FieldName = 'gno'
      Size = 15
    end
    object CDSbaseinfozs: TStringField
      FieldName = 'zs'
      Size = 15
    end
    object CDSbaseinfock: TStringField
      FieldName = 'ck'
      Size = 8
    end
    object CDSbaseinfoqty: TFloatField
      FieldName = 'qty'
    end
    object CDSbaseinfosafeqty: TFloatField
      FieldName = 'safeqty'
    end
    object CDSbaseinfocgyrqty: TFloatField
      FieldName = 'cgyrqty'
    end
    object CDSbaseinfocgwjqty: TFloatField
      FieldName = 'cgwjqty'
    end
    object CDSbaseinfofcode: TStringField
      FieldName = 'fcode'
      Size = 30
    end
    object CDSbaseinfofname: TStringField
      FieldName = 'fname'
      Size = 200
    end
    object CDSbaseinfofunit: TStringField
      FieldName = 'funit'
      Size = 10
    end
    object CDSbaseinfoftype: TStringField
      FieldName = 'ftype'
      Size = 10
    end
    object CDSbaseinfofnote: TStringField
      FieldName = 'fnote'
      Size = 50
    end
    object CDSbaseinfofunit1: TStringField
      FieldName = 'funit1'
      Size = 10
    end
    object CDSbaseinfofunit2: TStringField
      FieldName = 'funit2'
      Size = 10
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -