unit1.dfm

来自「用delphi开发的户籍管理系统」· DFM 代码 · 共 504 行

DFM
504 行
字号 
object main_Form: Tmain_Form
  Left = 255
  Top = 146
  Width = 682
  Height = 535
  Caption = #25143#31821#31649#29702#31995#32479
  Color = clMenuBar
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clHighlight
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 199
    Top = 49
    Width = 30
    Height = 13
    AutoSize = False
    Caption = #34880#22411
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 279
    Top = 49
    Width = 30
    Height = 13
    AutoSize = False
    Caption = #27665#26063
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 352
    Top = 50
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #20986#29983#24180#26376
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 459
    Top = 51
    Width = 44
    Height = 13
    AutoSize = False
    Caption = #36523#20221#35777
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBText4: TDBText
    Left = 200
    Top = 75
    Width = 49
    Height = 22
    AutoSize = True
    Color = clMenuBar
    DataField = #34880#22411
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText5: TDBText
    Left = 272
    Top = 74
    Width = 55
    Height = 23
    Color = clMenuBar
    DataField = #27665#26063
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText6: TDBText
    Left = 354
    Top = 74
    Width = 79
    Height = 23
    Color = clMenuBar
    DataField = #20986#29983#24180#26376
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText7: TDBText
    Left = 456
    Top = 74
    Width = 193
    Height = 23
    Color = clMenuBar
    DataField = #36523#20221#35777
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label9: TLabel
    Left = 16
    Top = 257
    Width = 29
    Height = 13
    AutoSize = False
    Caption = #31821#36143
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 91
    Top = 256
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #25991#21270#31243#24230
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 201
    Top = 149
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #23621#20303#22320#28857
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 202
    Top = 176
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #24037#20316#21333#20301
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 203
    Top = 236
    Width = 29
    Height = 13
    AutoSize = False
    Caption = #22791#27880
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBText8: TDBText
    Left = 7
    Top = 281
    Width = 50
    Height = 13
    Color = clMenuBar
    DataField = #31821#36143
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText9: TDBText
    Left = 95
    Top = 279
    Width = 66
    Height = 13
    Color = clMenuBar
    DataField = #25991#21270#31243#24230
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText10: TDBText
    Left = 260
    Top = 147
    Width = 195
    Height = 13
    Color = clMenuBar
    DataField = #23621#20303#22320#28857
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText11: TDBText
    Left = 262
    Top = 175
    Width = 157
    Height = 13
    Color = clMenuBar
    DataField = #24037#20316#21333#20301
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 128
    Top = 208
    Width = 27
    Height = 13
    AutoSize = False
    Caption = #24180#40836
    Color = clMenuBar
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 72
    Top = 208
    Width = 27
    Height = 13
    AutoSize = False
    Caption = #24615#21035
    Color = clMenuBar
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label1: TLabel
    Left = 16
    Top = 208
    Width = 27
    Height = 13
    AutoSize = False
    Caption = #22995#21517
    Color = clMenuBar
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 8
    Top = 232
    Width = 66
    Height = 13
    Color = clMenuBar
    DataField = #22995#21517
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText3: TDBText
    Left = 120
    Top = 232
    Width = 58
    Height = 13
    Color = clMenuBar
    DataField = #24180#40836
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBText2: TDBText
    Left = 64
    Top = 232
    Width = 58
    Height = 13
    Color = clMenuBar
    DataField = #24615#21035
    DataSource = DataModule2.huzhu_DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object DBNavigator1: TDBNavigator
    Left = 10
    Top = 6
    Width = 220
    Height = 25
    DataSource = DataModule2.huzhu_DataSource1
    TabOrder = 0
  end
  object DBMemo1: TDBMemo
    Left = 241
    Top = 236
    Width = 400
    Height = 77
    DataField = #22791#27880
    DataSource = DataModule2.huzhu_DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    TabOrder = 1
  end
  object Button1: TButton
    Left = 573
    Top = 6
    Width = 48
    Height = 24
    Caption = #36864#20986
    TabOrder = 2
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 336
    Width = 641
    Height = 111
    DataSource = DataModule2.chengyuan_DataSource2
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clHighlight
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBImage1: TDBImage
    Left = 21
    Top = 37
    Width = 124
    Height = 156
    Color = clMenuBar
    TabOrder = 4
  end
  object MainMenu1: TMainMenu
    Left = 472
    Top = 4
    object N1: TMenuItem
      Caption = #25991#20214
      object O1: TMenuItem
        Caption = #25171#24320#65288'&O'#65289
        OnClick = O1Click
      end
      object C1: TMenuItem
        Caption = #20851#38381#65288'&C'#65289
        OnClick = C1Click
      end
    end
    object N2: TMenuItem
      Caption = #32534#36753
      object A1: TMenuItem
        Caption = #22686#21152#65288'&A'#65289
        OnClick = A1Click
      end
      object M1: TMenuItem
        Caption = #20462#25913#65288'&M'#65289
        OnClick = M1Click
      end
      object D1: TMenuItem
        Caption = #21024#38500#65288'&D'#65289
        OnClick = D1Click
      end
      object N6: TMenuItem
        Caption = #37197#21046#25968#25454#24211
        OnClick = N6Click
      end
    end
    object l1: TMenuItem
      Caption = #27983#35272
      OnClick = l1Click
    end
    object N3: TMenuItem
      Caption = #23450#20301
      OnClick = N3Click
    end
    object F1: TMenuItem
      Caption = #26597#35810
      object N5: TMenuItem
        Caption = #26597#35810#65288#31383#20307#65289
        OnClick = N5Click
      end
    end
    object N4: TMenuItem
      Caption = #31383#21475
    end
    object H1: TMenuItem
      Caption = #24110#21161#65288'&H'#65289
      object N12: TMenuItem
        Caption = #29256#26412#20449#24687
        OnClick = N12Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 296
    Top = 4
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Excle'#34920'|*.xls|word'#25991#26723'|*.doc|'#25152#26377#25991#20214'|*.*'
    Left = 336
    Top = 4
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 440
    Top = 4
  end
  object Table1: TTable
    DatabaseName = 'huji'
    TableName = 'huzhu'
    Left = 408
    Top = 4
  end
  object ADODataSet1: TADODataSet
    Parameters = <>
    Left = 520
    Top = 8
  end
end

unit1.dfm - 源码说明

本页面展示了「用delphi开发的户籍管理系统」中的 unit1.dfm 源码文件，采用 DFM 编程语言编写，共 504 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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