?? frmbaseinput.frm

?? Vb以及SQL的學生信息系統軟件簡介: 學生信息管理系統
?? FRM
?? 第 1 頁 / 共 5 頁
字號:
上一頁 1 2 3 45
    cboHKSX.SetFocus
End If
End Sub

Private Sub cboZZMM_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then

    If bModify Then
        sqlModify = "update zbqkb set zzmm='" + Trim(cboZZMM) + "' where id=" + Trim(REC!ID) + ""
        Dbstudent.Execute sqlModify
    End If
    
    txtZY.SetFocus
End If
End Sub

Private Sub cmdAddnew_Click()
On Error Resume Next
AddnewStatus
InitItem
txtXH.SetFocus
End Sub

Private Sub cmdDelete_Click()
On Error Resume Next
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
End Sub

Private Sub cmdExit_Click()
On Error Resume Next
Unload Me
End Sub

Private Sub cmdFirst_Click()
On Error Resume Next
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 & "請移到相應記錄后" & "按修改鍵", vbInformation
        QueryStatus
        REC.MoveFirst
        ShowRecord
        BookMark = 1
    End If
End If
If bQuery Then
    BookMark = 1
    REC.MoveFirst
    ShowRecord
    cmdSave.Caption = "保存"
End If
End Sub

Private Sub cmdLast_Click()
On Error Resume Next
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 & "請移到相應記錄后" & "按修改鍵", vbInformation
        QueryStatus
        BookMark = recCount
        REC.MoveLast
        ShowRecord
    End If
End If
If bQuery Then
    BookMark = recCount
    REC.MoveLast
    ShowRecord
    cmdSave.Caption = "保存"
End If

End Sub

Private Sub cmdModify_Click()
On Error Resume Next
ModifyStatus
End Sub

Private Sub cmdNext_Click()
On Error Resume Next
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 & "請移到相應記錄后" & "按修改鍵", vbInformation
        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 + vbOKOnly, "提示框"
    Else
        BookMark = BookMark + 1
        REC.MoveNext
        ShowRecord
        cmdSave.Caption = "保存"
    End If
End If

End Sub

Private Sub cmdPrevious_Click()
On Error Resume Next
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 + vbOKOnly
    Else
        BookMark = BookMark - 1
        REC.MovePrevious
        ShowRecord
        cmdSave.Caption = "保存"
    End If
End If
End Sub

Private Sub cmdSave_Click()
If cmdSave.Caption = "保存" Then
Dim sqlZBQKB As String
Dim sqlJTQKB As String
On Error Resume Next
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
Else
If cmdSave.Caption = "恢復" Then
cmdSave.Caption = "保存"
cmdSave.Enabled = False
cmdModify.Enabled = True
cmdAddnew.Enabled = True
cmdDelete.Enabled = True
bModify = False
BADDNEW = False
bDelete = False
bQuery = True
End If
End If
End Sub


Private Function CheckItem() As Boolean
'檢查數據重復
Dim recRepeat As Recordset
Dim sqlRepeat As String
On Error Resume Next
CheckItem = True
sqlRepeat = "select * from zbqkb where xh='" + Trim(txtXH) + "'"
Set recRepeat = Dbstudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
If recRepeat.RecordCount <> 0 Then
   MsgBox "學號不能重復!", vbCritical + vbOKOnly, "錯誤"
   txtXH.SetFocus
   CheckItem = False
   recRepeat.Close
   Exit Function
End If

If txtXH = "" Or txtXM = "" Or cboXB = "" Then
    MsgBox "重要數據('學號'或'姓名'或'性別')未填寫!", vbCritical + 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 "日期輸入不正確!", vbCritical + vbOKOnly, "錯誤"
      CheckItem = False
      txtCSNY = ""
      txtCSNY.SetFocus
      Exit Function
   End If
End If


End Function

Public Sub InitItem()
'初始化數據
On Error Resume Next
If MLOCK1.Checked = False Then txtXH = ""
txtXM = ""
txtCSNY = ""
If MLOCK2.Checked = False Then cboXB = ""
If MLOCK3.Checked = False Then cboMZ = ""
If MLOCK4.Checked = False Then cboYX = ""
If MLOCK6.Checked = False Then txtBJ = ""
If MLOCK5.Checked = False Then cboHKSX = ""
If MLOCK7.Checked = False Then cboNJ = ""
cboSY = ""
If MLOCK8.Checked = False Then cboZZMM = ""
txtTC = ""
If MLOCK14.Checked = False Then txtSFZHM = ""
If MLOCK15.Checked = False Then txtLTKHM = ""
If MLOCK12.Checked = False Then txtSS = ""
If MLOCK9.Checked = False Then txtZY = ""
If MLOCK11.Checked = False Then cboPYFS = ""
txtBYZX = ""
If MLOCK13.Checked = False Then txtDH = ""
If MLOCK10.Checked = False Then cboXL = ""
txtJZXM1 = ""
txtGX1 = ""
txtDW1 = ""
txtYM1 = ""
txtJZXM2 = ""
txtGX2 = ""
txtDW2 = ""
txtYM2 = ""
txtDH1 = ""
txtDH2 = ""
End Sub

Public Sub ComboData()
On Error Resume Next
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 "塑性成形工程系"
  .AddItem "體育系"
End With
With cboNJ
  .AddItem "94級"
  .AddItem "95級"
  .AddItem "96級"
  .AddItem "97級"
  .AddItem "98級"
  .AddItem "99級"
  .AddItem "2000級"
  .AddItem "2001級"
  .AddItem "2002級"
  .AddItem "2003級"
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
On Error Resume Next
QueryStatus
sqlQuery = "select zbqkb.id,zbqkb.xh,zbqkb.xm,zbqkb.csny,
上一頁 1 2 3 45
?? 文件大小 1049 K
?? 上傳用戶 hahuhuhuhu
?? 所屬分類教育系統應用
??? 相關標簽

#SQL #信息系統 #信息管理系統 #軟件
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmbaseinput.frm

?? 快捷鍵說明
