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

📄 person.dfm

📁 这是一个用Delphi写的工资管理系统
💻 DFM
字号:
object person_form: Tperson_form
  Left = 206
  Top = 168
  Width = 897
  Height = 563
  Caption = #32844#24037#24037#36164#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 24
    Top = 24
    Width = 65
    Height = 25
    AutoSize = False
    Caption = #32844#24037#32534#21495#65306
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 889
    Height = 57
    Color = clSkyBlue
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 72
      Top = 16
      Width = 57
      Height = 33
      Caption = #28155#21152
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 256
      Top = 16
      Width = 57
      Height = 33
      Caption = #20462#25913
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 456
      Top = 16
      Width = 57
      Height = 33
      Caption = #21024#38500
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 696
      Top = 16
      Width = 57
      Height = 33
      Caption = #36864#20986
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton4Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 56
    Width = 889
    Height = 217
    TabOrder = 1
    object Label1: TLabel
      Left = 0
      Top = 0
      Width = 81
      Height = 17
      AutoSize = False
      Caption = #20449#24687#20462#25913#21306#65306
    end
    object Label2: TLabel
      Left = 24
      Top = 24
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #32844#24037#32534#21495#65306
    end
    object Label3: TLabel
      Left = 328
      Top = 24
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #32844#24037#22995#21517#65306
    end
    object Label4: TLabel
      Left = 600
      Top = 24
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #25152#23646#37096#38376#65306
    end
    object Label13: TLabel
      Left = 8
      Top = 128
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #20445#38505#65306
    end
    object Label14: TLabel
      Left = 216
      Top = 128
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #27700#30005#36153#65306
    end
    object Label15: TLabel
      Left = 440
      Top = 128
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #25151#31199#65306
    end
    object Label16: TLabel
      Left = 656
      Top = 128
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #20250#36153#65306
    end
    object Edit1: TEdit
      Left = 104
      Top = 24
      Width = 161
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 400
      Top = 24
      Width = 161
      Height = 21
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 672
      Top = 24
      Width = 161
      Height = 21
      TabOrder = 2
    end
    object Panel3: TPanel
      Left = -8
      Top = 48
      Width = 897
      Height = 57
      TabOrder = 3
      object Label5: TLabel
        Left = 8
        Top = 0
        Width = 73
        Height = 25
        AutoSize = False
        Caption = #24037#36164#21333#65306
      end
      object Label7: TLabel
        Left = 16
        Top = 24
        Width = 41
        Height = 21
        AutoSize = False
        Caption = #22522#26412#24037#36164#65306
      end
      object Label8: TLabel
        Left = 168
        Top = 24
        Width = 41
        Height = 21
        AutoSize = False
        Caption = #22870#37329#65306
      end
      object Label9: TLabel
        Left = 360
        Top = 24
        Width = 41
        Height = 21
        AutoSize = False
        Caption = #34917#21161#65306
      end
      object Label10: TLabel
        Left = 544
        Top = 24
        Width = 41
        Height = 21
        AutoSize = False
        Caption = #27941#36148#65306
      end
      object Label11: TLabel
        Left = 720
        Top = 24
        Width = 41
        Height = 21
        AutoSize = False
        Caption = #20844#31215#37329#65306
      end
      object Edit4: TEdit
        Left = 64
        Top = 24
        Width = 81
        Height = 21
        TabOrder = 0
      end
      object Edit5: TEdit
        Left = 224
        Top = 24
        Width = 81
        Height = 21
        TabOrder = 1
      end
      object Edit6: TEdit
        Left = 416
        Top = 24
        Width = 89
        Height = 21
        TabOrder = 2
      end
      object Edit7: TEdit
        Left = 608
        Top = 24
        Width = 81
        Height = 21
        TabOrder = 3
      end
      object Edit8: TEdit
        Left = 784
        Top = 24
        Width = 81
        Height = 21
        TabOrder = 4
      end
    end
    object Edit9: TEdit
      Left = 80
      Top = 128
      Width = 81
      Height = 21
      TabOrder = 4
    end
    object Edit10: TEdit
      Left = 280
      Top = 128
      Width = 89
      Height = 21
      TabOrder = 5
    end
    object Edit11: TEdit
      Left = 512
      Top = 128
      Width = 89
      Height = 21
      TabOrder = 6
    end
    object Edit12: TEdit
      Left = 720
      Top = 128
      Width = 89
      Height = 21
      TabOrder = 7
    end
    object Panel4: TPanel
      Left = -8
      Top = 168
      Width = 897
      Height = 49
      TabOrder = 8
      object SpeedButton5: TSpeedButton
        Left = 264
        Top = 8
        Width = 73
        Height = 33
        Caption = #25552#20132#20462#25913
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -16
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        OnClick = SpeedButton5Click
      end
      object SpeedButton6: TSpeedButton
        Left = 536
        Top = 8
        Width = 73
        Height = 33
        Caption = #21462#28040#20462#25913
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -16
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        OnClick = SpeedButton6Click
      end
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 392
    Width = 889
    Height = 137
    Color = clGreen
    TabOrder = 2
    object Label18: TLabel
      Left = 0
      Top = 0
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #26597#35810#21306#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Label19: TLabel
      Left = 104
      Top = 24
      Width = 145
      Height = 25
      AutoSize = False
      Caption = #25353#29031#32844#24037#32534#21495#26597#35810#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label20: TLabel
      Left = 104
      Top = 56
      Width = 145
      Height = 25
      AutoSize = False
      Caption = #25353#29031#32844#24037#22995#21517#26597#35810#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpeedButton7: TSpeedButton
      Left = 472
      Top = 24
      Width = 73
      Height = 22
      Caption = #26597#35810
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 472
      Top = 56
      Width = 73
      Height = 22
      Caption = #26597#35810
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 608
      Top = 32
      Width = 137
      Height = 41
      Caption = 'ShowAll'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton9Click
    end
    object Edit14: TEdit
      Left = 256
      Top = 24
      Width = 185
      Height = 21
      TabOrder = 0
    end
    object Edit15: TEdit
      Left = 256
      Top = 56
      Width = 185
      Height = 21
      TabOrder = 1
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 272
    Width = 889
    Height = 120
    BorderStyle = bsNone
    Color = clYellow
    DataSource = mydm.personSource
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'personno'
        Title.Caption = #32844#24037#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'department'
        Title.Caption = #37096#38376
        Width = 125
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'add1'
        Title.Caption = #22522#26412#24037#36164
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'add2'
        Title.Caption = #22870#37329
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'add3'
        Title.Caption = #34917#21161
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'add4'
        Title.Caption = #27941#36148
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'add5'
        Title.Caption = #20844#31215#37329
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sub1'
        Title.Caption = #20445#38505
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sub2'
        Title.Caption = #27700#30005#36153
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sub3'
        Title.Caption = #25151#31199
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sub4'
        Title.Caption = #20250#36153
        Visible = True
      end>
  end
end

⌨️ 快捷键说明

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