《VBNet程序设计》概要.docx

《VBNet程序设计》概要.docx

《《VBNet程序设计》概要.docx》由会员分享，可在线阅读，更多相关《《VBNet程序设计》概要.docx（20页珍藏版）》请在冰豆网上搜索。

《VBNet程序设计》概要

《VB.Net程序设计》

实训指导书

班级：

06级计算机网络技术

指导教师：

丁巨澜

一、实训目的

目的是通过本综合实训，使学生加强对系统功能设计、系统模块设计、数据库设计和系统详细设计等方面的了解和运用。

二、实训内容

1.制作图书管理信息系统

1）首先设计数据库必须包含学生的基本信息（字段可根据需要自己设计）

2）程序运行必须有用户登录界面用户名和密码正确才能进入系统

3）图书管理模块包含图书基本信息添加、查询和修改功能

2.制作员工信息管理系统

3.制作学生成绩管理系统

三、评分标准

序号

实训报告内容

分值

1

用户登录介绍

20分

2

信息添加功能介绍

20分

3

信息查询功能介绍

20分

4

信息修改功能介绍

20分

5

实训总结

20分

四、成绩评定

总成绩=实训报告*50%+上机测试*50%

五、时间安排计划

时间

内容

12-29

选题、需求分析

12-30

设计数据库、界面、流程图

1-5

程序代码编写

1-6

调试

1-7

总结报告

六、案例设计（学生成绩管理）描述

（一）程序功能：

1．基本功能：

1）根据教务处分配的教师ID和密码进行身份验证登录。

2）根据课程参数文件、学生名册文件输入成绩。

3）设定平时成绩、期中成绩、期末成绩等比例分配，计算出学期成绩。

4）生成成绩统计文件，其中包括各分数段的人数统计。

5）显示成绩统计文件内容。

2．扩展功能：

1）打印成绩统计文件内容。

2）能根据根据设定的分数段，计算等级，学分绩点。

3）能根据选定字段进行排序。

4）生成成绩统计文件具有一定的容错和防止篡改的功能。

（二）操作说明：

a）将Grade.exe可执行程序和Access数据库bolide.mdb放在同一工作路径下.

b）选择一个教师ID，输入教务处分配的密码，进行身份验证和登录（注:

所有的教师ID所对应的密码均为:

99001166）。

c）如密码正确则进入界面，在班级下拉列表框中选择您所教的班级，在课程下拉列表框中选择你所教的课程。

之后会在表格中出现这个班的学生的相关信息。

d）点击相表格的字段表头，可以对表格的内容进行按相应字段进行排序,方便了查看与设置。

e）在查看控制的控件中有四个按钮：

首项按钮，前一项按钮，下一项按钮，末项按钮。

点击首项按钮可以查看第一项记录，点击前一项按钮可以查看当前选择记录的前一项记录（pre），点击下一项按钮可以查看当前记录的下一项记录（next）。

点击末项按钮可以查看表格中的最一项记录。

操作小技巧：

当要读取下一个记录时，按快捷键：

Alt+D,当要读取前一个记录时，按快捷键Alt+A或者按↑↓键进行选择

f）在查看控件的下面是一些编辑控件：

如姓名，学号，平时成绩，期中成绩，期末成绩，备注，学期成绩。

其中姓名，学号，学期成绩是不可编辑的因为这些信息是教务处给定的，不可更改。

而其中的平时成绩，期中成绩，期末成绩是可更改的。

是给老师用于输入学生成绩的。

g）当要对学生成绩信息进行录入和修改的时候，直接在这四个编辑框中输入信息，便按回车键。

h）当到了学期结束的时候，可以选择平时成绩比例下拉列表里的比例，和期中成绩比例列表框里的比例后，点击“统计学期成绩”对学期成绩进行成绩统计。

i）当统计完学期成绩，可以单击“打印按钮”。

其打印结果与显示一致。

（三）程序结构描述：

此软件是用visual2003.net平台，结合微软Access数据库开发的。

用Access新建一个数据库bolide.mdb,在数据库中新建三个基本表：

Tec、T_C、Student。

其结构如下：

数据库Bolide.mdb（Tec、T_C、Student）

基本表Tec（Num、Tec_ID、Tec_Passwor、d）

T_C（ClassID、Tec_ID、Course）

Student（班级、课程、学号、姓名、平时成绩、期中成绩、期末成绩、学期成绩、备注）

（四）主要算法和源程序说明：

教师登录：

voidCGradeDlg:

:

OnBnClickedLogin（）

{//TODO:

在此添加控件通知处理程序代码

UpdateData（）;

CStringsPath;

CDaoRecordsetRecSet（&db）;//读取数据库的记录集

CStringstrName;

COleVariantvar;

CStringteacher;

longTec_num;

longi=List_Tec.GetCurSel（）;

GetCurrentDirectory（MAX_PATH,sPath.GetBuffer（MAX_PATH））;//得到当前路径

sPath.ReleaseBuffer（）;

CStringlpszFile=sPath"\\bolide.mdb";//得到文件的精确路径

CFileFindfFind;

BOOLbSuccess;

bSuccess=fFind.FindFile（lpszFile）;//判断是否找到数据库的文件

fFind.Close（）;

if（bSuccess）

//db.Open（lpszFile）;

//****************************************************

db.Open（lpszFile,0,0,";PWD=99001166"）;//数据库密码

//****************************************************

RecSet.Open（AFX_DAO_USE_DEFAULT_TYPE,"SELECT*FROMTec",NULL）;//打开记录集

while（!

RecSet.IsEOF（））//有没有到表结尾

{

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（i,teacher）;

InfoDlgmodlg;

modlg.ChildTeacher=teacher;

EndDialog（FALSE）;//关闭登登录对话框

modlg.DoModal（）;//显示编辑对话框

break;

}

RecSet.MoveNext（）;//记录下移

}

if（RecSet.IsEOF（））//如果找到记录尾，也没有找到符合条件的记录，则弹出对话框，提示用户ID或密码不正确。

AfxMessageBox（"用户ID或密码不正确,无法登录."）;

//关闭记录集及库

RecSet.Close（）;//关闭记录集

db.Close（）;//关闭数据库

}

Ø点击列标对相关字段进行排序：

voidInfoDlg:

:

OnColumnclickList1（NMHDR*pNMHDR,LRESULT*pResult）

{

if（Stu_ListCtrl.GetItemCount（）<=0）

return;

NM_LISTVIEW*pNMListView=（NM_LISTVIEW*）pNMHDR;

CDaoFieldInfom_fieldinfo;

switch（pNMListView->iSubItem）{

case0:

RecSet->GetFieldInfo（0,m_fieldinfo）;

LoadSortList（CString（m_fieldinfo.m_strName））;//得到第一个标头的字段名

break;

case1:

RecSet->GetFieldInfo（1,m_fieldinfo）;

LoadSortList（CString（m_fieldinfo.m_strName））;//得到第二个标头的字段名

break;

case2:

RecSet->GetFieldInfo（2,m_fieldinfo）;

LoadSortList（CString（m_fieldinfo.m_strName））;//得到第三个标头的字段名

break;

case3:

RecSet->GetFieldInfo（3,m_fieldinfo）;

LoadSortList（CString（m_fieldinfo.m_strName））;//得到第四个标头的字段名

break;

case4:

RecSet->GetFieldInfo（4,m_fieldinfo）;

LoadSortList（CString（m_fieldinfo.m_strName））;//得到第五个标头的字段名

break;

case5:

RecSet->GetFieldInfo（5,m_fieldinfo）;

LoadSortList（CString（m_fieldinfo.m_strName））;//得到第六个标头的字段名

break;

case6:

RecSet->GetFieldInfo（6,m_fieldinfo）;

LoadSortList（CString（m_fieldinfo.m_strName））;//得到第七个标头的字段名

break;

default:

LoadSortList（CString（""））;//default:

nosort.

break;

}

//*pResult=0;

}

Ø对CListCtrl控件中的内容进行打印：

voidInfoDlg:

:

OnPrint（）

{//TODO:

在此添加控件通知处理程序代码

if（Stu_ListCtrl.GetItemCount（）<=0）//如果CListCtrl控件中的行为空则返加，什么都不做

return;

PRNINFOPrnInfo={0};//设置打印信息

PrnInfo.hListView=Stu_ListCtrl.m_hWnd;//设置打印视图句柄

PrnInfo.hWnd=this->m_hWnd;//设置打印句柄

PrnInfo.IsPrint=FALSE;//是否打印

PrnInfo.nCurPage=1;//当前页

PrnInfo.nMaxLine=Stu_ListCtrl.GetItemCount（）;//最大行数

CPreParentDlgPreView;//定义一个CpreParent对象

DlgPreView.SetCallBackFun（DrawInfo,PrnInfo）;//设置打印视图的信息

DlgPreView.DoModal（）;//执行打印对话框

}

voidInfoDlg:

:

DrawInfo（CDC&memDC,PRNINFOPrnInfo）

{

if（memDC.m_hDC==NULL）

return;

intnCurPage=PrnInfo.nCurPage;//当前页

BOOLIsPrint=PrnInfo.IsPrint;//是否打印

intnMaxPage=PrnInfo.nCountPage;//最大页码

HWNDhWnd=PrnInfo.hWnd;

HWNDhList=PrnInfo.hListView;

CStringcsLFinality,csRFinality;

CTimetime;

time=CTime:

:

GetCurrentTime（）;//获得当前的日期

csLFinality=time.Format（"报表日期:

%Y-%m-%d"）;

csRFinality.Format（"第%i页/共%i页",nCurPage,nMaxPage）;

CStringszTitle=str_class;//设置打印的标题,即打印的第一页的最上面的标题

CRectrc,rt1,rt2,rt3,rt4,rt5,rt6,rt7;//为打印的七列设置矩形区域

CPen*hPenOld;//定义画笔

CPencPen;//定义画笔

CFontTitleFont,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,DRAFT_QUALITY,

VARIABLE_PITCH|FF_SWISS,_T（"黑体"））;

//细节字体

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,0））;

intxP=GetDeviceCaps（memDC.m_hDC,LOGPIXELSX）;//x方向每英寸像素点数

intyP=GetDeviceCaps（memDC.m_hDC,LOGPIXELSY）;//y方向每英寸像素点数

DOUBLExPix=（DOUBLE）xP*10/254;//每mm宽度的像素

DOUBLEyPix=（DOUBLE）yP*10/254;//每mm高度的像素

DOUBLEfAdd=7*yPix;//每格递增量

DOUBLEnTop=25*yPix;//第一页最上线

intiStart=0;//从第几行开始读取

DOUBLEnBottom=nTopB5_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;

DOUBLEnLeft=15*xPix;//最左线

DOUBLEnRight=xPix*（B5_W-15）;//最右线

DOUBLEnTextAdd=1.5*xPix;

if（IsPrint）

{

//真正打印部分

staticDOCINFOdi={sizeof（DOCINFO）,szTitle};//设置文档的信息

//开始文档打印

if（memDC.StartDoc（&di）<0）

{

:

:

MessageBox（hWnd,"连接到打印机化败!

","错误",MB_ICONSTOP）;

}

else

{

iStart=0;

nTop=25*yPix;//第一页最上线

for（intiTotalPages=1;iTotalPages<=nMaxPage;iTotalPages）

{

intnCurPage=iTotalPages;

csRFinality.Format（"第%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（）<0）

{

:

:

MessageBox（hWnd,_T（"打印失败!

"）,"错误",MB_ICONSTOP）;

memDC.AbortDoc（）;

return;

}

else

{

//打印

//标题

oldfont=memDC.SelectObject（&TitleFont）;

intnItem=B5_OTHERLINE;

if（nCurPage==1）

{

nItem=B5_ONELINE;

rc.SetRect（0,yPix*8,B5_W*xPix,yPix*17）;

memDC.DrawText（szTitle,&rc,DT_CENTER|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）;

}

//细节

memDC.SelectObject（&DetailFont）;

rc.SetRect（nLeft,nTop,nRight,nTopfAdd）;

//上横线

memDC.MoveTo（rc.left,rc.top）;

memDC.LineTo（rc.right,rc.top）;

rt1.SetRect（nLeft,nTop,nLeft25*xPix,nTopfAdd）;//学号

rt2.SetRect（rt1.right,rt1.top,rt1.right21*xPix,rt1.bottom）;//姓名

rt3.SetRect（rt2.right,rt1.top,rt2.right21*xPix,rt1.bottom）;//平时成绩

rt4.SetRect（rt3.right,rt1.top,rt3.right21*xPix,rt1.bottom）;//期中成绩

rt5.SetRect（rt4.right,rt1.top,rt4.right21*xPix,rt1.bottom）;//期末成绩

rt6.SetRect（rt5.right,rt1.top,rt5.right21*xPix,rt1.bottom）;//学期成绩

rt7.SetRect（rt6.right,rt1.top,rc.right,rt1.bottom）;//学分

memDC.DrawText（"学号",&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_VCENTER|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）;／／打印字段备注

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.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,rt1.bottom）;//画线

TCHARszID[32]={0},szName[32]={0},score_normal[32]={0},score_middle[32]={0},score_final[32]={0},score_term[32]={0},score_credit[32]={0};//为要打印的各字段设置变量

rc.SetRect（nLeft,nTopfAdd,nRight,nTop2*fAdd）;

rt1.SetRect（nLeftnTextAdd,rc.top,nLeft25*xPix,rc.bottom）;//学号

rt2.SetRect（rt1.rightnTextAdd,rt1.top,rt1.right21*xPix,rt1.bottom）;//姓名

rt3.SetRect（rt2.rightnTextAdd,rt1.top,rt2.right21*xPix,rt1.bottom）;//平时成绩

rt4.SetRect（rt3.rightnTextAdd,rt1.top,rt3.right