End If
    
    

End Sub

Private Sub cboZZMM_KeyPress(KeyAscii As Integer)
Dim sqlModify As String

If KeyAscii = 13 Then

    If bModify Then
        'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
            sqlModify = "update zbqkb set zzmm='" + Trim(cboZZMM) + "' where id=" + Trim(rec!ID) + ""
            dbStudent.Execute sqlModify
        'End If
    End If
    
    txtZY.SetFocus
End If
End Sub

Private Sub cboZZMM_LostFocus()
Dim sqlModify As String
    If bModify Then
        'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
            sqlModify = "update zbqkb set zzmm='" + Trim(cboZZMM) + "' where id=" + Trim(rec!ID) + ""
            dbStudent.Execute sqlModify
        'End If
    End If
    
    

End Sub

Private Sub cmdAddnew_Click()
AddnewStatus
InitItem
ShowStatus
YesEdit
End Sub

Private Sub cmdDelete_Click()
Dim sqlDelete As String
If MsgBox("您確定要刪除此記錄?", vbQuestion + vbOKCancel) = vbOK Then
    sqlDelete = "delete * from zbqkb where xh='" + Trim(rec!XH) + "'"
    dbStudent.Execute sqlDelete
    sqlDelete = "delete * from jtqkb where xh='" + Trim(txtXH) + "'"
    dbStudent.Execute sqlDelete
    UpdateQuery
Else
    QueryStatus
End If
ShowStatus
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdFirst_Click()
ShowStatus
StaBar1.Panels.Item(1) = "第" & CStr(BookMark) & "條"
StaBar1.Panels.Item(2) = "庫中共有" & CStr(recCount) & "條記錄"
If bAddnew Then
    UpdateQuery
End If
If bModify Then
    If MsgBox("要完成當前記錄修改?", vbQuestion + vbYesNo) = vbYes Then
        'MsgBox "如果要繼續修改" & vbCrLf & "請移到相應記錄后" & "按修改鍵"
        QueryStatus
        rec.MoveFirst
        ShowRecord
        BookMark = 1
    End If

End If
If bQuery Then
    BookMark = 1
    rec.MoveFirst
    ShowRecord
End If
ShowStatus
End Sub

Private Sub cmdLast_Click()
ShowStatus
StaBar1.Panels.Item(1) = "第" & CStr(BookMark) & "條"
StaBar1.Panels.Item(2) = "庫中共有" & CStr(recCount) & "條記錄"
If bAddnew Then
    UpdateQuery
End If
If bModify Then
    If MsgBox("要完成當前記錄修改?", vbQuestion + vbYesNo) = vbYes Then
        'MsgBox "如果要繼續修改" & vbCrLf & "請移到相應記錄后" & "按修改鍵"
        QueryStatus
        BookMark = recCount
        rec.MoveLast
        ShowRecord
    End If
End If
If bQuery Then
    BookMark = recCount
    rec.MoveLast
    ShowRecord
End If
ShowStatus
End Sub

Private Sub cmdModify_Click()
If cmdModify.Caption = "修改" Then
ModifyStatus
ShowStatus
YesEdit
cmdPrevious.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdFirst.Enabled = False
Exit Sub
End If
If cmdModify.Caption = "恢復" Then
QueryStatus
ShowStatus
NOEdit
cmdDelete.Enabled = True
cmdSave.Enabled = True
cmdAddnew.Enabled = True
cmdModify.Caption = "修改"
cmdPrevious.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
cmdFirst.Enabled = True
End If

End Sub

Private Sub cmdNext_Click()
ShowStatus
StaBar1.Panels.Item(1) = "第" & CStr(BookMark) & "條"
StaBar1.Panels.Item(2) = "庫中共有" & CStr(recCount) & "條記錄"
If bAddnew Then
    UpdateQuery
End If
If bModify Then
    If MsgBox("要完成當前記錄修改?", vbQuestion + vbYesNo) = vbYes Then
        'MsgBox "如果要繼續修改" & vbCrLf & "請移到相應記錄后" & "按修改鍵"
        QueryStatus
        If BookMark < recCount Then
            BookMark = BookMark + 1
            rec.MoveNext
        End If
        ShowRecord
     End If
End If
If bQuery Then
    If BookMark = recCount Then
        MsgBox "這是最后一條記錄!", vbInformation, "hello"
    Else
        BookMark = BookMark + 1
        rec.MoveNext
        ShowRecord
    End If
End If
ShowStatus
End Sub

Private Sub cmdPrevious_Click()
ShowStatus
StaBar1.Panels.Item(1) = "第" & CStr(BookMark) & "條"
StaBar1.Panels.Item(2) = "庫中共有" & CStr(recCount) & "條記錄"
If bAddnew Then
    UpdateQuery
End If
If bModify Then
    If MsgBox("要完成當前記錄修改?", vbQuestion + vbYesNo) = vbYes Then
        'MsgBox "如果要繼續修改" & vbCrLf & "請移到相應記錄后" & "按修改鍵"
        QueryStatus
        If BookMark > 1 Then
            BookMark = BookMark - 1
            rec.MovePrevious
        End If
        ShowRecord
    End If
End If
If bQuery Then
    If BookMark = 1 Then
        MsgBox "這是第一條記錄!", vbInformation, "hello"
    Else
        BookMark = BookMark - 1
        rec.MovePrevious
        ShowRecord
    End If
End If
ShowStatus
End Sub

Private Sub cmdSave_Click()
Dim sqlZBQKB As String
Dim sqlJTQKB As String

If CheckItem Then

    '輸入基本庫數據
    sqlZBQKB = "insert into zbqkb(xh,xm,csny,xb,mz,yx,bj,hksx,nj,sy,zzmm,tc,sfzhm,ltkhm,ss,dh,xl,zy,pyfs,byzx) "
    sqlZBQKB = sqlZBQKB + "values('" + Trim(txtXH) + "','" + Trim(txtXM) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(CDate(txtCSNY)) + "','" + Trim(cboXB) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(cboMZ) + "','" + Trim(cboYX) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(txtBJ) + "','" + Trim(cboHKSX) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(cboNJ) + "','" + Trim(cboSY) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(cboZZMM) + "','" + Trim(txtTC) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(txtSFZHM) + "','" + Trim(txtLTKHM) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(txtSS) + "','" + Trim(txtDH) + "','" + Trim(cboXL) + "',"
    sqlZBQKB = sqlZBQKB + "'" + Trim(txtZY) + "','" + Trim(cboPYFS) + "','" + Trim(txtBYZX) + "')"
    dbStudent.Execute sqlZBQKB
    
    '輸入家庭情況表
    sqlJTQKB = "insert into jtqkb(xh,xm,jzxm1,gx1,dw1,ym1,jzxm2,gx2,dw2,ym2,dh1,dh2)"
    sqlJTQKB = sqlJTQKB + "values('" + Trim(txtXH) + "','" + Trim(txtXM) + "',"
    sqlJTQKB = sqlJTQKB + "'" + Trim(txtJZXM1) + "','" + Trim(TXTGX1) + "',"
    sqlJTQKB = sqlJTQKB + "'" + Trim(txtDW1) + "','" + Trim(txtYM1) + "',"
    sqlJTQKB = sqlJTQKB + "'" + Trim(txtJZXM2) + "','" + Trim(txtGX2) + "',"
    sqlJTQKB = sqlJTQKB + "'" + Trim(txtDW2) + "','" + Trim(txtYM2) + "',"
    sqlJTQKB = sqlJTQKB + "'" + Trim(txtDH1) + "','" + Trim(txtDH2) + "')"
    dbStudent.Execute sqlJTQKB
Else
    Exit Sub
End If

InitItem

If MsgBox("繼續添加下一條記錄?", vbQuestion + vbYesNo, "提示框") = vbNo Then
    UpdateQuery
End If
ShowStatus
End Sub

Private Function CheckItem() As Boolean
'檢查數據重復
Dim recRepeat As Recordset
Dim sqlRepeat As String

CheckItem = True
sqlRepeat = "select * from zbqkb where xh='" + Trim(txtXH) + "'"
Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
If recRepeat.RecordCount <> 0 Then
   MsgBox "學號不能重復!", vbInformation + vbOKOnly, "錯誤"
   txtXH.SetFocus
   CheckItem = False
   recRepeat.Close
   Exit Function
End If

If txtXH = "" Or txtXM = "" Or cboXB = "" Then
    MsgBox "重要數據('學號'或'姓名'或'性別')未填寫!", vbInformation + vbOKOnly, "錯誤"
    CheckItem = False
    If txtXH = "" Then
        txtXH.SetFocus
    End If
    
    If txtXM = "" Then
       txtXM.SetFocus
    End If
    
    If cboXB = "" Then
       cboXB.SetFocus
    End If
    Exit Function
End If
If txtCSNY = " " Then
   txtCSNY = "2000/01/01"
Else
   If Not IsDate(txtCSNY) Then
      MsgBox "日期輸入不正確!", vbInformation + vbOKOnly, "錯誤"
      CheckItem = False
      txtCSNY = ""
      txtCSNY.SetFocus
      Exit Function
   End If
End If


End Function

Public Sub InitItem()
'初始化數據
On Error Resume Next
txtXH = ""
txtXM = ""
txtCSNY = ""
cboXB = ""
cboMZ = ""
cboYX = ""
txtBJ = ""
cboHKSX = ""
cboNJ = ""
cboSY = ""
cboZZMM = ""
txtTC = ""
txtSFZHM = ""
txtLTKHM = ""
txtSS = ""
txtZY = ""
cboPYFS = ""
txtBYZX = ""
txtDH = ""
cboXL = ""
txtJZXM1 = ""
TXTGX1 = ""
txtDW1 = ""
txtYM1 = ""
txtJZXM2 = ""
txtGX2 = ""
txtDW2 = ""
txtYM2 = ""
txtDH1 = ""
txtDH2 = ""
End Sub

Public Sub ComboData()
With cboMZ
  .AddItem "漢族"
  .AddItem "回族"
  .AddItem "藏族"
  .AddItem "滿族"
  .AddItem "壯族"
End With
With cboXL
  .AddItem "博士"
  .AddItem "碩士"
  .AddItem "本科"
  .AddItem "大專"
  .AddItem "進修生"
  .AddItem "雙學士"
End With
With cboXB
  .AddItem "男"
  .AddItem "女"
End With
With cboSY
  .AddItem "北京"
  .AddItem "天津"
  .AddItem "上海"
  .AddItem "重慶"
  .AddItem "黑龍"
  .AddItem "吉林"
  .AddItem "遼寧"
  .AddItem "內蒙"
  .AddItem "河北"
  .AddItem "河南"
  .AddItem "山西"
  .AddItem "陜西"
  .AddItem "寧夏"
  .AddItem "甘肅"
  .AddItem "青海"
  .AddItem "新疆"
  .AddItem "西藏"
  .AddItem "四川"
  .AddItem "云南"
  .AddItem "貴州"
  .AddItem "廣西"
  .AddItem "廣東"
  .AddItem "福建"
  .AddItem "江西"
  .AddItem "湖南"
  .AddItem "湖北"
  .AddItem "山東"
  .AddItem "安徽"
  .AddItem "江蘇"
  .AddItem "浙江"
End With
With cboYX
  .AddItem "船舶與海洋工程學院"
  .AddItem "動力與能源工程學院"
  .AddItem "電子信息學院"
  .AddItem "電力與能源學院"
  .AddItem "機械工程學院"
  .AddItem "理學院"
  .AddItem "人文社會科學學院"
  .AddItem "生命技術科學學院"
  .AddItem "化學化工學院"
  .AddItem "管理學院"
  .AddItem "建筑工程力學學院"
  .AddItem "外國語學院"
  .AddItem "塑性成形工程系"
  .AddItem "體育系"
End With
With cboNJ
  .AddItem "94級"
  .AddItem "95級"
  .AddItem "96級"
  .AddItem "97級"
  .AddItem "98級"
  .AddItem "99級"
  .AddItem "2000級"
End With
With cboZZMM
  .AddItem "黨員"
  .AddItem "團員"
  .AddItem "群眾"
End With
With cboHKSX
  .AddItem "城市"
  .AddItem "農村"
End With
With cboPYFS
    .AddItem "統分"
    .AddItem "委培"
    .AddItem "自費"
End With
End Sub


Public Sub UpdateQuery()
Dim sqlQuery As String
QueryStatus
sqlQuery = "select zbqkb.id,zbqkb.xh,zbqkb.xm,zbqkb.csny,zbqkb.xb,zbqkb.mz,zbqkb.xl,"
sqlQuery = sqlQuery & "zbqkb.yx,zbqkb.bj,zbqkb.hksx,zbqkb.nj,zbqkb.sy,zbqkb.zzmm,"
sqlQuery = sqlQuery & "zbqkb.tc,zbqkb.sfzhm,zbqkb.ltkhm,zbqkb.ss,zbqkb.dh,zbqkb.zy,"
sqlQuery = sqlQuery & "zbqkb.pyfs,zbqkb.