maindata.dfm

用Delphi编写的户籍管理系统

object DataHJZL: TDataHJZL
  OldCreateOrder = False
  Left = 430
  Top = 195
  Height = 344
  Width = 391
  object ADOCnHJGL: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HKSJ.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 8
  end
  object ADOTableHZ: TADOTable
    Active = True
    Connection = ADOCnHJGL
    CursorType = ctStatic
    BeforeInsert = ADOTableHZBeforeInsert
    AfterPost = ADOTableHZAfterPost
    BeforeDelete = ADOTableHZBeforeDelete
    OnCalcFields = ADOTableHZCalcFields
    OnNewRecord = ADOTableHZNewRecord
    OnPostError = ADOTableHZPostError
    IndexFieldNames = 'BH'
    TableName = #25143#20027
    Left = 36
    Top = 77
    object ADOTableHZBH: TAutoIncField
      Alignment = taCenter
      DisplayLabel = #32534#21495
      FieldName = 'BH'
    end
    object ADOTableHZYH: TWideStringField
      DisplayLabel = #20303#25143#39029
      FieldName = 'YH'
      Size = 10
    end
    object ADOTableHZXM: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'XM'
      Size = 8
    end
    object ADOTableHZXB: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'XB'
      Size = 2
    end
    object ADOTableHZMZ: TWideStringField
      DisplayLabel = #27665#26063
      FieldName = 'MZ'
      Size = 8
    end
    object ADOTableHZWH: TWideStringField
      DisplayLabel = #25991#21270
      FieldName = 'WH'
      Size = 6
    end
    object ADOTableHZSG: TWideStringField
      DisplayLabel = #31821#36143
      FieldName = 'SG'
      Size = 10
    end
    object ADOTableHZCSNY: TDateTimeField
      DisplayLabel = #20986#29983#24180#26376
      FieldName = 'CSNY'
      OnValidate = ADOTableHZCSNYValidate
      DisplayFormat = 'yyyy.mm.dd'
    end
    object ADOTableHZSFZ: TWideStringField
      DisplayLabel = #36523#20221#35777
      FieldName = 'SFZ'
      OnValidate = ADOTableHZSFZValidate
      Size = 18
    end
    object ADOTableHZGZDW: TWideStringField
      DisplayLabel = #24037#20316#21333#20301
      FieldName = 'GZDW'
      Size = 30
    end
    object ADOTableHZDH: TWideStringField
      DisplayLabel = #30005#35805
      FieldName = 'DH'
      Size = 50
    end
    object ADOTableHZRS: TSmallintField
      Alignment = taCenter
      DisplayLabel = #20154#25968
      FieldName = 'RS'
      OnValidate = ADOTableHZRSValidate
    end
    object ADOTableHZFCZ: TWideStringField
      DisplayLabel = #25151#20135#35777
      FieldName = 'FCZ'
    end
    object ADOTableHZZD: TWideStringField
      DisplayLabel = #20303#22320
      FieldName = 'ZD'
      Size = 30
    end
    object ADOTableHZFH: TWideStringField
      DisplayLabel = #25151#21495
      FieldName = 'FH'
      Size = 10
    end
    object ADOTableHZJTH: TBooleanField
      DisplayLabel = #23478#24237#25143
      FieldName = 'JTH'
    end
    object ADOTableHZBZ: TMemoField
      FieldName = 'BZ'
      BlobType = ftMemo
    end
    object ADOTableHZNL: TIntegerField
      Alignment = taCenter
      FieldKind = fkCalculated
      FieldName = 'NL'
      Calculated = True
    end
    object ADOTableHZXX: TWideStringField
      DisplayLabel = #34880#22411
      FieldName = 'XX'
      Size = 2
    end
  end
  object ADOTableCY: TADOTable
    Connection = ADOCnHJGL
    CursorType = ctStatic
    AfterPost = ADOTableCYAfterPost
    BeforeDelete = ADOTableCYBeforeDelete
    OnCalcFields = ADOTableCYCalcFields
    OnNewRecord = ADOTableCYNewRecord
    OnPostError = ADOTableCYPostError
    IndexFieldNames = 'BH'
    MasterFields = 'BH'
    MasterSource = DSHZ
    TableName = #25104#21592
    Left = 36
    Top = 125
    object ADOTableCYBH: TIntegerField
      DisplayLabel = #32534#21495
      FieldName = 'BH'
    end
    object ADOTableCYXM: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'XM'
      Size = 8
    end
    object ADOTableCYGX: TWideStringField
      DisplayLabel = #20851#31995
      FieldName = 'GX'
      Size = 8
    end
    object ADOTableCYXB: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'XB'
      Size = 2
    end
    object ADOTableCYMZ: TWideStringField
      DisplayLabel = #27665#26063
      FieldName = 'MZ'
      Size = 8
    end
    object ADOTableCYWH: TWideStringField
      DisplayLabel = #25991#21270
      FieldName = 'WH'
      Size = 6
    end
    object ADOTableCYCSNY: TDateTimeField
      DisplayLabel = #29983#26085
      FieldName = 'CSNY'
      OnValidate = ADOTableCYCSNYValidate
      DisplayFormat = 'YYYY.MM.DD'
    end
    object ADOTableCYSFZ: TWideStringField
      DisplayLabel = #36523#20221#35777
      FieldName = 'SFZ'
      Size = 18
    end
    object ADOTableCYGZDW: TWideStringField
      DisplayLabel = #24037#20316#21333#20301
      FieldName = 'GZDW'
      Size = 50
    end
    object ADOTableCYLX: TWideStringField
      DisplayLabel = #32852#31995
      FieldName = 'LX'
      Size = 50
    end
    object ADOTableCYNL: TIntegerField
      Alignment = taCenter
      DisplayLabel = #24180#40836
      FieldKind = fkCalculated
      FieldName = 'NL'
      Calculated = True
    end
    object ADOTableCYXX: TWideStringField
      DisplayLabel = #34880#22411
      FieldName = 'XX'
      Size = 2
    end
  end
  object DSHZ: TDataSource
    DataSet = ADOTableHZ
    OnDataChange = DSHZDataChange
    Left = 100
    Top = 77
  end
  object DSCY: TDataSource
    DataSet = ADOTableCY
    Left = 100
    Top = 125
  end
  object ADOQueryTMP: TADOQuery
    Connection = ADOCnHJGL
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT bh,xm,py FROM '#25143#20027)
    Left = 232
    Top = 16
  end
  object DSTMP: TDataSource
    DataSet = ADOQueryTMP
    Left = 296
    Top = 16
  end
  object DSBH: TDataSource
    DataSet = ADOTableBH
    Left = 100
    Top = 181
  end
  object ADOTableBH: TADOTable
    Active = True
    Connection = ADOCnHJGL
    CursorType = ctStatic
    TableName = 'newbh'
    Left = 36
    Top = 181
    object ADOTableBHnextbh: TIntegerField
      FieldName = 'nextbh'
    end
  end
  object ADOTableXMPY: TADOTable
    Active = True
    Connection = ADOCnHJGL
    CursorType = ctStatic
    IndexFieldNames = 'bh'
    TableName = 'XMPY'
    Left = 36
    Top = 237
    object ADOTableXMPYbh: TIntegerField
      DisplayLabel = #32534#21495
      DisplayWidth = 6
      FieldName = 'bh'
    end
    object ADOTableXMPYxm: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 8
      FieldName = 'xm'
      Size = 8
    end
    object ADOTableXMPYpy: TWideStringField
      DisplayLabel = #25340#38899
      DisplayWidth = 4
      FieldName = 'py'
      Size = 4
    end
    object ADOTableXMPYwb: TWideStringField
      DisplayLabel = #20116#31508
      DisplayWidth = 4
      FieldName = 'wb'
      Size = 4
    end
    object ADOTableXMPYhz: TBooleanField
      DisplayLabel = #25143#20027
      DisplayWidth = 5
      FieldName = 'hz'
    end
  end
  object DSXMPY: TDataSource
    DataSet = ADOTableXMPY
    Left = 100
    Top = 237
  end
  object ADOCommandTMP: TADOCommand
    CommandText = 'XMPY'
    CommandType = cmdTable
    Connection = ADOCnHJGL
    Parameters = <>
    Left = 240
    Top = 80
  end
end