我要做一个学籍管理程序,遇到问题,请教高手!

Question

IF 语句啊
if true then  ...
else then...
end if

Answer 1

我曾做过一个类似的系统.首先,你应该连接上一个加了密的数据库,如:学籍.mdb(加了密,别人才打不开,才看不见你表里的用户名和密码),然后,你再连接上(在程序里进行),接着打开用户表,取出表里的数据和密码,与用户输入的比较,一致则进入,否则退出.
while not rs.field.eof
  if rs.field("用户表").value=txtName then
     if rs.field("密码").value=txtPassword then
        进入
     end if
  end if
  rs.movenext
wend
退出
sorry,我有点忘了,应该就是以上这些,不知能否解决你的问题

Answer 2

你的意思我明白了,但是,怎么样在VB程序中进入数据库取数据呢?,代码应该是怎么样的呢?
还有就是进入数据库取数据时,是不是在Command1_Click()时的事件呢?按你刚才所说的,代码应该是不是下面这样呢?Private Sub Command1_Click()
while not rs.field.eof
  if rs.field("用户表").value=txtName then
     if rs.field("密码").value=txtPassword then
        进入
     end if
  end if
  rs.movenext
wend
退出End IfEnd Sub

Answer 3

你也可以将用户名和密码在存储时前端进行加密，校验前同时解密并校验！简单的加密即可，这样表中的数据也是密文。
用 for 限定登陆次数。
select id,password from curstom where id='"+trim(用户名)+"' and  password='"+trim(密码)+"'
if rs.eof=false then
   "登陆成功"
   else
   "失败"
end if 
我以前在学校时用的就是这个，但我一直认为select太慢，呵呵~仅做参考~献丑！

Answer 4

为什么不用动态的aodc?他可以直接带密码访问!!
public Conn as nw adodc.connection
public ConnRS as new adodc.recordsetConn.open "条件",用户,密码,
....
大概这样子,你可以试试.具体我忘了,要在VB环境下可以用VB的提示来完成.
试试吧!!

Answer 5

我也想啊,不知道我的网络今天怎么了,除了CSDN,我哪儿里也上去了啊!

Answer 6

使用ado连接数据库
'定义一公用连接放在模块中
Public Function Get_data(ByVal Sql_str As String) As Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strcnn As String
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\cxcx\YDCLGL.mdb;Persist Security Info=False"
    con.Open strcnn
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenStatic
    rs.Open Sql_str, con, adOpenDynamic, adLockOptimistic
    Set data_int = rs
    Set con = Nothing
    Set rs = Nothing
End Function在登录窗口的确定按钮的Click事件中写代码
Private Sub Command3_Click()
     Dim Sql_str As String
     Dim redset As adodb.redcordset
     
     Sql_str = "select name,password from table_user where name='" & Trim(UCase(text_username.Text)) & "' and password='" & Trim(UCase(text_userpassword.Text)) & "'"
     Set redset = data_int(Sql_str)
     If redset.BOF Or redset.EOF Then
        '' 用户名或者密码错误
        MsgBox "用户名错误或者密码错误"
     Else
        '''用户名正确进入下一步操作窗口
        MsgBox "欢迎进入学籍管理系统"
        Unload Me ''卸载登录窗口
        Load form_学籍管理录入窗口
        form_学籍管理录入窗口.Show
        
     End IfEnd Sub
试一试

Answer 7

更正：
Public Function Get_data(ByVal Sql_str As String) As Recordset
..................
    Set Get_data= rs...............

Answer 8

错误:
    用户类型未定义
    出现错误语句:
            Private Sub Command3_Click()
                          
                Dim redset As adodb.redcordset注:我用的是:Command1和中文数据库连接地址

Answer 9

sorry  ,英文不太好,应该是：Dim redset as ADODB.Recordset 在 as 后敲空格键，所有可以定义的数据类型会列出来供你选择数据库连接没问题吧？

Answer 10

UCase(text_username.Text)是什么意思啊?谢谢!

Answer 11

如果是我的话我会建立一个Operator表其中包含OperatorID,OpePWD,OperLevel,LoginDate,LogoutDate,Creater.
还有Person表，包含
PsnID,PSnName等等说明：operator表使用户的权限表person使用户的信息表。
当一个用户登录的时候你要记录它设什么时间进入系统的
什么时间离开系统的，并且根据用户的操作级别来判断他拥有什么权限
可以看到什么操作界面，进行什么操作。
需要说明的是你可以在程序的前端对数据进行加密例如：随即的函数加上left/mid/right等等的算法。如果你需要的话我可以给你一个小例子。