【正文】 } int j=i。if(CheckTime([i].hour,[i].minitues,tmtm_hour,tmtm_min)==true){coutsystem(“pause”)。//獲取當(dāng)前系統(tǒng)時間tm=localtime(amp。struct tm *tm。//任意鍵繼續(xù)return。iif(strcmp([i].num,s)==0)break。//清屏couts。char s[20]。t)。t=time(NULL)。time_t t。//清屏cout所有航班信息如下：”起飛時間起點終點經(jīng)濟(jì)艙票價剩余座位備注”for(int i=0。} elsereturn false。else if(h1==h2){if(m1return true。char filename[]=“”。//菜單}。// 信息查詢void search2()。//售票void back()。//錄入信息void show()。~flight()。//航班總數(shù)int lenp。//每個元素對應(yīng)一條信息Order psg[N]。//訂票數(shù)量 }Order。//乘客姓名char num[10]。//剩余座位 }FLIGHT。//終點float prize。//起飛時間分鐘char start[10]。// 航班號int hour。)“ (con)MsgBox(”添加成功！)End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As )Handles ()End Sub Private Sub 添加用戶_Load(ByVal sender As , ByVal e As )Handles ct = 0 End SubEnd Class第二篇：航空售票管理系統(tǒng)include include include include include define N 100 using namespace std。,39。,39。,39?！?ds = (con)Try If((0). 0)Then = (0).Rows(0)If (”id“) ”“ Then MsgBox(”已存在用戶！“)()()()()()signe = 0 End If End If Catch ex As Exception ()End Try If( )Then (”密碼不一致，請重新確認(rèn)“, ”提示“)()()()signe = 0 End If If Trim()= ”“ Then MsgBox(”用戶名不能為空！“)Exit Sub ()ElseIf(signe = 1)Then con = ”insert into users values(39。 = New (6, 14) = New (392, 270)()()()()()()()()()() = CType((”$“), ) = ”添加用戶“ = = ”添加用戶“ (False)()End Sub End Region Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles ()Dim con As String Dim user, name As String Dim pw1, pw2 As String Dim ds As DataSet Dim signe As Integer = 1 user = name = pw1 = pw2 = con = ”select * from users where id=39。Button2 = New (”宋體“, !, , , CType(134, Byte)) = New (240, 208) = ”Button2“ = New (88, 40) = 9 = ”取消“ 39。Button1 39。TextBox4 = New (224, 168) = ”TextBox4“ = (42) = New (100, 21) = 739。TextBox2 = New (224, 72) = ”TextBox2“ = New (100, 21) = 5 39。Label4 = New (”宋體“, !, , , CType(134, Byte)) = New (55, 168) = ”Label4“ = New (100, 23) = 3 = ”確認(rèn)密碼“ 39。Label2 = New (”宋體“, !, , , CType(134, Byte)) = New (55, 84) = ”Label2“ = New (100, 23) = 1 = ”姓名“ 39。 = New (”宋體“, !, , , CType(134, Byte)) = New (55, 33) = ”Label1“ = New (100, 23) = 0 = ”用戶名“ 39。Friend WithEvents Label1 As Friend WithEvents Label2 As Friend WithEvents Label3 As Friend WithEvents Label4 As Friend WithEvents TextBox1 As Friend WithEvents TextBox2 As Friend WithEvents TextBox3 As Friend WithEvents TextBox4 As Friend WithEvents Button1 As Friend WithEvents Button2 As Private Sub InitializeComponent()Dim resources As = New (GetType(添加用戶)) = New = New = New = New = New = New = New = New = New = New ()39。39。注意: 以下過程是Windows 窗體設(shè)計器所必需的39。Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)If disposing Then If Not(ponents Is Nothing)Then ()End If End If (disposing)End Sub39。在InitializeComponent()調(diào)用之后添加任何初始化End Sub 39。該調(diào)用是Windows 窗體設(shè)計器所必需的?！?+ am + ”39?！?+ fp + ”39?！?+ cap + ”39?！?+ cp + ”39?！?+ pno + ”39?！?+ at + ”39?！?+ dt + ”39?！?+ dd + ”39。“ + ac + ”39?！?+ dc + ”39?！?+ ano + ”39。“ + + ”39?！?+ + ”39。航線信息39。Button2 = New (”宋體“, !, , , CType(134, Byte)) = New (280, 360) = ”Button2“ = New (104, 40) = 2 = ”返回“ 39。Button1 39。 = New (24, 77) = ”Label1“ = New (88, 24) = 0 = ”出發(fā)城市“39。Label2 = New (270, 80) = ”Label2“ = New (100, 23) = 1 = ”到達(dá)城市“ 39。Label339。Label5 = New (24, 131) = ”Label5“ = New (100, 23) = 4 = ”出發(fā)時間“ 39。Label7 = New (270, 185) = ”Label7“ = New (100, 23) = 6 = ”經(jīng)濟(jì)艙價格“ 39。Label9 = New (24, 240) = ”Label9“ = New (100, 23) = 8 = ”頭等艙價格“ 39。Label1039。39。 = New (376, 125) = ”TextBox3“ = New (100, 23) = 12 39。TextBox4 = New (128, 131) = ”TextBox4“ = New (100, 23) = 13 39。TextBox6 = New (376, 237) = ”TextBox6“ = New (100, 23) = 15 39。 = New (128, 272) = True = ”TextBox8“ = = New (336, 56) = 17 39。ComboBox1 = New (376, 29) = ”ComboBox1“ = New (104, 22) = 18 39。39。TextBox9 39。 = New (376, 182) = ”TextBox10“ = New (100, 23) = 22 39。39。GroupBox139。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。注意: 以下過程是Windows 窗體設(shè)計器所必需的39。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。在InitializeComponent()調(diào)用之后添加任何初始化End Sub 39。該調(diào)用是Windows 窗體設(shè)計器所必需的。 ”39?！?amp?！?Dim objconn1 As New SqlConnection(conn)39。12339。User ID=sa。“ ()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 退票Priv