unit1.dfm

用Delphi 开发的一个 户籍管理系统

object Form1: TForm1
  Left = 215
  Top = 150
  Width = 696
  Height = 480
  Caption = 'Form1'
  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 suiToolBar1: TsuiToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 37
    ButtonHeight = 19
    ButtonWidth = 15
    Caption = 'suiToolBar1'
    EdgeInner = esNone
    EdgeOuter = esNone
    Flat = True
    List = True
    ShowCaptions = True
    TabOrder = 0
    Transparent = False
    UIStyle = WinXP
    ButtonColor = 15717318
    ButtonBorderColor = 13003057
    ButtonDownColor = 14789779
    DesignSize = (
      688
      37)
    object btn_4: TToolButton
      Left = 0
      Top = 0
      Enabled = False
      ImageIndex = 8
    end
    object RzLabel39: TRzLabel
      Left = 15
      Top = 0
      Width = 67
      Height = 19
      Align = alLeft
      Alignment = taCenter
      Anchors = [akLeft, akTop, akRight, akBottom]
      AutoSize = False
      Caption = #26597#35810#26465#20214#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      CenterPoint = cpLowerLeft
      FlyByEnabled = True
      TextStyle = tsShadow
    end
    object cbb_field: TRzDBLookupComboBox
      Left = 82
      Top = 0
      Width = 119
      Height = 21
      KeyField = 'field'
      ListField = 'name'
      ListSource = ds_fieldshow
      TabOrder = 0
    end
    object RzLabel40: TRzLabel
      Left = 201
      Top = 0
      Width = 67
      Height = 19
      Alignment = taCenter
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #26597#35810#20869#23481#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      CenterPoint = cpLowerLeft
      TextStyle = tsShadow
    end
    object edt_condition: TRzEdit
      Left = 268
      Top = 0
      Width = 121
      Height = 19
      TabOrder = 1
    end
    object btn_find: TRzBitBtn
      Left = 389
      Top = 0
      Width = 59
      Height = 19
      Action = act_find
      Caption = #23450#20301
      TabOrder = 2
      ImageIndex = 36
      Images = RDB.il_16
    end
    object btn_search: TRzBitBtn
      Left = 448
      Top = 0
      Width = 56
      Height = 19
      Action = act_search
      Caption = #26597#35810
      TabOrder = 3
      ImageIndex = 233
      Images = RDB.il_16
    end
    object btn_showall: TRzBitBtn
      Left = 504
      Top = 0
      Width = 81
      Height = 19
      Action = act_showall
      Caption = #26174#31034#20840#37096
      TabOrder = 4
      ImageIndex = 238
      Images = RDB.il_16
    end
    object btn_3: TToolButton
      Left = 585
      Top = 0
      Width = 8
      Caption = 'btn_3'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object btn_exit: TRzBitBtn
      Left = 593
      Top = 0
      Width = 63
      Height = 19
      Action = act_exit
      Caption = #36864#20986
      TabOrder = 5
      ImageIndex = 209
      Images = RDB.il_16
    end
  end
  object grd_person: TcxGrid
    Left = 0
    Top = 37
    Width = 688
    Height = 411
    Align = alClient
    TabOrder = 1
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = True
    object tv_person: TcxGridDBTableView
      OnDblClick = tv_personDblClick
      OnKeyPress = tv_personKeyPress
      DataController.DataSource = ds_person
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsView.GroupByBox = False
      object lmn__personCode: TcxGridDBColumn
        DataBinding.FieldName = 'Code'
      end
      object lmn__personName: TcxGridDBColumn
        DataBinding.FieldName = 'Name'
      end
      object lmn__personOldName: TcxGridDBColumn
        DataBinding.FieldName = 'OldName'
        Width = 114
      end
      object lmn__personSexName: TcxGridDBColumn
        DataBinding.FieldName = 'SexName'
        Width = 57
      end
      object lmn__personBirthday: TcxGridDBColumn
        DataBinding.FieldName = 'Birthday'
      end
      object lmn__personIDCard: TcxGridDBColumn
        DataBinding.FieldName = 'IDCard'
      end
      object lmn__persondoorNumber: TcxGridDBColumn
        DataBinding.FieldName = 'doorNumber'
      end
      object lmn__personHouseMaster: TcxGridDBColumn
        DataBinding.FieldName = 'HouseMaster'
      end
      object lmn__personrelationName: TcxGridDBColumn
        DataBinding.FieldName = 'relationName'
      end
      object lmn__personmarriageName: TcxGridDBColumn
        DataBinding.FieldName = 'marriageName'
      end
      object lmn__personregTypeName: TcxGridDBColumn
        DataBinding.FieldName = 'regTypeName'
      end
      object lmn__personGroupName: TcxGridDBColumn
        DataBinding.FieldName = 'GroupName'
      end
      object lmn__personQfDate: TcxGridDBColumn
        DataBinding.FieldName = 'QfDate'
      end
      object lmn__personrecordStatusName: TcxGridDBColumn
        DataBinding.FieldName = 'recordStatusName'
      end
      object lmn__personEduDegreeName: TcxGridDBColumn
        DataBinding.FieldName = 'EduDegreeName'
      end
      object lmn__personBloodTypeName: TcxGridDBColumn
        DataBinding.FieldName = 'BloodTypeName'
      end
      object lmn__personNationlityName: TcxGridDBColumn
        DataBinding.FieldName = 'NationlityName'
      end
      object lmn__personHealthName: TcxGridDBColumn
        DataBinding.FieldName = 'HealthName'
      end
      object lmn__personReligionName: TcxGridDBColumn
        DataBinding.FieldName = 'ReligionName'
      end
      object lmn__personEscuageName: TcxGridDBColumn
        DataBinding.FieldName = 'EscuageName'
      end
      object lmn__personPolityName: TcxGridDBColumn
        DataBinding.FieldName = 'PolityName'
      end
      object lmn__personregType: TcxGridDBColumn
        DataBinding.FieldName = 'regType'
        Visible = False
      end
      object lmn__personrelation: TcxGridDBColumn
        DataBinding.FieldName = 'relation'
        Visible = False
      end
      object lmn__personOrgan: TcxGridDBColumn
        DataBinding.FieldName = 'Organ'
      end
      object lmn__personRecordStatus: TcxGridDBColumn
        DataBinding.FieldName = 'RecordStatus'
        Visible = False
      end
      object lmn__personRecordDate: TcxGridDBColumn
        DataBinding.FieldName = 'RecordDate'
      end
      object lmn__personEduDegree: TcxGridDBColumn
        DataBinding.FieldName = 'EduDegree'
        Visible = False
      end
      object lmn__personBirthAddress: TcxGridDBColumn
        DataBinding.FieldName = 'BirthAddress'
      end
      object lmn__personSex: TcxGridDBColumn
        DataBinding.FieldName = 'Sex'
        Visible = False
      end
      object lmn__personStature: TcxGridDBColumn
        DataBinding.FieldName = 'Stature'
      end
      object lmn__personBloodType: TcxGridDBColumn
        DataBinding.FieldName = 'BloodType'
        Visible = False
      end
      object lmn__personNationlity: TcxGridDBColumn
        DataBinding.FieldName = 'Nationlity'
        Visible = False
      end
      object lmn__personHealth: TcxGridDBColumn
        DataBinding.FieldName = 'Health'
        Visible = False
      end
      object lmn__personDwellingPlace: TcxGridDBColumn
        DataBinding.FieldName = 'DwellingPlace'
      end
      object lmn__personTelephone: TcxGridDBColumn
        DataBinding.FieldName = 'Telephone'
      end
      object lmn__personOtherDwellingPlace: TcxGridDBColumn
        DataBinding.FieldName = 'OtherDwellingPlace'
      end
      object lmn__personReligion: TcxGridDBColumn
        DataBinding.FieldName = 'Religion'
        Visible = False
      end
      object lmn__personMarriage: TcxGridDBColumn
        DataBinding.FieldName = 'Marriage'
        Visible = False
      end
      object lmn__personEscuage: TcxGridDBColumn
        DataBinding.FieldName = 'Escuage'
        Visible = False
      end
      object lmn__personWork: TcxGridDBColumn
        DataBinding.FieldName = 'Work'
      end
      object lmn__personService: TcxGridDBColumn
        DataBinding.FieldName = 'Service'
      end
      object lmn__personPolity: TcxGridDBColumn
        DataBinding.FieldName = 'Polity'
        Visible = False
      end
      object lmn__personRemark: TcxGridDBColumn
        DataBinding.FieldName = 'Remark'
      end
      object lmn__personLownessDefend: TcxGridDBColumn
        DataBinding.FieldName = 'LownessDefend'
      end
      object lmn__personArmyCorps: TcxGridDBColumn
        DataBinding.FieldName = 'ArmyCorps'
      end
      object lmn__personPic: TcxGridDBColumn
        DataBinding.FieldName = 'Pic'
        Visible = False
      end
      object lmn__personDoorRecordLocus: TcxGridDBColumn
        DataBinding.FieldName = 'DoorRecordLocus'
      end
      object lmn__personNativePlace: TcxGridDBColumn
        DataBinding.FieldName = 'NativePlace'
      end
      object lmn__personIngoingDate: TcxGridDBColumn
        DataBinding.FieldName = 'IngoingDate'
      end
      object lmn__personOriginalDwellingPlace: TcxGridDBColumn
        DataBinding.FieldName = 'OriginalDwellingPlace'
      end
      object lmn__personIngoingType: TcxGridDBColumn
        DataBinding.FieldName = 'IngoingType'
        Visible = False
      end
      object lmn__personIngoingTypeName: TcxGridDBColumn
        DataBinding.FieldName = 'IngoingTypeName'
      end
      object lmn__personIngoingCause: TcxGridDBColumn
        DataBinding.FieldName = 'IngoingCause'
      end
      object lmn__personExceedDate: TcxGridDBColumn
        DataBinding.FieldName = 'ExceedDate'
      end
      object lmn__personExceedAddress: TcxGridDBColumn
        DataBinding.FieldName = 'ExceedAddress'
      end
      object lmn__personExceedType: TcxGridDBColumn
        DataBinding.FieldName = 'ExceedType'
        Visible = False
      end
      object lmn__personExceedTypeName: TcxGridDBColumn
        DataBinding.FieldName = 'ExceedTypeName'
      end
      object lmn__personExceedCause: TcxGridDBColumn
        DataBinding.FieldName = 'ExceedCause'
      end
      object lmn__personDeath: TcxGridDBColumn
        DataBinding.FieldName = 'Death'
      end
      object lmn__personLogout: TcxGridDBColumn
        DataBinding.FieldName = 'Logout'
      end
      object lmn__personDeathDate: TcxGridDBColumn
        DataBinding.FieldName = 'DeathDate'
      end
      object lmn__personDeathCause: TcxGridDBColumn
        DataBinding.FieldName = 'DeathCause'
      end
      object lmn__personLogoutDate: TcxGridDBColumn
        DataBinding.FieldName = 'LogoutDate'
      end
      object lmn__personLogoutCause: TcxGridDBColumn
        DataBinding.FieldName = 'LogoutCause'
      end
      object lmn__personID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
      end
      object lmn__personisbmp: TcxGridDBColumn
        DataBinding.FieldName = 'isbmp'
      end
    end
    object lv_person: TcxGridLevel
      GridView = tv_person
    end
  end
  object actlst_hjgl: TActionList
    Images = RDB.il_16
    Left = 432
    Top = 127
    object act_find: TAction
      Caption = #23450#20301
      ImageIndex = 36
      OnExecute = act_findExecute
    end
    object act_search: TAction
      Caption = #26597#35810
      ImageIndex = 233
      OnExecute = act_searchExecute
    end
    object act_showall: TAction
      Caption = #26174#31034#20840#37096
      ImageIndex = 238
      OnExecute = act_showallExecute
    end
    object act_exit: TAction
      Caption = #36864#20986
      ImageIndex = 209
      OnExecute = act_exitExecute
    end
  end
  object ds_person: TDataSource