umoneystock.dfm

来自「适合行业为眼镜业」· DFM 代码 · 共 402 行

DFM
402 行
字号 
inherited frmmoneystock: Tfrmmoneystock
  Left = 36
  Top = 67
  Caption = #36130#21153#20837#24211
  ClientHeight = 436
  ClientWidth = 724
  Color = clSkyBlue
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton2: TSpeedButton [0]
    Left = 608
    Top = 3
    Width = 55
    Height = 22
    Caption = #23457#26680
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550B30555000
      0000557F57F557777777550B305508888880557F57F575555557550B30508888
      8805557F57F7FFFFFF75550B300000000055557F5777777777F5550300000000
      0055557F777F555F77F555007800000070555F77557F5F7757F5007888000077
      70557755557F775557F508888800777770557F555577555557F5088808077777
      70557FF5757F555557F5098988077777705577F7557F555557F5999888077777
      705577755575F55557550988888077770555775555575FFF7555088888888000
      55557F55555577775555088888880755555575F5555F77555555508888075555
      5555575FFF775555555555000755555555555577775555555555}
    NumGlyphs = 2
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton [1]
    Left = 552
    Top = 3
    Width = 55
    Height = 22
    Caption = #25171#21360
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F33333333333337088888888888
      88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
      8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
      8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
    OnClick = SpeedButton3Click
  end
  inherited spbexit: TSpeedButton
    Left = 664
    Top = 3
    Caption = #20445#23384
    Font.Color = clBlack
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      3333333777333777FF33339993707399933333773337F3777FF3399933000339
      9933377333777F3377F3399333707333993337733337333337FF993333333333
      399377F33333F333377F993333303333399377F33337FF333373993333707333
      333377F333777F333333993333101333333377F333777F3FFFFF993333000399
      999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
      99933773FF777F3F777F339993707399999333773F373F77777F333999999999
      3393333777333777337333333999993333333333377777333333}
    NumGlyphs = 2
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 7
    Width = 121
    Height = 16
    Caption = #36130' '#21153' '#20837' '#24211' '#21333
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    Transparent = True
  end
  object Panel3: TPanel
    Left = 4
    Top = 27
    Width = 717
    Height = 177
    Alignment = taLeftJustify
    Color = clCream
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    object Cmd_HT: TSpeedButton
      Left = 669
      Top = 7
      Width = 22
      Height = 20
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333FF333333333333
        3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
        E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
        E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
        E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
        000033333373FF77777733333330003333333333333777333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = Cmd_HTClick
    end
    object Edit1: TLabeledEdit
      Left = 95
      Top = 7
      Width = 82
      Height = 19
      Color = clCream
      Ctl3D = False
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #24405#21333#26085#26399#65306
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
    end
    object GroupBox1: TGroupBox
      Left = 10
      Top = 27
      Width = 698
      Height = 148
      TabOrder = 3
      object SpeedButton7: TSpeedButton
        Left = 430
        Top = 69
        Width = 22
        Height = 20
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333333333333FF333333333333
          3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
          E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
          E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
          E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
          000033333373FF77777733333330003333333333333777333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        Visible = False
      end
      object SpeedButton9: TSpeedButton
        Left = 202
        Top = 70
        Width = 22
        Height = 20
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333333333333FF333333333333
          3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
          E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
          E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
          E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
          000033333373FF77777733333330003333333333333777333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton9Click
      end
      object Edit4: TLabeledEdit
        Left = 79
        Top = 19
        Width = 350
        Height = 19
        Color = clCream
        Ctl3D = False
        EditLabel.Width = 65
        EditLabel.Height = 13
        EditLabel.Caption = #20379#36135#21333#20301#65306
        LabelPosition = lpLeft
        LabelSpacing = 3
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 0
      end
      object Edit_Stock_Name: TLabeledEdit
        Left = 79
        Top = 44
        Width = 350
        Height = 19
        Color = clCream
        Ctl3D = False
        EditLabel.Width = 65
        EditLabel.Height = 13
        EditLabel.Caption = #25910#36135#20179#24211#65306
        LabelPosition = lpLeft
        LabelSpacing = 3
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 1
      end
      object Edit6: TLabeledEdit
        Left = 79
        Top = 70
        Width = 121
        Height = 19
        Color = clCream
        Ctl3D = False
        EditLabel.Width = 66
        EditLabel.Height = 13
        EditLabel.Caption = #32463' '#25163' '#20154#65306
        LabelPosition = lpLeft
        LabelSpacing = 3
        ParentCtl3D = False
        TabOrder = 3
      end
      object Edit8: TLabeledEdit
        Left = 308
        Top = 70
        Width = 121
        Height = 19
        Color = clCream
        Ctl3D = False
        EditLabel.Width = 66
        EditLabel.Height = 13
        EditLabel.Caption = #21046' '#21333' '#20154#65306
        LabelPosition = lpLeft
        LabelSpacing = 3
        ParentCtl3D = False
        TabOrder = 4
      end
      object Edit9: TLabeledEdit
        Left = 79
        Top = 121
        Width = 593
        Height = 19
        Color = clCream
        Ctl3D = False
        EditLabel.Width = 65
        EditLabel.Height = 13
        EditLabel.Caption = #38468#21152#35828#26126#65306
        LabelPosition = lpLeft
        LabelSpacing = 3
        ParentCtl3D = False
        TabOrder = 5
      end
      object Edit10: TLabeledEdit
        Left = 79
        Top = 98
        Width = 593
        Height = 19
        Color = clCream
        Ctl3D = False
        EditLabel.Width = 39
        EditLabel.Height = 13
        EditLabel.Caption = #25688#35201#65306
        LabelPosition = lpLeft
        LabelSpacing = 3
        ParentCtl3D = False
        TabOrder = 6
      end
      object Edit5: TEdit
        Left = 308
        Top = 44
        Width = 121
        Height = 19
        Color = clCream
        Ctl3D = False
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 2
      end
    end
    object Edit2: TLabeledEdit
      Left = 259
      Top = 7
      Width = 214
      Height = 19
      Color = clCream
      Ctl3D = False
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #21333#25454#32534#21495#65306
      EditLabel.Font.Charset = GB2312_CHARSET
      EditLabel.Font.Color = clWindowText
      EditLabel.Font.Height = -13
      EditLabel.Font.Name = #23435#20307
      EditLabel.Font.Style = []
      EditLabel.ParentFont = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
    object Edit3: TLabeledEdit
      Left = 552
      Top = 7
      Width = 113
      Height = 19
      Color = clCream
      Ctl3D = False
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #20837#24211#21333#21495#65306
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentCtl3D = False
      TabOrder = 2
      OnChange = Edit3Change
    end
  end
  object sgorder: TStringGrid
    Left = 0
    Top = 205
    Width = 721
    Height = 202
    ColCount = 8
    Ctl3D = False
    FixedColor = clSkyBlue
    RowCount = 2
    ParentCtl3D = False
    TabOrder = 1
    OnDrawCell = sgorderDrawCell
    OnKeyPress = sgorderKeyPress
    OnMouseMove = sgorderMouseMove
    OnSelectCell = sgorderSelectCell
    ColWidths = (
      64
      128
      120
      77
      81
      87
      74
      78)
  end
  object Panel1: TPanel
    Left = 0
    Top = 406
    Width = 724
    Height = 30
    Align = alBottom
    Color = clCream
    TabOrder = 2
    object Label1: TLabel
      Left = 144
      Top = 10
      Width = 39
      Height = 13
      Caption = #21333#20215#65306
      Transparent = True
    end
    object LbPRICE: TLabel
      Left = 184
      Top = 9
      Width = 28
      Height = 13
      Caption = '0.00'
      Transparent = True
    end
    object Label3: TLabel
      Left = 464
      Top = 9
      Width = 39
      Height = 13
      Caption = #21512#35745#65306
      Transparent = True
    end
    object LbMONEY: TLabel
      Left = 504
      Top = 9
      Width = 28
      Height = 13
      Caption = '0.00'
      Transparent = True
    end
  end
end

umoneystock.dfm - 源码说明

本页面展示了「适合行业为眼镜业」中的 umoneystock.dfm 源码文件，采用 DFM 编程语言编写，共 402 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

⌨️ 快捷键说明

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