module1.bas

房地产管理系统 对房地产的销售做日常的管理维护等

Attribute VB_Name = "Module1"
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset

Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=ljm"
  If frm_YHZC.Check2.Value = 1 Then
    MDI_main.Caption = frm_YHZC.Text6.Text + "房地产销售管理系统"
    frm_GSXX.Text1.Text = frm_YHZC.Text6.Text
    MDI_main.Show
   'frm_XTDL.Show
  Else
   frm_YHZC.Show
  End If
End Sub