【文章內(nèi)容簡介】 nd Sub End Region Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim user As String Dim pw As String Dim temp1 As String Dim temp2 As String Dim con As String Dim singe As Integer = 1 user = username = pw = con = “select * from users where id=39?！?+ user + “39。 and password=39。” + pw + “39?！?Dim ds As New DataSet ds = (con)Try If (0). 0 Then = (0).Rows(0)temp1 = (0)temp2 = (1)()End If Catch ex As Exception ()End Try 39。con = “insert into log(id)select id from permission where id=39?！?+ temp1 + “39?！?39。If(Trim(user)= Trim(temp1)And Trim(pw)= Trim(temp2)And(user “ Or pw ”“))Then 39。 ()39。 (con)39。 singe = 1 39。ElseIf(user = ”“ And pw = ”“)Then 39。 (”用戶名和密碼為空！“, ”提示“)39。 ()39。 singe = 0 39。ElseIf(Trim(user) Trim(temp1)Or Trim(pw) Trim(temp2))Then 39。 (”沒有這個(gè)用戶或密碼錯(cuò)誤，請重新輸入！“, ”提示“)39。 ()39。 ()39。 singe = 0 39。End If 39。count = count + 1 39。If(count = 3 And singe = 0)Then 39。 (”三次錯(cuò)誤，退出本系統(tǒng)“, ”提示“)39。 End 39。End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As )Handles End Sub Private Sub Form7_Load(ByVal sender As , ByVal e As )Handles () = = = = = End Sub End Class 訂票界面代碼：Public Class 訂票Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim i As Integer If = ”“ Then i = MsgBox(”客戶號不能為空“, , ”警告“)Else Dim conn As String = ”data source=.。connect timeout=5。User ID=sa。Password=39。12339。initial catalog=Ticket。“ Dim objconn1 As New SqlConnection(conn)()Dim 客戶號 As New SqlParameter(”@客戶號“, , 4)Dim 客戶姓名 As New SqlParameter(”@客戶姓名“, , 10)Dim 起飛地 As New SqlParameter(”@起飛地“, , 50)Dim 目的地 As New SqlParameter(”@目的地“, , 50)Dim 票價(jià) As New SqlParameter(”@票價(jià)“, , 4)Dim 飛行時(shí)間 As New SqlParameter(”@飛行時(shí)間“, , 4)Dim 航空公司 As New SqlParameter(”@航空公司“, , 50)Dim strin As String strin = ”insert into flyernb(客戶號,客戶姓名,起飛地,目的地,票價(jià),飛行時(shí)間,航空公司)values(@客戶號,@客戶姓名,@起飛地,@目的地,@票價(jià),@飛行時(shí)間,@航空公司)“ Dim objcmd1 As New SqlCommand(strin, objconn1)(客戶號)(客戶姓名)(起飛地)(目的地)(票價(jià))(飛行時(shí)間)(航空公司) = = = () = () = = = ()()()MsgBox(”訂票成功!“) = ”“ = ”“ = ”“ = ”“ = ”“ ()= ”“ ()= ”“ End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class 退票界面代碼：Public Class 退票Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim i As Integer i = MsgBox(”確定要退票嗎？“, , ”警告“)If i = Then Close()Else Dim conn As String = ”data source=.。connect timeout=300。User ID=sa。Password=39。12339。initial catalog=Ticket?！?Dim objconn1 As New SqlConnection(conn)39。()Dim strsql As String = ”delete from flyernb where 客戶號=39?！?amp。 Trim()amp。 ”39?！?()Dim objcmd As New SqlCommand(strsql, objconn1)()()()MsgBox(”刪除成功!“) = ”“ End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class 用戶權(quán)限設(shè)置代碼：Public Class 退票Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim i As Integer i = MsgBox(”確定要退票嗎？“, , ”警告“)If i = Then Close()Else Dim conn As String = ”data source=.。connect timeout=300。User ID=sa。Password=39。12339。initial catalog=Ticket。“ Dim objconn1 As New SqlConnection(conn)39。()Dim strsql As String = ”delete from flyernb where 客戶號=39?！?amp。 Trim()amp。 ”39。“ ()Dim objcmd As New SqlCommand(strsql, objconn1)()()()MsgBox(”刪除成功!“) = ”“ End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class 航線信息代碼：Public Class 航線信息Inherits Region ” Windows 窗體設(shè)計(jì)器生成的代碼“ Public Sub New()()39。該調(diào)用是Windows 窗體設(shè)計(jì)器所必需的。InitializeComponent()39。在InitializeComponent()調(diào)用之后添加任何初始化End Sub 39。窗體重寫dispose 以清理組件列表。Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)If disposing Then If Not(ponents Is Nothing)Then ()End If End If (disposing)End Sub 39。Windows 窗體設(shè)計(jì)器所必需的Private ponents As 39。注意: 以下過程是Windows 窗體設(shè)計(jì)器所必需的39。可以使用Windows 窗體設(shè)計(jì)器修改此過程。39。不要使用代碼編輯器修改它。Friend WithEvents GroupBox1 As Friend WithEvents Label1 As Friend WithEvents Label2 As Friend WithEvents Label3 As Friend WithEvents Label4 As Friend WithEvents Label5 As Friend WithEvents Label6 As Friend WithEvents Label7 As Friend WithEvents Label8 As Friend WithEvents Label9 As Friend WithEvents Label10 As Friend WithEvents TextBox1 As Friend WithEvents TextBox2 As Friend WithEvents TextBox3 As Friend WithEvents TextBox4 As Friend WithEvents TextBox5 As Friend WithEvents TextBox6 As Friend WithEvents TextBox7 As Friend WithEvents TextBox8 As Friend WithEvents ComboBox1 As Friend WithEvents Button1 As Friend WithEvents Button2 As Friend WithEvents Label11 As Friend WithEvents TextBox10 As Friend WithEvents TextBox9 As Private Sub InitializeComponent()Dim resources As = New (GetType(航線信息)) = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New ()()39。39。GroupBox139。 ()()()()()()()()()()()()()()()()()()()()()() = New (”宋體“, !, , , CType(134, Byte)) = New (8, 8) = ”GroupBox1“ = New (488, 344) = 0 = False = ”航線信息“ 39。39。TextBox10 39。 = New (376, 182) = ”TextBox10“ = New (100, 23) = 22 39。39。TextBox9 39。 = New (128, 32) = ”TextBox9“ = New (100, 23) = 21 39。39。Label11 = New (24, 32) = ”Label11“ = New (100, 23) = 20 = ”航線編號“ 39。ComboBox1 = New (376, 29) = ”ComboBox1“ = New (104, 22) = 18 39。TextBox8 39。 = New (128, 272) = True = ”TextBox8“ = = New (336, 56) = 17 39。TextBox7 = New (130, 237) = ”TextBox7“ = New (100, 23) = 16 39。TextBox6 = New (376, 237) = ”TextBox6“ = New (100, 23) = 15 39。TextBox5 = New (128, 182) = ”TextBox5“ = New (100, 23) = 14 39。TextBox4 = New (128, 131) = ”TextBox4“ = New (100, 23) = 13 39。TextBox3 39。 = New (376, 125) = ”TextBox3“ = New (100, 23) = 12 39。TextBox2 = New (376, 72) = ”TextBox2“ = New (100, 23) = 1139。39。TextBox1 = New (128, 72) = ”TextBox1“ = New (100, 23) = 10 39。Label1039。 = New (24, 288) = ”Label10“ = New (88, 23) = 9 = ”備注信息“ 39。Label9 = New (24, 240) = ”Label9“ = New (100, 23) = 8 = ”頭等艙價(jià)格“ 39。Label8 = New (270, 237) = ”Label8“ = New (100, 23) = 7 = ”公務(wù)艙價(jià)格“ 39。Label7 = New (270, 185) = ”Label7“ = New (100, 23) = 6 = ”經(jīng)濟(jì)艙價(jià)格“ 39。Label6 = New (22, 185) = ”Label6“ = New (100, 23) = 5 = ”客機(jī)編號“ 39。Label5 = New (24, 131) = ”Label5“ = New (100, 23) = 4 = ”出發(fā)時(shí)間“ 39。Label4 = New (270, 128) = ”Label4“ = New (100, 23) = 3 = ”到達(dá)時(shí)間“ 39。Label339。 = New (270, 35) = ”Label3“ = New (100, 23) = 2 = ”航班日期“ 39。Label2 = New (270, 80) = ”Label2“ = New (100, 23) = 1 = ”到達(dá)城市“ 39。Label139。 = New (24, 77) = ”Label1“ = New (88, 24) = 0 = ”出發(fā)城市“39。39。Button1 39。 = New (”宋體“, !, , , CType(134, Byte)) = New (104, 360) = ”Button1“ = New (104, 40) = 1 = ”保存“ 39。Button2 = New (”宋體“, !, , , CType(134, Byte)) = New (280, 360) = ”Button2“ = New (104, 40) = 2 = ”返回“ 39。39。航線信息39。 = New (6, 14) = New (504, 414)()()() = CType((”$“), ) = ”航線信息“ = = ”航線信息“ (False)()(False)End Sub End Region Private Sub 航線信息_Load(ByVal sender As , ByVal e As )Handles ct = 31 ()()If(mytemp = 0)Then = ”添加“ Else = ”修改“ End If Dim ds As DataSet Dim con As String Dim count, i As Integer con = ”select * from airlineinfo“ ds = (con)count = (0). For i = 0 To count2 = (0).Rows(i)(Trim(CStr((”航班日期“))))Next End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim con As String Dim con1 As String Dim ano, dd, dt, at, pno, cp, cap, fp As String Dim dc, ac, am As String Dim signe As Integer = 1 ano = dc = ac = dd = pno = dt = at = cp = cap = fp = am = con = ”select * from airlineinfo where 航線編號=39?！?+ + ”39?！?Dim ds As DataSet Try ds = (con)Catch ex As Exception ()End Try Try If((0). 0 And mytemp = 0)Then = (0).Rows(0)If (”航線編號“) 0 Then MsgBox(”已存在該航線！“)()signe = 0 End If End If Catch ex As Exception ()End Try If = ”“ Then MsgBox(”航線編號不能為空！“)()El