1.急求pb考勤管理系统(pb+access)论文
2.考勤作弊APP创始人二审改判四年，考勤法院为何会改判？
3.考勤作弊APP创始人二审改判4年，码考码你赞成这一判决吗？

急求pb考勤管理系统(pb+access)论文

       文字自己想办法

        一：变量说明

       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(), key//数据库“test”的完整路径

       Environment env

       string gs_currdir = GetCurrentDirectory()//得到运行程序的当前路径

       GetEnvironment(env)

       ls_odbc = "test"//数据库名为“test”

       currdir=GetCurrentDirectory() + "\" + ls_odbc + ".mdb"//当前运行程序路径加上数据库名就是数据库“test”的完整路径

       RegistryGet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources", ls_odbc, RegString!, key)

       if key="" then

        CHOOSE CASE env.OSType//判断操作系统的类型，注册响应的码考码数据源的驱动

        CASE Windows!//为Windows

        RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources", ls_odbc, RegString!, "Microsoft Access Driver (*.mdb)")

        CASE WindowsNT!//为WindowsNT

        RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources", ls_odbc, RegString!, "Driver do Microsoft Access (*.mdb)")

        CASE ELSE

        END CHOOSE

       // 将数据库test注册为用户的数据源

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "", RegString!, "")

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "DBQ", RegString!, "" + currdir )

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "Driver", RegString!, "odbcjt.dll")

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "DriverId" , ReguLong!, )

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "FIL" , RegString!, "MS Access;" )

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "SafeTransactions", RegString!, "0" )

       RegistrySet("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\" + ls_odbc, "UID" , RegString!, "" )

       end if

       open(login)// 打开登陆窗口

       二：登陆窗口中的函数

       1：函数名：login.open()

        作用：连接到本机器数据源为test的数据库

       代码：

       SQLCA.DBMS = "ODBC"

       SQLCA.AutoCommit = False

       SQLCA.DBParm = "ConnectString='DSN=test;UID=;PWD='"

       connect;

       if sqlca.sqlcode<>0 then

        Messagebox("错误!,无法连接数据库:",sqlca.sqlerrtext)

        halt close

       end if

       2：函数名：cb1。Clicked（） 即点击登陆按钮的勤软在线文件签名源码事件

       作用：当用户输入帐号和密码后，判断是考勤否在“操作员表”中 ，存在就打开考勤管理系统主界面

       代码：

       //定义两个变量

       string password,码考码usename

       // 数据库连接参数

       //检索用户名和密码记录

        SELECT 操作员表.用户名,

        操作员表.密码

        INTO :usename,

        :password

        FROM 操作员表

        WHERE 操作员表.用户名 = :sle_1.text ;

       //判断用户输入的用户名是否正确

       if sle_1.text="" or sle_2.text="" then

        messagebox("错误！",勤软"用户名或密码不能为空！",考勤exclamation!,ok!,2)

       else

       if usename=sle_1.text and password=sle_2.text then

        messagebox("通过验证！",码考码"用户名和密码正确，欢迎您使用本系统！勤软",考勤Information!,ok!,2)

        open(w_main)// 打开考勤管理系统主界面

        close(parent)

       else

        messagebox("错误！",码考码"用户名或密码错误，请重新输入！勤软",exclamation!,ok!,2)

       end if

       end if

       3：函数名：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( )

        作用：将数据窗口和数据库连接，并且显示数据库存在的数据

       代码：dw_1.settransobject(sqlca)

       dw_1.retrieve()

       2：函数名：pb_1。Clicked()

       作用：插入一条新记录

       代码：dw_1.insertrow(0)

       3：函数名：pb_2。Clicked()

       作用：删除一条当前记录

       代码：dw_1.deleterow(0)

       4：函数名：pb_3。Clicked()

       作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库

       代码：

       integer returncode

        returncode=dw_1.update()

        if returncode>0 then

        commit using sqlca;

        else

        rollback using sqlca;

        end if

       4：函数名：pb_4。Clicked()

       作用：关闭当前窗口，回到主界面

       代码：

       open(w_main)

       close(parent)

       四：缺勤类型设定窗口中的函数

       1：函数名：open( )

        作用：将数据窗口和数据库连接，并且显示数据库存在的星球重启狂风元素源码数据

       代码：dw_1.settransobject(sqlca)

       dw_1.retrieve()

       2：函数名：pb_1。Clicked()

       作用：插入一条新记录

       代码：dw_1.insertrow(0)

       3：函数名：pb_2。Clicked()

       作用：删除一条当前记录

       代码：dw_1.deleterow(0)

       4：函数名：pb_3。Clicked()

       作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库

       代码：

       integer returncode

        returncode=dw_1.update()

        if returncode>0 then

        commit using sqlca;

        else

        rollback using sqlca;

        end if

       4：函数名：pb_4。Clicked()

       作用：关闭当前窗口，回到主界面

       代码：

       open(w_main)

       close(parent)

       五：员工基本信息窗口中的函数

       1：函数名：open( )

        作用：将数据窗口和数据库连接，并且显示数据库存在的数据

       代码：dw_1.settransobject(sqlca)

       dw_1.retrieve()

       2：函数名：pb_1。Clicked()

       作用：插入一条新记录

       代码：dw_1.insertrow(0)

       3：函数名：pb_2。Clicked()

       作用：删除一条当前记录

       代码：dw_1.deleterow(0)

       4：函数名：pb_3。Clicked()

       作用：向数据库提交插入，删除和修改的操作，如果成功就发到数据库

       代码：

       integer returncode

        returncode=dw_1.update()

        if returncode>0 then

        commit using sqlca;

        else

        rollback using sqlca;

        end if

       4：函数名：pb_4。Clicked()

       作用：关闭当前窗口，回到主界面

       代码：

       open(w_main)

       close(parent)

       六：员工考勤统计窗口中的函数

       1：函数名：open( )

        作用：将数据窗口和数据库连接，并且显示数据库存在的数据

       代码：dw_1.settransobject(sqlca)

       dw_1.retrieve()

       2：函数名：ddlb_1。Selectchange()

        作用： 改变数据窗口中数据的华林珠宝溯源码查询大小

       代码：dw_1.modify('DataWindow.Zoom = '+ trim(ddlb_1.text))

       3：函数名：cb1。Clicked（）

        作用： 回到数据窗口中上一页

       代码：dw_1.scrollpriorpage()

       4：函数名：cb2。Clicked（）

        作用： 回到数据窗口中下一页

       代码：dw_1.scrollnextpage()

       5：函数名：cb3。Clicked（）

        作用： 打印数据窗口

       代码：dw_1.print()

       6：函数名：cb4。Clicked（）

        作用： 打印设置

       代码：printsetup()

       7：函数名：cb5。Clicked（）

        作用： 打印预览

       代码：

       dw_1.Modify("DataWindow.Print.Orientation = '1'") //横向

       dw_1.Modify("DataWindow.Print.Orientation = '2'") //纵向

       dw_1.Modify("DataWindow.Print.Preview = yes")

       dw_1.Modify("DataWindow.Print.Preview.Rulers = yes")

       dw_1.modify('DataWindow.Print.Preview.Zoom = '+ trim(ddlb_1.text))

       8：函数名：cb5。Clicked（）

        作用： 打印预览

       9：函数名：ddlb_2。Selectchange()

        作用： 改变打印预览窗口的大小

       代码：

       dw_1.modify('DataWindow.Print.Preview.Zoom = '+ trim(ddlb_2.text))

       ：函数名：cb6。Clicked（）

        作用： 将数据窗口中的数据保存为表格形式的文件

       代码：string ls_path, ls_file

        int li_rc

        ls_path = sle_1.Text

        li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, "xls", "*.xls,*.xls" )

       //得到路径名

        IF li_rc = 1 Then

        OLEObject ole_object , ole_workbooks

       ole_object = CREATE OLEObject

       //创建Excel对象

       IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN

        MessageBox('OLE错误','OLE无法连接!')

        return

       END IF

       ole_object.workbooks.add

       ole_object.Visible = True

       ole_workbooks = ole_object.Worksheets(1)

       ole_workbooks.cells(1,1).value="员工号"

       ole_workbooks.cells(1,2).value="时间"

       ole_workbooks.cells(1,3).value="天数"

       ole_workbooks.cells(1,4).value="类型"

       ole_workbooks.cells(1,5).value="原因"

       long l_row

       for l_row = 2 to dw_1.rowcount()+1

        ole_workbooks.cells(l_row,1).value=dw_1.getitemstring(l_row - 1,1)

        ole_workbooks.cells(l_row,2).value=dw_1.getitemstring(l_row - 1,2)

        ole_workbooks.cells(l_row,3).value=dw_1.getitemstring(l_row - 1,3)

        ole_workbooks.cells(l_row,4).value=dw_1.getitemstring(l_row - 1,4)

        ole_workbooks.cells(l_row,5).value=dw_1.getitemstring(l_row - 1,5)

       next

       ole_workbooks.SaveAs ( ls_path)

       ole_object.quit()

       Ole_Object.DisConnectObject()

       Destroy Ole_Object

       destroy ole_workbooks

       messagebox("!","文件保存到"+ ls_path)

        End If

       ：函数名：sel。modify（）

        作用： 将数据窗口中的数据按输入的员工号显示

       代码：

       string emp_no

       string condition

       if sle_1.text <> "" then

        emp_no=trim(sle_1.text)

        condition="emp_no="+"'"+ emp_no+"'"

        dw_1.setfilter( condition)

        filter(dw_1)

        dw_1.retrieve()

       end if

考勤作弊APP创始人二审改判四年，法院为何会改判？

       我认为法院之所以在二审判决中改判原因是一审法院是根据该名男子破坏计算机信息系统罪进行量刑，而二审法院则认为，这款软件不属于刑法中的破坏性程序，所以该名男子虽然依然是涉嫌这项罪名，但是罪行减轻了，随之在二审判决中就判处有期徒刑4年决定。

       我认为法院在这次量刑中改判的十分合理，毕竟这款软件并没有在网络上造成恶性传播，涨停十八法指标源码也没有攻击网络程序，没有造成人员信息丢失，泄露甚至重大互联网恶性事件出现，只是让用户个人使用时会通过修改定位功能来满足个人目的，这种目的满足对社会并没有危害性，也没有给社会带来隐患以及损失，所以根据这种情况，二审法院所判的4年有期徒刑属于减刑判决，认为软件不属于破坏性程序，所以改判。

       一、案件始末是什么？

       在这起案件中，该男子通过购买其他公司软件源代码，并且修改数据后制作成了一款名叫大牛助手的APP，并在网络上售卖传播，软件的主要盈利方式是通过用户下载后包月或者包年会员方式来进行收费，软件其实并没有什么问题，只不过用户在下载软件后可以隐藏个人定位，并且可以自行修改个人位置，在法律上认为该名男子软件属于破坏计算机信息系统罪，所以一审判决该名男子判处有期徒刑5年6个月，男子表示不服进行二次申诉，二次法院认为该名男子软件不属于法律中的破坏性程序，于是将判决减轻到有期徒刑4年。

       二、希望该名男子汲取教训。

       我认为该名男子的行为已经涉嫌法律，在软件制作过程中，自己已经可以预见性的知道后果，自己在购买软件源代码后再对源代码进行修改，开发的过程中指定了软件可以遮挡个人定位以及修改个人定位，软件主要功能也是这样，男子内心明白用户会使用软件修改个人定位前提下，依然开了会员并以此谋利，所以这种方式属于违法犯罪。

       三、法院判决非常公道。

       我认为这次法院判决非常公平公正，虽然律师认为该男子可以做无罪辩解，但是我认为该男子在开发软件时，就是利用软件可以修改定位的这一特性来进行牟利，其开会员以及包年包月的付费方式，就决定了它是以这种软件特性来进行谋利，他自己内心清楚用户会使用这款软件做什么，但他没有下架软件，也没有进行阻拦，也没有提示，所以该男子的行为属于破坏网络信息系统罪，法院判决也十分公平，考虑到软件不属于破坏性程序，已经进行减刑。

考勤作弊APP创始人二审改判4年，你赞成这一判决吗？

       随着社会的发展、任何单位和组织都有一定的制度、这样才能保证工作的正常进行、比如很多企业都实行打卡制、需要你到现场进行录入头像或者其他的方式、才能算作里来了或者走了、而我们知道没有任何程序是不可攻破的、毕竟“天外有天、人外有人”、前段时间一款非常火的App被下架、因为他被购买者用来作弊打卡、给很多的企业和单位造成了损失、而这个考勤作弊App的创始人二审改判四年、你赞成这一判决吗？首先不赞成这一判决、因为我们知道这个App开发出来并不是为了进行考勤作弊、而是被购买者用来做了这方面的工作、而且他的源代码只是改变了服务器的位置信息、这是一项技术、对于开发者来说被用于违法犯罪还应该追究这些使用者的责任、毕竟还要看他是否从内心就是去做考勤作弊的初衷。

       现代化的发展、涌现了一批又一批的人才、著名学者曾经说过“改变未来的人可以来自任何的地方”、就像以前我们没有汽车、而发明汽车的莱特兄弟也不过初中毕业、特别是现代技术的发展、不仅让我们的生活更加的便利、更让很多事情变得复杂、我们知道违法犯罪不能去做、但并不代表你所创造的东西没有去违法犯罪、就比如我们平时做菜所用的菜刀、它可以帮我们更方便的烹饪食物、但是也有持刀杀人抢劫的、我们并不能去怪罪厂家的错误、而在这一次考勤作弊App创始人被判两年的案件中、很多人认为这一项技术并没有直接指向考勤作弊的功能、创始人也没有在功能上解释和说明这一些、而他所给相关单位和企业带来的损失是那些个人的行为、所以不赞成这一次的判决、也希望这些人的初衷并不是去违法犯罪、而是被误会、毕竟技术是改变世界用在正道的东西。

       我们都知道“人之初性本善”、但其实人是否是善良的并不能完全确定、或者说出生的时候应该是一张白纸、只是在后面的教育和交流中改变他、所以应该从这些方面来考虑。