【歪歪绑定手机源码】【electron实战源码】【devc 源码下载】windowsnt源码-皮皮网

【歪歪绑定手机源码】【electron实战源码】【devc 源码下载】windowsnt源码

2024-11-19 04:27:47 来源：{typename type="name"/} 分类：{typename type="name"/}

1.按传染方式计算机病毒可分为（）。
2.急求pb考勤管理系统(pb+access)论文
3.çµèçå·¥ä½åç

windowsnt源码

按传染方式计算机病毒可分为（）。

答案：答案：ABD

解析：计算机病毒按传染方式分类可分为引导型病毒、文件型病毒和混合型病毒3种。按连接方式分类可分为源码型病毒、入侵型病毒和操作系统型病毒等3种。歪歪绑定手机源码按程序运行平台分类。病毒按程序运行平台可分为DOS病毒，Windows病毒，WindowsNT病毒，OS/2病毒等。

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

文字自己想办法

一：变量说明

1:application :

test

2:窗体

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（）即点击登陆按钮的electron实战源码事件

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

代码：

//定义两个变量

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("通过验证！","用户名和密码正确，欢迎您使用本系统！",devc 源码下载Information!,ok!,2)

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

close(parent)

else

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

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( )

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

代码：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)

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

çµèçå·¥ä½åç

çµèåçæ¦è¿°

é¢ç®å¾ç®åï¼8+8Ã·4=ï¼

äºãç¡¬ä»¶åè½¯ä»¶çæ¦å¿µ

ä¸ãåºæ¬è¾å¥è¾åºç³»ç»

åãæä½ç³»ç»çæ¦å¿µ

Dosæä½ç³»ç»

windowsç³»ç»

windowsæ¯ç®åå®éä½¿ç¨çä¸»æµæä½ç³»ç»ã

Linuxç³»ç»

Linuxæä½ç³»ç»å·æå¦ä¸ç¹ç¹ï¼

Unixç³»ç»

OS/2ç³»ç»

äºãåºç¨è½¯ä»¶çæ¦å¿µ

ä¸å¾å³ä¸ºä¸å¥å®æ´ççµèç³»ç»ç¤ºææ¡å¾ã

【歪歪绑定手机源码】【electron实战源码】【devc 源码下载】windowsnt源码

相关文章