
Public username As String
Public userright As String
Public conn As String
Private Sub Command1_Click()
Dim password As String
Dim respond As String
username = text1.Text
password = text2.Text
On Error GoTo err1
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from 用户登入 where 用户名=" &"'" &username &"'" &" and " &"密码=" &"'" &password &"'"
Adodc1.Refresh
If Adodc1.Recordset.AbsolutePosition = adPosUnknown Then
respond = MsgBox("用户名或密码错误,请重新输入!", vbOKOnly, "警告")
If respond <>vbOKOnly Then
text1.SetFocus
text1.Text = ""
text2.Text = ""
username = ""
password = ""
End If
Else
userright = Adodc1.Recordset.Fields("权限")
Unload frmLogin
form1.Show
End If
Exit Sub
err1:
MsgBox "系统配置错误!无法与服务器连接!"
userright = "0"
Unload Me
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
text1.Text = ""
text2.Text = ""
'conn = Frmstart.pconn
conn = "Provider=SQLOLEDB.1Integrated Security=SSPIPersist Security Info=FalseInitial Catalog=生产排产单Data Source=F70E4F38300D42F"
End Sub
Private Sub text2_Change()
End Sub
public static void main(String[] args) {
//Calendar.getInstance()表示今天,换其他日期则today.set(2009, 3, 1)
//注意set(2009, 3, 1)中的3其实是4月,月数从0-11
Calendar today = Calendar.getInstance()
//星期数,从星期天开始到星期六为0-7
System.out.println(today.get(Calendar.DAY_OF_WEEK))
}
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)