《外文资料翻译VB教程9 Passwords & Splash》由会员分享，可在线阅读，更多相关《外文资料翻译VB教程9 Passwords & Splash（25页珍藏版）》请在金锄头文库上搜索。
1、 淮 海 工 学 院毕业设计(论文)外文资料翻译系 （院）： 计算机科学系 专 业： 计算机科学与技术 姓 名： 龚 曦 东 学 号： 3202000135 外文出处：http:/ 附 件： 1.外文资料翻译译文；2.外文原文。 指导教师评语： 签名： （亲笔签名） 年 月 日注：请将该封面与附件装订成册。附件1：外文资料翻译译文 VB教程9- Passwords & Splash 在我们上一个教程中我们在数据库练习中学习了如何使用组件和文本框。在这个教程里面，我们回到使用文本框为我们的应用程序设置口令和splash屏幕。在这个练习里面，我们从setup.ini文件中读取加密口令。然后当使用者
2、输入正确的口令时，我们启动一个splash屏幕。使用splash屏幕的两个有利条件是不仅允许你展现你的程序和将其加亮；同样你有时间取初始化一个球形变量的程序。涉及到表格和数据库连接。现在这可能是非常重要的-但是相信我一个有着数个数据库连接和长列表框的VB程序的初始化需要10-25秒钟。splash屏幕比仅仅使用口令会话要好的多。 这里是一个诀窍。在口令程序Form_Load初始化的三分之一的时候，在那时如果口令被认可；做口令程序Form_Load初始化的下一个三分之一。然后做最后的初始化以启动你的最后主窗口。但是，首先让我们看看如何编写口令窗口。Figure 1-口令会话 口令 添加两个文本框
3、到新的工程窗口，称之为“PASSBY”。两个文本框的标签在Figure 1中有显示。第一个文本框不需要什么特别的设置，单口令文本框需要。它的PasswordChar属性需要设置成文“*”。这似的文本框中的每个字符都被星号取代。程序看见的passwd.Text的值旧是是用户输入了的口令。 第二个诀窍是我们有习惯确认无论何时焦点都在口令文本框上面。用以下的代码框中的文本会自动的被选择：REM This code highlights/selects the text when you enterScreen.ActiveControl.SelStart = 0ii = Len(Screen.Act
4、iveControl.Text)Screen.ActiveControl.SelLength = ii VB教程七的读者会发现这些代码的一部分十分的熟悉。Screen.ActiveControl引用了普遍的焦点和活跃的控制。这当然是文本框“passwd”。由设置活动的控制的SelStart属性为0且它的SelLength属性等于文本框中文本的长度-这个选择或加亮在立即输入口令中的文本。这意味着用户不必要在输入口令的时候去擦除口令文本框中的内容-这样旧更为方便了。 下一个诀窍是我们认可如果用户输入口令时键入ENTER键表示输入完毕。VB并不会自己认可这一点-你必须使用下列代码来检查，以达到效果：
5、Private Sub passwd_KeyPress(KeyAscii As Integer) detect when user presses Enter key and if so validate passwordIf KeyAscii = 13 Then this is the call on the routine that does the password checking Call passwd_Validate(False)End IfEnd Sub 这个子程序每次在当口令文本框中每个字母被键入时被调用。它是在期待一个Ascii码，13。这个值是确认键的Ascii码。当它被
6、按下的时候，控制器立即将输入的文本传送到口令确认程序中去。当然我们也可以在退出口令文本输入框时单击Okay按钮后传送口令确认。 口令确认程序时公平简单的。从设置文件的Form_Load中我们已经得到了一个口令译文。所以现在我们所需要做的是输入的口令是否与口令译文相匹配。如果不匹配，旧发出一个警告信息要求用户重新输入口令。我们可以控制重试的次数，如果超过，就自动完全的推出口令输入程序。 然而，如果口令试有效的我们就调用splash屏幕程序。 passplash是splash屏幕窗口的名字。这里在我们的程序中有最后两个诀窍。首先我们需要对用户隐藏口令输入窗口-因为它调用的窗口我们是不能破坏/毁掉的
7、但必须用代码线PassForm.hide隐藏它。第二个诀窍是任何剩余的初始化都是必须的。使用了折线诀窍后我们对程序的启动代码有了固定的设置。摘要 在这和教程里面我们展示了一些关于使用文本框，获得口令和使用splash屏幕的诀窍。我们又一次的对VB的原有的目标有了好的使用。最终我们利用一些程序和事件与文本框相关联。可视化基本的教程 10 在VB教程的第十章中，我们需要回顾一下前面所学的然后再继续。回顾的重要内容会加上下划线以便我们在做其他的数据库结构部件练习时能够记住。我们重复数据库及其部件的原因是这和新的复数的设计规划非常相似。你作为一个程序设计员，被期待快速的将数据库，VB和第3宴会的组成互
8、联到一个工作包中。事实上，这样做是非常重要的，我们下3-4个教程会揭示如何在WORD 97，2000版本，Visio 5版本以上和其他普遍的WINDOWS可利用的应用软件 中用VBA-Visual Basic做这些。好的或者坏的（好的也有一些明显的缺点）VBA正迅速成为WINDOWS的宏语言。 但首先，让我们复习一下在Figure 1中VB的图象界面接口和一些知道方针的使用和表示方法。要使你对VB变的更为精通熟练，作为原代码编辑者和设计者（特别使数据库设计者）要比视觉窗体编辑者花费更多的时间和精力。在回到你的视觉编辑表格时，你会发现当表格显示时表格属性和工具条并不自动的跳出。Figure 1是
9、工具条的一个提示。Figure 1 你可以单击这个图标以恢复这些重要的参考窗口（这些设置在VIEW菜单中也能被同样使用）。最后，我们将会在 Word, Excel, PhotoPaint, etc中使用VBAS的宏编辑器时看到相同的图标。 Figure 1 也同样帮助我们回答了教程8中关于制作一个non-resizable窗口的问题。请注意在窗口属性上的最大化按钮和最小化按钮工具已经被设置成不可使用。另外的，BorderStyle属性中的窗口大小调整被设置为不被激活的。使用了这些设置，你的窗口将不可调整大小。动态的数据库部件 很多VB工程包括显示数据也作为报告或交叉制表，所以使用者可以能触摸的
10、到他们的数据。数据库格和弯曲格的组成包括 VB 5和6时适当的。然而， 我将鼓励读者从他们的ActiveReports或者DynamiCube部件的下载免费的演示。这些部件时很容易且可兼容的工程。在教程中DynamiCube会被用来展示如何使用简单的图形界面基础来简单的“增压”一个部件。在这种情况下，组合筐会允许我们控制DynamiCube中得到显示的域。 Figure 2展示了连续的DataCube应用程序。 DataCube是用来从CATS数据库（一个ACCESS表格；但是它能简单的实现IBM DB2 or Oracle 8i数据库表格）展示行销数据的。The Unit Price 域将被
11、从DynamiCube中移除。文件的名字将从In Cube combobox改变成Out of Cube combobox。当the Unit Price 域在comboxes中改变时也会从DynamiCube中被移除。用户赏识这种能力时因为它允许它们单一的或深入到他们所需要的准确的数据方式中去。 设计的诀窍是将combobox装满在DynamiCube中使用的域名字然后就可以知道如何去传输。 Figure 2- 动态的DataCube应用程序Private Sub Form_activate()Dim i As IntegerFor i = 0 To Data1.Database.Table
12、Defs(CATS).Fields.Count - 1Combo1.AddItem Data1.Database.TableDefs(CATS).Fields(i).NameNextEnd Sub 首先有Form_activate()代码去装载Combo1（在立方体组合框中），使用的域名字时从CATS数据库中来的。如果你计划去做任何数量的VBA和VB设计你必须习惯于VB收集种类被称为协定。同样在VB的收集、特别是TableDef收集帮助主题中都有解释。基本上，通过在CATS表格中使用收集或域的列表来循环。Combo1.AddItem添加各自的名字到Combo1中。另一块大妈转移到DynaCub
13、e以外的域中。Private Sub Combo1_Click()If Combo1.ListIndex = 0 ThenCombo2.AddItem Combo1.TextDCube1.Fields.Delete (Combo1.Text)DCube1.RefreshDataCombo1.RemoveItem Combo1.ListIndexEnd IfEnd Sub 首先，在组合框上的单击事件指出的域名已经被电击或选择触发转移。注意事件的顺序。首先，我们把域加到立方体之外的组合框（Combo2）中；然后我们把它从DynaCube (DCube1)中删除，并刷新DynaCube；最后我们把该
14、项目从立方体内的组合框(Combo1)中移除。相反的代码，Private Sub Combo2_Click(),遵循同样的模式。为了少许的编码，一个确定的数据得到充分的显示。 最终方便了简单调整代码提供一交替到 VS/OCX和另外的 smart在我们先前的教程中。当在这种情况下，多数的DynaCube对话框被采纳，那么编写Form_Resize()程序将是简单的。Private Sub Form_Resize()Dim i As IntegerOn Error Resume NextDCube1.Move 0, 400, ScaleWidth, ScaleHeight - 400End Sub 所有我们必须做的就是，将DynaCube恢复到新的表格尺寸时移动到相同的出发点，ScaleWidth和ScaleHeight。注意有些尺寸将引起一个错误，那么调整大小就让旧的设置完整无缺。Visual Basic使用一套设备-测量的独立的单位，a twip，为计算尺寸和位置。屏幕对象的两个道具，wipsPerPixelX和TwipsPerPixelY，在运行的时候能被用来决定显示的准确的尺寸(转换缇到象素或英寸)。vB组件本文档是amzi！logic sever vb组件。 它在logic sever所
