手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp.Net编程>列表

用Visual Basic设计Windows门禁程序

来源:互联网 作者:西部数码 时间:2008-04-09
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!


  在工程中添加一个模块(module),具体步骤与添加窗体类似。编程时读者自己实践一下就知道了。先添加一个模块,然后在VB界面的主菜单中单击"外接程序"选择"外接程序管理器"在出现的窗口中选择"VB 6 API Viewer"并双击它。在它的后边会出现"加载"。单击"确定"关闭窗口。这时"外接程序"中出现"API 浏览器"选项,选择它,屏幕上会出现"API浏览器"的窗口,单击"文件"-〉"加载文本文件"-〉win32api.txt,在可用项中选择SystemParametersInfo(屏蔽Ctrl Alt Del的函数),单击"添加",之后单击"插入",将SystemParametersInfo函数的声明部分加入到模块中,按同样的步骤添加函数 ExitWindowsEx函数(调用它可以关闭计算机)。Api函数调用后,要给它的常数付值,比如ExitWindowsEx的常数EWX_FORCE和EWX_SHUTDOWN都要付值,否则函数无效。模块部分的具体代码如下:


Const SPI_SETSCREENSAVEACTIVE = 97
' 声明一个常量
Const EWX_FORCE = 4
Const EWX_SHUTDOWN = 1
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal_ dwReserved As Long) As Long
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"_ (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As_ Long) As Long
Public Sub Disable(Disable As Boolean) '定义一个函数屏蔽 Ctrl Alt Del 组合键,因为是
'用Public定义的,所以程序中可以直接调用函数。用语句 call disable(statement) 就可以完成调用了
Dim x As Long
x = SystemParametersInfo (SPI_SETSCREENSAVEACTIVE, Disable, CStr (1), 0)
End Sub
' 这个函数也适用于NT和2000,但在那里完成本功能还需要获得相应的权限。
  下面就可以开始编写代码了。在"工程资源管理器"中选中frmMain,双击之后,这个窗体就会出现在界面的中间。双击"确定"按钮,出现代码窗口,显示如下两行:

Private Sub Command1_Click ()
End sub
  表示现在要对Command1(命令按钮)控件的Click(单击)事件编写代码,当程序运行时单击Command1控件后,计算机就执行这段代码。有关Command1的事件有很多,在代码窗口的上方有两个下拉菜单,第一个显示当前窗体中的控件列表,第二个显示当前控件的事件列表。要对哪个控件的哪个事件编写代码可以在列表中直接选择,之后代码窗口中会自动添加代码的起始和结束标记。就像上边的command1.click一样。

  因为我们的程序允许用户添加和修改用户信息,所以要把这些信息储存在文件中。这就要涉及到文件操作。VB有十分强大的文件操作能力,它的基本语句是OPEN语句,语法:

Open pathname For mode [Access access] [lock] As [#] filenumber [Len=reclength]
  Mode, 必要。关键字,指定文件方式,有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式,则以 Random 访问方式打开文件。

  Filenumber, 必要。一个有效的文件号,范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。

  对文件做任何 I/O 操作之前都必须先打开文件。如果 pathname 指定的文件不存在,那么,在用 Append、Binary、Output、或 Random 方式打开文件时,可以建立这一文件。

  如果文件已由其它进程打开,而且不允许指定的访问类型,则 Open 操作失败,而且会有错误发生。

  在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件,而不必先将该文件关闭。在 Append 和 Output 方式下,如果要用不同的文件号打开同一文件,则必须在打开文件之前先关闭该文件。

  一般我们使用时用 Open pathname for mode as # filenumber 就够了。

  在这里我们选用较简单的顺序存储文件进行操作。Append和Output的区别是Append用于追加文件内容,Output用于改写文件内容。比如,现在要对文件c:\a.txt进行操作,在a.txt中现存若干用户信息,当执行语句 Open "c:\a.txt"for Append as #1 Write #1,username,password Close #1 把username和password的内容追加到文件中。如果第一条语句换作 Open "c:\a.txt" for output as #1 文件原存的信息全部丢失,改为username和password中的信息
Input 语句的语法是: Input #filenumber ,[变量名1],[变量名2],… 用这个语句可以有一个以上的变量,在本例中,文件中存放的信息是 用户名和密码 两项,所以用两个变量就可以把他们读出来。如果只用了一个变量,那就只能读出用户名。这里有一点需要注意的是 用户名和密码之间应该有一个逗号,且两个变量在相同的输出区,否则要出错。

  向顺序文件中输出信息使用语句write和 print, write 的语法是: Write #filenumber,expressions, print 的语法是: print #filenumber,expressions. 它们都可以输出多个变量。Print 表达式间以逗号分隔时,输出的多个变量分别在不同的输出区中,输出区的长度默认值为14字节,变量间没有逗号。如果以分号间隔,各变量间无间隙,以紧凑格式输出。

  Write语句把多变量输出在同一个输出区中,变量间有逗号,并且每个变量在写入文件后都以外加引号的形式出现。

  对文件的操作我们先介绍到这里,下面我们边看代码边分析,这是主窗体的源代码。VB中解释程序不处理单引号后的部分。



frmMain
'首先是变量声明部分
'***************************************************

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

上一页 1 23 4 下一页
[打印] [关闭]
Google
相关文章
上一篇:VB6.0实现系统托盘
下一篇:在VB下实现无线通信的方法
热点关注
IDC资讯 虚拟主机 域名注册 托管租用 vps主机 智能建站
网站运营 建站经验 策划盈利 搜索优化 网站推广 免费资源
网站联盟 联盟新闻 联盟介绍 联盟点评 网赚技巧
行业资讯 业界动态 搜索引擎 网络游戏 门户动态 电子商务 广告传媒
网络编程 Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术 Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 Internet Explorer
网页制作 FrontPages Dreamweaver Javascript css photoshop fireworks Flash
程序设计 Java技术 C/C++ VB delphi
网络知识 网络协议 网络安全 网络管理 组网方案 Cisco技术
操作系统 Win2000 WinXP Win2003 Mac OS Linux FreeBSD
返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 价格总览 | 资讯中心 | 友情链接 | 网站地图 | 招贤纳士 | RSS