getType = rst.Fields(\ȨÏÞ\ MDIFrmmain.Show
Unload Me 'Ñé֤ȨÏÞ Else
MsgBox \ÃÜÂë²»ÕýÈ·£¬Çë²éÖ¤£¡\¾¯¸æ£¡\ sum = sum + 1 If sum = 3 Then
MsgBox \¿´Ñù×ÓÄã²»ÊǺϷ¨µÄÓû§£¬ÇëÄãÀ뿪¡£\\
End End If End If End If rst.Close End Sub
Private Sub Command2_Click() End End Sub
Private Sub Form_Load() X0 = Screen.Width Y0 = Screen.Height X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0
Set Cnn = New ADODB.Connection Cnn.ConnectionString
=
\
Source=\
Cnn.ConnectionTimeout = 30 Cnn.Open End Sub
6.2 ϵͳÖ÷½çÃæÊµÏÖ
ϵͳÖ÷½çÃæÊÇϵͳËùÓй¦ÄܵĴóÈÝÆ÷£¬Í¨¹ýÖ÷½çÃæ¿ÉÒÔ½øÈëÈκÎÄ£¿é½øÐвÙ×÷£¬½çÃæ½ØÍ¼¼°Ïà¹Ø´úÂëÈçÏ£º 1. ϵͳÖ÷½çÃæ
ͼ6-2 ϵͳÖ÷½çÃæ
2. ʵÏÖ´úÂë
Private Sub about_Click() Frmabout.Show End Sub
Private Sub button_ButtonClick(ByVal button As MSComctlLib.button) Select Case button Case \ÌáǰԤԼ\ Frmyuyue.Show Case \ǰ̨ÊÕÒø\
Frmqiantai.Show Case \ÉÌÆ·¹ÜÀí\ Frmshangpin.Show Case \»áÔ±¹ÜÀí\ Frmhuiyuan.Show Case \Ô±¹¤¿¼ÇÚ\ Frmygkq.Show Case \·þÎñÏîÄ¿\ Frmfwxm.Show Case \Ô±¹¤¹ÜÀí\ Frmygjb.Show Case \Óû§¹ÜÀí\ Frmyonghu.Show Case \¹ØÓÚ\ Frmabout.Show Case \Í˳ö\
i = MsgBox(\ÊÇ·ñÈ·¶¨Í˳öϵͳ£¡\Ìáʾ\ If i = vbNo Then Exit Sub End End Select End Sub
Private Sub cxdl_Click() Frmlogin.Show Unload Me End Sub
Private Sub fuwuxiangmu_Click() Frmfwxm.Show End Sub
Private Sub huiyuan_Click() Frmhuiyuan.Show End Sub
Private Sub MDIForm_Load()
Me.Caption = \ÃÀÈÝÔº¹ÜÀíϵͳ------Óû§£º\ ÀàÐÍ£º\End Sub
Private Sub qtsy_Click() Frmqiantai.Show End Sub
Private Sub shangpin_Click() Frmshangpin.Show End Sub
Private Sub tiqianyy_Click() Frmyuyue.Show End Sub
Private Sub tuichu_Click()
i = MsgBox(\ÊÇ·ñÈ·¶¨Í˳öϵͳ£¡\Ìáʾ\If i = vbNo Then Exit Sub End End Sub
Private Sub yggz_Click() Frmyggz.Show End Sub
Private Sub ygjbxx_Click() Frmygjb.Show End Sub
Private Sub ygkq_Click() Frmygkq.Show End Sub
Private Sub yonghu_Click() Frmyonghu.Show End Sub
6.3 ǰ̨¹ÜÀí¹ÜÀíÄ£¿é
¿Í»§Ç°Ì¨¹ÜÀíʵÏÖ¿Í»§Ïû·ÑµÄµÇ¼Ç¡¢½áÕË¡¢Õ˵¥µÈ·½ÃæµÄÉè¼Æ£¬ÊÇϵͳµÄºËÐÄÄÚÈÝ£¬ÆäʵÏÖ½çÃæ¼°´úÂëÈçÏ£º 1. ǰ̨¹ÜÀí½çÃæ