user_name = Trim(tbname.Text)
pwd = Trim(tbPwd.Text)
If user_name <> "" Then
Adodc1.Recordset.MoveFirst '´ÓµÚÒ»Ìõ¼Ç¼¿ªÊ¼²é¿´
Adodc1.Recordset.Find ("user =" & "'" & user_name & "'")
If user_name = Adodc1.Re ......
[size=12px]adodc1ͨ¹ýÊôÐÔÁ´½ÓSQLSEVER£¬
datagrid °ó¶¨adodc1,µ«Ï£ÍûÄܹ»¶¯Ì¬¸Ä±äÏÔʾµÄÁÐ
ÇëÎʸÃÔõôд£¿[/size]
Adodc1.RecordSource = "select ×Ö¶Î1,×Ö¶Î2,×Ö¶Î3 from ±í"
Adodc1.Refresh
DataGrid1.Refresh
ѧϰһÏ¡£¡£····
......
ÈçºÎÓÃVB¿ª·¢Ò»¸öchmµç×ÓÊéÖÆ×÷¹¤¾ß
ÎÒµÄÏë·¨ÊÇÅäºÏaccessÊý¾Ý¿â¿ª·¢¸öÈí¼þ
¿ÉÒÔÌí¼ÓÐÞ¸ÄÎÄÕÂ
µÈ°ÑËùÓеÄÎļþÉèÖúúó
µãÉú³Éµç×ÓÊ飬Ȼºó¸ÃÈí¼þ×Ô¶¯Éú³ÉÒ»¸öchmµç×ÓÊéÎļþ
µ±È»£¬ÒªÊÇÄܹ»Éú³É¶àÖÖÎļþ£¬Èçexe£¬pdfµÈ¸÷ÖÖ¸ñʽµÄ¾Í¸üºÃÁË
Ç°Ã沿·Ö¶¼ÈÝÒ××ö£¬Ò²¾ÍÊÇÊý¾Ý¿âºÍÎļþÉú³ÉµÄ֪ʶ
µ«ÊÇÉú³ÉchmÕâ²½¾Í²»ÖªÈçºÎÊ ......
´úÂëÊÇ
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 ......
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 = Ե㵽ÉÏ¶Ë ......