[code=vb


這是修改后代碼(紅色字體是我自己加的,加上去就不行了)
Dim photofile As String
Dim Lastx As Single, Lasty As Single
Private Sub clsphoto_Click()
On Error GoTo err
Set rs = New ADODB.Recordset
Dim strrs As String
strrs = "select * from t_group where 組名 ='" & Cmbgroupname.Text & "'"
rs.Open strrs, conn, adOpenKeyset, adLockBatchOptimistic
groupID = Trim(rs.Fields("組ID")) ' 記錄組ID
rs.Close
Dim obj As String
Set rs = New ADODB.Recordset
obj = "select * from 個人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
photo.Picture = LoadPicture(none)
rs.Update
'rs.Close
newflag = True
Exit Sub
err:
MsgBox "出現錯誤!", , "提示"
End Sub
Private Sub CmdOk_Click(Index As Integer) '確定更新 聯系人資訊
Dim strrs As String
Dim obj As String
On Error GoTo err
Select Case Index
Case 0
Set rs = New ADODB.Recordset
strrs = "select * from t_group where 組名 ='" & Cmbgroupname.Text & "'"
rs.Open strrs, conn, adOpenKeyset, adLockBatchOptimistic
groupID = rs.Fields("組ID") ' 記錄組ID
rs.Close
Set rs = New ADODB.Recordset
obj = "select * from 個人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
If txtname.Text = "" Then '姓 名 不能為空
MsgBox "姓名不能為空!", , "錯誤!"
Exit Sub
End If
rs.Fields("組ID") = groupID
rs.Fields("姓名") = txtname.Text
rs.Fields("一卡通序號") = txtxuhao.Text
rs.Fields("性別") = cbosex.Text
rs.Fields("班級") = txtclass.Text
rs.Fields("科目") = cbozhiwu.Text
rs.Fields("手機號碼") = txtdianhua.Text
rs.Fields("QQ號碼") = txtqq.Text
rs.Fields("電子郵箱") = txtmail.Text
rs.Fields("備注") = txtfuzhu.Text
rs.Fields("周考成績") = txtweekg.Text
rs.Fields("月考成績") = txtmonthg.Text
rs.Fields("期中成績") = txtmidg.Text
rs.Fields("期末成績") = txtfinalg.Text
If photo.Picture = LoadPicture(none) Then
rs.Fields("照片") = ""
Else
rs.Fields("照片") = photofile
End If
rs.Update
rs.Close
newflag = True
Unload Me
Exit Sub
Case 1
Set rs = New ADODB.Recordset
strrs = "select * from t_group where 組名 ='" & Cmbgroupname.Text & "'"
rs.Open strrs, conn, adOpenKeyset, adLockBatchOptimistic
groupID = rs.Fields("組ID") ' 記錄組ID
rs.Close
Set rs = New ADODB.Recordset
obj = "select * from 個人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
If txtname.Text = "" Then '姓 名 不能為空
MsgBox "姓名不能為空!", , "錯誤!"
Exit Sub
End If
rs.Fields("組ID") = groupID
rs.Fields("姓名") = txtname.Text
rs.Fields("一卡通序號") = txtxuhao.Text
rs.Fields("性別") = cbosex.Text
rs.Fields("班級") = txtclass.Text
rs.Fields("科目") = cbozhiwu.Text
rs.Fields("手機號碼") = txtdianhua.Text
rs.Fields("QQ號碼") = txtqq.Text
rs.Fields("電子郵箱") = txtmail.Text
rs.Fields("備注") = txtfuzhu.Text
rs.Fields("周考成績") = txtweekg.Text
rs.Fields("月考成績") = txtmonthg.Text
rs.Fields("期中成績") = txtmidg.Text
rs.Fields("期末成績") = txtfinalg.Text
If photo.Picture = LoadPicture(none) Then
rs.Fields("照片") = ""
Else
rs.Fields("照片") = photofile
End If
rs.Update
rs.Close
MsgBox "修改成功", 0 + 64, "提示"
newflag = True
Call lianjie
Dim sql As String
Dim i As Integer
Set rs = New ADODB.Recordset
sql = "select * from 個人 where ID = " & jilu
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
groupID = Trim(rs("組ID")) '記錄組ID
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group where 組ID=" & groupID
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
If groupID <> -1 Then
Cmbgroupname.Text = Trim(rs("組名")) '當前組員的組
End If
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group "
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
i = 1
While Not rs.EOF
Cmbgroupname.AddItem rs("組名")
rs.MoveNext
i = i + 1
Wend
rs.Close
Set rs = New ADODB.Recordset
obj = "select * from 個人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
lbl1.Caption = "在此輸入 " & rs("姓名") & " 的詳細資訊"
rs.Close
Set rs = New ADODB.Recordset
strrs = "select * from 個人 where ID=" & jilu
rs.Open strrs, conn, adOpenKeyset, adLockOptimistic
txtname.Text = Trim("" & rs.Fields("姓名"))
txtxuhao.Text = Trim("" & rs.Fields("一卡通序號"))
cbosex.Text = rs.Fields("性別")
txtclass.Text = Trim("" & rs.Fields("班級"))
cbozhiwu.Text = Trim("" & rs.Fields("科目"))
txtdianhua.Text = Trim("" & rs.Fields("手機號碼"))
txtqq.Text = Trim("" & rs.Fields("QQ號碼"))
txtmail.Text = Trim("" & rs.Fields("電子郵箱"))
txtfuzhu.Text = Trim("" & rs.Fields("備注"))
txtweekg.Text = Trim("" & rs.Fields("周考成績"))
txtmonthg.Text = Trim("" & rs.Fields("月考成績"))
txtmidg.Text = Trim("" & rs.Fields("期中成績"))
txtfinalg.Text = Trim("" & rs.Fields("期末成績"))
If rs.Fields("照片") <> "" Then photo.Picture = LoadPicture(rs.Fields("照片"))
rs.Close
Exit Sub
End Select
err:
If err.Number = -2147467259 Then
MsgBox "序號不能重復!", vbCritical
Else
MsgBox "出現錯誤,請檢查資料!", 0 + 64, "提示!"
Exit Sub
End If
End Sub
Private Sub cmdend_Click() '退出
Unload Me
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
frmmain.Enabled = False
frmfind.Enabled = False
cbosex.AddItem "男"
cbosex.AddItem "女"
cbosex.ListIndex = 0
cbozhiwu.AddItem "管理員"
cbozhiwu.AddItem "校長"
cbozhiwu.AddItem "副校長"
cbozhiwu.AddItem "處室主任"
cbozhiwu.AddItem "在職教師"
cbozhiwu.AddItem "已退出"
cbozhiwu.ListIndex = 0
On Error GoTo err
Call lianjie
Dim sql As String
Dim i As Integer
Set rs = New ADODB.Recordset
sql = "select * from 個人 where ID = " & jilu
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
groupID = Trim(rs("組ID")) '記錄組ID
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group where 組ID=" & groupID
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
If groupID <> -1 Then
Cmbgroupname.Text = Trim(rs("組名")) '當前組員的組
End If
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group "
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
i = 1
While Not rs.EOF
Cmbgroupname.AddItem rs("組名")
rs.MoveNext
i = i + 1
Wend
rs.Close
Dim obj As String
Set rs = New ADODB.Recordset
obj = "select * from 個人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
lbl1.Caption = "在此輸入 " & rs("姓名") & " 的詳細資訊"
rs.Close
Set rs = New ADODB.Recordset
Dim strrs As String
strrs = "select * from 個人 where ID=" & jilu
rs.Open strrs, conn, adOpenKeyset, adLockOptimistic
txtname.Text = Trim("" & rs.Fields("姓名"))
txtxuhao.Text = Trim("" & rs.Fields("一卡通序號"))
cbosex.Text = rs.Fields("性別")
txtclass.Text = Trim("" & rs.Fields("班級"))
cbozhiwu.Text = Trim("" & rs.Fields("科目"))
txtdianhua.Text = Trim("" & rs.Fields("手機號碼"))
txtqq.Text = Trim("" & rs.Fields("QQ號碼"))
txtmail.Text = Trim("" & rs.Fields("電子郵箱"))
txtfuzhu.Text = Trim("" & rs.Fields("備注"))
txtweekg.Text = Trim("" & rs.Fields("周考成績"))
txtmonthg.Text = Trim("" & rs.Fields("月考成績"))
txtmidg.Text = Trim("" & rs.Fields("期中成績"))
txtfinalg.Text = Trim("" & rs.Fields("期末成績"))
If rs.Fields("照片") <> "" Then photo.Picture = LoadPicture(rs.Fields("照片"))
rs.Close
err:
Exit Sub
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Lastx = x
Lasty = y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
Me.Left = Me.Left + (x - Lastx)
Me.Top = Me.Top + (y - Lasty)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmmain.Enabled = True
frmfind.Enabled = True
End Sub
Private Sub killphoto_Click()
On Error GoTo errkillphoto:
Dim killimg As Integer
killimg = MsgBox("進行此操作將洗掉照片!是否繼續?", 1 + 48 + 256, "警告")
If killimg = 1 Then
Kill photofile
errkillphoto:
MsgBox "出現錯誤!", , "提示"
End If
End Sub
Private Sub loadphoto_Click()
On Error GoTo errHandler:
dlgSelect.DialogTitle = "選擇照片"
dlgSelect.Filter = "所有圖形檔案|*.bmp;*.dib;*.gif;*.jpg;*.ico|位圖檔案(*.bmp;*.dib)|*.bmp;*.dib|GIF檔案(*.gif)|*.gif|JPEG檔案(*.jpg)|*.jpg|圖示檔案(*.ico)|*.ico"
dlgSelect.ShowOpen
If dlgSelect.FileName = "" Then Exit Sub
photofile = dlgSelect.FileName
photo.Picture = LoadPicture(dlgSelect.FileName)
Exit Sub
errHandler:
MsgBox err.Description, vbCritical, "錯誤"
End Sub
Private Sub photo_MouseUP(Button As Integer, Shift As Integer, x As Single, y As Single)
If photo.Picture = LoadPicture(none) Then
killphoto.Enabled = False
Else
killphoto.Enabled = True
End If
If Button = 2 Then
PopupMenu menuphoto
End If
End Sub
Private Sub Picexit_Click()
Unload Me
End Sub
Private Sub txtweekg_Change()
End Sub
uj5u.com熱心網友回復:
具體是什么錯誤?你“加上去”的那幾句,使用的控制元件名稱與代碼相符嗎!資料庫中有對應的欄位嗎!
你到底是哪“不行”,要說明白啊! 難道讓別人去猜???
uj5u.com熱心網友回復:
控制元件名稱和代碼相符,就是listviewd點擊資料后不顯示了,其他的我也不太懂
uj5u.com熱心網友回復:
十有八九是資料庫里沒有這四個欄位,你還是去看看資料庫里有沒有這四項吧。uj5u.com熱心網友回復:
真是莫明其妙,你的那幾句代碼,跟 listview 有個毛關系啊。
都是text控制元件、記錄(集)的欄位操作的……
uj5u.com熱心網友回復:
應該是資料庫欄位的問題uj5u.com熱心網友回復:
"個人"這張表根本就沒有這四個欄位。去改表結構!uj5u.com熱心網友回復:
八成是在另一個表中。用另一個記錄集物件(例如 rs1)打開,同樣處理。uj5u.com熱心網友回復:
要在資料庫的表結構增加你這4個欄位。uj5u.com熱心網友回復:
程式太長,不好看懂,建議簡化一下問題程式,能看的明白些。uj5u.com熱心網友回復:
紅色字體是我自己加的,加上去就不行了很明顯,肯定是你的資料表中沒有這些欄位,手工打開 個人 資料表,添加 "周考成績"、"月考成績"、"期中成績"、"期末成績" 四個欄位,資料型別是整型資料將應該沒有問題了。
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/40393.html
標籤:控件
