主题：错误提示

Dim tx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim user As String=tx1.text

vars("sss") = e.Form.Controls("ComboBox2").text

Dim dept As String=e.Form.Controls("ComboBox3").text

Dim tx2 As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim pows As String=tx2.text

Dim dl As WinForm.Button = e.Form.Controls("Button1")

Dim dt As DataTable=DataTables("用户表")

Dim dr As DataRow

If user="" Then

    MessageBox.show("请输入用户名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    Return

Else

    dr=dt.find("用户名称='" & user & "'")

    If dr IsNot Nothing Then

        If pows=dr("密码") Then

            PopMessage("登陆成功","提示",PopIconEnum.Infomation,1)

            dr("登陆时间")=Date.Now

            dr("登陆账套")=sss

            dr.Save()

            usna=user

            pwsd = pows

            dpt = dept

            e.Form.close

        Else

            MessageBox.show("密码错误","提示")

        End If

    Else

        MessageBox.show("用户不存在!","提示")

    End If

End If

项目,AfterOpenProject

If OpenFileArgs.count = 0 Then

    Forms("登陆").Open()

    If usna="" Then

        syscmd.project.Exit()

        Return

    End If

    syscmd.project.open(ProjectFile,vars("sss"))

    Return

End If

Forms("主窗口").Open()

MainTable=Tables("用户表")

Tables("报价申请").Cols("业务部_客户").DropForm = "客户"

If User.Type <> UserTypeEnum.Developer

    TableCaptionVisible = False

End If

Tables("物料资料").AllowEdit=False

Tables("报价明细").Cols("产品编号").DropForm ="产品录入"

Tables("报价明细").Cols("产品名称").DropForm ="产品录入"

Dim w As Integer = sysinfo.ScreenWidth

Dim h As Integer = Sysinfo.ScreenHeight

With baseMainForm

    .show

    .WindowState = System.Windows.Forms.FormWindowState.Normal

    .Width = 920

    .Height = 640

    .Top=h\10

    .left=w\6

End With

Dim dr As DataRow=DataTables("用户表").find("用户名称='" & usna & "'")

If dr IsNot Nothing Then

    

    

    StatusBar.Message1= "用户:" & usna & "   " & "当前账套:" & dr("登陆账套")

End If

StatusBar.Message2="  登陆日期:" & Date.Today