frmsmsstart.frm

制造业产供销与往来系统源码,包括进销存及全部控件！

VERSION 5.00
Begin VB.Form frmSmsStart 
   ClientHeight    =   3135
   ClientLeft      =   4020
   ClientTop       =   2880
   ClientWidth     =   6000
   DrawStyle       =   1  'Dash
   Icon            =   "frmSmsStart.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3135
   ScaleWidth      =   6000
End
Attribute VB_Name = "frmSmsStart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WithEvents mLoginCommon As LoginCommon
Attribute mLoginCommon.VB_VarHelpID = -1
Dim WithEvents mMainCommon As MainCommon
Attribute mMainCommon.VB_VarHelpID = -1
Dim mShowCommon As ShowCommon

Private Sub Form_Load()
On Error GoTo Errorhandle

   Set mLoginCommon = New LoginCommon
   Set mMainCommon = New MainCommon
   
   Set mShowCommon = New ShowCommon
   mShowCommon.gPublic gPublicCommon
  
   mLoginCommon.ShowLoginForm mLoginCommon, gPublicCommon

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Errorhandle

   Set mLoginCommon = Nothing
   Set mMainCommon = Nothing
   
   Set mShowCommon = Nothing
   
   Set gDbCommon = Nothing
   Set gPublicCommon = Nothing
   
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub mLoginCommon_CmdExit()
On Error GoTo Errorhandle

   Unload Me
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub mLoginCommon_CmdLogin(vUserCode As String)
On Error GoTo Errorhandle

   mMainCommon.ShowMain vUserCode, mMainCommon, gPublicCommon
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub mMainCommon_ExitSystem()
On Error GoTo Errorhandle

   Unload Me

Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, Err.Description
End Sub

Private Sub mMainCommon_ShowForm(mClassName As String, mFormName As String)
On Error GoTo Errorhandle

   mShowCommon.SmsPublicShow.ShowForm mClassName, mFormName, "", gPublicCommon
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub mMainCommon_ShowRfd(mRfdCode As String, mRfdMc As String)
On Error GoTo Errorhandle

   mShowCommon.SmsPublicShow.ShowRfd mRfdCode, mRfdMc, gPublicCommon
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub