main.dfm

用Delphi编写的户籍管理系统

object FrmMain: TFrmMain
  Left = 270
  Top = 214
  Width = 696
  Height = 441
  Caption = #25143#31821#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000088888888888888888888888800000000
    8888800000000000008888880000000088888000000000000088888800000000
    88888880FFFFFF70888888880000000088888880FFFFFF708888888800000000
    88888880FFFF000000088888000000008888870000FFFFFFFFF0888800000000
    8888800000FFFFFFFFF08888000000008888000000FFFFFFF000888800000000
    8888000000FFFFFFFFF08888000000008880000000FFFFFFFFF0888800000000
    88700000007FFFFFFFFF088800000000880000000000FFFF0FF0888800000000
    880000000000FFFF07088888000000008800000000FFFFFF0088888800000000
    880000000FFFFFFFF08888880000000088000000FFFFFFFFF088888800000000
    8800000000000000000088880000000088700000000000000000888800000000
    8880000000000000000088880000000088880000000000000008888800000000
    8888870000000000078888880000000088888888888888888888888800000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 376
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 380
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 28
    Caption = 'ToolBar1'
    DisabledImages = ImageList1
    HotImages = ImageList1
    Images = ImageList1
    TabOrder = 1
    object ToolButtonExit: TToolButton
      Left = 0
      Top = 2
      Hint = #36864#20986#31243#24207
      Action = FileExit1
      ImageIndex = 19
    end
    object Splitter1: TSplitter
      Left = 23
      Top = 2
      Width = 10
      Height = 22
      Cursor = crHSplit
    end
    object DBNavigatorMain: TDBNavigator
      Left = 33
      Top = 2
      Width = 234
      Height = 22
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      Hints.Strings = (
        #31227#21040#31532#19968#20010#35760#24405
        #21069#31227#19968#20010#35760#24405
        #19979#31227#19968#20010#35760#24405
        #31227#21040#26368#21518#19968#20010#35760#24405
        #25554#20837#26032#35760#24405
        #21024#38500#24403#21069#35760#24405
        #32534#36753#24403#21069#35760#24405
        #25968#25454#23384#30424
        #21462#28040#20462#25913
        #21047#26032#25968#25454)
      ConfirmDelete = False
      TabOrder = 0
    end
    object Splitter2: TSplitter
      Left = 267
      Top = 2
      Width = 6
      Height = 22
      Cursor = crHSplit
    end
    object ToolButtonPY: TToolButton
      Left = 273
      Top = 2
      Hint = #25353#25340#38899#26597#35810
      Caption = 'PY'
      ImageIndex = 9
      OnClick = ToolButtonPYClick
    end
    object Splitter3: TSplitter
      Left = 296
      Top = 2
      Width = 9
      Height = 22
      Cursor = crHSplit
    end
    object ToolButtonPrint: TToolButton
      Left = 305
      Top = 2
      Hint = #25171#21360
      Caption = 'ToolButtonPrint'
      ImageIndex = 4
      OnClick = ToolButtonPrintClick
    end
    object Splitter4: TSplitter
      Left = 328
      Top = 2
      Width = 9
      Height = 22
      Cursor = crHSplit
    end
    object ToolButton1: TToolButton
      Left = 337
      Top = 2
      Hint = #22402#30452#25490#21015
      Action = WindowTileVertical1
      Caption = '&V'
      ImageIndex = 6
    end
    object ToolButton2: TToolButton
      Left = 360
      Top = 2
      Hint = #27700#24179#25490#21015
      Action = WindowTileHorizontal1
      Caption = '&H'
      ImageIndex = 5
    end
    object ToolButton3: TToolButton
      Left = 383
      Top = 2
      Hint = #31383#21475#23618#21472
      Action = WindowCascade1
      Caption = '&A'
      ImageIndex = 7
    end
    object ToolButton4: TToolButton
      Left = 406
      Top = 2
      Hint = #20851#38381#24403#21069#31383#21475
      Action = WindowClose1
      Caption = '&C'
      ImageIndex = 8
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 96
    Top = 88
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N13: TMenuItem
        Action = FilePrintSetup1
        Caption = #25171#21360#26426#35774#32622'...'
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986'(&X)'
        ShortCut = 16465
        OnClick = X1Click
      end
    end
    object D1: TMenuItem
      Caption = #32534#36753'(&E)'
      object E2: TMenuItem
        Caption = #25143#31821#25968#25454#32534#36753'(&E)'
        OnClick = E2Click
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object N19: TMenuItem
        Caption = #22995#21517#31616#25340#20462#25913
        OnClick = N19Click
      end
    end
    object B2: TMenuItem
      Caption = #27983#35272'(&B)'
      object N15: TMenuItem
        Caption = #25143#31821#25968#25454#27983#35272'('#32593#26684#24335')'
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = #25143#31821#25968#25454#27983#35272'('#34920#21333#24335')'
      end
    end
    object E1: TMenuItem
      Caption = #23450#20301'(&G)'
      object N2: TMenuItem
        Action = DataSetFirst1
        Caption = #31227#21040#31532#19968#20010#35760#24405
        ImageIndex = 13
      end
      object N3: TMenuItem
        Action = DataSetPrior1
        Caption = #19978#31227#19968#20010#35760#24405
        ImageIndex = 17
      end
      object N4: TMenuItem
        Action = DataSetNext1
        Caption = #19979#31227#19968#20010#35760#24405
        ImageIndex = 16
      end
      object N5: TMenuItem
        Action = DataSetLast1
        Caption = #31227#21040#26368#21518#19968#20010#35760#24405
        ImageIndex = 14
      end
      object N21: TMenuItem
        Action = ActionPY
        Caption = #25353#25340#38899#26597#35810
        ImageIndex = 9
        ShortCut = 122
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Action = DataSetInsert1
        Caption = #25554#20837#26032#35760#24405
        ImageIndex = 15
      end
      object N7: TMenuItem
        Action = DataSetDelete1
        Caption = #21024#38500#24403#21069#35760#24405
        ImageIndex = 11
      end
      object N8: TMenuItem
        Action = DataSetEdit1
        Caption = #20462#25913#24403#21069#35760#24405
        ImageIndex = 12
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Action = DataSetPost1
        Caption = #25968#25454#23384#30424
      end
      object N12: TMenuItem
        Action = DataSetCancel1
        Caption = #21462#28040#20462#25913
        ImageIndex = 18
      end
    end
    object L1: TMenuItem
      Caption = #26597#35810'(&L)'
      object SQL1: TMenuItem
        Caption = 'SQL'#26597#35810
        OnClick = SQL1Click
      end
    end
    object W1: TMenuItem
      Caption = #31383#21475'(&W)'
      object H1: TMenuItem
        Action = WindowTileVertical1
        Caption = #31383#21475#22402#30452#25490#21015'(&V)'