是是
是
是
(1)欢迎界面
程序代码:
DimintPAsInteger
DimintP2AsInteger
DimstrKAsString
DimstrK1AsString
DimstrK2AsString
DimstrK3AsString
'定义一个涵数来做动态界面
PrivateFunctionHTP(PBAsPictureBox,intXAsInteger,intYAsInteger,intLAsInteger,intDAsInteger,strBAsString)
Me.ScaleMode=vbPixels
WithPB
.ScaleMode=vbPixels
.AutoRedraw=True
EndWith
ForintP2=0ToPB.ScaleWidthStep4
DoEvents
ForintP=0ToPB.ScaleHeight
strK=PB.Point(intP2,intP)
strK1=PB.Point(intP2+1,intP)
strK2=PB.Point(intP2+2,intP)
strK3=PB.Point(intP2+3,intP)
Line(intX,intY)-(intL+intP2,intD+intP),strK
Line(intX,intY)-(intL+intP2+1,intD+intP),strK1
Line(intX,intY)-(intL+intP2+2,intD+intP),strK2
Line(intX,intY)-(intL+intP2+3,intD+intP),strK3
Next
Next
EndFunction
PrivateSubForm_Click()
Form2.Show
UnloadMe
EndSub
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
UnloadMe
EndSub
PrivateSubTimer1_Timer()
HTPPicture1,565,301,0,0,Me.BackColor
Timer1.Enabled=False
EndSub
(2)登录界面:
程序代码:
PrivateSubCommand1_Click()
IfTrim(Text1.Text)=Trim(Text3.Text)AndTrim(Text2.Text)=Trim(Text4.Text)Then
Form2.Show
UnloadMe
Else
ForX=1To1
IfA1.Recordset.EOF=TrueThen
MsgBox"您输入的用户名和密码有误,请重新输入!",16,"出错:"
Text1.Text=""
Text2.Text=""
A1.Recordset.AbsolutePosition=1
Else
IfTrim(Text1.Text)=Trim(Text3.Text)AndTrim(Text2.Text)=Trim(Text4.Text)Then
启动.Show
启动.PrintCommand1.Tag
启动.Tag=Text1.Text
UnloadMe
Else
X=X-1
A1.Recordset.MoveNext
EndIf
EndIf
NextX
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThen
MsgBox"您是第一次使用本程序,请设置超级用户!",32,"设置:"
启动.Show
UnloadMe
EndIf
EndSub
(3)干部档案主界面:
程序代码:
DimNum,IAsInteger
PrivateSubForm_Load()
GoToA1
DimAAsString
DimBAsInteger
A=Me.hwnd
B=0
DisabledA,B
ExitSub
A1:
ExitSub
EndSub
PrivateSubImage1_Click()
GoToA1
UnloadMe
干部档案信息查询.Show
ExitSub
A1:
Result=MsgBox("数据库中无记录,请输入数据!",vbOKOnly+vbExclamation)
ExitSub
EndSub
PrivateSubImage13_Click()
DataReport1.Show
EndSub
PrivateSubImage5_Click()
UnloadMe
干部档案信息录入.Show
EndSub
PrivateSubImage7_Click()
GoToA1
UnloadMe
干部档案信息修改.Show
ExitSub
A1:
Result=MsgBox("数据库中无记录,请输入数据!",vbOKOnly+vbExclamation)
ExitSub
EndSub
PrivateSubImage10_Click()
UnloadMe
干部档案信息删除.Show
ExitSub
EndSub
PrivateSubImage14_Click()
UnloadMe
启动.Show
EndSub
PrivateSubImage2_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image2.Visible=False
Image1.Visible=True
EndSub
PrivateSubImage6_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image6.Visible=False
Image5.Visible=True
EndSub
PrivateSubImage9_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image9.Visible=False
Image7.Visible=True
EndSub
PrivateSubImage11_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image11.Visible=False
Image10.Visible=True
EndSub
PrivateSubImage15_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image15.Visible=False
Image14.Visible=True
EndSub
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image1.Visible=False
Image2.Visible=True
Image5.Visible=False
Image6.Visible=True
Image7.Visible=False
Image9.Visible=True
Image10.Visible=False
Image11.Visible=True
Image14.Visible=False
Image15.Visible=True
EndSub
PrivateSubForm_Activate()
GoToA1
Data1.DatabaseName=App.Path+"\"+"人才库.mdb"
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
Num=Data1.Recordset.RecordCount
A1:
ExitSub
EndSub
PrivateSubTimer1_Timer()
ChcLabel1,12,14,12
ChcLabel2,12,14,12
ChcLabel3,12,14,12
ChcLabel4,12,14,12
EndSub
(4)干部档案查询界面
程序代码:
Dimt1$,t2$,t3$,t4$,t5$,t6$,t7$,t8$,t9$,t10$,t11$,t12$,t13$,t14$,c1$,c2$,c3$,c4$
DimX1,x2,x3,x4AsInteger
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"姓名不能为空,请输入姓名!"
Text1.SetFocus
Else
Data1.Recordset.AddNew
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
Text11.Text=""
Combo1.Text="男"
Combo2.Text=""
Combo3.Text=""
Combo4.Text=""
Text1.SetFocus
Text2.BackColor=&H80000001
Text3.BackColor=&H80000001
Text4.BackColor=&H80000001
Text5.BackColor=&H80000001
Text6.BackColor=&H80000001
Text7.BackColor=&H80000001
Text8.BackColor=&H80000001
Text9.BackColor=&H80000001
Text11.BackColor=&H80000001
Combo1.BackColor=&H80000001
Combo2.BackColor=&H80000001
Combo3.BackColor=&H80000001
Combo4.BackColor=&H80000001
EndIf
EndSub
PrivateSubCommand1_KeyPress(KeyAsciiAsInteger)
IfText1.Text=""Then
MsgBox"姓名不能为空,请输入姓名!"
Text1.SetFocus
Else
Data1.Recordset.AddNew
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
Text11.Text=""
Combo1.Text="男"
Combo2.Text=""
Combo3.Text=""
Combo4.Text=""
Text1.SetFocus
Text2.BackColor=&H80000001
Text3.BackColor=&H80000001
Text4.BackColor=&H80000001
Text5.BackColor=&H80000001
Text6.BackColor=&H80000001
Text7.BackColor=&H80000001
Text8.BackColor=&H80000001
Text9.BackColor=&H80000001
Text11.BackColor=&H80000001
Combo1.BackColor=&H80000001
Combo2.BackColor=&H80000001
Combo3.BackColor=&H80000001
Combo4.BackColor=&H80000001
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.SetFocus
EndSub
PrivateSubCommand3_Click()
IfText1.Text=""Then
MsgBox"姓名不能为空,请输入姓名!"
Text1.SetFocus
Else
Data1.Recordset.Update
Data1.Recordset.Close
UnloadMe
干部档案主菜单.Show
EndIf
EndSub
PrivateSubCommand4_Click()
Data1.Recordset.Close
UnloadMe
干部档案主菜单.Show
EndS
上一篇:
VB工资管理系统(论文+开题报告+源代码)(论文和程序)
下一篇:
爱情只不过就是,爱与不爱