学生管理系统

精品文档精心整理精品文档可编辑的精品文档学生管理系统目录：1、学生管理系统2、电表管理系统福建工程学院计算机与信息科学系实验报告2010–2011学年第一学期任课老师：实验题目设计一个简单实用班级成绩管理系统实验时间实验开始日期：报告提交日期：实验目的、要求1．该实验的课内学时是4个课时。2．程序完成后应该完成如下基本功能：1）用自定义结构体typedefstruct设计该软件的数据结构；2）用数组或指针链表将所有学生的数据按照学号顺序链接起来。3）程序能够按照学号顺序输入学生的三门成绩，并计算平均成绩和总成绩。4）程序能够显示已经输入的指定学号的学生成绩以及平均成绩和总成绩。5）程序能够按要求显示指定分数段的学生成绩以及平均成绩和总成绩。6）能够统计班级总人数、班级平均成绩。7）能够增加和删除指定学生的成绩。8）按照指定的要求以及顺序（升序或降序）显示学生成绩以及平均成绩和总成绩。3．在完成上述基本功能的前提下，有能力的同学可以完成如下加强功能：1）能够输入的数据长期存储在文件中，再次运行程序时从文件中读取数据，无须重复输入。5）在程序的提示语言清晰明确，界面美观并且适用。实验设计内容（1）实验设计的数据结构typedefstruct{charname[60];charID[7];floatChinese,Math,English,sum,average;}student;（2）层次图主函数main主函数main（）创建文件增加和删除学生的成绩||按学号录入学生平均成绩，总成绩计算查询查询指定学号学生的成绩平均成绩总成绩指定分数段的学生成绩以及平均成绩和总成绩按指定条件对学生成绩进行排序统计班级总人数、班级平均成绩结束程序(3)各个函数分析1.主函数main(){Intn;FILEfp;判断是否存在data.txt这个文件,不存在就创建该文件;输入n选择要进行的操作,根据n的值调用相应的函数;}2.录入学生成绩structstudent*init(intn){定义变量;打开文件;While(){输入学生成绩放入变量p;把p里面的内容打印到文件上;}关掉文件;}3.插入学生成绩voidinsert(structstudent*head)｛定义变量;打开文件;While(){输入学生成绩放入变量pi;插入到指定学号后面；｝关闭文件；｝4.查看学生成绩voidlist(structstudent*head){定义变量;打开文件;While(){显示学生成绩}}5.查看指定学号或成绩段学生成绩voidsearch(structstudent*head){定义变量；打开文件；按学号查找输入要查找的学号；按分数段查找录入成绩段；While(){显示学生成绩}6.统计班级总人数及班级平均成绩voidtongji(structstudent*head){定义变量；打开文件While(){累计班级人数，计算班级总成绩,各科总成绩}计算班级平均成绩，显示结果；}7.删除指定学生的成绩structstudent*del(structstudent*head,intn){定义变量；打开文件；删除指定学生的成绩；保存并关闭文件；}7.排序voidsumas(structstudent*head){定义变量；比较升序排序；}voidsumdes(structstudent*head){定义变量；比较降序排序；}(4)测试数据的设计及预期结果1.录入的学生信息:姓名学号英语数学语文张三1100100100倩倩2808080小丽11909090李四12606060阿香305050502.预期结果：（1）删除李四张三1100100100倩倩2808080小丽11909090阿香30505050（2）添加李四张三1100100100倩倩2808080小丽11909090李四12606060阿香30505050（3）统计总人数和成绩总人数为：5班级英语平均成绩：76班级数学平均成绩：76班级语文平均成绩：76（4）查找指定学生成绩查找总分200~300的学生姓名学号英语数学语文总分张三1100100100300倩倩2808080240小丽11909090270（5）按总分降序排序张三1100100100300小丽11909090270倩倩2808080240李四12606060180阿香30505050150(4)程序界面①.主界面②.学生成绩录入界面③.成绩查询界面④.排序界面⑤.退出程序的界面(5)流程图1.录入学生成绩输入要创建的学生人数n输入要创建的学生人数n是开始输入学生信息i=n?是结束否2.显示学生成绩是开始是开始显示学生数据p->next=Null？是结束否3.插入学生信息输入要插入学生输入要插入学生信息的位置n开始输入学生信息结束i=n?是否4.删除数据输入要删除学生的学号n输入要删除学生的学号np->num=n?是否删除数据开始结束5.查看指定学号或成绩段学生成绩输入要查找学生的学号n(输入要查找学生的学号n(或分数段)p->num=n或(p->sum>=a&&p->sum<=b)是否显示学生成绩开始结束调试过程记录本次课题除了排序的函数在调试的时候有问题外,其他的都没有问题.下面主要写调试排序时的错误.实验结果记录以及与预期结果比较以及分析排序结果截图:分析:排序结果搜正确,而且能按照不同项目排序.所以该算法基本上没问题.总结以及心得体会指导老师评阅意见指导老师：年月日代码：#include<stdio.h>#include<stdlib.h>#include<ctype.h>#include<conio.h>#defineNull0structstudent{intnum;charname[20];floatchinese,math,english,ave,sum;structstudent*next;};voidprint(){printf("|------------------------------------------------|\n"); printf("|欢迎光临学生成绩管理系统|\n"); printf("|------------------------------------------------|\n"); printf("|1==>创建学生数据|\n"); printf("|2==>载入学生数据|\n");printf("|3==>添加学生数据|\n"); printf("|4==>查询学生数据|\n");printf("|5==>删除学生数据|\n");printf("|6==>统计班级人数|\n");printf("|7==>排序|\n"); printf("|0==>退出学生管理系统|\n"); printf("|------------------------------------------------|\n");}structstudent*init(intn){inti;structstudent*head,*p,*s;for(i=1;i<=n;i++){if(i==1){printf("请输入第%d个学生信息:\n",i);p=(structstudent*)malloc(sizeof(structstudent));printf("学号\n");scanf("%d",&p->num);printf("姓名\n");scanf("%s",&p->name);printf("语文\n");scanf("%f",&p->chinese);printf("数学\n");scanf("%f",&p->math);printf("英语\n");scanf("%f",&p->english);p->sum=p->chinese+p->math+p->english;p->ave=p->sum/3;head=p;if(n==1)p->next=Null;}else{printf("请输入第%d个学生信息:\n",i);s=(structstudent*)malloc(sizeof(structstudent));printf("学号\n");scanf("%d",&s->num);printf("姓名\n");scanf("%s",&s->name);printf("语文\n");scanf("%f",&s->chinese);printf("数学\n");scanf("%f",&s->math);printf("英语\n");scanf("%f",&s->english);s->sum=s->chinese+s->math+s->english;s->ave=s->sum/3;p->next=s;p=s;s->next=Null;}}returnhead;}voidinsert(structstudent*head){structstudent*p,*pi;intxuehao;printf("请问要在哪个学生后面插入数据（输入学号）:");scanf("%d",&xuehao);pi=(structstudent*)malloc(sizeof(structstudent));p=head;printf("学号\n");scanf("%d",&pi->num);printf("姓名\n");scanf("%s",&pi->name);printf("语文\n");scanf("%f",&pi->chinese);printf("数学\n");scanf("%f",&pi->math);printf("英语\n");scanf("%f",&pi->english);pi->sum=pi->chinese+pi->math+pi->english;pi->ave=pi->sum/3;if(head==Null){head=pi;pi->next=Null;}else{while((p->num!=xuehao)&&(p->next!=Null)){p=p->next;}if(p->next!=Null){pi->next=p->next;p->next=pi;}else{p->next=pi;pi->next=Null;}}}voidsearch(structstudent*head){intno;structstudent*p;p=head;intn=0;printf("1按学号查找\n");printf("2按分数段查找\n");scanf("%d",&n);switch(n){case1:printf("请输入要查找同学的学号:");scanf("%d",&no);while(p!=Null){if(p->num==no){printf("------------------学生成绩表-----------------------\n");printf("===================================================\n");printf("%-5s%-8s%-8s%-8s%-8s%-8s%-8s\n","学号","姓名","语文","数学","英语","总分","平均分");printf("===================================================\n");printf("%-5d%-8s%-8.1f%-8.1f%-8.1f%-8.1f%-8.1f\n",p->num,p->name,p->chinese,p->math,p->english,p->sum,p->ave);printf("===================================================\n");break;}p=p->next;}break;case2:{floata,b;intchoose;charc;for(;;){printf("\t|---------------------------------------|\n"); printf("\t|分数段查询|\n"); printf("\t|---------------------------------------|\n"); printf("\t|1==>按总分成绩查询|\n"); printf("\t|2==>按语文成绩查询|\n");printf("\t|3==>按数学成绩查询|\n"); printf("\t|4==>按英语成绩查询|\n"); printf("\t|0==>返回上一级菜单|\n"); printf("\t|---------------------------------------|\n");printf("请输入你要执行的操作:");scanf("%d",&choose);while(getchar()!='\n');switch(choose){case1: { p=head; printf("请输入所要查找的分数段:\n");printf("请输入第一个分数:\n");scanf("%f",&a);printf("请输入第二个分数:\n");scanf("%f",&b);printf("%-5s%-8s%-8s%-8s%-8s%-8s%-8s\n","学号","姓名","语文","数学","英语","总分","平均分");while(p!=Null){if(p->sum>=a&&p->sum<=b){printf("%-5d%-8s%-8.1f%-8.1f%-8.1f%-8.1f%-8.1f\n",p->num,p->name,p->chinese,p->math,p->english,p->sum,p->ave);}p=p->next;} }break;case2: { p=head; printf("请输入所要查找的分数段:\n");printf("请输入第一个分数:\n");scanf("%f",&a);printf("请输入第二个分数:\n");scanf("%f",&b);printf("%-5s%-8s%-8s%-8s%-8s%-8s%-8s\n","学号","姓名","语文","数学","英语","总分","平均分");while(p!=Null){if(p->chinese>=a&&p->chinese<=b){printf("%-5d%-8s%-8.1f%-8.1f%-8.1f%-8.1f%-8.1f\n",p->num,p->name,p->chinese,p->math,p->english,p->sum,p->ave);}p=p->next; } }break;case3: { p=head; printf("请输入所要查找的分数段:\n");printf("请输入第一个分数:\n");scanf("%f",&a);printf("请输入第二个分数:\n");scanf("%f",&b);printf("%-5s%-8s%-8s%-8s%-8s%-8s%-8s\n","学号","姓名","语文","数学","英语","总分","平均分");while(p!=Null){if(p->math>=a&&p->math<=b){printf("%-5d%-8s%-8.1f%-8.1f%-8.1f%-8.1f%-8.1f\n",p->num,p->name,p->chinese,p->math,p->english,p->sum,p->ave);}p=p->next;} }break;case4: {p=head;printf("请输入所要查找的分数段:\n");printf("请输入第一个分数:\n");scanf("%f",&a);printf("请输入第二个分数:\n");scanf("%f",&b);printf("%-5s%-8s%-8s%-8s%-8s%-8s%-8s\n","学号","姓名","语文","数学","英语","总分","平均分");while(p!=Null){if(p->english>=a&&p->english<=b){printf("%-5d%-8s%-8.1f%-8.1f%-8.1f%-8.1f%-8.1f\n",p->num,p->name,p->chinese,p->math,p->english,p->sum,p->ave);}p=p->next; } }break;case0:return;default:printf("\n\n您的输入有误!请重新输入：\n\n");break;}}}}}structstudent*del(structstudent*head,intn){structstudent*p,*q;p=head;if(head==Null){printf("没有学生的资料要删除!\n");returnhead;}while(p->num!=n&&p->next!=Null){q=p;p=p->next;}if(p->num==n){if(p==head)head=p->next;elseq->next=p->next;free(p);}elseprintf("找不到相应的学生资料!\n");returnhead;}voidlist(structstudent*head){inti=0;structstudent*p;p=head;printf("------------------学生成绩表-----------------------\n");printf("===================================================\n");printf("%-5s%-8s%-8s%-8s%-8s%-8s%-8s\n","学号","姓名","语文","数学","英语","总分","平均分");printf("===================================================\n");while(p!=Null){printf("%-5d%-8s%-8.1f%-8.1f%-8.1f%-8.1f%-8.1f\n",p->num,p->name,p->chinese,p->math,p->english,p->sum,p->ave);p=p->next;}printf("===================================================\n");printf("\n\n");}voidtongji(structstudent*head){inti=0;structstudent*p;floatchinese1=0,math1=0,english1=0;p=head;while(p!=Null){i=i+1;chinese1=chinese1+p->chinese;math1=math1+p->math;english1=english1+p->english;p=p->next;}printf("班级总人数为：%d\n",i);printf("班级语文平均分为：%4.1f\n",chinese1/i);printf("班级数学平均分为：%4.1f\n",math1/i);printf("班级英语平均分为：%4.1f\n",english1/i);printf("\n");}student*sort(student*head,intchoose){student*p1,*p2=head,*pm,*px;studentmid;if(!p2)returnhead;for(p1=p2;p1->next!=NULL;p1=p1->next){pm=p1;for(p2=p1->next;p2!=NULL;p2=p2->next)switch(choose){case1:if(pm->num>p2->num)pm=p2;break;case2:if(pm->sum<p2->sum)pm=p2;break;case3:if(pm->chinese<p2->chinese)pm=p2;break;case4:if(pm->math<p2->math)pm=p2;break;case5:if(pm->english<p2->english)pm=p2;break;}if(pm!=p1){mid=*pm;*pm=*p1;*p1=mid;px=pm->next;pm->next=p1->next;p1->next=px;}}printf("\n排序后的成绩表为:\n");list(head);returnhead;}student*sort_all(student*head){intchoose;for(;;){printf("\t|---------------------------------------|\n"); printf("\t|学生成绩统计排序|\n"); printf("\t|---------------------------------------|\n"); printf("\t|1==>按学生学号排序|\n"); printf("\t|2==>按学生总分排序|\n");printf("\t|3==>按学生语文成绩排序|\n"); printf("\t|4==>按学生数学成绩排序|\n");printf("\t|5==>按学生英语成绩排序|\n"); printf("\t|0==>返回上一级菜单|\n"); printf("\t|---------------------------------------|\n");printf("请输入你要执行的操作:");scanf("%d",&choose);while(getchar()!='\n');switch(choose){case1:head=sort(head,choose);break;case2:head=sort(head,choose);break;case3:head=sort(head,choose);break;case4:head=sort(head,choose);break;case5:head=sort(head,choose);break;case0:returnhead;default:printf("\n\n您的输入有误!请重新输入：\n\n");break;}}}voidsave(structstudent*head){inti,j;FILE*fp;student*p;p=head;charc;//head头指针if((fp=fopen("c:\\stu_list","wb"))==NULL){printf("Cannotopenfilestrikeanykeyexit!");getch();exit(0);}while(p){fwrite(p,sizeof(student),1,fp);p=p->next;}fclose(fp);}structstudent*read(){inti=0,j;FILE*fp;structstudent*p;//工作指针student*last,*head;//最后一项的指针head=(student*)malloc(sizeof(student));last=head;if((fp=fopen("c:\\stu_list","rb"))==NULL){printf("Cannotopenfilestrikeanykeyexit!");getch();exit(0);}while(!feof(fp)){p=(student*)malloc(sizeof(student));if(fread(p,sizeof(student),1,fp)==1){last->next=p;last=last->next;}}fclose(fp);returnhead=head->next;}intmain(){FILE*fp;charch,c;intn=0;structstudent*head,*r;print();while((ch=tolower(getchar()))!='0'){switch(ch){case'1':{printf("请问有多少个学生的资料要输入?\n");scanf("%d",&n);head=init(n);list(head);save(head);break;}case'2':{head=read();list(head);break;}case'3':{insert(head);list(head);save(head);break;}case'4':{search(head);break;}case'5':{intnum;printf("请输入要删除学生的学号:\n");scanf("%d",&num);head=del(head,num);list(head);save(head);break;}case'6':{tongji(head);break;}case'7':{head=read();sort_all(head);break;}default:break;}printf("\n\n\t======>按Enter键返回主菜单\n");fflush(stdin);c=getchar();system("cls");print();}}精品文档精心整理精品文档可编辑的精品文档 毕业设计电表管理系统班级____姓名____学号____摘要…………1Abstract………………………2第一章引言…………………41．1课题背景……………………41．2系统简介……………………5第二章系统的分析……………62．1系统开发的目标和思想……………………62．2系统的可行性分析…………8第三章系统的设计……………183．1系统的功能结构设计………183．2系统的数据库设计3．3界面设计与代码设计……………………23…………24结束语………………46致谢…………………47参考文献……………48摘要传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visualbasic6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.关键字:电费管理,visualbasic,Access,数据库AbstractElectricityfromthetraditionalmanagementstaffareartisanalChabiao,meterreadingcompleted,whichshouldbecompletedbytheusersofelectricitypermonthpenaltyforuserstobuyelectricityenquiries,andalistofuserinformationchannelslistsuchinformation.Itswork-intensive,cumbersomeworkflow,becausestaffarenotcareful.wouldresultinthetariffrevenueisrecurringmistakes.Giventheabovereasonsweneedtodevelopamanagementsoftwaretohelpmakeelectricitysystem,theusercancompletetheinspectionofelectricitymonthlycopieddegrees,Informationincludesbasicdataandthemaintenancefunction.withthesystemusingvisualbasicMicrosoftAccess6.0database.asfaraspossiblehumanizationinterface,datamaintenancetoreliablesecurity.keyword:tariffmanagement,visualbasic,Access,thedatabase引言课题背景传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visualbasic6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.系统简介本系统主要由以下几大功能模块组成:用户交费:(交纳电费,本日小节)本月抄度:(单户抄度多户抄度)资料导出(全部清单,欠费清单)数据查询(电费查询与统计,用户欠费查询)信息录入(资料录入,资料修改,资料删除)系统数据维护(数据备份,数据恢复)基本数据维护(用户类型维护,操作员维护)帮助退出系统的分析系统开发的目标和思想本系统主要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的.系统的可行性分析本系统采用visualbasic6.0与微软的access作为数据库结合.在系统编写上具有可行性.经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.社会方面:服务于大众,方便抄表人员工作,可靠方便.系统的设计系统的功能结构设计程序登陆主界面程序登陆主界面用户交费本月抄费资料导出数据查询信息录入系统数据维护基本数据维护帮助退出系统的数据库设计用户类型表:字段名称数据类型说明ATypeID自动编号AType文本电费类型UNITPRICE货币Adate日期/时间电费设置日期密码表:字段名称数据类型姓名文本操作权限文本密码文本MaxID表:字段名称数据说明TableName文本MaxID数字界面设计与代码设计1.用户登陆界面设计:界面设计与代码设计用户登陆界面代码分析:PrivateSubCommand1_Click()DimrstpchardAsNewADODB.RecordsetDimreHardAsStringDimgetidAsStringreHard=GetpcHard(getid)rstpchard.Open"select*fromgetpchard",gCnn,adOpenKeyset,adLockBatchOptimisticIfrstpchard.RecordCount=0Thenrstpchard.AddNewrstpchard.Fields(0)=reHardrstpchard.UpdateBatchadAffectCurrentElseIfTrim(reHard)<>Trim(rstpchard.Fields(0))ThenMsgBox"对不起，使用不合法请与开发者联系！",vbInformationEndEndIfEndIfIfCheck1.Value=1ThenSetrec=NewADODB.Recordsetrec.Open"select*from记住密码",gCnn,3,3rec("标记")="1"IfCombo2.Text<>""Thenrec("姓名")=Combo2.TextElserec("姓名")=""EndIfIfCombo1.Text<>""Thenrec("权限")=Combo1.TextElserec("权限")=""EndIfIfText2.Text<>""Thenrec("密码")=Text2.TextElserec("密码")=""EndIfrec.Updaterec.CloseElseSetrec=NewADODB.Recordsetrec.Open"select*from记住密码",gCnn,3,3rec("标记")="0"rec.Updaterec.CloseEndIfDimrec1AsADODB.RecordsetSetrec1=NewADODB.Recordsetrec1.Open"select*from登录人员",gCnn,3,3Setrec=NewADODB.Recordsetrec.Open"select*from密码表where姓名='"&Combo2.Text&"'and操作权限='"&Combo1.Text&"'and密码='"&Text2.Text&"'",gCnn,3,3Ifrec.EOF=FalseThenIfrec("操作权限")<>"管理员"Then'FRMMAIN.XZCK.Enabled=FalseMDIme.mczy.Enabled=FalseMDIme.xtwh.Enabled=FalseMDIme.del.Enabled=False'FRMMAIN.DJGL.Enabled=False'FRMMAIN.delte.Enabled=FalseElse'Me.XZCK.Enabled=TrueMDIme.mczy.Enabled=TrueMDIme.xtwh.Enabled=TrueCreateNewKeyHKEY_CURRENT_USER,"ZhiYuanTechnologe"SetKeyValueHKEY_CURRENT_USER,"ZhiYuanTechnologe","UserName",dlj,REG_SZSetKeyValueHKEY_CURRENT_USER,"ZhiYuanTechnologe","PassWord",dlj,REG_SZ'FRMMAIN.DJGL.Enabled=True'FRMMAIN.delte.Enabled=TrueEndIfrec1("姓名")=Combo2.Textrec1.Updaterec1.CloseMe.HideGuser=Combo2.TextMDIme.ShowElseMsgBox"权限或密码不正确，请重试!",vbInformationEndIfrec.CloseEndSubPrivateSubCommand11_Click()EndSubPrivateSubCommand2_Click()Combo2.Text=""Text2.Text=""Combo1.Text=""EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubCommand4_Click()Me.HideFRMMMXG.Show1EndSubPrivateSubForm_Activate()Text2.Text=""Combo1.Text=""Combo2.Text=""Setrec=NewADODB.Recordsetrec.Open"select*from记住密码",gCnn,3,3Ifrec("标记")="0"Orrec("标记")="1"ThenCheck1.Value=rec("标记")EndIfrec.CloseSetrec=NewADODB.Recordsetrec.Open"select*from记住密码",gCnn,3,3Ifrec("标记")=1ThenCombo2.Text=rec("姓名")Combo1.Text=rec("权限")Text2.Text=rec("密码")EndIfrec.CloseCommand1.SetFocusEndSubPrivateSubForm_Load()gCnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:databasepassword="&DbPassword&";DataSource="&_App.Path&"\data\dbdb.mdb;PersistSecurityInfo=False"gCnn.CursorLocation=adUseClientgCnn.OpenSetrec=NewADODB.Recordsetrec.Open"selectdistinct姓名from密码表",gCnn,3,3WithCombo2DoUntilrec.EOF.AddItemrec("姓名")rec.MoveNextLoopEndWithrec.CloseSetrec=NothingEndSubPrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)Cancel=TrueSelectCaseMsgBox("此操作将退出本系统，继续吗？",vbYesNo,"警告")CasevbYesCancel=FalseEndCaseElseCancel=TrueEndSelectEndSub2.主界面设计:主界面代码设计:PrivateSuballlm_Click()frmList.qfFlg=FalsefrmList.ShowEndSubPrivateSubbackup_Click()frmbeifen.ShowEndSubPrivateSubbenrixiaojie_Click()frmCount.ShowEndSubPrivateSubCommand1_Click()frameFee.Visible=FalseEndSubPrivateSubcmdQuery_Click()DimrstAsNewADODB.Recordsetrst.Open"select*frompanelinfowhereholder='"&Me.txtUser&"'anddelflag<>true",gCnn,adOpenStatic,adLockBatchOptimisticIfrst.RecordCount<>0Thendcvalue.Text=rst.Fields(2)txtUserName(0)=rst.Fields(1)txtUserName(1)=rst.Fields!nowecounttxtUserName(2)=rst.Fields!cendcodedtpwdate.Value=rst.Fields(4)txtUserName(3)=Format(rst.Fields!lMoney,"###0.00")txtUserName(4)=Format(rst.Fields!bmoney,"###0.00")txtUserName(6)=Format(rst.Fields!lsFee,"###0.00")'txtUserName(5)=txtUserName(1)*rst.Fields!lMoney*(rst.Fields!lightScale/100)+txtUserName(1)*txtUserName(4)*(1-rst.Fields!lightScale/100)txtUserName(5)=Format(txtUserName(1)*rst.Fields!lMoney*(rst.Fields!lightScale/100)+rst.Fields!nowecount*rst.Fields!bmoney*(1-rst.Fields!lightScale/100),"###0.00")txtUserName(8)=rst.Fields(9)txtUserName(7)=Format(Val(txtUserName(5))+Val(txtUserName(6)),"####0.00")dcNum.Text=rst.Fields(1)ElseMsgBox"没有查询到数据!",vbInformationEndIfrst.CloseSetrst=NothingEndSubPrivateSubdcNum_Click(AreaAsInteger)DimrstAsNewADODB.Recordsetrst.Open"select*frompanelinfowhereholderid='"&dcNum.Text&"'anddelflag<>true",gCnn,adOpenKeyset,adLockBatchOptimisticIfNotrst.EOFThendcvalue.Text=rst.Fields(2)txtUserName(0)=rst.Fields(1)txtUserName(1)=rst.Fields!nowecounttxtUserName(2)=rst.Fields!cendcodedtpwdate.Value=rst.Fields(4)txtUserName(3)=Format(rst.Fields!lMoney,"###0.00")txtUserName(4)=Format(rst.Fields!bmoney,"###0.00")txtUserName(6)=Format(rst.Fields(8),"####0.00")txtUserName(5)=Format(txtUserName(1)*txtUserName(3)*(rst.Fields!lightScale/100)+txtUserName(1)*txtUserName(4)*(1-rst.Fields!lightScale/100),"####0.00")txtUserName(8)=rst.Fields(9)txtUserName(7)=Format(Val(txtUserName(5))+Val(txtUserName(6)),"####0.00")EndIfrst.CloseEndSubPrivateSubdcvalue_Click(AreaAsInteger)DimrstAsNewADODB.Recordsetrst.Open"select*frompanelinfowhereholderid='"&dcvalue.BoundText&"'anddelflag<>true",gCnn,adOpenStatic,adLockBatchOptimisticIfNotrst.EOFThendcvalue.Text=rst.Fields(2)txtUserName(0)=rst.Fields(1)txtUserName(1)=rst.Fields!nowecounttxtUserName(2)=rst.Fields!cendcodedtpwdate.Value=rst.Fields(4)txtUserName(3)=Format(rst.Fields!lMoney,"###0.00")txtUserName(4)=Format(rst.Fields!bmoney,"###0.00")txtUserName(6)=Format(rst.Fields!lsFee,"###0.00")'txtUserName(5)=txtUserName(1)*rst.Fields!lMoney*(rst.Fields!lightScale/100)+txtUserName(1)*txtUserName(4)*(1-rst.Fields!lightScale/100)txtUserName(5)=Format(txtUserName(1)*rst.Fields!lMoney*(rst.Fields!lightScale/100)+rst.Fields!nowecount*rst.Fields!bmoney*(1-rst.Fields!lightScale/100),"###0.00")txtUserName(8)=rst.Fields(9)txtUserName(7)=Format(Val(txtUserName(5))+Val(txtUserName(6)),"####0.00")dcNum.Text=rst.Fields(1)EndIfrst.CloseSetrst=NothingEndSubPrivateSubdcvalue_KeyPress(KeyAsciiAsInteger)KeyAscii=0EndSubPrivateSubdel_Click()frmdel.ShowEndSubPrivateSubdhcb_Click()usrcopyP.ShowEndSubPrivateSubdhcp_Click()frmCopyP.ShowEndSubPrivateSubduohu_Click()frmCuifei.muser1=2frmCuifei.ShowEndSubPrivateSubedit_Click()frmEdit.ShowEndSubPrivateSubexit_Click()EndEndSubPrivateSubinsert_Click()frmInsert.Show1EndSubPrivateSubjiaonadianfei_Click()frmFee.ShowEndSubPrivateSubM_USERYTPE_Click()FRMUSERTYPE.Show1EndSubPrivateSubMDIForm_Load()loadAddEndSubPublicSubloadAdd()Ifrst.State=1Thenrst.CloseEndIfrst.Open"select*frompanelinfowheredelflag<>true",gCnn,adOpenKeyset,adLockBatchOptimisticIfrst.RecordCount<>0ThenSetdcvalue.RowSource=rstdcvalue.BoundColumn="holderID"dcvalue.ListField="holder"SetdcNum.DataSource=rstSetdcNum.RowSource=rstdcNum.ListField="holderid"IfNotrst.EOFThendcNum.Text=rst.Fields!holderiddcvalue.Text=rst.Fields(2)txtUserName(0)=rst.Fields(1)txtUserName(1)=rst.Fields!nowecounttxtUserName(2)=rst.Fields!cendcodedtpwdate.Value=rst.Fields(4)txtUserName(3)=Format(rst.Fields!lMoney,"##0.00")txtUserName(4)=Format(rst.Fields!bmoney,"###.0.00")txtUserName(6)=rst.Fields!lsFeetxtUserName(5)=Val(txtUserName(1))*Val(txtUserName(3))*(Val(rst.Fields!lightScale)/10