operator.~dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DFM 代码 · 共 210 行

~DFM
210
字号
object OperatorFrm: TOperatorFrm
  Left = 197
  Top = 108
  Width = 324
  Height = 346
  BorderIcons = [biSystemMenu]
  Caption = #25805#20316#21592#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 3
    Top = 192
    Width = 307
    Height = 121
    Color = clBtnFace
    DataSource = DBFrm.Opera_DataSource
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Opera_id'
        Title.Alignment = taCenter
        Title.Caption = #25805#20316#21592#21495
        Width = 100
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Opera_name'
        Title.Alignment = taCenter
        Title.Caption = #25805#20316#21592#22995#21517
        Width = 100
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Password'
        Title.Alignment = taCenter
        Title.Caption = #23494#30721
        Width = 100
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 5
    Top = 0
    Width = 305
    Height = 89
    Caption = #25805#20316#21592#20449#24687
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 21
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #25805#20316#21592#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 52
      Width = 41
      Height = 16
      AutoSize = False
      Caption = #22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object OperaidComboB: TComboBox
      Left = 78
      Top = 19
      Width = 107
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 0
      OnChange = OperaidComboBChange
    end
    object OperanameComboB: TComboBox
      Left = 78
      Top = 52
      Width = 107
      Height = 21
      Style = csSimple
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 1
    end
    object AddButton: TButton
      Left = 216
      Top = 32
      Width = 65
      Height = 25
      Caption = #28155#21152
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = AddButtonClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 5
    Top = 96
    Width = 305
    Height = 89
    Caption = #20462#25913#23494#30721
    Color = clBtnFace
    ParentColor = False
    TabOrder = 2
    object Label3: TLabel
      Left = 16
      Top = 22
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #35831#36755#20837#26032#23494#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 57
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #35831#30830#35748#26032#23494#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object PassEd: TEdit
      Left = 104
      Top = 21
      Width = 89
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
    end
    object Pass1Ed: TEdit
      Left = 104
      Top = 56
      Width = 89
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
    end
    object EditButton: TButton
      Left = 215
      Top = 40
      Width = 66
      Height = 25
      Caption = #20462#25913
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = EditButtonClick
    end
  end
end

⌨️ 快捷键说明

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