如何将普通的UI程序转换为3TIER程序。 [英] how to convert normal UI Program to 3TIER Program.

问题描述

这是我的计划



form1程序：



Imports System.Net.Mail

Public Class CMS

Dim db As New database

Dim dt As New DataTable

Dim i As Integer = 0 < br $>
Private Sub addbutton_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理addbutton.Click

Dim addfrm As new add

addfrm.addbutton.Text =add

addfrm.ShowDialog（）

loadgrid（）

结束子

$ / $
Private Sub editbutton_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理editbutton.Click

如果不是yuvapriyagrid.SelectedRows.Count = 0那么

Dim addfrm As New add

addfrm.id = yuvapriyagrid.SelectedRows（0）.Cells（1）.Value.ToString

addfrm.Text =编辑员工

addfrm.addbutton.Text = 更新

addfrm.ShowDialog（）

loadgrid（）

否则

MsgBox（请选择一个行）＃b $ b结束如果

结束子



私有子删除按钮_Click（ByVal sender As System.Object， ByVal e As System.EventArgs）处理deletebutton.Click

如果不是yuvapriyagrid.SelectedRows.Count = 0那么

如果MsgBox（你确定要删除， vbYesNo，删除）= vbYes然后

Dim res As Boolean

res = db.executequery（从yuvapriya删除id ='& yuvapriyagrid.SelectedRows（0）.Cells（0）.Value.ToString& '）

如果res那么

MsgBox（删除成功）

否则

MsgBox（未删除）

结束如果

结束如果

否则

MsgBox（请选择一行）

结束如果

loadgrid（）

End Sub



Private Sub Form1_Load （ByVal sender As System.Object，ByVal e As System.EventArgs）处理MyBase.Load



loadgrid（）



结束次级



私人子载入网格（）

昏暗数据库作为新数据库

Dim dt作为New DataTable

dt = db.getdt（选择id，姓名，教育，年龄，[地址]，phonenum，邮政编码，来自yuvapriya的电子邮件）

yuvapriyagrid。 DataSource = dt

i = 0

每行在yuvapriya grid.Rows

yuvapriyagrid.Rows（i）.Cells（0）.Value =（1 + i）.ToString

i + = 1

下一页

End Sub



Private Sub searchbutton_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理searchbutton.Click

如果不是TextBox1.Text = String.Empty那么

Dim sql As String =select id，name，education，age，[address]，phonenum，postcode，Email来自yuvapriya，其中+ ComboBox1.SelectedItem.ToString +喜欢'％'+ TextBox1.Text +％'

dt = db.getdt（sql）

yuvapriyagrid .DataSource = dt

i = 0

For the row in yuvapriyagrid.Rows

yuvapriyagrid.Rows（i）.Cells（0）.Value =（1 + i）.ToString

i + = 1

下一页

否则

loadgrid（）

结束如果

结束Sub



Private Sub btnSendMail_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理btnSendMail.Click

Dim Msg As New MailMessage（）

'发件人电子邮件地址。

Msg.From =新邮件地址（[e-mail]）

'收件人的电子邮件地址。

消息。[收件人] .Add（yuvapriyagrid.SelectedRows（0）.Cells（Email）。Value.ToString）

Msg.Subject =Conformation mail

Msg.Body =Conformation mail
你的年龄是+ yuvapriyagrid.SelectedRows（0）.Cells（age）。Value.ToString +
你的地址是+ yuvapriyagrid.SelectedRows（0）.Cells（address）。Value.ToString

Msg.IsBodyHtml = True

'你的遥控器SMTP服务器IP。

Dim smtp As New SmtpClient（）

smtp.Host =smtp.gmail.com

smtp.Port = 587

smtp.Credentials =新的System.Net.NetworkCredential（[e-mail]，iyan）

smtp.EnableSsl = True

smtp.Send（Msg）

结束子

结束类

this is my program

form1 program:

Imports System.Net.Mail
Public Class CMS
Dim db As New database
Dim dt As New DataTable
Dim i As Integer = 0
Private Sub addbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addbutton.Click
Dim addfrm As New add
addfrm.addbutton.Text = "add"
addfrm.ShowDialog()
loadgrid()
End Sub

Private Sub editbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles editbutton.Click
If Not yuvapriyagrid.SelectedRows.Count = 0 Then
Dim addfrm As New add
addfrm.id = yuvapriyagrid.SelectedRows(0).Cells(1).Value.ToString
addfrm.Text = "Edit Employee"
addfrm.addbutton.Text = "update"
addfrm.ShowDialog()
loadgrid()
Else
MsgBox("Please select a row")
End If
End Sub

Private Sub deletebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletebutton.Click
If Not yuvapriyagrid.SelectedRows.Count = 0 Then
If MsgBox("Are you sure you want to delete", vbYesNo, "Delete") = vbYes Then
Dim res As Boolean
res = db.executequery("Delete from yuvapriya where id = '" & yuvapriyagrid.SelectedRows(0).Cells(0).Value.ToString & "'")
If res Then
MsgBox("Deleted successfully")
Else
MsgBox("Not Deleted")
End If
End If
Else
MsgBox("Please select a row")
End If
loadgrid()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

loadgrid()

End Sub

Private Sub loadgrid()
Dim db As New database
Dim dt As New DataTable
dt = db.getdt("select id, name, education, age,[address], phonenum, postcode, Email from yuvapriya")
yuvapriyagrid.DataSource = dt
i = 0
For Each row In yuvapriyagrid.Rows
yuvapriyagrid.Rows(i).Cells(0).Value = (1 + i).ToString
i += 1
Next
End Sub

Private Sub searchbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchbutton.Click
If Not TextBox1.Text = String.Empty Then
Dim sql As String = "select id, name, education, age,[address], phonenum, postcode,Email from yuvapriya where " + ComboBox1.SelectedItem.ToString + " like '%" + TextBox1.Text + "%'"
dt = db.getdt(sql)
yuvapriyagrid.DataSource = dt
i = 0
For Each row In yuvapriyagrid.Rows
yuvapriyagrid.Rows(i).Cells(0).Value = (1 + i).ToString
i += 1
Next
Else
loadgrid()
End If
End Sub

Private Sub btnSendMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendMail.Click
Dim Msg As New MailMessage()
'Sender e-mail address.
Msg.From = New MailAddress("[e-mail]")
'Recipient e-mail address.
Msg.[To].Add(yuvapriyagrid.SelectedRows(0).Cells("Email").Value.ToString)
Msg.Subject = "Conformation mail"
Msg.Body = "Conformation mail
your age is " + yuvapriyagrid.SelectedRows(0).Cells("age").Value.ToString + "
your address is " + yuvapriyagrid.SelectedRows(0).Cells("address").Value.ToString
Msg.IsBodyHtml = True
'your remote SMTP server IP.
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential("[e-mail]", "iyan")
smtp.EnableSsl = True
smtp.Send(Msg)
End Sub
End Class

推荐答案

无法直接完成。

你需要改写。你可以重用一些查询代码和东西，但否则会有一些重新设计。

It cannot be done directly.
You will need to rewrite. You can probably reuse some of the query code and stuff but otherwise there will be some redesign.

这篇关于如何将普通的UI程序转换为3TIER程序。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！