论文题目员工考勤管理系统

毫无疑问中国的发展世界注目的焦点！中国建国晚发展迅速！没什么好说的

文字自己想办法 一：变量说明1:application : test 2:窗体login:登陆窗口 w_main：考勤管理系统的主界面，选择操作 w_chuli：个人考勤记录处理w_shengding：缺勤类型设定w_tongji：员工考勤统计w_yuangong：员工基本信息3：数据窗口 dw_chuli1：个人考勤记录处理dw_shengding：缺勤类型设定dw_chuli：员工考勤统计w_yuangong：员工基本信息二：函数说明一：application test中的函数1． 函数名：test：：open( ) 作用：将test这个数据库注册为当前机器的用户的数据源代码：String ls_odbc //数据库名String currdir = Space(100), key//数据库“test”的完整路径Environment envstring gs_currdir = GetCurrentDirectory()//得到运行程序的当前路径GetEnvironment(env)ls_odbc = "test"//数据库名为“test”currdir=GetCurrentDirectory() + "\" + ls_odbc + ".mdb"//当前运行程序路径加上数据库名就是数据库“test”的完整路径RegistryGet("HKEY_CURRENT_USER\Software\ODBC\\ODBC Data Sources", ls_odbc, RegString!, key)if key="" then CHOOSE CASE 判断操作系统的类型，注册响应的数据源的驱动 CASE Windows!//为Windows RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\ODBC Data Sources", ls_odbc, RegString!, "Microsoft Access Driver (*.mdb)") CASE WindowsNT!//为WindowsNT RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\ODBC Data Sources", ls_odbc, RegString!, "Driver do Microsoft Access (*.mdb)") CASE ELSE END CHOOSE// 将数据库test注册为用户的数据源RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\" + ls_odbc, "", RegString!, "")RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\" + ls_odbc, "DBQ", RegString!, "" + currdir )RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\" + ls_odbc, "Driver", RegString!, "")RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\" + ls_odbc, "DriverId" , ReguLong!, 25 )RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\" + ls_odbc, "FIL" , RegString!, "MS Access;" )RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\" + ls_odbc, "SafeTransactions", RegString!, "0" )RegistrySet("HKEY_CURRENT_USER\Software\ODBC\\" + ls_odbc, "UID" , RegString!, "" )end ifopen(login)// 打开登陆窗口二：登陆窗口中的函数1：函数名：() 作用：连接到本机器数据源为test的数据库代码： = "ODBC" = = "ConnectString='DSN=test;UID=;PWD='"connect;if <>0 then Messagebox("错误!,无法连接数据库:",) halt closeend if2：函数名：cb1。Clicked（） 即点击登陆按钮的事件作用：当用户输入帐号和密码后，判断是否在“操作员表”中 ，存在就打开考勤管理系统主界面代码：//定义两个变量string password,usename // 数据库连接参数//检索用户名和密码记录 SELECT 操作员表.用户名, 操作员表.密码 INTO :usename, :password FROM 操作员表 WHERE 操作员表.用户名 = : ;//判断用户输入的用户名是否正确if "" or "" then messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)elseif usename= and password= then messagebox("通过验证！","用户名和密码正确，欢迎您使用本系统！",Information!,ok!,2) open(w_main)// 打开考勤管理系统主界面 close(parent)else messagebox("错误！","用户名或密码错误，请重新输入！",exclamation!,ok!,2)end ifend if3：函数名：cb2。Clicked（） 即点击取消按钮的事件作用：关闭窗口代码：close(parent)二：主窗口中的函数1：函数名：rb_1。Clicked() 作用：关闭当前窗口，打开员工基本信息窗口 代码：open(w_yuangong) close(parent)2：函数名：rb_2。Clicked()作用：关闭当前窗口，打开考勤信息处理窗口代码：open(w_chuli)close(parent)3：函数名：rb_3。Clicked()作用：关闭当前窗口，打开缺勤类型设定窗口代码：open(w_shengding)close(parent)4：函数名：rb_4。Clicked()作用：关闭当前窗口，打开员工考勤统计窗口代码：open(w_tongji)close(parent)5：函数名：pb_1。Clicked() 作用：关闭当前窗口代码：close(parent)三：考勤信息处理窗口中的函数1：函数名：open( ) 作用：将数据窗口和数据库连接，并且显示数据库存在的数据代码：(sqlca)()2：函数名：pb_1。Clicked()作用：插入一条新记录代码：(0)3：函数名：pb_2。Clicked()作用：删除一条当前记录代码：(0)4：函数名：pb_3。Clicked()作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库代码：integer returncode returncode=() if returncode>0 then commit using sqlca; else rollback using sqlca; end if4：函数名：pb_4。Clicked()作用：关闭当前窗口，回到主界面代码：open(w_main)close(parent)四：缺勤类型设定窗口中的函数1：函数名：open( ) 作用：将数据窗口和数据库连接，并且显示数据库存在的数据代码：(sqlca)()2：函数名：pb_1。Clicked()作用：插入一条新记录代码：(0)3：函数名：pb_2。Clicked()作用：删除一条当前记录代码：(0)4：函数名：pb_3。Clicked()作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库代码：integer returncode returncode=() if returncode>0 then commit using sqlca; else rollback using sqlca; end if4：函数名：pb_4。Clicked()作用：关闭当前窗口，回到主界面代码：open(w_main)close(parent)五：员工基本信息窗口中的函数1：函数名：open( ) 作用：将数据窗口和数据库连接，并且显示数据库存在的数据代码：(sqlca)()2：函数名：pb_1。Clicked()作用：插入一条新记录代码：(0)3：函数名：pb_2。Clicked()作用：删除一条当前记录代码：(0)4：函数名：pb_3。Clicked()作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库代码：integer returncode returncode=() if returncode>0 then commit using sqlca; else rollback using sqlca; end if4：函数名：pb_4。Clicked()作用：关闭当前窗口，回到主界面代码：open(w_main)close(parent)六：员工考勤统计窗口中的函数1：函数名：open( ) 作用：将数据窗口和数据库连接，并且显示数据库存在的数据代码：(sqlca)()2：函数名：ddlb_1。Selectchange() 作用： 改变数据窗口中数据的大小代码：(' = '+ trim())3：函数名：cb1。Clicked（） 作用： 回到数据窗口中上一页代码：()4：函数名：cb2。Clicked（） 作用： 回到数据窗口中下一页代码：()5：函数名：cb3。Clicked（） 作用： 打印数据窗口代码：()6：函数名：cb4。Clicked（） 作用： 打印设置代码：printsetup()7：函数名：cb5。Clicked（） 作用： 打印预览代码：(" = '1'") //横向(" = '2'") //纵向(" = yes")(" = yes")(' = '+ trim())8：函数名：cb5。Clicked（） 作用： 打印预览9：函数名：ddlb_2。Selectchange() 作用： 改变打印预览窗口的大小代码：(' = '+ trim())10：函数名：cb6。Clicked（） 作用： 将数据窗口中的数据保存为表格形式的文件代码：string ls_path, ls_file int li_rc ls_path = li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, "xls", "*.xls,*.xls" )//得到路径名 IF li_rc = 1 Then OLEObject ole_object , ole_workbooksole_object = CREATE OLEObject//创建Excel对象IF ("") <> 0 THEN MessageBox('OLE错误','OLE无法连接!') returnEND = Trueole_workbooks = (1)(1,1).value="员工号"(1,2).value="时间"(1,3).value="天数"(1,4).value="类型"(1,5).value="原因"long l_rowfor l_row = 2 to ()+1 (l_row,1).value=(l_row - 1,1) (l_row,2).value=(l_row - 1,2) (l_row,3).value=(l_row - 1,3) (l_row,4).value=(l_row - 1,4) (l_row,5).value=(l_row - 1,5) ( ls_path)()()Destroy Ole_Objectdestroy ole_workbooksmessagebox("!","文件保存到"+ ls_path) End If11：函数名：sel。modify（） 作用： 将数据窗口中的数据按输入的员工号显示代码：string emp_nostring conditionif <> "" then emp_no=trim() condition="emp_no="+"'"+ emp_no+"'" ( condition) filter(dw_1) ()end if

一款极其方便的考勤管理软件，无须购置考勤机，全部考勤登记使用键盘完成，快捷准确，一目了然。统计功能完善，将出勤分为早班、晚班、行政班、全天班、病假、事假、休息、缺勤等八种状态，可按时段、按个人、按班次、按科室、班组或按品牌统计出勤情况，并且具有人事管理和日志管理功能。特别适于商场、宾馆、工厂等考勤登记工作量大的单位使用。

祝大家新年快乐，万事如意。!!!!!!!!!....祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意............................[quote]祝大家新年快乐，万事如意。!!!!!!!!!祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意[quote]祝大家新年快乐，万事如意。!!!!!!!!!祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意[quote]祝大家新年快乐，万事如意。!!!!!!!!!祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意[quote]祝大家新年快乐，万事如意。!!!!!!!!!祝大家祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意[quote]祝大家新年快乐，万事如意。!!!!!!!!!祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意祝大家新年快乐，万事如意