读书人

怎么在已经设计完成的系统中再添加一个

发布时间: 2012-05-08 22:09:41 作者: rapoo

如何在已经设计完成的系统中再添加一个系统登录界面
这个是连接数据库的模块,可以在不修改连接数据库的模块下直接添加吗
Public Shared Function GetConnection() As String
Return "Data Source=GZW-PC;Initial Catalog=SBManager;Persist Security Info=True;User ID=sa;Password=6221556"
End Function
Public Shared Function Excute(ByVal sql As String) As String
Dim constr As String = MainConfig.GetConnection()
Dim con As SqlConnection
con = New SqlConnection(constr)
con.Open()
Dim com As SqlCommand
com = New SqlCommand(sql, con)
com.Execute NonQuery()
Return ""

Public Shared Function GetRecord(ByVal sql As String) As DataSet
Dim ds As DataSet = New DataSet()
Dim constr As String = MainConfig.GetConnection()
Dim da As SqlDataAdapter = New SqlDataAdapter(sql, constr)
da.Fill(ds)
Return ds

End Function

[解决办法]
加个登陆form 界面,在工程选项里再将这个form 设为首先执行。
[解决办法]

探讨
加个登陆form 界面,在工程选项里再将这个form 设为首先执行。

[解决办法]
直接加个窗体就行了,可以放到program.cs中的run之前,也可以在主窗体创建之时,创建登录窗体,通过后,运行继续运行,否则退出
[解决办法]
可以

添加一个窗体,放上2个textbox,分别为textbox1,和textbox2.

再放上2个button,一个为“确定”,一个为“取消”

双击“确定”编写代码

将textbox2的passwordchar设置栏里添加一个*

IF TEXTBOX1.TEXT.TRIM="admin" and TEXTBOX2.TEXT.TRIM="admin" then
frmMian.show '显示你的主窗体
else
msgbox("密码或者用户名错误!")
endif

菜单 项目 属性里将启动窗体设置为你的密码的窗体。

恭喜你,完工了。

读书人网 >VB Dotnet

热点推荐