⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.dfm

📁 再发一个个人管理的代码
💻 DFM
字号:
object main_form: Tmain_form
  Left = 188
  Top = 104
  Width = 766
  Height = 583
  Caption = #20010' '#20154' '#21161' '#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 329
    Height = 556
    Align = alLeft
    Caption = #28155#21152#32852#31995#20154#20449#24687
    Ctl3D = True
    DockSite = True
    ParentCtl3D = False
    TabOrder = 0
    object Label12: TLabel
      Left = 11
      Top = 33
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 11
      Top = 62
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #24615#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 11
      Top = 93
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #26165#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 11
      Top = 123
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #29983#26085
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 11
      Top = 213
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #31227#21160#30005#35805
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 11
      Top = 182
      Width = 70
      Height = 20
      AutoSize = False
      Caption = 'QQ'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 11
      Top = 151
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #37038#25919#32534#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 11
      Top = 242
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #23478#24237#30005#35805
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 11
      Top = 272
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #23478#24237#20303#22336
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 11
      Top = 301
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #24037#20316#21333#20301
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 11
      Top = 334
      Width = 70
      Height = 20
      AutoSize = False
      Caption = #21333#20301#30005#35805
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit12: TEdit
      Left = 88
      Top = 32
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit14: TEdit
      Left = 88
      Top = 91
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Edit16: TEdit
      Left = 88
      Top = 211
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Edit17: TEdit
      Left = 88
      Top = 181
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object Edit18: TEdit
      Left = 88
      Top = 151
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Edit19: TEdit
      Left = 88
      Top = 241
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Edit20: TEdit
      Left = 88
      Top = 271
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object Edit21: TEdit
      Left = 88
      Top = 301
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object Edit22: TEdit
      Left = 88
      Top = 333
      Width = 230
      Height = 22
      BevelKind = bkTile
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object Button1: TButton
      Left = 34
      Top = 471
      Width = 111
      Height = 42
      Caption = #28155#21152
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = Button1Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 88
      Top = 121
      Width = 230
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      BevelKind = bkFlat
      Date = 29221.000000000000000000
      Format = '1980-7-20'
      Time = 29221.000000000000000000
      TabOrder = 10
    end
    object ComboBox1: TComboBox
      Left = 88
      Top = 61
      Width = 230
      Height = 22
      BevelKind = bkTile
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 11
      Text = #30007
      Items.Strings = (
        #30007
        #22899)
    end
    object Button2: TButton
      Left = 184
      Top = 472
      Width = 111
      Height = 41
      Caption = #36864#20986
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      OnClick = Button2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 329
    Top = 0
    Width = 429
    Height = 556
    Align = alClient
    Caption = #27983#35272#32852#31995#20154#20449#24687' '
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 16
      Width = 425
      Height = 494
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24615#21035
          Width = 31
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26165#31216
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #29983#26085
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31227#21160#30005#35805
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'QQ'
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37038#25919#32534#30721
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23478#24237#30005#35805
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23478#24237#20303#22336
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24037#20316#21333#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21333#20301#30005#35805
          Visible = True
        end>
    end
    object ToolBar1: TToolBar
      Left = 2
      Top = 510
      Width = 425
      Height = 44
      Align = alBottom
      ButtonHeight = 40
      ButtonWidth = 73
      Caption = 'ToolBar1'
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 0
        Top = 2
        Width = 71
        Height = 40
        Caption = #39318#26465
        Flat = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 71
        Top = 2
        Width = 71
        Height = 40
        Caption = #19978#19968#26465
        Flat = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 142
        Top = 2
        Width = 71
        Height = 40
        Caption = #19979#19968#26465
        Flat = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 213
        Top = 2
        Width = 71
        Height = 40
        Caption = #26411#26465
        Flat = True
        OnClick = SpeedButton4Click
      end
      object SpeedButton6: TSpeedButton
        Left = 284
        Top = 2
        Width = 70
        Height = 40
        Caption = #20462#25913
        Flat = True
        OnClick = SpeedButton6Click
      end
      object SpeedButton5: TSpeedButton
        Left = 354
        Top = 2
        Width = 71
        Height = 40
        Caption = #21024#38500
        Flat = True
        OnClick = SpeedButton5Click
      end
    end
  end
  object adoconn: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 294
    Top = 384
  end
  object ADOQuery1: TADOQuery
    Connection = adoconn
    Parameters = <>
    SQL.Strings = (
      'select * from bj')
    Left = 264
    Top = 384
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 234
    Top = 384
  end
end

⌨️ 快捷键说明

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