小妹求助!!!!!!!

Question

各位大哥大姐,谁有现成的用VB编完的系统,简单点的,不涉及公共模块的.可不可以借小妹借鉴一下.感激不尽.

Answer 1

Option ExplicitPrivate Sub Form_Load()
    MsgBox "This is a system"
End Sub

Answer 2

这个是提取字符串里面的数字程序Private Sub Command1_Click()
  Dim str As String
  str = "Good 152kkjysdfhsduicsckmnskcjhs"
  Dim i As Integer
  For i = 1 To Len(str)
    If IsNumeric(Mid(str, i, 1)) Then text1.Text = text1.Text & Mid(str, i, 1)
  Next
  
End Sub

Answer 3

// bbhere(阿忠) ( ) 
//我也82年的
干嘛呢，呵呵，
顺便说一下我83年的。

Answer 4

Private rs As ADODB.Recordset
'Private pwdrs As ADODB.Recordset
Private Sub cmdok_Click()
   
    rs.Open "select * from 123 where name= '" & txtname.Text & "' and pwd= '" & txtpwd.Text & "' ", con, adOpenStatic, adLockOptimistic
    If rs.RecordCount > 0 Then
        rs.Close
        rs.Open "select * from 123 where pwd='" & txtpwd.Text & "'", con, adOpenStatic, adLockOptimistic
        If rs.RecordCount > 0 Then
            MDIFrm.Show
            rs.Close
            Unload Me
            
        Else
            MsgBox "用户名不存在，请重新输入"
            
            txtname.SetFocus
            txtname.SelStart = 0
            txtname.SelLength = Len(txtname.Text)
            txtpwd.Text = ""
            rs.Close
       End If
    Else
        MsgBox "密码错误，请重新输入"
        txtpwd.Text = ""
        txtpwd.SetFocus
        rs.Close
    End If
    
    
End SubPrivate Sub Form_Load()
    Set rs = New ADODB.Recordset
    
End SubPrivate Sub txtname_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtpwd.SetFocus
    End If
    
End SubPrivate Sub txtpwd_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
        cmdok_Click
    End If
End Sub这是一个登录窗口的代码,是不是很小啊，？