VB×¢²áÎÊÌâ
Ò»¸ö Óû§¿Ø¼þ 2¸öÃÜÂë¿Ø¼þ Ò»¸ö °´Å¥¿Ø¼þ 2¸öÃÜÂë¿Ø¼þÓÃÀ´ÑéÖ¤ÃÜÂë ¶øÇÒÓû§¿Ø¼þÐèÒªÑéÖ¤ÊÇ·ñÓÐÓû§Ãû´æÔÚ È»ºó×¢²áÁ¬½Óµ½MSSQL 2000µÄdataÊý¾Ý¿âÖÐµÄ user±íµÄ userºÍ passÖÐÈ¥ ËÄÜ·ñ½ÌÎÒһϠÈçºÎ¸ã
ËÄܲ»ÄܸøÎÒ¸öÍêÕûµÄ´úÂë лл ½ñÌìÊÔÁ˺ܶà´Î ¾ÍÊÇÓÐÎÊÌâ
Õâô¼òµ¥»¹Óÿؼþ£¿
Äܲ»ÄܰïÎÒдÉϰ¡ ²»»á°¡
²»°ÑÕÊ»§ºÍÃÜÂë¿Ø¼þ¸ãÉÏ ÔÚÄÄÌîÕʺÅÃÜÂëÄØ£¿
È»ºóдÈçSQLÀï
ÔõôûÈËÀ´°ïÎÒ°¡
ÓÐÒâ˼£¬Ñ§Ï°£¡£¡
INSERT INTO user (user, pass) VALUES ('ÕŶþë', 'PA55W0RD')
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = 2: B = 3
For N = 1 To 6
  ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Chec ......