在 VB6 中使用数据库如何将以一种形式给出的数据显示到另一种形式？

Question

在我的 VB6 项目中，我创建了公司注册表格、登录表格和主表格（处理项目的其他活动）。现在注册表格和登录表格运行良好，但我无法在用户注册时输入的主表格中显示公司名称。

尝试次数：

我已经将标签（我应该在主窗体中显示公司名称）与用于使用标签属性记录注册详细信息的数据库链接起来。

基本上我想要的是每当我使用登录详细信息登录帐户时，我想在注册时输入的主表单 (label1.caption) 中显示我公司的名称。

Answer 1

您可以简单地在主表单代码中引用您的登录表单。例如，如果您的登录表单名为 frmLogin 并且有一个 lblCompany 标签，您可以使用以下方法从主表单访问该标签：

frmLogin.lblCompany.Caption

虽然有更好的方法可以做到这一点：

您可以在登录表单上创建一个属性并在显示该表单后阅读它。

在 frmLogin:

Public Property Get Company() As String
    Company = lblCompany.Caption
End Property

在 frmMain:

Public Sub DisplayLogin()

    Dim frm As New frmLogin
    
    frm.Show vbModal
    
    MsgBox frm.Company

End Sub

将在主窗体中创建的对象传递给它在登录过程中更新的登录窗体。

Answer 2

我在 Username.text 上方添加了一个文本框，询问用户在注册时输入的注册公司名称，在我的 MainForm 上我添加了一个标签来显示公司名称，在 MainForm 加载事件中我输入了 CompanyName.Caption = frmLogin.COMPNAME.Text登录时显示公司名称

注意：我已将 COMPNAME.text 链接到数据库，因此只允许注册名称才能继续。

在 VB6 中使用数据库如何将以一种形式给出的数据显示到另一种形式？

Using databse in VB6 how can I display data given in a form to another form?

vb6