Ship Storm
جمعه 13 بهمن 1391, 08:42 صبح
سلام دوستان
من قصد دارم یک برنامه بنویسم که روی یکسری اطلاعات اعمال ویرایش و پاک کردن و ثبت اطلاعات جدید و جستجو رو داشته باشه تا حدودی به نحوه کار آشنایی دارم ولی چند تا سوال داشتم در این زمینه
---
1- من از نرم افزار Visual Studio 2010 دارم استفاده میکنم و بانک اطلاعاتی که استفاده میکنم Microsoft SQL Server 2008 R2 هستش و بانک و جداول خودم رو تو اون ساختم و ارتباط دادم به پروژه ، سوال من اینجاست که من وقتی این نرم افزار رو به اتمام برسونم برای اجرای اون تو یک سازمان به مشکل بر نمیخورم ؟ منظورم اینه که نوع SQL ای که استفاده میکنم و جداولی که از اونجا ارتباط دادم به برنامه بعدا که بخوام انتقالش بدم روی یک سیستم دیگه مشکل بر نمیخوره ؟
2-من یک کدی نوشتم به این شرح برای چک کردن نام کاربری و رمز عبور :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s1 = "data source=HAMED-PC;initial catalog=Hospital;integrated security=True;"
con = New SqlConnection(s1)
con.Open()
s2 = "select * from Login where UserName='" & txtUsername.Text & "'"
da = New SqlDataAdapter(s2, con)
da.Fill(ds, "Login")
If ds.Tables("Login").Rows.Count = 0 Then
MsgBox("Invalid UserName", MsgBoxStyle.Critical, "Dear User ")
Exit Sub
End If
dr = ds.Tables("Login").Rows.Item(0)
If Trim(dr.Item("Password")) <> txtPassword.Text Then
MsgBox("Invalid Password", MsgBoxStyle.Critical, "Dear User")
Exit Sub
End If
MsgBox("Welcome")
Form3.Show()
Me.Visible = False
End Sub
و این بخوبی داره کار میکنه ولی بعدا که بخوام انتقال بدم آیا این قسمت data source=HAMED-PC برام مشکل ساز نمیشه ؟ چون همه جا که اسم سرور این نیست ، درسته ؟
3- یک قست دارم برای ویرایش رمز عبور و کدی که نوشتم اینطوریه ولی ایراد داره چون تو دیتابیس میره و یک خط جدید ایجاد میکنه ، چطور باید تعریف کنم که نام کاربری که وارد شده تو Textbox1 رو بره تو دیتابیس پیدا کنه و فقط پسورد اون رو ویرایش کنه ؟
Dim con As New SqlConnection()
con.ConnectionString = "server=HAMED-PC;database=Hospital;Integrated security=yes"
con.Open()
Dim com As New SqlCommand()
com.Connection = con
Dim sql As String
sql = "UPDATE Login SET(UserName,Password) VALUES ('{0}','{1}')"
sql = String.Format(sql, txtUsername.Text, txtNewPassword.Text)
com.CommandText = sql
'com.ExecuteNonQuery()
MsgBox("SAVED")
ممنون و باتشکر
من قصد دارم یک برنامه بنویسم که روی یکسری اطلاعات اعمال ویرایش و پاک کردن و ثبت اطلاعات جدید و جستجو رو داشته باشه تا حدودی به نحوه کار آشنایی دارم ولی چند تا سوال داشتم در این زمینه
---
1- من از نرم افزار Visual Studio 2010 دارم استفاده میکنم و بانک اطلاعاتی که استفاده میکنم Microsoft SQL Server 2008 R2 هستش و بانک و جداول خودم رو تو اون ساختم و ارتباط دادم به پروژه ، سوال من اینجاست که من وقتی این نرم افزار رو به اتمام برسونم برای اجرای اون تو یک سازمان به مشکل بر نمیخورم ؟ منظورم اینه که نوع SQL ای که استفاده میکنم و جداولی که از اونجا ارتباط دادم به برنامه بعدا که بخوام انتقالش بدم روی یک سیستم دیگه مشکل بر نمیخوره ؟
2-من یک کدی نوشتم به این شرح برای چک کردن نام کاربری و رمز عبور :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s1 = "data source=HAMED-PC;initial catalog=Hospital;integrated security=True;"
con = New SqlConnection(s1)
con.Open()
s2 = "select * from Login where UserName='" & txtUsername.Text & "'"
da = New SqlDataAdapter(s2, con)
da.Fill(ds, "Login")
If ds.Tables("Login").Rows.Count = 0 Then
MsgBox("Invalid UserName", MsgBoxStyle.Critical, "Dear User ")
Exit Sub
End If
dr = ds.Tables("Login").Rows.Item(0)
If Trim(dr.Item("Password")) <> txtPassword.Text Then
MsgBox("Invalid Password", MsgBoxStyle.Critical, "Dear User")
Exit Sub
End If
MsgBox("Welcome")
Form3.Show()
Me.Visible = False
End Sub
و این بخوبی داره کار میکنه ولی بعدا که بخوام انتقال بدم آیا این قسمت data source=HAMED-PC برام مشکل ساز نمیشه ؟ چون همه جا که اسم سرور این نیست ، درسته ؟
3- یک قست دارم برای ویرایش رمز عبور و کدی که نوشتم اینطوریه ولی ایراد داره چون تو دیتابیس میره و یک خط جدید ایجاد میکنه ، چطور باید تعریف کنم که نام کاربری که وارد شده تو Textbox1 رو بره تو دیتابیس پیدا کنه و فقط پسورد اون رو ویرایش کنه ؟
Dim con As New SqlConnection()
con.ConnectionString = "server=HAMED-PC;database=Hospital;Integrated security=yes"
con.Open()
Dim com As New SqlCommand()
com.Connection = con
Dim sql As String
sql = "UPDATE Login SET(UserName,Password) VALUES ('{0}','{1}')"
sql = String.Format(sql, txtUsername.Text, txtNewPassword.Text)
com.CommandText = sql
'com.ExecuteNonQuery()
MsgBox("SAVED")
ممنون و باتشکر