ÃÀÈÝÔº¹ÜÀíϵͳÂÛÎÄ ÏÂÔØ±¾ÎÄ

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. ǰ̨¹ÜÀí½çÃæ