在 VB6 中使用 databse 如何将表单中给出的数据显示到另一个表单?

Question

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

尝试：

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

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

Answer 1

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

frmLogin.lblCompany.Caption

不过，有更好的方法可以做到这一点：

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

在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

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

Answer 2

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

注意：我已经将COMPNAME.text与数据库链接在一起，因此只允许注册名称才能继续前进。