【教程】从Access到Asp.net（二）

情比金坚

【登陆窗体的设计】






Private Sub Command4_Click()
Dim myconstr As String
Dim mysql As String
Dim mycon As New ADODB.Connection
Dim mycmd As New ADODB.Command
Dim myrs As New ADODB.Recordset


myconstr = constr
    If IsNull(Text0) Or IsNull(Text2) Then
        errmsg.Caption = "请填写正确的用户名和密码，若尚未注册请先注册"
    Else
        mysql = "select * from tab_admininfo where sname='" & Text0 & "'"
    mycon.Open myconstr
        myrs.Open mysql, mycon, adOpenStatic, adLockOptimistic


        If Text0 = myrs("sname") Then
            If Text2 = myrs("spwd") Then
                DoCmd.OpenForm "frm_admin_mat"
            Else
                errmsg.Caption = "请输入正确的密码"
            End If
        Else
            errmsg.Caption = "你还没有注册，请先注册"
        End If
    End If
End Sub


注意，这里的登录窗体设计还没完成，在以后的设计中我们还要回来更改这里的代码。原因是，第一要在这里记录登录者的名字和权限，以便后用。 第二，要令我们的系统无论拷贝到哪里都能自动更新链接表地址。

[此贴子已经被作者于2006-8-9 1:06:49编辑过]

情比金坚

【管理主界面的设计】


如前面所展示的效果，点击左边的按钮可以改变右边子窗体的显示内容。


建立frm_salerecord,和frm_salelist 两个窗体，但没有进行进一步的设计。我们等到一会还会回来的。





Private Sub pinfoadd_Click()
    Me.Childfrm.SourceObject = "childfrm_pinfo_add"
End Sub


Private Sub pinfomat_Click()
    Me.Childfrm.SourceObject = "childfrm_pinfo_mat"
End Sub


Private Sub pkindmat_Click()
    Me.Childfrm.SourceObject = "childfrm_pkinds_mat"
End Sub

[此贴子已经被作者于2006-8-9 1:04:58编辑过]

情比金坚

【小结】


通过本章的学习，我们掌握了一个数据库的建立：


1、  表的设计


2、 链接表的设计


3、 通过复制粘贴创建表


4、 根据表通过向导生成窗体


5、 操作子窗体的显示内容


6、 用dao操作数据表


7、 跳过access自动保存的方法。


8、 用按钮删除和编辑一条记录的方法。


9、 登录窗体的设计

sgrshh29

支持!情版主辛苦了.[em23][em38]

kelind

  好一个"情"比"金"坚,名不虚传!

kelind

用ADO就更好了!

古老的龙

看了（1）的，没想到这么快就有（2）了！！写写了

yodong

好.

古老的龙

要一篇一篇的把你顶上去！！！

lency7

还没有看，先谢啦，

支持！支持~~~~~~~~~~[em01][em01]