【正文】 endcase endcase else sele user_info set order to user_id seek cx2 if alltrim ()=cx2 nAnswer=MessageBox(39。,4+16,39。) do case case nAnswer=6 =39。 =39。 =39。 case nAnswer=7 nAnswer=MessageBox(39。,4+32,39。) do case case nAnswer=6 case nAnswer=7 =39。 =39。 =39。 endcase endcase else if cy2==39。 nAnswer=MessageBox(39。,4+16,39。) do case 開放教育畢業(yè)論文 學(xué)生信息管理系統(tǒng) 第 23 頁 共 54 頁 case nAnswer=6 =39。 =39。 case nAnswer=7 nAnswer=MessageBox(39。,4+32,39。) do case case nAnswer=6 case nAnswer=7 =39。 =39。 endcase endcase else if (cy2==cz2)=.f. nAnswer=MessageBox(39。,4+16,39。) do case case nAnswer=6 =39。 =39。 case nAnswer=7 nAnswer=MessageBox(39。,4+32,39。) do case case nAnswer=6 作 case nAnswer=7 =39。 =39。 endcase endcase else insert into user_info (user_id,user_password) values (cx2,cy2) messagebox(操作成功 ,48,信息提示 ) endif endif endif 開放教育畢業(yè)論文 學(xué)生信息管理系統(tǒng) 第 24 頁 共 54 頁 endif 一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據(jù)表中與新建用戶名相同的記錄，如果有相同的記錄將提示用戶重新輸入用戶名。 單擊 CmdCancel按鈕，系統(tǒng)將清空用戶名和用戶密碼文本框的輸入值，等待用戶的重新輸入。 （三） 修改用戶密碼表單的創(chuàng)建 進入系統(tǒng)后，選擇菜單“系統(tǒng)→修改密碼”就可以修改用戶的密碼，并出現(xiàn)下圖所示的表單： 圖 修改密碼表單 在這個表單中一共有 2個文本框，用來輸入密碼和確認密碼， 3 個按鈕用來確定是否修改密碼，3 個標簽用來標示文本框的提示。39。密碼不能為空，請重新輸入 39。錯誤 39。39。39。確認退出此次操作 39。警告 39。39。39。兩次密碼不一致，請重新輸入 39。錯誤 39。39。39。確認退出此次操作 39。警告 39。39。39。密碼修改成功！ 39。修改密碼 39。 3 個命令按鈕用來確定是否添加學(xué)生信息。這些控的屬性如下表所示： 控件 屬性 屬性值 Form1 AutoCenter .T. BorderSyple 2－固定對話框 Caption 添加學(xué)生信息 Closable .F. Name Form1 ShowWindows 1－在頂層表單中 TitleBar 0－關(guān)閉 TxtStudent_id MaxLength 8 Name TxtStudent_id TxtStudent_name MaxLength 6 Name TxtStudent_name TxtStudent_oldname MaxLength 6 Name TxtStudent_oldname 開放教育畢業(yè)論文 學(xué)生信息管理系統(tǒng) 第 28 頁 共 54 頁 ComboNation ColumnCount 0 Name ComboNation RowSourceType 6－字段 ComboSex Name ComboSex RowSourceType 6－字段 ComboZzmm Name ComboZzmm RowSourceType 6－字段 ComboClass Name ComboClass RowSourceType 6－字段 Year1 Alignment 3－自動 Format 9 InputMask 9999 KeyboardLowValue 1980 Name Year1 SpinnerLowValue Value =(date(date())) Month1 InputMask 99 KeyboardHighValue 12 KeyboardLowValue 1 Name Month1 Value =(date(date())) Day1 KeyboardHighValue 31 Name Day1 Value =(date(date())) Year2 Name Year2 Month2 Name Month2 Day2 Name Day2 EditAddress Name EditAddress EditStudent_ment Name EditStudent_ment CmdSave Caption 保存 (\S) Name CmdSave CmdCancel Caption 取消 (\C) Name CmdCancel CmdQuit Caption 退出 (\Q) Name CmdQuit lblStudent_id Caption 學(xué)號 lblStudent_name Caption 姓名 lblStudent_oldname Caption 曾用名 lblStudent_nation Caption 民族 lblStudent_sex Caption 性別 開放教育畢業(yè)論文 學(xué)生信息管理系統(tǒng) 第 29 頁 共 54 頁 lblStudent_zzma Caption 政治面貌 lblStudent_class Caption 班級 lblBorn_date Caption 出生日期 lblJoin_date Caption 入校日期 lblTele_number Caption 聯(lián)系電話 lblAddress Caption 家庭住址 lblStudent_ment Caption 注釋 Label1 Caption 添加學(xué)生基本信息 Label2 Caption 年 Label3 Caption 月 Label4 Caption 日 Label5 Caption 年 Label7 Caption 月 Label6 Caption 日 表 5－ 5 添加學(xué)生基本信息表單中各個控件的屬性設(shè)置 為了減少數(shù)據(jù)輸入時人為因素產(chǎn)生的錯誤，在“添加學(xué)生基本信息”表單中，大量采用組合框，對這類數(shù)據(jù)用戶不用輸入內(nèi)容，只需要在下拉式列表中做出選擇。39。請輸入學(xué)號 39。錯誤 39。學(xué)號應(yīng)為 8位 39。錯誤 39。39。39。請輸入姓名 39。錯誤 39。姓名應(yīng)為漢字 39。錯誤 39。39。39。請選擇民族 39。錯誤 39。39。請選擇性別 39。錯誤 39。39。請選擇政治面貌 39。錯誤 39。39。請輸入班級 39。錯誤 39。請輸入出生日期 39。錯誤 39。請輸入入校日期 39。錯誤 39。39。請輸入聯(lián)系電話 39。錯誤 39。39。請輸入家庭住址 39。錯誤 39。此學(xué)號已經(jīng) 存在，請重新輸入！ 39。錯誤 39。39。month1_month/amp。year1_year) year2_year=str() month2_month=str() day2_day=str() date2=ctod(amp。day2_day/amp。 Values (,date1,date2,) nAnswer=Messagebox(39。,4+48,39。) if nAnswer=7 else nAnswer=6 =39。 =39。 =39。 =39。 =39。 =39。 =39。 =0 =0 =0 =0 =0 =0 =39。 =39。 =39。 endif endcase （二） 修改學(xué)生信息表單的創(chuàng)建 選擇“學(xué)生信息管理→修改學(xué)生信息”，將出現(xiàn)如下圖所示的表單： 圖 5－ 7 選擇要修改的條件 其表單中所的控件及其設(shè)置值如下表所示： 控件 屬性 屬性值 Form1 AutoCenter .T. BorderSyple 2－固定對話框 Caption 選擇要修改的記錄 Closable .F. Name Form1 開放教育畢業(yè)論文 學(xué)生信息管理系統(tǒng) 第 32 頁 共 54