1.VB登陆窗体代码。窗体窗体数据库呢是源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码
2.Windows ä¸ä¸è§åçªä½çç¼ç¨å®ç°
VB登陆窗体代码。数据库呢是代码类似分答 源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码
新建vb工程,然后点击“工程”-->“引用”,窗体窗体在以下两个选项前挑勾:Microsoft Data Environment Instance 1.0
Microsoft ActiveX Objects 2.5 Library
因为你要用Access数据库,源码伍华聪源码所以需要在工程中添加控件。代码乾坤猎牛源码
建立Access数据库,窗体窗体在这个vb工程文件夹新建一个文件夹,源码命名为table,代码然后将这个Access数据库文件放入table文件夹中。窗体窗体
源代码:
Private Con_Access As Connections
Private Sub Form_Load()
Set Con_Access = New Connection
With Con_Access
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = App.Path & "\table\ship.mdb"
.Open
End With
End Sub
Private Sub cmdOK_Click()
Dim cmd As New Command
Dim rd As New Recordset
cmd.ActiveConnection = Con_Access
cmd.CommandText = "select username,源码userpassword from usertable where username='" & Text1.Text & "'"
On Error GoTo db_error
Set rd = cmd.Execute
On Error GoTo 0
If rd.EOF Then
MsgBox "用户名不存在。",代码 vbOKOnly + vbInformation, "错误"
Exit Sub
End If
db_error:
MsgBox Err.Description, vbOKOnly + vbInformation, "错误"
End Sub
Private Sub cmdCancel_Click()
End
End Sub
已经附上截图了,如果还有疑问,窗体窗体靓号站源码发电邮给我rearguard_zero@hotmail.com
源码源码Windows ä¸ä¸è§åçªä½çç¼ç¨å®ç°
源码 ããWindows ä¸ä¸è§åçªä½çç¼ç¨å®ç° ä¸è½½æºä»£ç ä¸ åºè¨ ããå¨ç»å¤§å¤æ°çWindowsåºç¨ç¨åºä¸ å ¶çªä½é½æ¯ä½¿ç¨çæ£è§æ£ç©çç©å½¢çªä½ ä¾å¦æ们常ç¨ç è®°äºæ¬ æ«é· çç ç©å½¢çªä½ å ·æç¼ç¨å®ç°ç®å é£æ ¼ç®æ´çä¼ç¹ æ以å¨æ®éææ¡£åºç¨ç¨åºåç®åå°æ¸¸æä¸ä½¿ç¨è¶³ç£ ä½å¨æäºå¨±ä¹æ¸¸æç¨åºä¸ä½¿ç¨å°±ç¥æ¾åæ¿äºäº è¿æ¶è¥ç¨ä¸è§åçªä½æ¿ä»£åå çç©å½¢çªä½ å°ä¼ä½¿è¿ç±»ç¨åºæ´æ·»æ 趣 å ¸åçä¾åæwindows èªä»£çMedia Player æ°çæ¬çMedia Playeræ个æ§å¶é¢æ¿çé项 éä¸è¿äºé¢æ¿ ææ¾å¨å°±ä»¥éä¸çé¢æ¿å½¢ç¶åºç° è¿æ¶çææ¾å¨æ¯ä»¥åçæ¬çMedia Playerçå¤èç©å½¢çé¢è¦çå¨æ趣çå¤äº è¦å®ç°ä¸è§åçªä½ä¸æ¯å¤ªé¾ ç¥éäºåºæ¬åçå ä½ ä¹å¯ä»¥å建åç§æ趣çä¸è§åçªä½ äº å®ç°åç ããææç Windows çªä½é½ä½äºä¸ä¸ªç§°ä¸º region ä¸ çªä½ç大å°å¦æè¶ åº region çèå´ windowsä¼èªå¨è£åªè¶ åº"region"èå´é£é¨åççªä½ ä½¿å ¶ä¸å¯è§ æ以 è¦å建ä¸è§åçªä½æ两个æ¥éª¤ 第ä¸æ¥å°±æ¯å建ä¸è§å"region" 第äºæ¥å°±æ¯å°çªä½æ¾å°å建ç region ä¸ ããå ¶ä¸ç¬¬äºæ¥å¾ç®åå°±è°ç¨ä¸æ¡è¯å¥å³å¯ å¨SDKä¸è°ç¨APIå½æ°SetWindowRgn 该å½æ°ååå¦ä¸ 源码ããint SetWindowRgn( HWND hWnd HRGN hRgn BOOL bRedraw );
源码ããå ¶ä¸hWndä¸ºå¾ è®¾ç½®ççªä½å¥æ hRgn为已ç»å建ç"region"å¥æ bRedraw代表æ¯å¦è¦éç»çªä½ å¨MFCä¸ä½¿ç¨çªå£ç±»CWndçæåå½æ°int CWnd::SetWindowRgnï¼HRGN hRgn BOOL bRedraw );该å½æ°çåæ°æä¹ä¸APIä¸ååå½æ°ç¸å ããç¸å¯¹ä¸ç¬¬äºæ¥ å建ä¸è§åçªä½ç第ä¸æ¥è¦å¤æè®¸å¤ å¹¶ä¸ä¸è§åçªä½è¶å¤æ åå»ºå ¶"region"çè¿ç¨ä¹è¶å¤æ æ¥ä¸å»æ们å°ç±æµ å ¥æ·±å°ä»ç»åç§å建 region çæ¹æ³ ããå¨MFCä¸"region"对象 ç±CRgnç±»å®ç° CRgnçå ä¹æ¯ä¸ªæåå½æ°é½æååçSDK APIå½æ°å¯¹åº ä¸ ç®å region çå建 ããç±»CRgnå建ä¸ä¸ªæ°ç"region"çç®åæ¹æ³æ以ä¸å 个æåå½æ°
源码BOOL CRgn::CreateRectRgn( int x int y int x int y ); å建ç©å½¢ç region
源码BOOL CRgn::CreateEllipticRgn( int x int y int x int y ); å建åå½¢ææ¤åå½¢ region
源码源码
BOOL CRgn::CreateRoundRectRgn( int x int y int x int y int x int y ); å建åè§ç©å½¢ region
源码BOOL CRgn::CreatePolygonRgn( LPPOINT lpPoints int nCount int nMode ); å建å¤è¾¹å½¢ region
源码ããè¿é以å建æ¤åçªä½ä¸ºä¾ ä»ç»æ¤åçªä½å建çæ¹æ³ å¨å建æ¤å region çCreateEllipticRgnå½æ°ä¸ x y ææ¤åæå¨ç©å½¢çå·¦ä¸è§åæ x y æ该ç©å½¢çå³ä¸è§åæ ããä¸é¢ç代ç å å ¥å°MFC对è¯æ¡ç¨åºçOnInitDialogå½æ°ä¸ å¯å°è¯¥å¯¹è¯æ¡åææ¤åçªä½
源码ããBOOL CTestDlg::OnInitDialog(){ CDialog::OnInitDialog(); CRgn rgn; rgn CreateEllipticRgn( ); SetWindowRgn(rgn TRUE);}
源码 å¾ä¸ æ¤åçªä½ææå¾ å ä½å¾è·¯å¾æ³å建 region 使ç¨è¯¥æ¹æ³å建 region çè¿ç¨å¦ä¸ 第ä¸æ¥ç»å¶æè¦å建ççªä½å½¢ç¶ 该æ¥éª¤ä¸ä½¿ç¨å°CDCç±»ä¸çä¸äºæåå½æ°å¦ä¸ããBOOL CDC::BeginPath( );
源码ããè°ç¨è¯¥å½æ°åå½å设å¤ç¯å¢(DC)å¼å§è¿½è¸ªç»å¾çè¿ç¨
源码ããint CDC::SetBkMode( int nBkMode );
源码ãã设置ç»å¾æ¶çèæ¯æ¨¡å¼ æ¤åºç¨ä¸nBkModeå¿ é¡»åå¼ä¸ºTRANSPARENT å³è®¾ç½®ç»å¾æ¶èæ¯ä¸åçåå
源码ããBOOL CDC::EndPath( );
源码ããè°ç¨è¯¥å½æ°åå½å设å¤ç¯å¢(DC)ç»æ追踪ç»å¾çè¿ç¨ ããå¼å§ç»å¾å å è°ç¨BeginPath ç¶åè°ç¨SetBkMode æ¥ä¸å»å°±å¯è°ç¨CDCçå ¶ä»ç»å¾å½æ°ä½å¾ ä¾å¦Arc AngleArc LineTo MoveTo RoundRect Textoutçç ç»å¾å®æ¯è°ç¨EndPath() 第äºæ¥å°ç»å¶çç»æ转æ region æ¤æ¥éª¤ä¸ä½¿ç¨SDK APIå½æ°
源码ããHRGN PathToRegion( HDC hdc );
源码ããHdc为ä½å¾DCçå¥æ CDCç±»ä¸çm_hDCæååéå¯åæ¤åæ°ä¼ å ¥ ç¤ºä¾ å°ä¸é¢ä»£ç å å ¥æ个æé®åå»äºä»¶ä¸ å¯ä»¥å°å½åçªä½å为å符串 hello çå½¢ç¶
源码ããvoid CTestDlg::OnTest() { HRGN wndRgn; CClientDC dc(this); CFont mFont; if (dc m_hDC!=NULL) { VERIFY(mFont CreateFont( FW_HEAVY TRUE FALSE ANS
源码lishixinzhi/Article/program/c//源码