學(xué)生信息管理系統(tǒng)代碼

1、文檔供參考，可復(fù)制、編制，期待您的好評(píng)與關(guān)注！ 主要代碼如下：1、登錄界面代碼：Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset Static i% cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalo

2、g=students info;Data Source=C1847" cn.Open usna = Trim(Text1.Text) mysql = "select * from 用戶表 where 用戶名='" & usna & "'" rst.Open mysql, cn If rst.EOF Then MsgBox "用戶名不存在！" cn.Close Text1.Text = "" Text2.Text = "" Text1.SetFocus E

3、lse If Trim(rst("密碼") = Trim(Text2.Text) Then 管理界面.Show Else i = i + 1 If i < 3 Then MsgBox "用戶名或密碼錯(cuò)誤！", vbOKOnly + vbExclamation, "警告" cn.Close Text2.Text = "" Text1.Text = "" Text1.SetFocus Else MsgBox "該用戶已被鎖定！", vbOKOnly + vbExclamat

4、ion, "警告" End If End If End If End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub2、管理界面代碼：Private Sub Sinsert_Click()添加學(xué)生信息.ShowEnd SubPrivate Sub Sselect_Click()查詢學(xué)生信息.ShowEnd SubPrivate Sub sustu_Click()查詢更新學(xué)生信息.ShowEnd S

5、ubPrivate Sub xgmm_Click()修改密碼.ShowEnd SubPrivate Sub yhzc_Click()用戶注冊(cè).ShowEnd Sub3、查詢學(xué)生信息代碼：Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Se

6、curity Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open If Combo1.Text <> "" Then mysql = "select * from 學(xué)生信息表 where 系別='" & Trim(Combo1.Text) & "'" rst.Open mysql, cn If rst.EOF Then MsgBox "沒(méi)有學(xué)生!", vbO

7、KOnly + vbExclamation, "警告" Combo1.Text = "" Else With MSFlexGrid1 .TextMatrix(0, 1) = "學(xué)號(hào)" .TextMatrix(0, 2) = "姓名" .TextMatrix(0, 3) = "性別" .TextMatrix(0, 4) = "年齡" .TextMatrix(0, 5) = "系別" .TextMatrix(0, 6) = "班級(jí)" MSF

8、lexGrid1.Rows = 1 '每次查詢自動(dòng)定位到第一行 Do While Not rst.EOF .Rows = .Rows + 1 .CellAlignment = 8 .TextMatrix(.Rows - 1, 1) = rst.Fields("學(xué)號(hào)") .TextMatrix(.Rows - 1, 2) = rst.Fields("姓名") .TextMatrix(.Rows - 1, 3) = rst.Fields("性別") .TextMatrix(.Rows - 1, 4) = rst.Fields(&q

9、uot;年齡") .TextMatrix(.Rows - 1, 5) = rst.Fields("系別") .TextMatrix(.Rows - 1, 6) = rst.Fields("班級(jí)") rst.MoveNext Loop End With End If ElseIf Combo2.Text <> "" Then mysql = "select * from 學(xué)生信息表 where 班級(jí)='" & Trim(Combo2.Text) & "'

10、" rst.Open mysql, cn If rst.EOF Then MsgBox "沒(méi)有學(xué)生!", vbOKOnly + vbExclamation, "警告" Combo1.Text = "" Else With MSFlexGrid1 .TextMatrix(0, 1) = "學(xué)號(hào)" .TextMatrix(0, 2) = "姓名" .TextMatrix(0, 3) = "性別" .TextMatrix(0, 4) = "年齡" .T

11、extMatrix(0, 5) = "系別" .TextMatrix(0, 6) = "班級(jí)" MSFlexGrid1.Rows = 1 '每次查詢自動(dòng)定位到第一行 Do While Not rst.EOF .Rows = .Rows + 1 .CellAlignment = 8 .TextMatrix(.Rows - 1, 1) = rst.Fields("學(xué)號(hào)") .TextMatrix(.Rows - 1, 2) = rst.Fields("姓名") .TextMatrix(.Rows - 1, 3)

12、 = rst.Fields("性別") .TextMatrix(.Rows - 1, 4) = rst.Fields("年齡") .TextMatrix(.Rows - 1, 5) = rst.Fields("系別") .TextMatrix(.Rows - 1, 6) = rst.Fields("班級(jí)") rst.MoveNext Loop End With End If ElseIf Text1.Text <> "" Then mysql = "select * fro

13、m 學(xué)生信息表 where 學(xué)號(hào)='" & Trim(Text1.Text) & "'" rst.Open mysql, cn If rst.EOF Then MsgBox "沒(méi)有學(xué)生!", vbOKOnly + vbExclamation, "警告" Combo1.Text = "" Else With MSFlexGrid1 .TextMatrix(0, 1) = "學(xué)號(hào)" .TextMatrix(0, 2) = "姓名" .Te

14、xtMatrix(0, 3) = "性別" .TextMatrix(0, 4) = "年齡" .TextMatrix(0, 5) = "系別" .TextMatrix(0, 6) = "班級(jí)" MSFlexGrid1.Rows = 1 '每次查詢自動(dòng)定位到第一行 Do While Not rst.EOF .Rows = .Rows + 1 .CellAlignment = 8 .TextMatrix(.Rows - 1, 1) = rst.Fields("學(xué)號(hào)") .TextMatrix

15、(.Rows - 1, 2) = rst.Fields("姓名") .TextMatrix(.Rows - 1, 3) = rst.Fields("性別") .TextMatrix(.Rows - 1, 4) = rst.Fields("年齡") .TextMatrix(.Rows - 1, 5) = rst.Fields("系別") .TextMatrix(.Rows - 1, 6) = rst.Fields("班級(jí)") rst.MoveNext Loop End With End IfEls

16、e MsgBox "請(qǐng)輸入查詢條件!", vbOKOnly + vbExclamation, "警告" End If End SubPrivate Sub Command2_Click()Combo1.Text = ""Combo2.Text = ""Text1.Text = ""End SubPrivate Sub Command3_Click()修改學(xué)生信息.ShowEnd Sub '修改學(xué)生信息Private Sub Command4_Click() Set cn = New AD

17、ODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open mysql = "delete from 學(xué)生信息表 where 學(xué)號(hào)='" & Text1.Text & "'" rst.Open mys

18、ql, cn MsgBox "刪除成功!", vbOKOnly + vbExclamation, "警告" End SubPrivate Sub Form_Load()Combo1.AddItem "信息服務(wù)學(xué)院"Combo1.AddItem "電子信息工程系"Combo2.AddItem "40821P"Combo2.AddItem "40811P"Combo2.AddItem "40822P"Combo2.AddItem "40721P&qu

19、ot;End Sub4、添加學(xué)生信息代碼Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Form_Load()Combo1.AddItem "信息服務(wù)學(xué)院"Combo1.AddItem "電子信息工程系"Combo2.AddItem "40821P"Combo2.AddItem "40811P"Combo2.AddItem "40822P"Combo2.AddItem "40721P&quo

20、t;End SubPrivate Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.OpenDim sex As String usna = Trim(Text1.Text) mysql = &quo

21、t;select * from 學(xué)生信息表 where 學(xué)號(hào)='" & usna & "'" rst.Open mysql, cn If rst.EOF Then rst.Close Else rst.Close MsgBox "該學(xué)生信息已存在!", vbOKOnly + vbExclamation, "警告" Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text =

22、 "" Combo2.Text = "" Option1.Value = False Text1.SetFocus End IfIf Text1.Text = "" Then MsgBox "請(qǐng)輸入學(xué)號(hào)！", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Exit Sub End IfIf Text2.Text = "" Then MsgBox "請(qǐng)輸入姓名！", vbOKOnly + vbExclamatio

23、n, "警告" Text2.SetFocus Exit Sub End IfIf Text3.Text = "" Then MsgBox "請(qǐng)輸入年齡！", vbOKOnly + vbExclamation, "警告" Text3.SetFocus Exit Sub End IfIf Option1.Value Then sex = "男" Else sex = "女"End Ifxh = Trim(Text1.Text)xm = Trim(Text2.Text)xb = s

24、exnl = Trim(Text3.Text)xofy = Trim(Combo1.Text)bj = Trim(Combo2.Text)mysql = "insert into 學(xué)生信息表(學(xué)號(hào),姓名,性別,年齡,系別,班級(jí)) values ('" & xh & "','" & xm & "','" & xb & "','" & nl & "','" &

25、; xofy & "','" & bj & "')"rst.Open mysql, cnMsgBox ("信息添加成功!") Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Combo2.Text = "" Option1.Value = FalseEnd Sub5、修改密碼：Dim rst As New A

26、DODB.Recordset Dim cn As New ADODB.ConnectionPrivate Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open If Text1.Text = &

27、quot;" Then MsgBox "請(qǐng)輸入密碼！", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Exit Sub End IfIf Text2.Text = "" Then MsgBox "請(qǐng)輸入新密碼！", vbOKOnly + vbExclamation, "警告" Text2.SetFocus Exit Sub End IfIf Text3.Text = "" Then MsgBox "請(qǐng)確認(rèn)輸入

28、的新密碼！", vbOKOnly + vbExclamation, "警告" Text3.SetFocus Exit Sub End IfIf Text2.Text = Text3.Text Thenxmm = Trim(Text2.Text)mysql = "update 用戶表 set 密碼 = '" & xmm & "' where 用戶名 = '" & 登陸.Text1.Text & "'"rst.Open mysql, cnMsgB

29、ox ("密修改成功!")End If End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub6、修改學(xué)生信息代碼：Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Rec

30、ordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open usna = Trim(Text1.Text) mysql = "select * from 學(xué)生信息表 where 學(xué)號(hào)='" & usna & "'" rst.Open mysql, cn rst.Close m

31、ysql = "delete from 學(xué)生信息表 where 學(xué)號(hào)='" & Text1.Text & "'" rst.Open mysql, cn If Text1.Text = "" Then MsgBox "請(qǐng)輸入學(xué)號(hào)！", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Exit Sub End IfIf Text2.Text = "" Then MsgBox "請(qǐng)輸入姓名！&qu

32、ot;, vbOKOnly + vbExclamation, "警告" Text2.SetFocus Exit Sub End IfIf Text3.Text = "" Then MsgBox "請(qǐng)輸入年齡！", vbOKOnly + vbExclamation, "警告" Text3.SetFocus Exit Sub End IfIf Option1.Value Then sex = "男" Else sex = "女"End Ifxh = Trim(Text1.Text

33、)xm = Trim(Text2.Text)xb = sexnl = Trim(Text3.Text)xofy = Trim(Combo1.Text)bj = Trim(Combo2.Text)mysql = "insert into 學(xué)生信息表(學(xué)號(hào),姓名,性別,年齡,系別,班級(jí)) values ('" & xh & "','" & xm & "','" & xb & "','" & nl &

34、"','" & xofy & "','" & bj & "')"rst.Open mysql, cnMsgBox ("信息修改成功!") Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Combo2.Text = "" Option1.Value = False E

35、nd SubPrivate Sub Form_Load()Combo1.AddItem "信息服務(wù)學(xué)院"Combo1.AddItem "電子信息工程系"Combo2.AddItem "40821P"Combo2.AddItem "40811P"Combo2.AddItem "40822P"Combo2.AddItem "40721P"End Sub7、用戶注冊(cè)代碼：Dim rst As New ADODB.Recordset Dim cn As New ADODB.Conne

36、ctionPrivate Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open If Text1.Text = "" Then MsgBox "請(qǐng)輸入用戶名！&qu

37、ot;, vbOKOnly + vbExclamation, "警告" Text1.SetFocus Exit Sub End IfIf Text2.Text = "" Then MsgBox "請(qǐng)輸入密碼！", vbOKOnly + vbExclamation, "警告" Text2.SetFocus Exit Sub End IfIf Text3.Text = "" Then MsgBox "請(qǐng)?jiān)俅屋斎朊艽a！", vbOKOnly + vbExclamation, &qu

38、ot;警告" Text3.SetFocus Exit Sub End Ifsryhm = Trim(Text1.Text)srmm = Trim(Text2.Text)mysql = "insert into 用戶表(用戶名,密碼) values ('" & sryhm & "','" & srmm & "')"rst.Open mysql, cnMsgBox ("用戶添加成功!")Text1.Text = ""Text2

39、.Text = ""Text3.Text = "" End Sub '添加用戶Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub '重置按鈕Private Sub Command3_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = "

40、Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open usna = Trim(Text1.Text) mysql = "select * from 用戶表 where 用戶名='" & usna & "'" rst.Open mysql, cn If rst.EOF Then MsgBox "用戶名可用！" Else

41、MsgBox "用戶名已存在！", vbOKOnly + vbExclamation, "警告" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus Exit Sub End IfEnd Sub '檢查用戶名Private Sub Command4_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionStr

42、ing = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open usna = Trim(Text1.Text) mysql = "select * from 用戶表 where 用戶名='" & usna & "'" rst.Open mysql, cn If rst.EOF Then MsgBox "無(wú)此用戶名，

43、刪除不成功！", vbOKOnly + vbExclamation, "警告" Else rst.Close usna = Trim(Text1.Text) mysql = "delete from 用戶表 where 用戶名='" & usna & "'" rst.Open mysql, cn MsgBox "刪除成功!", vbOKOnly + vbExclamation, "警告" Text1.Text = "" Text2.T

44、ext = "" Text3.Text = "" Text1.SetFocus End IfEnd Sub '刪除用戶Private Sub Command5_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source

45、=C1847" cn.Open mysql = "select * from 用戶表 " rst.Open mysql, cn If rst.EOF Then MsgBox "出錯(cuò)!", vbOKOnly + vbExclamation, "警告" End If With MSFlexGrid1 .TextMatrix(0, 1) = "用戶名" .TextMatrix(0, 2) = "密碼" MSFlexGrid1.Rows = 1 '每次查詢自動(dòng)定位到第一行Do Whil

46、e Not rst.EOF .Rows = .Rows + 1 .CellAlignment = 8 .TextMatrix(.Rows - 1, 1) = rst.Fields("用戶名") .TextMatrix(.Rows - 1, 2) = rst.Fields("密碼") rst.MoveNext Loop End With rst.CloseEnd Sub '查詢用戶表源代碼如下：#include <iostream>#include <cstring> using namespace std;struct s

47、tudent int no; char name30; int math,computer,english,physics;stu100=0,"0",0,0,0,0; void setup();int lookfor(int m);void edit();void Delete();int main()loop:cout<<"*n"cout<<" 請(qǐng)選擇服務(wù) n"cout<<" 1 - 錄入學(xué)生信息 n"cout<<" 2 - 查找學(xué)生信息 n"c

48、out<<" 3 - 修改學(xué)生信息 n"cout<<" 4 - 刪除學(xué)生信息 n"cout<<" 0 - 退出 n"cout<<"*n" int menu,num,tem;cin>>menu;system("cls");switch (menu)case 1: setup(); system("cls"); goto loop; break; case 2: cout<<"請(qǐng)輸入您想查詢的學(xué)號(hào):

49、" cin>>num; tem=lookfor(num); if (tem!=-1) cout<<"學(xué)號(hào) 姓名 計(jì)算機(jī)成績(jī) 數(shù)學(xué)成績(jī) 英語(yǔ)成績(jī) 物理成績(jī)n" cout<<stutem.no<<" "<<<<" "<<puter<<" " <<stutem.math<<" "<<stutem.english<&

50、lt;" "<<stutem.physics<<endl; else cout<<"對(duì)不起,該學(xué)號(hào)不存在!n" system("pause"); system("cls"); goto loop; break; case 3: edit(); system("cls"); goto loop; break; case 4: Delete(); system("cls"); goto loop; break; case 5: cout<<"謝謝使