´úÂëÊÇ
Private Sub Command1_Click()
Form3.Show
Form3.Visible = True
Form2.Visible = False
Form1.Visible = False
End Sub
Private Sub Command2_Click()
Form2.Show
Form2.Visible = True
Form3.Visible = False
Form1.Visible = False
End Sub
Private Sub Command3_Click()
End
End Sub
Public Sub ......
ÀýÈç:
if A>B THEN
IF C>D THEN
if e>f then
end if
END IF
ELSE
if c>d then
end if
END IF
¿ÉÒÔ×Ô¶¯ÅŰæ³É:
VB code:
if A>B THEN
IF C>D THEN
if e>f then
end if
END ......
Private Sub Command1_Click()//ÔËÐÐʱ×ÜÏÔʾÕâÀï¡°×Ó³ÌÐò»òº¯Êý䶨Ò塱
Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
Set ws = CreateWorkspace("", "admin", "", dbUseJet)
Set db = ws.OpenDatabase(App.path + ......
ÇëÎÊÈçºÎÔÚPictureboxÉ趨һ¸öÖ±½Ç×ø±êϵ£¬²¢ÔÚ¿ÉÒÔʵʱÏÔʾx£¬yµÄ±ä»¯ÄØ£¿
£¨ÆäÖÐx£¬yµÄ¶¼ÊÇ´Ó´®¿Ú¶ÁÈëµÄ£¬Ò»Ò»¶ÔÓ¦µÄ£©
¼±Çó£¡
ÇëVB´ïÈ˰ïæ°¡£¡
ÏÈÐÐл¹ýÁË£¡
¿ÉÒÔʹÓÃPicture.LineTo·½·¨
PictureBoxµÄ×ø±êºÍ×ø±ê³ß×ø±ê»»Ëã¹ØÏµÊÇ
XYΪÊý¾ÝµÄ×ø±ê£¬xyΪLineToµÄ×ø±ê
x = X + Ե㵽×ó±ßµÄ±ß¾à
y = Ե㵽ÉÏ¶Ë ......
1.ÿÕűí¿ÉÒÔ½¨Á¢¶àÉÙ¸ö×Ö¶Î
2.Ôõôдһ¸ösqlÓï¾ä½«Ä³¸ö×ֶζ¨ÒåΪ£¬¡°ÊÇ¡±£¬¡°·ñ¡±ÀàÐÍ
(1)ºÜ¶àºÜ¶à¡£
(2)ʹÓÃbitÀàÐÍ¡£
1.ÿÕűí¿ÉÒÔ½¨Á¢¶àÉÙ¸ö×Ö¶Î
Ó¦¸ÃÊÇ255¸ö
2.Ôõôдһ¸ösqlÓï¾ä½«Ä³¸ö×ֶζ¨ÒåΪ£¬¡°ÊÇ¡±£¬¡°·ñ¡±ÀàÐÍ
BIT
1£¬µ¥ÕűíµÄ×ֶθöÊýÏÞÖÆÊÇ255
2£¬ACCESSÖÐÊÇ¡°ÊÇ/·ñ¡±ÀàÐÍ£¬SQLÖÐÊÇbitÀàÐÍ
......
ÓÃVB ×öÁ˸öÊý¾Ý¿â ¹ÜÀíϵͳ£¬ÓõÄÊÇAccessÊý¾Ý¿â¡£¶ÁÊý¾ÝûÓÐÎÊÌ⣬¾ÍÊÇÔÚÊý¾Ý¿â²åÈëʱ£¬ÔËÐÐûÓÐÎÊÌ⣬µ«´ò¿ªÊý¾Ý¿âʱ£¬²¢Ã»ÓÐÊý¾ÝдÈë¡£Ôõô»ØÊ£¿
ºÇºÇ¡£ Äǿ϶¨ÊÇÄã´úÂëдµÄ²»¶Ô¿©¡£²»¿ÉÄܳöÏÖÕâÖÖÇé¿öµÄ¡£ ACCESS Êý¾Ý¿â¾ÍËã»úÆ÷ÉÏûװÓÃVB´ò°üºÃµÄ°²×°³ÌÐòÒ²ÊÇ¿ÉÒÔʹÓõÄŶ¡£·
ÕâµÃ¿´ÄãµÄ³ÌÐò´úÂëÁË£¬ÈçºÎÉ ......