搜索
XXXXVB20XXXX()IVISUALBASICSQLSever2000.VISUALBASICSQLServer2000MIS()IIABSTRACTInordertoincreasetheefficiencyofhumanresourcesmanagement,thehumanresourcemanagementsystemisdesigned.,whichisbasedonvbprogramminglanguageandsql2000.thesystemisverypowerfultohavesixfunctionmodules:basicinformationmanagementmodule,employeecompensationmanagementmodule,employeeattendancemanagementmodule,systemmaintenancemodule,recruitmentmanagementmoduleandtrainingadministrationmodule.Bytestingofthesystem,thehumanresourcesmanagementsystenisstableandeasytooperate.Keywords:HumanResourceManagements;VisualBasic;SQLServer2000;MIS()III1......................................................11.1...............................................11.2.........................................21.3.................................22.....................................42.1................................................42.2..................................................42.3..................................................52.3.1.............................................52.3.2.............................................52.3.3.........................................53.....................................................63.1.....................................................63.2................................................63.2.1...........................................73.2.2...........................................83.2.3...........................................83.2.4.......................................93.2.5.......................................93.3..........................................93.4................................................93.4...................................................103.4.1..............................................103.4.2..............................................104......................................114.1...........................................114.1.1..................................114.1.2......................................144.1.3......................................15()IV4.1.4......................................154.1.5..........................................165......................................................17[].........................................................18.............................................................19111.190%60%40%75%,,,:,,,21.21231.3.,:1.,32.,,3.,4.,5.422.1VisualBasic6.0Windows[1]VisualBasicVisualBasic[2]VisualBasic[3][4]VBWindowsVBWindowsWindowsVB[5]2.2SQLServer2000[6][7][8]SQLSERVER20001.2.[9]3.Windows2000[10]52.3,,;,2.3.12.3.22.3.3633.13.273-13.2.183.2.23-233.2.393.2.43.2.523.33-13-1userinfo3.4VisualBasic10VisualBasicApplicationWizardVisualBasic3-33.43.4.1IntelPentium166MX32MB1GBCD-ROM48XSVGA3.4.2Windows2000/Windows98/WindowsXPTCP/IPSQL20001144.14.1.14-1adminVBOptionExplicitPrivateCountsAsBytePrivateSubcmdcancel_Click()'//End12EndSubPrivateSubCmdLogin_Click()DimStrSQLAsStringUserName=CStr(Trim(TxtUserName.Text))PassWord=CStr(Trim(TxtPassword.Text))IfUserNameEmptyAndPassWordEmptyThen'//StrSQL=select,,fromwhere='&UserName&'and='&PassWord&'IfRsLoginCheck.State=adStateClosedThenRsLoginCheck.OpenStrSQL,DBCON,adOpenKeyset,adLockPessimistic,adCmdText'//EndIfGroup=RsLoginCheck.Fields(2).ValueIfRsLoginCheck.Fields(2).ValueAdministratorsThenCallCheckLoginEndIfIfRsLoginCheck.RecordCount0Then'//0RsLoginCheck.CloseUnloadMeFrmmdimain.Show'//FrmDay.ShowvbModalElseIfCounts2ThenMsgBox,vbExclamation+vbOKOnly,RsLoginCheck.CloseCounts=Counts+1ElseMsgBoxvbCritical,13EndEndIfElseMsgBox,vbExclamation+vbOKOnly,CallForm_LoadEndIfEndSubPrivateSubForm_Load()WinXPLogin.InitSubClassing'//TxtUserName.Text=AdministratorTxtPassword.Text=adminEndSubPrivateSubTmrChangeColor_Timer()'//,Callchangecolor(LblWelcome(0),0,1,2,3,4,5,6,7)EndSubPrivateSubTmrMoveText1_Timer()'//LblShaSiLblShaSi(0).MoveLblShaSi(0).Left+20LblShaSi(1).MoveLblShaSi(1).Left+20EndSubPrivateSubTmrMoveText2_Timer()'//LblShaSiIfLblShaSi(0).Left+LblShaSi(0).Width=Me.Width+LblShaSi(0).WidthThenLblShaSi(0).Move-1500EndIf14IfLblShaSi(1).Left+LblShaSi(1).Width=Me.Width+LblShaSi(1).WidthThenLblShaSi(1).Move-1500EndIfEndSubUserName=CStr(Trim(TxtUserName.Text))StrSQL=select,,fromwhere='&UserName&'and='&PassWord&MsgBox4.1.24-2154.1.34-34.1.44-4164.1.54-5175MICROSOFTsql2000VisualBasic6.0,18[][1].VisualBasic(6.0)..2000[2]...1996[3]BobReselmanRichardPeasleyWaynePruchniak.VisualBasic6.0..2000[4]CurtisSmithMichaelAmundsen..VisualBasic6.0..1999[5].VisualBasic+sql2000..2005[6]...2002[7]CraigEddyTimothyBuchanan.SQL200024..2001[8]...1991[9]...2004[10]...200319x,