udm.dfm

Delphi学籍管理程序,以Delphi7.0为前台开发工具

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 326
  Top = 254
  Height = 375
  Width = 412
  object ADOConnection: TADOConnection
    ConnectionString = 'FILE NAME=SAAS.udl'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 24
  end
  object adSSCard: TADODataSet
    Connection = ADOConnection
    CursorType = ctStatic
    AfterPost = adSSCardAfterPost
    OnNewRecord = adSSCardNewRecord
    CommandText = 'select * from SSCard'
    Parameters = <>
    Left = 40
    Top = 80
    object adSSCardXH: TWideStringField
      DisplayLabel = #23398#21495
      DisplayWidth = 20
      FieldName = 'XH'
      Required = True
      Size = 50
    end
    object adSSCardCreateDate: TDateTimeField
      DisplayLabel = #24314#21345#26085#26399
      DisplayWidth = 10
      FieldName = 'CreateDate'
    end
    object adSSCardMemo: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      BlobType = ftMemo
    end
    object adSSCardCurClass: TWideStringField
      DisplayLabel = #24403#21069#29677#32423
      DisplayWidth = 10
      FieldName = 'CurClass'
      Size = 50
    end
    object adSSCardName: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 10
      FieldName = 'Name'
    end
    object adSSCardSex: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      Size = 4
    end
    object adSSCardPeople: TWideStringField
      DisplayLabel = #27665#26063
      DisplayWidth = 4
      FieldName = 'People'
    end
    object adSSCardBirthday: TDateTimeField
      DisplayLabel = #20986#29983#24180#26376
      DisplayWidth = 10
      FieldName = 'Birthday'
    end
    object adSSCardNative: TWideStringField
      DisplayLabel = #31821#36143
      DisplayWidth = 10
      FieldName = 'Native'
      Size = 50
    end
    object adSSCardMOT: TWideStringField
      DisplayLabel = #26159#21542#28872#23646#12289#21326#20392#12289#21488#32990#23376#22899
      DisplayWidth = 10
      FieldName = 'MOT'
    end
    object adSSCardRegKind: TWideStringField
      DisplayLabel = #25143#21475#24615#36136
      DisplayWidth = 10
      FieldName = 'RegKind'
    end
    object adSSCardRegPS: TWideStringField
      DisplayLabel = #25143#31821#25152#22312#22320#27966#20986#25152
      DisplayWidth = 20
      FieldName = 'RegPS'
      Size = 100
    end
    object adSSCardAddress: TWideStringField
      DisplayLabel = #23478#24237#20303#22336
      DisplayWidth = 40
      FieldName = 'Address'
      Size = 100
    end
    object adSSCardAddPS: TWideStringField
      DisplayLabel = #25152#23646#27966#20986#25152
      DisplayWidth = 20
      FieldName = 'AddPS'
      Size = 100
    end
    object adSSCardRAMR: TMemoField
      DisplayLabel = #20303#22336#12289#25143#31821#21464#26356#35760#36733
      FieldName = 'RAMR'
      BlobType = ftMemo
    end
    object adSSCardGSPhoto: TBlobField
      DisplayLabel = #23567#23398#29031#29255
      FieldName = 'GSPhoto'
    end
    object adSSCardJHSPhoto: TBlobField
      DisplayLabel = #21021#20013#29031#29255
      FieldName = 'JHSPhoto'
    end
  end
  object dsSSCard: TDataSource
    DataSet = adSSCard
    Left = 40
    Top = 152
  end
  object dsFamily: TDataSource
    DataSet = atFamily
    Left = 104
    Top = 152
  end
  object dsGrade: TDataSource
    DataSet = atGrade
    Left = 168
    Top = 152
  end
  object dsZXFL: TDataSource
    DataSet = atZXFL
    Left = 224
    Top = 152
  end
  object dsGraduate: TDataSource
    DataSet = atGraduate
    Left = 280
    Top = 152
  end
  object atFamily: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'XH'
    MasterFields = 'XH'
    MasterSource = dsSSCard
    TableName = 'Family'
    Left = 104
    Top = 80
    object atFamilyID: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'ID'
      ReadOnly = True
    end
    object atFamilyXH: TWideStringField
      DisplayLabel = #23398#21495
      FieldName = 'XH'
      Size = 50
    end
    object atFamilyTitle: TWideStringField
      DisplayLabel = #31216#35859
      FieldName = 'Title'
      Size = 10
    end
    object atFamilyName: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'Name'
    end
    object atFamilyWorkPlace: TWideStringField
      DisplayLabel = #24037#20316#21333#20301
      FieldName = 'WorkPlace'
      Size = 100
    end
    object atFamilyBusiness: TWideStringField
      DisplayLabel = #32844#21153
      FieldName = 'Business'
    end
    object atFamilyTel: TWideStringField
      DisplayLabel = #30005#35805
      FieldName = 'Tel'
    end
  end
  object atZXFL: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'XH'
    MasterFields = 'XH'
    MasterSource = dsSSCard
    TableName = 'ZXFL'
    Left = 224
    Top = 80
    object atZXFLID: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'ID'
      ReadOnly = True
    end
    object atZXFLXH: TWideStringField
      DisplayLabel = #23398#21495
      FieldName = 'XH'
      Size = 50
    end
    object atZXFLEvent: TWideStringField
      DisplayLabel = #39033#30446
      FieldName = 'Event'
      Size = 10
    end
    object atZXFLEDate: TDateTimeField
      DisplayLabel = #26102#38388
      FieldName = 'EDate'
    end
    object atZXFLMemo: TWideStringField
      DisplayLabel = #20869#23481
      FieldName = 'Memo'
      Size = 100
    end
    object atZXFLFillMan: TWideStringField
      DisplayLabel = #22635#20889#20154
      FieldName = 'FillMan'
    end
  end
  object atGraduate: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'XH'
    MasterFields = 'XH'
    MasterSource = dsSSCard
    TableName = 'Graduate'
    Left = 280
    Top = 80
    object atGraduateID: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'ID'
      ReadOnly = True
    end
    object atGraduateXH: TWideStringField
      DisplayLabel = #23398#21495
      FieldName = 'XH'
      Size = 50
    end
    object atGraduateCourse: TWideStringField
      DisplayLabel = #35838#31243
      FieldName = 'Course'
      Size = 50