module1.bas

本套软件适用于手机等用户、培训机构等单位的教学管理软件。

Attribute VB_Name = "Module1"
Option Explicit
Public Session_Name As String
Public ConnString As String
Public Sub ClearAll()
'一共35+1=36个控件
MainInfo.Text1.Text = ""
MainInfo.Text2.Text = ""
MainInfo.Text3.Text = ""
MainInfo.Text4.Text = ""
MainInfo.Text5.Text = ""
MainInfo.Text6.Text = ""
MainInfo.Text7.Text = ""
MainInfo.Text8.Text = ""
MainInfo.Text9.Text = ""
MainInfo.Text10.Text = ""
MainInfo.Text11.Text = ""
MainInfo.Text12.Text = ""
MainInfo.Text13.Text = ""
MainInfo.Text14.Text = ""
MainInfo.Text15.Text = ""
MainInfo.Text16.Text = ""
MainInfo.Text17.Text = ""
MainInfo.Text18.Text = ""
MainInfo.Text19.Text = ""
MainInfo.Text20.Text = ""
MainInfo.Text21.Text = ""
'MainInfo.Text22.Text = ""
MainInfo.Text23.Text = ""
'MainInfo.Text24.Text = ""
MainInfo.Text25.Text = ""
MainInfo.Text26.Text = ""
MainInfo.Text27.Text = ""

MainInfo.Combo1.Text = ""
MainInfo.Combo2.Text = "默认"
MainInfo.Combo3.Text = ""
MainInfo.Combo4.Text = ""
MainInfo.Combo5.Text = ""
MainInfo.Combo6.Text = ""
'MainInfo.Combo7.Text = ""
MainInfo.Combo8.Text = ""
MainInfo.Combo9.Text = ""
MainInfo.Combo10.Text = ""
MainInfo.Combo11.Text = ""
MainInfo.DTPicker1.Value = "1987-01-01"

MainInfo.Label30.Caption = ""
MainInfo.Image1.Picture = LoadPicture(App.Path + "\picture\Nophoto.jpg")
End Sub

Sub main()
Call ClearAll

Login.Show
'MainInfo.Show
End Sub