137.htm

VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.

<p>vb设计数据库电子邮件程序(4)</p>
<p></p>
<p></p>
<p>　　修改和获得注册表设置</p>
<p></p>
<p>　　下面是Property form和Apply button注释：s on-click的部份代码。 </p>
<p></p>
<p>注释：-- Property form load event</p>
<p>注释：-- Load all registry settings</p>
<p>DSNCombo = GetSetting("EmailMaker", "Database", "DSN", "OLE_DB_NWind_Jet")</p>
<p>TableCombo = GetSetting("EmailMaker", "Database", "Table", "Customers")</p>
<p>FieldCombo.Text = GetSetting("EmailMaker", "Database", "Field", "ContactName")</p>
<p>UserNameText = GetSetting("EmailMaker", "Database", "User Name", "")</p>
<p>PasswordText = GetSetting("EmailMaker", "Database", "Password", "")</p>
<p>MailboxCombo = GetSetting("EmailMaker", "Mailbox", "Mailbox", "Mailbox - NorthWind")</p>
<p>FolderCombo = GetSetting("EmailMaker", "Mailbox", "Folder", "Drafts")</p>
<p>FromText = GetSetting("EmailMaker", "Mailbox", "From", "NorthWind")</p>
<p>SecondaryOption = GetSetting("EmailMaker", "Secondary", "On", 0)</p>
<p>SecondFieldCombo.Text = GetSetting("EmailMaker", "Secondary", "Field", "")</p>
<p></p>
<p>注释：-- Apply button注释：s OnClick event</p>
<p>Private Sub cmdApply_Click()</p>
<p>注释：-- Save all settings to registry </p>
<p></p>
<p>SaveSetting "EmailMaker", "Database", "DSN", DSNCombo.Text</p>
<p>SaveSetting "EmailMaker", "Database", "Table", TableCombo.Text</p>
<p>SaveSetting "EmailMaker", "Database", "Field", FieldCombo.Text</p>
<p>SaveSetting "EmailMaker", "Database", "User Name", UserNameText</p>
<p>SaveSetting "EmailMaker", "Database", "Password", PasswordText</p>
<p>SaveSetting "EmailMaker", "Mailbox", "Mailbox", MailboxCombo</p>
<p>SaveSetting "EmailMaker", "Mailbox", "Folder", FolderCombo</p>
<p>SaveSetting "EmailMaker", "Mailbox", "From", FromText</p>
<p>SaveSetting "EmailMaker", "Secondary", "On", SecondaryOption</p>
<p>SaveSetting "EmailMaker", "Secondary", "Field", SecondFieldCombo.Text </p>
<p></p>
<p>注释：-- Reinitialize the main form</p>
<p>MDIMain.Initialize</p>
<p></p>
<p>注释：-- Disable the Apply button</p>
<p>cmdApply.Enabled = False</p>
<p>End Sub </p>
<p></p>
<p></p>
<p>　　当用户选择了数据库，程序就会使用RDO指令来专门化数据库以验证它们的table：然后，增加应用程序的table combo box，通过此，用户可以选择适当的table。最后，通过适当的table，ADODB指令会寻找到table的Field以便在"Fields" combo box上增加适当的域名。 </p>