[VisualBasic编程与应用作业3]一、填空题1．函数过程（Function Pocedure）用来完成特定的功能并____。2．子过程是____的函数。又常被称为Sub过程。在事件过程或其它子过程中可以____调用过程。3．在事件过程或...+阅读
2.代码设计
单击账号后的空白处，程序代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Public Sub addtrans(tkFileName As String)
buff = String(255, 0)
backFile = Date + 5
Dim backfila As String
backfila = Date
Dim backfilb As Date
ret = GetPrivateProfileString(＂OKxj＂, ＂yesno＂, ＂＂, buff, 256, ＂c:\xj.ini＂)
If ret <> 0 Then
ret1 = GetPrivateProfileString(＂Bakxj＂, ＂qs＂, ＂＂, buff, 256, ＂c:\xj.ini＂)
Label13.Caption = buff
If Label13.Caption = ＂NO＂ Then
ret1 = GetPrivateProfileString(＂Bakxj＂, ＂yy＂, ＂＂, buff, 256, ＂c:\xj.ini＂)
Label13.Caption = buff
MsgBox Label13.Caption
End
ElseIf Label13.Caption <= Date Then
ret1 = GetPrivateProfileString(＂Bakxj＂, ＂yy＂, ＂＂, buff, 256, ＂c:\xj.ini＂)
Label13.Caption = buff
MsgBox Label13.Caption
success1 = WritePrivateProfileString(＂Bakxj＂, ＂qs＂, ＂NO＂, ＂c:\xj.ini＂)
End
End If
Else
success = WritePrivateProfileString(＂OKxj＂, ＂yesno＂, ＂yes＂, ＂c:\xj.ini＂)
success1 = WritePrivateProfileString(＂Bakxj＂, ＂qs＂, backFile, ＂c:\xj.ini＂)
success2 = WritePrivateProfileString(＂Bakxj＂, ＂yy＂, Label13.Caption, ＂c:\xj.ini＂)
End If
End Sub
单击密码后空白处，程序代码如下：
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
单击“确定”后，程序代码如下：
Private Sub Command1_Click()
Call Image1_Click
End Sub
单击框体，代码如下：
Private Sub Form_Load()
Text1.BackColor = RGB(98, 162, 207)
Text2.BackColor = RGB(98, 162, 207)
addtrans App.Path '连接数据库
End Sub
以下为关联文档：
VisualBasic编程与应用作业2一 、选择题1．为了使文本框显示滚动条，必须首先设置的属性是（ ）A．AutoSize B．Alignment C．Multiline D．ScrollBars2．改变控件在窗体中的上下位置应修改控件的（ ）属性。A．Top B．Left C...
MySQL数据库接口的VC实现与应用1引言随着现代计算机软硬件及网络技术的发展，在网上查找资料已成为现在获取信息的最重要手段之一。众所周知，所有的网上信息都是储存在网站数据库中的，这些信息的查询、更新等...
EXCEL数据分析与应用这个一个作业，这个题目就是提升你的Excel水平，要别人帮你做有什么意思呢？真正的知识你还是没有学到，有什么用，只是为了应付考试吗？看你这道题，应该是学得比较深入的。可以给你一些...
有没有学数据库基础与应用的你说的职业就是 DBA（数据库管理员）了吧、待遇比开发要高DBA的主要职责：1：安装，升级ORACLE 服务器和应用工具。2：设置系统的存储和计划数据库未来存储系统。3：设计、规划和建立数据...
数据库技术与应用教程查询PPT做下就比较耗时了 不过查询的思想 SQL 面向数据库执行查询；SQL 可从数据库取回数据；SQL 可在数据库中插入新的记录；SQL 可更新数据库中的数据；SQL 可从数据库删除记录；SQL 可...
动态数据仓库怎样设计与应用数据仓库技术的每次演进都以发掘企业数据中更多价值作为目标。而近期流行的动态数据仓库技术，不仅在灵活性、可视化方面有了长足进步，还能够对企业决策、合作伙伴及客户服务提...
绿色化学与化工原理及应用传统的化学工业给环境带来的污染已十分严重，目前全世界每年产生的有害废物达3亿吨~4亿吨，给环境造成危害，并威胁着人类的生存。化学工业能否生产 出对环境无害的化学品？甚至开发...
遥感原理与应用应该怎么复习我们当时的复习大纲，希望对你有用~第一章 遥感概述1. 简述遥感的基本概念2. 与传统对地观测手段比较，遥感有什么特点？举例说明.3. 简述遥感卫星地面站，其生产运行系统的构成及各...
MySQL数据库接口的VC怎样实现与应用4 MySQL性能测试 4。1 ODBC API 通过索引读取200万行：528秒 插入35万行： 750秒 4。2 C API 通过索引读取200万行：412秒 插入35万行：435秒 4。3 其它数据库（以MS_SQL为例，WINNT环境...
