ext
Text2.SetFocus
Text2.BackColor=&H80000005
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t2=Text2.Text
Ift2=""Then
Text2.SetFocus
EndIf
IfIsNumeric(t2)=FalseThen
MsgBox"请输入数据"
Text2.Text=""
Text2.SetFocus
Else
Text3.SetFocus
Text3.BackColor=&H80000005
EndIf
EndIf
EndSub
PrivateSubText3_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t3=Text3.Text
IfIsNumeric(t3)=FalseThen
MsgBox"请输入数据"
Text3.Text=""
Text3.SetFocus
Else
IfVal(t3)<1OrVal(t3)>12Then
MsgBox"月份不能小于1或大于12,请重新输入!"
Text3.Text=""
Text3.SetFocus
Else
Text4.SetFocus
Text4.BackColor=&H80000005
EndIf
EndIf
EndIf
EndSub
PrivateSubText4_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t4=Text4.Text
IfIsNumeric(t4)=FalseThen
MsgBox"请输入数据"
Text4.Text=""
Text4.SetFocus
Else
IfVal(t4)<1OrVal(t4)>31Then
MsgBox"日期不能小于1或大于31,请重新输入!"
Text4.Text=""
Text4.SetFocus
Else
Combo2=""
Combo2.SetFocus
Combo2.BackColor=&H80000005
EndIf
EndIf
EndIf
EndSub
PrivateSubCombo2_Click()
c2=Combo2.Text
EndSub
PrivateSubCombo2_Change()
c2=Combo2.Text
EndSub
PrivateSubCombo2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
c2=Combo2.Text
Combo3=""
Combo3.SetFocus
Combo3.BackColor=&H80000005
EndIf
EndSub
PrivateSubCombo3_Click()
c3=Combo3.Text
EndSub
PrivateSubCombo3_Change()
c3=Combo3.Text
EndSub
PrivateSubCombo3_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
c3=Combo3.Text
Combo4.Text=""
Combo4.SetFocus
Combo4.BackColor=&H80000005
EndIf
EndSub
PrivateSubCombo4_Click()
c4=Combo4.Text
EndSub
PrivateSubCombo4_Change()
c4=Combo4.Text
EndSub
PrivateSubCombo4_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
c4=Combo4.Text
Text5.Text="五常"
Text5.SetFocus
Text5.BackColor=&H80000005
EndIf
EndSub
PrivateSubText5_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t5=Text5.Text
Text6.SetFocus
Text6.BackColor=&H80000005
EndIf
EndSub
PrivateSubText6_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t6=Text6.Text
Text7.SetFocus
Text7.BackColor=&H80000005
EndIf
EndSub
PrivateSubText7_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t7=Text4.Text
Text8.SetFocus
Text8.BackColor=&H80000005
EndIf
EndSub
PrivateSubText8_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t8=Text8.Text
Text9.SetFocus
Text9.BackColor=&H80000005
EndIf
EndSub
PrivateSubText9_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t9=Text9.Text
Text11.SetFocus
Text11.BackColor=&H80000005
EndIf
EndSub
PrivateSubText11_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
t11=Text11.Text
Command1.SetFocus
IfLen(t11)>156Then
MsgBox"字数太多,表格中打不下!"
EndIf
EndIf
EndSub
(6)干部档案删除界面:
程序代码:
PrivateSubCommand1_Click()
DimLocAsLong
GoToA1
Loc=Data1.Recordset.AbsolutePosition
Data1.Recordset.Edit
Data1.Recordset.Delete
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
IfData1.Recordset.RecordCount=LocThen
Loc=Loc-1
EndIf
Data1.Recordset.MoveLoc
ExitSub
A1:
t1=MsgBox("数据已经被全部删除!",vbOKOnly+vbExclamation)
ExitSub
EndSub
PrivateSubCommand3_Click()
Data1.Recordset.Close
UnloadMe
干部档案主菜单.Show
EndSub
PrivateSubForm_Load()
GoToA1
A=Me.hwnd
B=0
DisabledA,B
Data1.DatabaseName=App.Path+"\"+"人才库.mdb"
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
Data1.Recordset.Edit
ExitSub
A1:
ExitSub
EndSub
PrivateSubCommand2_Click()
GoToA1
IfData1.Recordset.AbsolutePosition
0Then
Data1.Recordset.MovePrevious
Else
t1=MsgBox("已经是第一条记录!",vbOKOnly+vbExclamation)
EndIf
ExitSub
A1:
MsgBox"数据库中无记录!"
ExitSub
EndSub
(五)结束语
经过一个多月的设计和开发,干部档案管理系统基本开发完毕。其功能基本符合用户需求,能够实现干部档案信息的录入、更新、删除、打印等基本功能,从而实现干部档案的管理。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短,所以该系统还有许多不尽如人意的地方,比如联机文档比较少,用户界面不够美观,出错处理不够等多方面问题。这些都有待进一步改善。
致谢
在本次毕业设计中,我从指导老师杨老师身上学到了很多东西。杨老师认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中,都给与我很大的帮助,使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助,感谢他耐心的辅导。
另外,在系统开发过程中助手同学也给于我很大的帮助,帮助解决了不少的难点,使得系统能及时开发完成,还有同组的同学同样给与我不少帮助,这里一并表示感谢。
(六)主要参考文献
[1]VisualBasic6.0使用指南
作者:BobReselman,RichardPeasley,WaynePruchniak.
出版社:电子工业出版社
[2]中文版MicrosoftOffice97自学通
作者:NedSnell
出版社:机械工业出版社
[3]VisualBasic6.0中文版控件大全
作者:Microsoft
出版社;电子工业出版社
[4]中文Access200024学时教程
作者:CraigEddy,TimothyBuchanan
出版社:机械工业出版社
上一篇:VB工资管理系统(论文+开题报告+源代码)(论文和程序)
下一篇:科研管理杂志简介