如何在已经设计完成的系统中再添加一个系统登录界面
这个是连接数据库的模块,可以在不修改连接数据库的模块下直接添加吗
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 设为首先执行。
[解决办法]
[解决办法]
直接加个窗体就行了,可以放到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
菜单 项目 属性里将启动窗体设置为你的密码的窗体。
恭喜你,完工了。