在 VB6 中使用 databse 如何將以一種形式給出的數據顯示到另一種形式？

Question

在我的 VB6 項目中，我創建了公司注冊表格、登錄表格和主表格（處理項目的其他活動）。 現在注冊表格和登錄表格運行良好，但我無法在用戶注冊時輸入的主表格中顯示公司名稱。

嘗試：

1. 我已經將標簽（我應該在主窗體中顯示公司名稱）與數據庫鏈接起來，該數據庫用於使用 label 的屬性記錄注冊詳細信息。

基本上我想要的是每當我使用登錄詳細信息登錄帳戶時，我想在我注冊時輸入的主窗體 (label1.caption) 中顯示我公司的名稱。

Answer 1

您可以簡單地在主表單的代碼中引用您的登錄表單。 例如，如果您的登錄表單名為frmLogin ，並且有一個lblCompany label，您可以使用以下方法從主表單訪問 label：

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. 將在主表單中創建的 object 傳遞給它在登錄過程中更新的登錄表單。

Answer 2

我在 Username.text 上面添加了一個文本框，它詢問用戶在注冊時輸入的注冊公司名稱，在我的 MainForm 上我添加了一個 label 來顯示公司名稱，在 MainForm 加載事件中我輸入了CompanyName.Caption = frmLogin.COMPNAME.Text顯示登錄時的公司名稱

注意：我已將 COMPNAME.text 與數據庫鏈接，因此只允許注冊名稱才能繼續。