login.vb

很完善的餐饮管理系统

        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Expr1", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dept", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dept", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Duty", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Duty", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_HireDate", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "HireDate", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Marry", System.Data.SqlDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Marry", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Name", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Salary", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(0, Byte), "Salary", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Sex", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sex", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Tel", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=WZQ;initial catalog=FoodSvc;persist security info=False;user id=sa;wo" & _
        "rkstation id=WZQ;packet size=4096"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO Clerk(Address, ClerkID, Name, Sex, Marry, Dept, Duty, Salary, HireDat" & _
        "e, Tel) VALUES (@Address, @ClerkID, @Name, @Sex, @Marry, @Dept, @Duty, @Salary, " & _
        "@HireDate, @Tel); SELECT Address AS Expr1, ClerkID, Name, Sex, Marry, Dept, Duty" & _
        ", Salary, HireDate, Tel, Address FROM Clerk WHERE (ClerkID = @ClerkID)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Address", System.Data.SqlDbType.NVarChar, 50, "Address"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ClerkID", System.Data.SqlDbType.NVarChar, 6, "ClerkID"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Name", System.Data.SqlDbType.NVarChar, 50, "Name"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Sex", System.Data.SqlDbType.Bit, 1, "Sex"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Marry", System.Data.SqlDbType.SmallInt, 2, "Marry"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dept", System.Data.SqlDbType.NVarChar, 50, "Dept"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Duty", System.Data.SqlDbType.NVarChar, 50, "Duty"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Salary", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(0, Byte), "Salary", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@HireDate", System.Data.SqlDbType.DateTime, 8, "HireDate"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Tel", System.Data.SqlDbType.NVarChar, 50, "Tel"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT Address AS Expr1, ClerkID, Name, Sex, Marry, Dept, Duty, Salary, HireDate," & _
        " Tel, Address FROM Clerk"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE Clerk SET Address = @Address, ClerkID = @ClerkID, Name = @Name, Sex = @Sex" & _
        ", Marry = @Marry, Dept = @Dept, Duty = @Duty, Salary = @Salary, HireDate = @Hire" & _
        "Date, Tel = @Tel WHERE (ClerkID = @Original_ClerkID) AND (Address = @Original_Ad" & _
        "dress OR @Original_Address IS NULL AND Address IS NULL) AND (Address = @Original" & _
        "_Expr1 OR @Original_Expr1 IS NULL AND Address IS NULL) AND (Dept = @Original_Dep" & _
        "t OR @Original_Dept IS NULL AND Dept IS NULL) AND (Duty = @Original_Duty OR @Ori" & _
        "ginal_Duty IS NULL AND Duty IS NULL) AND (HireDate = @Original_HireDate OR @Orig" & _
        "inal_HireDate IS NULL AND HireDate IS NULL) AND (Marry = @Original_Marry OR @Ori" & _
        "ginal_Marry IS NULL AND Marry IS NULL) AND (Name = @Original_Name OR @Original_N" & _
        "ame IS NULL AND Name IS NULL) AND (Salary = @Original_Salary OR @Original_Salary" & _
        " IS NULL AND Salary IS NULL) AND (Sex = @Original_Sex OR @Original_Sex IS NULL A" & _
        "ND Sex IS NULL) AND (Tel = @Original_Tel OR @Original_Tel IS NULL AND Tel IS NUL" & _
        "L); SELECT Address AS Expr1, ClerkID, Name, Sex, Marry, Dept, Duty, Salary, Hire" & _
        "Date, Tel, Address FROM Clerk WHERE (ClerkID = @ClerkID)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Address", System.Data.SqlDbType.NVarChar, 50, "Address"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ClerkID", System.Data.SqlDbType.NVarChar, 6, "ClerkID"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Name", System.Data.SqlDbType.NVarChar, 50, "Name"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Sex", System.Data.SqlDbType.Bit, 1, "Sex"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Marry", System.Data.SqlDbType.SmallInt, 2, "Marry"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dept", System.Data.SqlDbType.NVarChar, 50, "Dept"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Duty", System.Data.SqlDbType.NVarChar, 50, "Duty"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Salary", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(0, Byte), "Salary", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@HireDate", System.Data.SqlDbType.DateTime, 8, "HireDate"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Tel", System.Data.SqlDbType.NVarChar, 50, "Tel"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ClerkID", System.Data.SqlDbType.NVarChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClerkID", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Address", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Expr1", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dept", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dept", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Duty", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Duty", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_HireDate", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "HireDate", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Marry", System.Data.SqlDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Marry", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Name", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Salary", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(0, Byte), "Salary", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Sex", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sex", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Tel", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
        '
        'Form10
        '
        Me.AcceptButton = Me.Button1
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.Button2
        Me.ClientSize = New System.Drawing.Size(288, 237)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "Form10"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "登录餐饮服务"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button2.Click
        If MsgBox("您真的不登录餐饮服务管理系统吗？", _
        MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出登录系统") _
        = MsgBoxResult.Yes Then
            Application.Exit()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub Form10_Closing(ByVal sender As Object, _
                               ByVal e As System.ComponentModel.CancelEventArgs) _
                               Handles MyBase.Closing
        If MsgBox("您真的不登录餐饮服务管理系统吗？", _
        MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出登录系统") _
        = MsgBoxResult.Yes Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button1.Click
        User = Me.TextBox1.Text.Trim
        Password = Me.TextBox2.Text.Trim
        sqlstr = "SELECT * FROM UserInfo WHERE user_id= " & _
        "'" & User & "' AND user_pwd='" & Password & "'"
        Dim objDataRow As DataRow
        Try
            objDataRow = GetDataFromDB(sqlstr).Tables(0).Rows(0)
        Catch
            MsgBox("密码和账号不符，请重试，并检查该账号是否存在。", _
            MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "系统登录失败")
            Me.TextBox2.Text = ""
            Exit Sub
        End Try
        UserName = User
        pepdom = objDataRow.Item(2)
        mod1 = CBool(objDataRow.Item(3))
        mod2 = CBool(objDataRow.Item(4))
        mod3 = CBool(objDataRow.Item(5))
        mod4 = CBool(objDataRow.Item(6))
        Dim frmmain As New Form1()
        frmmain.Show()
        Me.Finalize()
    End Sub

End Class