VB职工信息管理系统设计报告

职工信息管理系统课程设计报告（VB）编号：22职工信息管理系统设计报告一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力，提高学生综合、熟练地使用基本控件，文件读写，数组操作的能力。②为了公司更加简单方便的管理公司员工信息，可以简单方便的查询到职工的信息。②利用读取数据按钮，以顺序文件的度操作打开“职工信息.txt”文件，读取文件信息，并显示到list1中，以便接下来对职工信息进行操作。③通过清除按钮，清除list1中的职工的信息。④在list1中显示职工的信息。⑤按照职工号查询职工信息，并显示。⑥按照姓名查询职工信息，并显示。⑦按照职工号修改职工信息，并显示。⑧按照姓名修改职工信息，并显示。⑨追加一条记录数据，并显示。2.关键问题的解决通过“读取数据”按钮能利用右侧图示样式窗体形式，打开选中的数据文件职工.txt，并从该文件中读取职工的职工号、姓名、职称和工资，保存在数组中，并显示在list1中。通过“清除数据”按钮能够清除list1中的内容。从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体list1中显示查询结果。从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的list1中显示查询结果。从“按职工号修改”（“按姓名修改”）按钮，在输入对话框中输入职工号，对查询到职工的职工号(姓名)进行修改，在窗体list1中显示修改结果。从输入一条记录后文本框中输入一条记录信息，再将记录信息通过追加数据按钮添加到list1中，再通过数组将内容写入到文件中。三、部分程序关键源代码及注释PrivateSubCommand1_Click()Form2.Show’显示窗体2，以简单易懂EndSubDimfilenoAsInteger,strlAsStringfileno=FreeFileOpen"职工信息.txt"ForInputAs#fileno’用open语句以Input式打开文件i=0DoWhileNotEOF(fileno)’循环至文件尾Input#fileno,str1’将数据读入对应的框中Form1.List1.AddItemstr1i=i+1LoopClose#fileno‘关闭文件PrivateSubForm_Load()‘初始化，为组合框添加文件类型项目Item="所有文件（*.*）"Combo2.AddItemItem+Space(20-Len(Item))Item="窗体文件(*.frm)"Combo2.AddItemItem+Space(20-Len(Item))Item="文本文件(*.txt)"Combo2.AddItemItem+Space(20-Len(Item))Combo2.ListIndex=2PrivateSubCommand8_Click()List1.AddItemText1.Text’将追加的记录添加的框中PrivateSubCommand2_Click()List1.Clear’清除用过的数据EndSubPrivateSubCommand3_Click()e=TrueUnloadMe’退出系统EndSubPrivateSubCommand5_Click()DimaAsStringDimbAsStringb=InputBox("请输入要修改的职工的职工号")a=InputBox("请输入新的职工姓名")List1.AddItem"新职工姓名"&""&"职工号"Ifb="143101"ThenList1.AddItema&""&bElseIfb="143102"ThenList1.AddItema&""&bElseIfb="143103"ThenList1.AddItema&""&bElseIfb="143104"ThenList1.AddItema&""&bElseIfb="143105"ThenList1.AddItema&""&bElseIfb="143106"ThenList1.AddItema&""&bElseIfb="143107"ThenList1.AddItema&""&bElseIfb="143108"ThenList1.AddItema&""&bElse:MsgBox"请输入正确的职工号"EndIfEndSubPrivateSubCommand6_Click()’用姓名查询职工信息List1.ClearIfText2.Text="葛茹"ThenList1.AddItem"葛茹143101经理6000（元）"ElseIfText2.Text="林海"ThenList1.AddItem"林海143002副经理5500（元）"ElseIfText2.Text="王丹"ThenList1.AddItem"王丹143103秘书3000（元）"ElseIfText2.Text="唐乐"ThenList1.AddItem"唐乐143104司机3000（元）"ElseIfText2.Text="王倩"ThenList1.AddItem"王倩143005工程师4000（元）"ElseIfText2.Text="林强"ThenList1.AddItem"林强143106总工程师4500（元）"ElseIfText2.Text="李仁"ThenList1.AddItem"李仁143007工人3500（元）"ElseIfText2.Text="高翔"ThenList1.AddItem"高翔143108工人3500（元）"Else:MsgBox"请输入正确的职工姓名"EndIfEndSubPrivateSubCommand7_Click()’按姓名修改职工号DimaAsStringDimbAsStringa=InputBox("请输入要修改的职工姓名")b=Str(InputBox("请输入新职工号"))List1.AddItem"职工姓名"&""&"新职工号"Ifa="葛茹"ThenList1.AddItema&""&bElseIfa="林海"ThenList1.AddItema&""&bElseIfa="王丹"ThenList1.AddItema&""&bElseIfa="唐乐"ThenList1.AddItema&""&bElseIfa="王倩"ThenList1.AddItema&""&bElseIfa="林强"ThenList1.AddItema&""&bElseIfa="李仁"ThenList1.AddItema&""&bElseIfa="高翔"ThenList1.AddItema&""&bElse:MsgBox"请输入正确的职工姓名"’MsgBox提示信息错误EndIfEndSub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①该设计方案创新部分完成较少，对于创新部分已有自己的思路，但细节不太会，导致程序不能运行，所以没有写。查询工资在某一区间的应该对数组中的数用选择结构进行整理。②对工资进行排序，升序降序问题不能够有效地解决。③设计方案较为繁琐，只能查询，不利于大量信息的导入。2.目前存在的问题本程序在编写时按姓名修改和按职工号修改都要通过数组实现，自己的文件时通过数组导入的，在编写程序时没有用数组，而是用了比较麻烦的方法，对数组的应用还不太熟悉。五、本次设计的收获及心得体会这是自己第一次独立设计程序，而且该程序实际意义很大，自己在完成基本要求后有大的成就感。在程序设计过程中，查阅了大量的资料，看了很多书上没有讲到的内容，再有不会的也通过老师弄懂了思路，体验到了独立学习的乐趣，也从内心对vb有了深入的了解。临近考试，通过这