【正文】 把數(shù)據(jù)代入文本框中 EditStu(0).Text = (SID) EditStu(1).Text = (SName) EditStu(2).Text = (SBirthday) EditStu(3).Text = (SPlace) EditStu(4).Text = (SAddress) EditStu(5).Text = (SCode) EditStu(6).Text = (STel) EditStu(7).Text = (SDormitory) EditStu(8).Text = (SRemark) If (SGender) = 男 Then = 0 ElseIf (SGender) = 女 Then = 1 End If If (SZhengzhi) = Then = 0 ElseIf (SZhengzhi) = 團員 Then = 1 ElseIf (SZhengzhi) = 黨員 Then = 2 ElseIf (SZhengzhi) = 預備黨員 Then = 3 End If Select Case (SMinzu) Case 漢族: = 0 Case 瑤族: = 1 Case 土家族: = 2 Case 侗族: = 3 Case 白族: = 4 Case 。 39。 amp。 的學生資料 EditStu(0).Enabled = False = 修改（amp。A） EditStu(0).Text = classid EditStu(0).SelStart = 6Else = 修改學號為 amp。 classid amp。根據(jù)以上設(shè)計，在Form_Load中添加如下代碼：Private Sub Form_Load()39。如果為修改資料，則以學生的學號為關(guān)鍵字將該學生的信息加載到該窗體的對應(yīng)文本框，同時將該學號框（EditStu（0））的Enable屬性設(shè)置為False。 39。 amp。顯示出該生全部信息表單 Call (SelectNum) Else Exit Sub End IfEnd IfEnd Sub在frmstuinfo的代碼窗口中添入以下代碼用來顯示該學生的詳細資料。 學生詳細信息Private Sub pop1_Click() 39。為此，設(shè)計詳細信息框，來羅列用戶的各種詳細信息。 sqlstr Call ListviewLoad(classid) End IfEnd IfEnd Sub學生信息包括了學號、姓名、出生日期、性別、家庭住址、聯(lián)系電話等內(nèi)容。 amp。 的全部資料嗎！, vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = delete from StuInfo where SID=39。刪除學生資料 Call End SubPublic Sub DelStu()If Then If MsgBox(確定要刪除學號為 amp。在刪除了當前記錄以后，需要重新移動當前記錄；由于改變了當前記錄集的內(nèi)容，所以需要調(diào)用ListviewLoad子過程來刷新Listview中的內(nèi)容。顯示窗口Dim EditNum As StringIf Then EditNum = CStr() Call (EditNum)Else Exit SubEnd IfEnd Sub刪除學生資料的設(shè)計思路：在刪除記錄之前彈出詢問框，確認用戶是否真的要刪除當前記錄，如果用戶選擇了“是”，則刪除該條記錄，否則就不執(zhí)行任何操作。Private Sub pop4_Click() 39。Private Sub pop3_Click() 39。“添加”子菜單的Click事件的設(shè)計思路：用戶單擊“添加”子菜單時，調(diào)用frmmain中的“添加學生信息”子菜單顯示FrmAddStu窗體，同時將Command1的Caption屬性設(shè)置為“確定（amp。在本系統(tǒng)中，在系統(tǒng)默認情況下，班級編號作為學號的前面六位。 __39。 amp。正在導入數(shù)據(jù)，提示用戶等待 = 11If = classid Then 39。設(shè)置 Width 屬性 If X 1500 Then X = 1500 If X ( 1500) Then X = 1500 = X = X = X + 50 = ( + 100) = 50 = = = = End Sub單擊Treeview中的班級號碼則調(diào)用TreeView_NodeClick事件和ListviewLoad事件在Listview中顯示該班級下面學生的信息列表。當窗體大小發(fā)生變化時，調(diào)用Form_Resize，調(diào)整Frmstu中控件的大小。 對象屬性設(shè)置FormNameFrmstuCaption學生檔案管理BorderStyle2SizableMDIChildTrueWindowState2MaximizedTreeviewStyletvwTreelinesPlusMinusPictureTextListviewFullRowSelectTrueGridLinesTrueMultiSelectFalseToolTipText雙擊顯示詳細資料ImageNameimgSplitPictureboxNameSliptBar FrmStu中部分控件的屬性當窗體啟動時，需要在Treeview中加載班級列表，并初始化Listview中的標題。 sqlstr MsgBox 您的密碼更新成功，請牢記你的密碼！, vbInformation Unload Me End IfElse MsgBox 異常錯誤！, vbInformationEnd If: Set rs = NothingEnd Sub修改完畢后，單擊“取消”退出此窗體。 LoginUser amp。 where UserID=39。 pwd amp。 sqlstr, con, 1, 1If Not Then If rs(UserPWD) Oldpwd Then MsgBox 你輸入的原密碼不對！, vbInformation = = = Exit Sub Else sqlstr = update UserInfo set UserPWD=39。 LoginUser amp。Private Sub Command1_Click()……sqlstr = select UserPWD from UserInfo where UserID=39。這時，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點設(shè)置到第二個Text2控件，后面兩個文本框清空，代碼如下：Private Sub Command1_Click() Dim Oldpwd As String, pwd As String, confirmpwd As StringOldpwd = Trim()pwd = Trim()confirmpwd = Trim()……If Trim(pwd) Trim(confirmpwd) Then MsgBox 兩次輸入的密碼不相同！, vbInformation = = Exit SubEnd IfEnd Sub如果密碼一致，則判斷輸入的原密碼是否正確，如果正確則將新密碼寫入數(shù)據(jù)庫，這時需要一個字符串變量表達SQL語句，一個Recordset對象變量打開系統(tǒng)信息數(shù)據(jù)表。在MDI主窗體編輯窗口中，單擊“系統(tǒng)選項/修改個人密碼”，添加如下代碼：Private Sub filemenu12_Click() 39。添加用戶 End SubPrivate Sub menuDel_Click() 39。 39。 amp。 39。 amp。 amp。根據(jù)以上的設(shè)計，DeleteRecord()的代碼如下：Private Sub DeleteRecord()39。 成功, vbOKOnly, 添加系統(tǒng)用戶 = = = = 39。) sqlstr MsgBox 添加用戶 amp。Userpower amp。,39。 Username amp。 39。 39。 amp。 39。 amp。Private Sub Command4_Click()sqlstr = insert into UserInfo(UserID,UserPWD,UserName,UserPower) sqlstr = sqlstr amp。 的用戶帳號, vbInformation Exit Sub End If Loop: Set rs = NothingEnd Sub如果沒有重復，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。Private Sub Command4_Click()…… Do While Not If = (UserID) Then MsgBox 已經(jīng)存在用戶名為 amp。 39。 amp。,請刪除。 (2) = ef(UserName) (3) = ef(UserPower) LoopSet ef = NothingEnd Sub3．添加用戶在Textbox中輸入了相應(yīng)的數(shù)據(jù)以后，按添加按鈕則調(diào)用該按鈕的Click事件，代碼如下當單擊“添加”按鈕時，首先檢查輸入的用戶名和密碼是否為空，代碼如下：Private Sub Command4_Click() If Trim() = Then MsgBox 登陸用戶名不允許為空！, vbOKOnly + 48, 提示： Exit SubEnd IfIf InStr(1, Trim(), 39。在該窗體的通用部分寫如下代碼： Dim DelNO As Integer2．窗體加載時，初始化Listview用以顯示系統(tǒng)用戶列表，代碼如下Private Sub Form_Load()39。 用戶管理界面如果登陸的用戶類型是管理員，用戶管理一項是可用的，當單擊該子菜單時，將會出現(xiàn)用戶管理窗口，管理員可以對系統(tǒng)用戶進行添加和刪除操作。Private Sub filemenu45_Click() 39。 \, , , 1End Sub6．“給我發(fā)郵件”子菜單的代碼如果用戶單擊了“給我發(fā)郵件”子菜單，則會調(diào)用API函數(shù)，調(diào)用Outlook。Private Sub filemenu15_Click()If MsgBox(若重新登陸，所有窗體都將關(guān)閉！是否重新登陸？, vbYesNo + vbQuestion, 重新登陸) = vbYes Then Unload Me End IfEnd Sub5．“幫助主題”子菜單的代碼調(diào)用Windows API函數(shù)。有介于此，通常來說都是在QueryUnload中詢問用戶是否要退出當前窗體。在這兩個事件中，均可將Cancel設(shè)置為任何非零的值來防止窗體被刪除。當一個應(yīng)用程序關(guān)閉時，可使用QueryUnload或Unload事件過程將Cancel屬性設(shè)置為True來阻止關(guān)閉過程。QueryUnload事件中詢問用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將Cancel置為1，取消整個退出過程。 LoginPower amp。 LoginUser amp。所以在MDIForm的Load事件中需要判斷用戶類型。Private Declare Function ShellExecuteamp。在工程中添加一個MDI窗口，取名為“”，并為MDI窗體進行菜單和代碼的設(shè)計，: 主界面3．3．2．1 菜單設(shè)計MDI主窗體是整個系統(tǒng)的容器，為了方便用戶的使用，應(yīng)設(shè)計相應(yīng)的菜單和代碼。多文檔界面是一種Windows用戶界面標準。保存當前登陸用戶名 LoginPower = (3) 39。當錯誤的密碼次數(shù)達到3次時，不能登陸，退出！ If loginno = 3 Then MsgBox 對不起，您不能使用該系統(tǒng)！請與管理員聯(lián)系。