(ÍêÕû°æ)ÂÃÐÐÉç×ۺϹÜÀíϵͳ¼ÆËã»ú±ÏÒµÉè¼Æ ÏÂÔر¾ÎÄ

ÆäÖÆ×÷¹ý³ÌÈçÏ£º

1.ÉèÖô°Ìåfirst_fµÄ»ù±¾ÊôÐÔÈçϱíËùʾ¡£

ϵͳÆô¶¯´°Ìåfirst_fµÄÖ÷ÒªÊôÐÔ

ÊôÐÔÏîÃû Border Style StartUpPosition WindowsState Picture ÊôÐÔÉèÖÃÄÚÈÝ None 2-ÆÁÄ»ÖÐÐÄ 2-maximized Ñ¡¶¨µÄͼƬÎļþ 2.ÔÚ´°ÌåÖзÅÈëÒ»¸ö±êÇ©¿Ø¼þ£¬ÉèÆäCaptionÊôÐÔΪ¡°ÏµÍ³µÇ¼¡±²¢Îª¸Ã±êÇ©¿Ø¼þ¸³ÓèÒ»¸ö¹ý³Ì´úÂ룬µ±Óû§µ¥»÷¸Ã±êǩʱ¼´½øÈëϵͳȨÏÞÈÏÖ¤´°Ìå¡£Æä¹ý³Ì´úÂëÈçÏ£º Private Sub Label1_Click() login_f.Show

End Sub

3.ÔÙ·ÅÈëÒ»¸ö±êÇ©¿Ø¼þ£¬ÉèÆäCaptionÊôÐÔΪ¡°ÂÃÐÐÉç×ۺϹÜÀíϵͳ¡±£¬ÓÃÓÚ˵Ã÷¸ÃϵͳµÄÃû³Æ¡£

4.×îºó·ÅÈëÒ»¸ö±êÇ©¿Ø¼þ£¬ÉèÆäCaptionÊôÐÔΪ¡°Í˳öϵͳ¡±£¬ÓÃÓÚÍ˳öϵͳ£¬Æä¹ý³Ì´úÂëÈçÏ£º Private Sub Label2_Click() end 'ÓÃÓÚÍ˳öϵͳ End Sub

£¨2£© ´´½¨ÏµÍ³µÇ¼½çÃæ

ϵͳµÇ¼½çÃæÊÇÒ»¸ö¹ÜÀíϵͳ½øÐÐȨÏÞÈÏÖ¤Öв»¿ÉȱÉÙµÄÒ»»·£¬ËüÖ÷

ÒªÓÃÀ´Ñé֤ϵͳʹÓõĺϷ¨Éí·Ý¡£±£Ö¤ÏµÍ³µÄ°²È«ÔËÐС£ÆäÖÆ×÷¹ý³ÌÈçÏ£º

1.ÔÚ¹¤³ÌÖÐÔö¼ÓÒ»¸öеĴ°ÌåLogin_f£»´°Ìå²¼¾ÖÈçͼ5.2.2.2.1Ëùʾ¡£

2.ÔÚLogin_f´°ÌåÖзÅÈëÁ½¸öÎı¾¿ò¿Ø¼þÓÃÀ´½ÓÊÕÓû§ÃûºÍÃÜÂëÐÅÏ¢¡£ÔÚ¾ßÌåÖÆ×÷Öн«ÃÜÂë¿òµÄpasswordcharµÄÊôÐÔ¸ÄΪ*£¬×÷ÓÃÊÇΪÁ˱£Ö¤ÊäÈëÃÜÂëʱ²»±»ËûÈË¿´¼û¡£

3.ÔÚÁ½¸öÎı¾¿òµÄ±ßÉÏ·ÅÈëÁ½¸ö±êÇ©¿Ø¼þ£¬ÉèÁ½¸ö±êÇ©µÄCaptionÊôÐÔ·Ö±ðΪ¡°Óû§ÃûºÍÃÜÂ롱¡£ÓÃÓÚ˵Ã÷Á½¸öÎı¾¿òµÄ×÷Óá£

4£®ÔÚ´°ÌåÖзÅÈëÁ½¸ö°´Å¥¿Ø¼þ£¬·Ö±ðÉèÖÃÆäCaptionÊôÐÔΪ¡°½øÈ롱¡¢¡°Í˳ö¡±¡£ÓÃÓÚϵͳµÇ¼ºÍÍ˳öÆô¶¯½çÃæÖ®ÓᣵǼ°´Å¥µÄ¹ý³Ì´úÂëÈçÏ£º ½øÈë°´Å¥µÄ¹ý³Ì´úÂëÈçÏ£º Private Sub Command1_Click()

text1.Text = Replace(text1.Text, \text1.Text = Replace(text1.Text, Chr(34), \Text2.Text = Replace(Text2.Text, \

Text2.Text = Replace(Text2.Text, Chr(34), \

sql = \ÃÜÂë±í where Óû§Ãû='\ÃÜÂë= '\¡®²éѯÃÜÂëºÍÓû§ÊÇ·ñÓë±íÖеÄÏà·û Set rs = conn.Execute(sql)

If rs.EOF Or rs.BOF Then ¡®ÈôÆäÖÐÖÁÉÙÓÐÒ»¸ö²»Ïà·û£¬Ôò²»ÄܵǼ¡£ MsgBox \ÕʺſÚÁî´íÎó,Çë¼ì²éºóÖØнøÈë!\vbOKOnly + vbExclamation, \¾¯¸æ\Else

glymc = rs(\Óû§Ãû\quanxian = rs(\ȨÏÞ\Unload Me MDIForm1.Show End If End Sub

·µ»Ø°´Å¥µÄ¹ý³Ì´úÂëÈçÏ£º Private Sub Command2_Click() Unload Me '·ÅÆúµÇ¼£¬·µ»ØÆô¶¯½çÃæ End Sub

£¨3£© ´´½¨ÏµÍ³Ö÷¿Ø½çÃ棺

ϵͳÖ÷¿Ø½çÃæÊǼ¯ÖйÜÀíϵͳµÄ½çÃ棬ËüÖ÷Ҫͨ¹ý²Ëµ¥»òÃüÁî°´Å¥¶ÔÆäËû´°Ìå½øÐе÷Ó㬶Ա¨±í½øÐÐÏÔʾ»ò´òÓ¡£¬ÆäÖÆ×÷¹ý³ÌÈçÏ£º 1. ÔÚ¹¤³ÌÖÐÔö¼ÓÒ»¸öеÄMDI´°ÌåMDIform1£¬²¢¼ÓÈëÒ»¸öͼƬ¿ò

picture1ÓÃÓÚ·ÅÈëÔÚϵͳÆô¶¯ºó¼ÓÔصÄͼƬ¡£±£´æºó´´½¨ÏµÍ³Ö÷²Ëµ¥¡£ 2. ÓÒ¼üµ¥´°Ì壬³öÏÖµ¯³öʽ²Ëµ¥£¬Ñ¡Ôñ¡°²Ëµ¥±à¼­Æ÷¡±²Ëµ¥Ï½øÈë²Ë

µ¥±à¼­¶Ô»°¿ò£¬²Ëµ¥±à¼­Æ÷Èçͼ5.2.2.3.1Ëùʾ¡£

3. Ôڲ˵¥±à¼­Æ÷ÖÐÌí¼Óϵͳ¸÷¸öÄ£¿éµÄÐÅÏ¢£¬Ìí¼ÓºÃºóµÄϵͳ½çÃæÈçͼ

5.2.2.3.2Ëùʾ¡£

4£®ÔÚϵͳʹÓÃÖУ¬ÈôÄãµÇ¼ʱµÄȨÏÞÑ¡ÔñΪUSER£¬Äã¾Í²»¿ÉÒÔʹÓÃÌí¼ÓÓû§²Ëµ¥£¬Ö»Óе±ÄãµÄÑ¡ÔñȨÏÞΪSYSTEMʱ£¬Äã²Å¿ÉʹÓá£ÆäÈÏÖ¤´úÂëÈçÏ£º

Private Sub MDIForm_Load()

Picture1.Picture = LoadPicture(App.Path & \If quanxian = \µ±È¨ÏÞΪsystemʱ£¬Ôö¼ÓÓû§¿ÉÓà adduser_menu.Enabled = True Else

adduser_menu.Enabled = False End If End Sub

ÆäÓà²Ëµ¥µÄ¹ý³Ì´úÂë»ù±¾Îª´ò¿ªÆäËü´°Ì壬Ôڴ˲»Ò»Ò»Áгö¡£ Íê³É´°ÌåÉèÖú󣬱£´æÍ˳ö¡£ £¨4£© ´´½¨ÂÃÓÎÏß·¹ÜÀí´°Ìå

ÂÃÓÎÏß·¹ÜÀíÊÇÂÃÐÐÉç¹ÜÀíµÄÒ»¸öÖØÒªµÄ¹ÜÀí·½Ã棬¸Ã´°ÌåÖ÷ÒªÓÃÓÚ¶ÔÒ»¸öÂÃÐÐÉçµÄÂÃÓÎÏß·Êý¾Ý½øÐÐÔö¼Ó¡¢Ð޸ġ¢É¾³ýµÈ²Ù×÷£¬´´½¨¸Ã¹ÜÀí´°ÌåµÄ»ù±¾·½·¨ÈçÏ£º

1.ÔÚ¹¤³ÌÖÐÔö¼ÓÒ»¸öеĴ°Ì壬²¢½«¸Ã´°ÌåµÄÃû³ÆÐÞ¸ÄΪlyxlgl¡£ ÉèÖøô°ÌåµÄ»ù±¾ÊôÐÔ£¬ÈçϱíËùʾ£º

´°ÌålyxlglµÄÖ÷ÒªÊôÐÔ

ÊôÐÔÏîÃû Borderstyle ÊôÐÔÉèÖÃÄÚÈÝ 1-fixed