Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB µÇ¼ - VB / ÍøÂç±à³Ì

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.Recordset.Fields(0) And pwd = Adodc1.Recordset.Fields(2) Then
  MsgBox "µÇ¼³É¹¦£¡"
  USER_FUN.Show
  ElseIf user_name <> Adodc1.Recordset.Fields(0) Then
  MsgBox "Óû§Ãû´íÎó£¡", vbOKOnly + vbInformation, "Ìáʾ"
  tbname.Text = ""
  tbPwd.Text = ""
  tbname.SetFocus
  ElseIf pwd <> Adodc1.Recordset.Fields(2) Then
  MsgBox "Óû§Ãû´íÎó£¡", vbOKOnly + vbInformation, "Ìáʾ"
  tbPwd.Text = ""
  Else
  MsgBox "ϵͳ³öÏÖÎÊÌ⣡", vbCritical, "¾¯Ê¾"
  End If
End If

ÔËÐÐʱÀϳöÏÖÓû§Ãû´íÎóµÄÌáʾ£¬ÕâÊÇʲôԭÒò£¿
²¹³ä£º
adodc1ÔÚÊôÐÔÖÐÉèÖÃÁËÁ¬½ÓSQL£¬
tbname£¬tbpwd¸úÊý¾Ý¿âuser±íµÄname,pwdÏîÔÚÊôÐÔÖÐÒ²ÉèÖÃÁËÁ¬½Ó


ÎÒ°ÑÃÜÂë´íÎóʱµÄÌáʾ¸ÄÁË£¬µ«»¹ÊÇÌáʾÓû§Ãû´íÎ󣬿ÉÄÜÊÇÊý¾Ý¿âÖеÄÄÚÈÝ´æÔÚ¿Õ¸ñ

Ôõô°ÑÊý¾Ý¿âÖеÄÄÚÈÝ´æÔڵĿոñÈ¥µãÄØ£¬Ò²ÓÃtrimÂð

ÊÇÁËÏ£¬¼ÓÉÏtrimÔËÐÐÍêÈ«ÕýÈ·


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ