《VB.Net程序設(shè)計》

1、VB.Net程序設(shè)計實訓指導書班 級：06級計算機網(wǎng)絡(luò)技術(shù)指導教師：丁巨瀾一、實訓目的目的是通過本綜合實訓，使學生加強對系統(tǒng)功能設(shè)計、系統(tǒng)模塊設(shè)計、數(shù)據(jù)庫設(shè)計和系統(tǒng)詳細設(shè)計等方面的了解和運用。二、實訓內(nèi)容1. 制作圖書管理信息系統(tǒng)1) 首先設(shè)計數(shù)據(jù)庫必須包含學生的基本信息（字段可根據(jù)需要自己設(shè)計）2) 程序運行必須有用戶登錄界面用戶名和密碼正確才能進入系統(tǒng)3) 圖書管理模塊包含圖書基本信息添加、查詢和修改功能2. 制作員工信息管理系統(tǒng)3. 制作學生成績管理系統(tǒng)三、評分標準序號實訓報告內(nèi)容分值1用戶登錄介紹20分2信息添加功能介紹20分3信息查詢功能介紹20分4信息修改功能介紹20分5實訓總結(jié)2

2、0分四、成績評定總成績=實訓報告*50%+上機測試*50%五、時間安排計劃時間內(nèi)容12-29選題、需求分析12-30設(shè)計數(shù)據(jù)庫、界面、流程圖1-5程序代碼編寫1-6調(diào)試1-7總結(jié)報告六、案例設(shè)計（學生成績管理）描述（一）程序功能：1基本功能：1) 根據(jù)教務(wù)處分配的教師ID和密碼進行身份驗證登錄。2) 根據(jù)課程參數(shù)文件、學生名冊文件輸入成績。3) 設(shè)定平時成績、期中成績、期末成績等比例分配，計算出學期成績。4) 生成成績統(tǒng)計文件，其中包括各分數(shù)段的人數(shù)統(tǒng)計。5) 顯示成績統(tǒng)計文件內(nèi)容。2擴展功能：1) 打印成績統(tǒng)計文件內(nèi)容。2) 能根據(jù)根據(jù)設(shè)定的分數(shù)段，計算等級，學分績點。3) 能根據(jù)選定字段進

3、行排序。4) 生成成績統(tǒng)計文件具有一定的容錯和防止篡改的功能。（二）操作說明：b) 選擇一個教師ID，輸入教務(wù)處分配的密碼，進行身份驗證和登錄(注:所有的教師ID所對應的密碼均為:99001166)。c) 如密碼正確則進入界面，在班級下拉列表框中選擇您所教的班級，在課程下拉列表框中選擇你所教的課程。之后會在表格中出現(xiàn)這個班的學生的相關(guān)信息。d) 點擊相表格的字段表頭，可以對表格的內(nèi)容進行按相應字段進行排序,方便了查看與設(shè)置。e) 在查看控制的控件中有四個按鈕：首項按鈕，前一項按鈕，下一項按鈕，末項按鈕。點擊首項按鈕可以查看第一項記錄，點擊前一項按鈕可以查看當前選擇記錄的前一項記錄（pre），點

4、擊下一項按鈕可以查看當前記錄的下一項記錄(next)。點擊末項按鈕可以查看表格中的最一項記錄。操作小技巧：當要讀取下一個記錄時，按快捷鍵：Alt +D,當要讀取前一個記錄時，按快捷鍵Alt +A或者按鍵進行選擇f) 在查看控件的下面是一些編輯控件：如姓名，學號，平時成績，期中成績，期末成績，備注，學期成績。其中姓名，學號，學期成績是不可編輯的因為這些信息是教務(wù)處給定的，不可更改。而其中的平時成績，期中成績，期末成績是可更改的。是給老師用于輸入學生成績的。g) 當要對學生成績信息進行錄入和修改的時候，直接在這四個編輯框中輸入信息，便按回車鍵。h) 當?shù)搅藢W期結(jié)束的時候，可以選擇平時成績比例下拉列

5、表里的比例，和期中成績比例列表框里的比例后，點擊“統(tǒng)計學期成績”對學期成績進行成績統(tǒng)計。i) 當統(tǒng)計完學期成績，可以單擊“打印按鈕”。其打印結(jié)果與顯示一致。（三）程序結(jié)構(gòu)描述：此軟件是用visual 2003 .net 平臺，結(jié)合微軟Access數(shù)據(jù)庫開發(fā)的。用Access 新建一個數(shù)據(jù)庫bolide.mdb,在數(shù)據(jù)庫中新建三個基本表：Tec、T_C、Student。其結(jié)構(gòu)如下：數(shù)據(jù)庫 Bolide.mdb（Tec、T_C、Student）基本表Tec（Num、Tec_ID、Tec_Passwor、d）T_C（ClassID、Tec_ID、Course）Student（班級、課程、學號、姓名、

6、平時成績、期中成績、期末成績、學期成績、備注）（四）主要算法和源程序說明：教師登錄： void CGradeDlg:OnBnClickedLogin()/ TODO: 在此添加控件通知處理程序代碼UpdateData();CString sPath;CDaoRecordset RecSet(&db);/讀取數(shù)據(jù)庫的記錄集CString strName; COleVariant var;CString teacher;long Tec_num;long i=List_Tec.GetCurSel();GetCurrentDirectory(MAX_PATH,sPath.GetBuffer(

7、MAX_PATH);/得到當前路徑sPath.ReleaseBuffer ();CString lpszFile = sPath "bolide.mdb"/得到文件的精確路徑CFileFind fFind;BOOL bSuccess;bSuccess=fFind.FindFile(lpszFile);/判斷是否找到數(shù)據(jù)庫的文件fFind.Close ();if(bSuccess)/db.Open(lpszFile);/*db.Open(lpszFile,0,0,"PWD=99001166");/數(shù)據(jù)庫密碼/*RecSet.Open(AFX_DAO_USE

8、_DEFAULT_TYPE,"SELECT * FROM Tec",NULL);/打開記錄集while(!RecSet.IsEOF() / 有沒有到表結(jié)尾RecSet.GetFieldValue("Tec_Password",var);strName = (LPCSTR)var.pbstrVal;RecSet.GetFieldValue("num",var);Tec_num= (long)var.plVal;if(strName=Tec_Password && i=Tec_num)List_Tec.GetLBText(

9、 i,teacher);InfoDlg modlg;modlg.ChildTeacher=teacher;EndDialog(FALSE);/關(guān)閉登登錄對話框modlg.DoModal();/顯示編輯對話框break;RecSet.MoveNext();/記錄下移if(RecSet.IsEOF()/如果找到記錄尾，也沒有找到符合條件的記錄，則彈出對話框，提示用戶ID或密碼不正確。AfxMessageBox("用戶ID或密碼不正確,無法登錄.");/關(guān)閉記錄集及庫RecSet.Close();/關(guān)閉記錄集db.Close();/關(guān)閉數(shù)據(jù)庫Ø 點擊列標對相關(guān)字段進行排

10、序： void InfoDlg:OnColumnclickList1(NMHDR *pNMHDR, LRESULT *pResult) if(Stu_ListCtrl.GetItemCount()<= 0)return;NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR;CDaoFieldInfo m_fieldinfo;switch ( pNMListView -> iSubItem ) case 0:RecSet->GetFieldInfo(0, m_fieldinfo);LoadSortList( CString ( m_fi

11、eldinfo.m_strName ) );/得到第一個標頭的字段名break;case 1:RecSet->GetFieldInfo(1, m_fieldinfo);LoadSortList( CString ( m_fieldinfo.m_strName ) ); /得到第二個標頭的字段名break;case 2:RecSet->GetFieldInfo(2, m_fieldinfo);LoadSortList( CString ( m_fieldinfo.m_strName ) ); /得到第三個標頭的字段名break;case 3:RecSet->GetFieldIn

12、fo(3, m_fieldinfo);LoadSortList ( CString (m_fieldinfo.m_strName ) ); /得到第四個標頭的字段名break;case 4:RecSet->GetFieldInfo(4, m_fieldinfo);LoadSortList ( CString (m_fieldinfo.m_strName ) ); /得到第五個標頭的字段名break;case 5:RecSet->GetFieldInfo(5, m_fieldinfo);LoadSortList ( CString (m_fieldinfo.m_strName ) )

13、; /得到第六個標頭的字段名break;case 6:RecSet->GetFieldInfo(6, m_fieldinfo);LoadSortList ( CString (m_fieldinfo.m_strName ) ); /得到第七個標頭的字段名break;default:LoadSortList ( CString ( "" ) ); / default: no sort.break;/*pResult = 0;Ø 對CListCtrl控件中的內(nèi)容進行打?。簐oid InfoDlg:OnPrint() / TODO: 在此添加控件通知處理程序代碼i

14、f(Stu_ListCtrl.GetItemCount()<= 0)/如果CListCtrl控件中的行為空則返加，什么都不做return;PRNINFO PrnInfo = 0;/設(shè)置打印信息PrnInfo.hListView = Stu_ListCtrl.m_hWnd;/設(shè)置打印視圖句柄PrnInfo.hWnd = this->m_hWnd;/設(shè)置打印句柄PrnInfo.IsPrint = FALSE;/是否打印PrnInfo.nCurPage = 1;/當前頁PrnInfo.nMaxLine = Stu_ListCtrl.GetItemCount();/最大行數(shù)CPrePare

15、nt DlgPreView;/定義一個CpreParent 對象DlgPreView.SetCallBackFun(DrawInfo, PrnInfo);/設(shè)置打印視圖的信息DlgPreView.DoModal();/執(zhí)行打印對話框void InfoDlg:DrawInfo(CDC &memDC, PRNINFO PrnInfo)if(memDC.m_hDC = NULL)return;int nCurPage = PrnInfo.nCurPage; /當前頁BOOL IsPrint = PrnInfo.IsPrint; /是否打印int nMaxPage = PrnInfo.nCou

16、ntPage; /最大頁碼HWND hWnd = PrnInfo.hWnd;HWND hList = PrnInfo.hListView;CString csLFinality, csRFinality;CTime time;time=CTime:GetCurrentTime();/獲得當前的日期csLFinality = time.Format("報表日期:%Y-%m-%d");csRFinality.Format("第 %i 頁/共 %i 頁", nCurPage, nMaxPage);CString szTitle=str_class;/設(shè)置打印的

17、標題,即打印的第一頁的最上面的標題CRect rc, rt1, rt2, rt3, rt4, rt5, rt6,rt7;/為打印的七列設(shè)置矩形區(qū)域CPen *hPenOld;/定義畫筆CPen cPen; /定義畫筆CFont TitleFont, DetailFont, *oldfont;/定義字體/標題字體TitleFont.CreateFont(-MulDiv(14,memDC.GetDeviceCaps(LOGPIXELSY),72),0,0,0,FW_NORMAL,0,0,0,GB2312_CHARSET,OUT_STROKE_PRECIS,CLIP_STROKE_PRECIS,DR

18、AFT_QUALITY,VARIABLE_PITCH|FF_SWISS,_T("黑體");/細節(jié)字體DetailFont.CreateFont(-MulDiv(10,memDC.GetDeviceCaps(LOGPIXELSY),72),0,0,0,FW_NORMAL,0,0,0,GB2312_CHARSET,OUT_STROKE_PRECIS,CLIP_STROKE_PRECIS,DRAFT_QUALITY,VARIABLE_PITCH|FF_SWISS,_T("宋體");/粗筆cPen.CreatePen(PS_SOLID, 2, RGB(0, 0,

19、 0);int xP = GetDeviceCaps(memDC.m_hDC, LOGPIXELSX); /x方向每英寸像素點數(shù)int yP = GetDeviceCaps(memDC.m_hDC, LOGPIXELSY); /y方向每英寸像素點數(shù)DOUBLE xPix = (DOUBLE)xP*10/254; /每 mm 寬度的像素DOUBLE yPix = (DOUBLE)yP*10/254; /每 mm 高度的像素DOUBLE fAdd = 7*yPix; /每格遞增量DOUBLE nTop = 25*yPix; /第一頁最上線int iStart = 0; /從第幾行開始讀取DOUBL

20、E nBottom = nTop B5_ONELINE*fAdd;if(nCurPage != 1)nTop = 25*yPix-fAdd; /非第一頁最上線if(nCurPage = 2)iStart = B5_ONELINE;if(nCurPage>2)iStart = B5_ONELINE (nCurPage - 2)*B5_OTHERLINE;DOUBLE nLeft = 15*xPix; /最左線DOUBLE nRight = xPix*(B5_W-15); /最右線DOUBLE nTextAdd = 1.5*xPix;if(IsPrint)/真正打印部分static DOCI

21、NFO di = sizeof (DOCINFO), szTitle ;/設(shè)置文檔的信息/開始文檔打印if(memDC.StartDoc(&di)<0):MessageBox(hWnd, "連接到打印機化敗!", "錯誤", MB_ICONSTOP);elseiStart = 0;nTop = 25*yPix; /第一頁最上線for(int iTotalPages = 1; iTotalPages<=nMaxPage; iTotalPages )int nCurPage = iTotalPages;csRFinality.Format

22、("第 %i 頁/共 %i 頁", nCurPage, nMaxPage);time=CTime:GetCurrentTime();csLFinality = time.Format("報表日期:%Y-%m-%d");if(nCurPage != 1)nTop = 25*yPix-fAdd; /非第一頁最上線if(nCurPage = 2)iStart = B5_ONELINE;if(nCurPage>2)iStart = B5_ONELINE (nCurPage - 2)*B5_OTHERLINE;/開始頁if(memDC.StartPage()

23、 < 0):MessageBox(hWnd, _T("打印失敗!"), "錯誤", MB_ICONSTOP);memDC.AbortDoc();return;else/打印/標題oldfont = memDC.SelectObject(&TitleFont);int nItem = B5_OTHERLINE;if(nCurPage = 1)nItem = B5_ONELINE;rc.SetRect(0, yPix*8, B5_W*xPix, yPix*17);memDC.DrawText(szTitle, &rc, DT_CENTE

24、R | DT_VCENTER | DT_SINGLELINE);memDC.SelectObject(&DetailFont);rc.SetRect(15*xPix, yPix*19, B5_W*xPix, yPix*22);memDC.DrawText("課程名稱:" str_course " 教師姓名:" str_teacher " " csLFinality, &rc, DT_CENTER | DT_VCENTER | DT_SINGLELINE);/細節(jié)memDC.SelectObject(&Detai

25、lFont);rc.SetRect(nLeft, nTop, nRight, nTop fAdd);/上橫線memDC.MoveTo(rc.left, rc.top);memDC.LineTo(rc.right, rc.top);rt1.SetRect(nLeft, nTop, nLeft 25*xPix, nTop fAdd); /學號rt2.SetRect(rt1.right, rt1.top, rt1.right 21*xPix, rt1.bottom); /姓名rt3.SetRect(rt2.right, rt1.top, rt2.right 21*xPix, rt1.bottom);

26、 /平時成績rt4.SetRect(rt3.right, rt1.top, rt3.right 21*xPix, rt1.bottom); /期中成績rt5.SetRect(rt4.right, rt1.top, rt4.right 21*xPix, rt1.bottom); /期末成績rt6.SetRect(rt5.right, rt1.top, rt5.right 21*xPix, rt1.bottom); /學期成績rt7.SetRect(rt6.right, rt1.top, rc.right, rt1.bottom); /學分memDC.DrawText("學 號"

27、;, &rt1, DT_CENTER | DT_VCENTER | DT_SINGLELINE);/打印字段學號memDC.DrawText("姓 名", &rt2, DT_CENTER | DT_VCENTER | DT_SINGLELINE);打印字段姓名memDC.DrawText("平時成績", &rt3, DT_CENTER | DT_VCENTER | DT_SINGLELINE);打印字段平時成績memDC.DrawText("期中成績", &rt4, DT_CENTER | DT_VCE

28、NTER | DT_SINGLELINE);打印字段期中成績memDC.DrawText("期末成績", &rt5, DT_CENTER | DT_VCENTER | DT_SINGLELINE);打印字段期末成績memDC.DrawText("學期成績", &rt6, DT_CENTER | DT_VCENTER | DT_SINGLELINE);打印字段學期成績memDC.DrawText("備 注", &rt7, DT_CENTER | DT_VCENTER | DT_SINGLELINE);打印字段備注

29、memDC.MoveTo(rt1.right, rt1.top);/畫線memDC.LineTo(rt1.right, rt1.bottom); /畫線memDC.MoveTo(rt2.right, rt1.top); /畫線memDC.LineTo(rt2.right, rt1.bottom); /畫線memDC.MoveTo(rt3.right, rt1.top); /畫線memDC.LineTo(rt3.right, rt1.bottom); /畫線memDC.MoveTo(rt4.right, rt1.top); /畫線memDC.LineTo(rt4.right, rt1.botto

30、m); /畫線memDC.MoveTo(rt5.right, rt1.top); /畫線memDC.LineTo(rt5.right, rt1.bottom); /畫線memDC.MoveTo(rt6.right, rt1.top); /畫線memDC.LineTo(rt6.right, rt1.bottom); /畫線memDC.MoveTo(rc.left, rt1.bottom); /畫線memDC.LineTo(rc.right, rt1.bottom); /畫線TCHAR szID32=0, szName32=0, score_normal32=0, score_middle32=0

31、, score_final32=0, score_term32=0,score_credit32=0;/為要打印的各字段設(shè)置變量rc.SetRect(nLeft, nTop fAdd, nRight, nTop 2*fAdd);rt1.SetRect(nLeft nTextAdd, rc.top, nLeft 25*xPix, rc.bottom); /學號rt2.SetRect(rt1.right nTextAdd, rt1.top, rt1.right 21*xPix, rt1.bottom); /姓名rt3.SetRect(rt2.right nTextAdd, rt1.top, rt2

32、.right 21*xPix, rt1.bottom); /平時成績rt4.SetRect(rt3.right nTextAdd, rt1.top, rt3.right 21*xPix, rt1.bottom); /期中成績rt5.SetRect(rt4.right nTextAdd, rt1.top, rt4.right 21*xPix, rt1.bottom); /期末成績rt6.SetRect(rt5.right nTextAdd, rt1.top, rt5.right 21*xPix, rt1.bottom);/學期成績rt7.SetRect(rt6.right nTextAdd, r

33、t1.top, rc.right, rt1.bottom); /學分int nCountItem = ListView_GetItemCount(hList);/得到要印的行數(shù)for(int i=0;i<nItem; i )/nItem為各頁的行數(shù)ListView_GetItemText(hList, i iStart, 0, szID, 32);/ 得到學號字段的值ListView_GetItemText(hList, i iStart, 1, szName, 32); /得到姓名字段的值ListView_GetItemText(hList, i iStart, 2, score_no

34、rmal, 32); /得到平時成績字段的值ListView_GetItemText(hList, i iStart, 3, score_middle, 32);/ 得到期中成績字段的值ListView_GetItemText(hList, i iStart, 4, score_final, 32);/ 得到期末成績字段的值ListView_GetItemText(hList, i iStart, 5, score_term, 32); /得到學期成績字段的值ListView_GetItemText(hList, i iStart, 6, score_credit, 32); /得到備注字段的

35、值memDC.DrawText(szID, &rt1, DT_LEFT | DT_VCENTER | DT_SINGLELINE); /打印學號字段的值memDC.DrawText(szName, &rt2, DT_LEFT | DT_VCENTER | DT_SINGLELINE); /打印姓名字段的值memDC.DrawText(score_normal, &rt3, DT_LEFT | DT_VCENTER | DT_SINGLELINE); /打印平時成績字段的值memDC.DrawText(score_middle, &rt4, DT_LEFT | D

36、T_VCENTER | DT_SINGLELINE); /打印期中成績字段的值memDC.DrawText(score_final, &rt5, DT_LEFT | DT_VCENTER | DT_SINGLELINE); /打印期末成績字段的值memDC.DrawText(score_term, &rt6, DT_LEFT | DT_VCENTER | DT_SINGLELINE); /打印學期成績字段的值memDC.DrawText(score_credit, &rt7, DT_LEFT | DT_VCENTER | DT_SINGLELINE); /打印備注字段的

37、值/下橫線memDC.MoveTo(rc.left, rc.bottom);/畫線memDC.LineTo(rc.right, rc.bottom); /畫線memDC.MoveTo(rt1.right, rt1.top); /畫線memDC.LineTo(rt1.right, rt1.bottom); /畫線memDC.MoveTo(rt2.right, rt1.top); /畫線memDC.LineTo(rt2.right, rt1.bottom); /畫線memDC.MoveTo(rt3.right, rt1.top); /畫線memDC.LineTo(rt3.right, rt1.bo

38、ttom); /畫線memDC.MoveTo(rt4.right, rt1.top); /畫線memDC.LineTo(rt4.right, rt1.bottom); /畫線memDC.MoveTo(rt5.right, rt1.top); /畫線memDC.LineTo(rt5.right, rt1.bottom); /畫線memDC.MoveTo(rt6.right, rt1.top); /畫線memDC.LineTo(rt6.right, rt1.bottom); /畫線memDC.MoveTo(rc.left, rt1.bottom); /畫線memDC.LineTo(rc.right

39、, rt1.bottom); /畫線rc.top = fAdd;/重新設(shè)置矩形區(qū)域rc.bottom = fAdd; /重新設(shè)置矩形區(qū)域rt1.top = rc.top; /重新設(shè)置矩形區(qū)域rt1.bottom = rc.bottom; /重新設(shè)置矩形區(qū)域rt2.top = rt1.top; /重新設(shè)置矩形區(qū)域rt2.bottom = rt1.bottom; /重新設(shè)置矩形區(qū)域rt3.top = rt1.top; /重新設(shè)置矩形區(qū)域rt3.bottom = rt1.bottom; /重新設(shè)置矩形區(qū)域rt4.top = rt1.top; /重新設(shè)置矩形區(qū)域rt4.bottom = rt1.bot

40、tom; /重新設(shè)置矩形區(qū)域rt5.top = rt1.top; /重新設(shè)置矩形區(qū)域rt5.bottom = rt1.bottom; /重新設(shè)置矩形區(qū)域rt6.top = rt1.top; /重新設(shè)置矩形區(qū)域rt6.bottom = rt1.bottom; /重新設(shè)置矩形區(qū)域rt7.top = rt1.top; /重新設(shè)置矩形區(qū)域rt7.bottom = rt1.bottom; /重新設(shè)置矩形區(qū)域if(i iStart 1)>=nCountItem)break;/結(jié)尾memDC.MoveTo(rc.left, nTop);memDC.LineTo(rc.left, rc.top);mem

41、DC.MoveTo(rc.right, nTop);memDC.LineTo(rc.right, rc.top);memDC.DrawText(csLFinality, &rc, DT_LEFT| DT_VCENTER | DT_SINGLELINE);memDC.DrawText(csRFinality, &rc, DT_RIGHT| DT_VCENTER | DT_SINGLELINE);if(nCurPage =nMaxPage)/如果是最后一頁則打印關(guān)于成績統(tǒng)計的信息CString temp_people;temp_people.Format("%d"

42、;,m_people);/人數(shù)CString temp_avg;temp_avg.Format("%.2f",m_term0);/平均成績CString temp_max;temp_max.Format("%.2f",m_term1);/最高成績CString temp_min;temp_min.Format("%.2f",m_term2);/最低成績CString nine_ten;nine_ten.Format("%d",count0);/分到的人數(shù)CString eight_nine;eight_nine.F

43、ormat("%d",count1);/分到的人數(shù)CString seven_eight;seven_eight.Format("%d",count2);/分到分的人數(shù)CString six_seven;six_seven.Format("%d",count3);/60分到分的人數(shù)CString under_six;under_six.Format("%d",count4);/不及格的人數(shù)rc.top = fAdd;rc.bottom = fAdd;memDC.DrawText("人數(shù):" temp