航空售票系統(tǒng)實施報告.doc

1、.航空售票管理系統(tǒng)實施報告word 資料.組員：目錄第一章引言 41.1 編寫目的41.2 參考文獻41.3 術(shù)語和縮寫詞4第二章軟件概述52.1 軟件用途52.2 軟件運行52 .3系統(tǒng)配置72 .4軟件結(jié)構(gòu)82 .5軟件性能82 .6輸入、處理、輸出92.6.1 輸入 92.6.2 輸出 9第三章軟件使用過程103.1 軟件安裝103.2 運行步驟10word 資料.3.3 運行說明103.3.1 控制輸入 103.3.2 管理信息 103.4.3 輸入輸出文件103.4.4 輸出報告 103.5 出錯處理103.6 非常規(guī)過程11第四章軟件維護過程124.1 程序設(shè)計的約定124.2 出

2、錯及糾正方法124.3 專用維護程序124.4 源程序清單 12word 資料.第一章引言1.1 編寫目的開發(fā)目標：開發(fā)出一個操作簡便，界面友好，靈活實用，安全可靠，功能齊全的的航空售票管理信息系統(tǒng)。航空售票管理信息系統(tǒng)對航空相關(guān)單位進行包括機票訂購在的許多信息管理有著極其重要的作用，就一般的實用軟件來說，它的設(shè)計容繁多、功能重疊、操作復雜，比如訂票和修改票務信息某些功能模塊重疊等。 本開發(fā)小組正是通過廣泛調(diào)研， 對同類的相關(guān)系統(tǒng)掌握了一定的資料的基礎(chǔ)上， 制定開發(fā)出來的。 為了更好的完善本系統(tǒng)， 在實施管理階段特制定本實施報告，以求徹底完善本系統(tǒng)。1.2 參考文獻1 翼英等 Visual B

3、asic課程設(shè)計清華大學出版日期 :2008-12 信息系統(tǒng)開發(fā)方法清華大學旭平1.3 術(shù)語和縮寫詞在本文檔中，所有專門術(shù)語的定義以及縮寫詞的原意如下： 程序流程圖：word 資料.程序流程圖又稱程序框圖， 獨立于任何一種設(shè)計語言， 比較直觀和清晰的描述了過程的控制流程。 N-S 圖：N-S 圖是為了改變流程圖描述程序邏輯時過大的隨意性與靈活性，其規(guī)定了五種圖形構(gòu)建，包括：順序型，選擇型，while重復， until重復型，多分枝選擇型。 PAD圖：PAD圖是 problem analysis diagram的英文縮寫，是日本日立公司提出。它使用結(jié)構(gòu)化程序設(shè)計思想表現(xiàn)程序的邏輯結(jié)構(gòu)的圖形工具。

4、 PDL語言：PDL語言是 procedure design language的英文縮寫。PDL是所有非正文形式的過程設(shè)計工具的統(tǒng)稱。PDL具有“非純粹”的編寫語言的特點。第二章軟件概述2.1 軟件用途現(xiàn)在應用在大中型企業(yè)的管理信息系統(tǒng)中， 幾乎都包括了工資管理模塊。 有些環(huán)境中是由作為大型 ERP軟件中的一個模塊引進的， 有些是作為企業(yè)的財務系統(tǒng)的一部分。 這些根據(jù)規(guī)的西方的管理制度設(shè)計的工資管理軟件， 在很多時候還不能完全解決中國特色的中小企業(yè)的問題，本文介紹的就是要為高校解決他們在工資管理方面的問題， 主要實現(xiàn)系統(tǒng)用戶管理、員工基本信息管理、 工資標準設(shè)定以及工資結(jié)算和查詢等一般工資管理

5、系統(tǒng)應具有的主要功能，以便完成課程實踐的目的。2.2 軟件運行學生成績管理系統(tǒng)主要有：登陸界面、員工信息管理，工資標準管理主要運行如下所示：a :登陸界面word 資料.輸入、密碼，點擊登陸界面顯示圖b :航線信息界面word 資料.圖 2.5c : 機票信息界面圖 2.82 .3系統(tǒng)配置本軟件要求在PC 及其兼容機上運行，要求奔騰II以上 CPU， 64 兆以上存， 10G 以word 資料.上硬盤。軟件需要有WINDOWS 7操作系統(tǒng)環(huán)境。2 .4軟件結(jié)構(gòu)航空售票管理系統(tǒng)的結(jié)構(gòu)圖如下：航空訂票管理系統(tǒng)訂客航票戶線系信信信統(tǒng)息息息管管管管理理理理客客航訂訂添戶戶線客艙票票加基類基機位密用信信

6、訂本別本信信碼戶息息票信信信息息管管查修信息息息管管理理詢改息管管管理理理理理客 客 客客客航 航 航客客客艙艙戶 戶戶 戶 戶類 類線 線 線機機機位位信 信 信別 別信 信 信信信信信信息 息 息信 信息 息 息息息息息息查 修 添息 息查 修 添查修添修添詢 改 加修 添詢 改 加詢改加改加改加圖 2.122 .5軟件性能A: 用戶管理模塊能在普通用戶與管理員之間加以區(qū)分，分別實現(xiàn)其對應的功能，方法簡單，性能較好。B: 查詢模塊中我們對教職工按照和工號兩種方法進行查詢，有效的考慮了重名的各種情況，達到一定的性能指標。C:工資模塊：我們將職稱工資管理和其他工資管理等幾種情況word 資料.

7、D:密碼管理： 我們起初編寫了一份密碼表， 只有按照密碼表上的輸入才能對工資管理系統(tǒng)進行相關(guān)操作，性能較好。2 .6輸入、輸出2.6.1 輸入本系統(tǒng)采用文本文框進行信息的輸入以及成績的輸入。我們將創(chuàng)建模塊，顯示模塊，存盤功能模塊，讀入功能模塊，統(tǒng)計功能模塊等的輸入項2.6.2 輸出本系統(tǒng)采用文本文框進行信息的輸出以及成績的輸出。我們將創(chuàng)建模塊，顯示模塊，存盤功能模塊，讀入功能模塊，統(tǒng)計功能模塊等的輸出項word 資料.第三章軟件使用過程3.1 軟件安裝本系統(tǒng)采用進行設(shè)計與實現(xiàn)，完成設(shè)計后進行發(fā)布就可以在沒有安裝環(huán)境的計算機中使用，安裝方便簡潔，只需要在安裝的計算機中添加數(shù)據(jù)庫即可。3.2 運行

8、步驟首先選擇要登錄的角色，然后進入相應的界面進行操作。3.3 運行說明對于本系統(tǒng)我們設(shè)計時進行了權(quán)限的分配，比如普通用戶登陸后只能進行自己工資的查詢而不能進行工資的修改，管理員登陸后既可以進行查詢又可以進行修改。3.3.1 控制輸入按照軟件的說明，將測試數(shù)據(jù)加入到軟件中3.3.2 管理信息軟件運行過程中的密碼鍵入：通過文本框進行輸入。3.4.3 輸入輸出文件軟件運行過程過文本框進行文件的輸入輸出。3.4.4 輸出報告若輸入要輸出的條件正確的話會彈出相應的提示框提示是否成功或者正確等。3.5 出錯處理軟件運行過程中可能雛形的出物及處理如下：（ 1）輸入信息出錯在數(shù)據(jù)庫找不到輸入的信息，輸入信息有

9、誤，導致操作失敗。（ 2）出錯處理對策檢查重新輸入的信息是否符合要求。word 資料.（3）數(shù)據(jù)庫連接錯誤這類錯誤主要是數(shù)據(jù)庫設(shè)置不正確，或 sql server 異常引起的，我們只要取消本次操作，提醒用戶檢查數(shù)據(jù)庫問題就可。3.6 非常規(guī)過程如果出現(xiàn)不可能處理的問題，可以直接與公司的技術(shù)支持人員聯(lián)系。word 資料.第四章軟件維護過程4.1 程序設(shè)計的約定本軟件程序是一個單一的運行軟件，各個軟件子模塊的預定如下：航空售票管理系統(tǒng)主要以管理航空售票信息為目的，設(shè)置了嚴密的權(quán)限管理。用戶管理：設(shè)置了權(quán)限管理功能查詢管理：包括查詢航線和航班等基本信息?？梢燥@示單獨一條記錄，也可以顯示所有信息。更新

10、管理：當有需要時，管理員可以進行工資和信息的刪除操作密碼管理：管理員和個人可以根據(jù)需求修改密碼。4.2 出錯及糾正方法可能由于輸入的數(shù)據(jù)不符合軟件的要求，軟件將可能提出錯誤，并提醒您按照軟件的要求運行程序；可能出現(xiàn)的問題如下： 若輸入密碼格式不對，應提示：您輸入的密碼錯誤。4.3 專用維護程序本軟件提供您一個專用維護軟件，以便在軟件出現(xiàn)意想不到的問題時可以使您迅速發(fā)現(xiàn)您在軟件運行時的失誤，保證您的分析結(jié)果不會受到損失，盡管您的軟件可能永遠不會出現(xiàn)使用維護本軟件的時候， 希望您在使用分析 錯誤！ 未找到索引項。 軟件的時候， 可以瀏覽以下本軟件的使用。軟件的使用如下：A: 輸入正確的用戶名與密碼

11、登陸。B：若是普通用戶，請選擇登陸普通用戶界面。C：若是管理員，請選擇登陸管理員界面。4.4 源程序清單登錄界面代碼：ImportsSystem.DataImportsSystem.Data.SqlClientPublicClass登錄InheritsSystem.Windows.Forms.FormDim countAs Integer= 0word 資料.Dim my_classAs Newclass1#Region Windows窗體設(shè)計器生成的代碼PublicSub New()MyBase.New() 該調(diào)用是 Windows 窗體設(shè)計器所必需的。InitializeComponent

12、() 在 InitializeComponent()調(diào)用之后添加任何初始化End Sub 窗體重寫 dispose 以清理組件列表。ProtectedOverloadsOverridesSub Dispose( ByVal disposingAs Boolean )IfdisposingThenIfNot (componentsIsNothing ) Thencomponents.Dispose()End IfEnd IfMyBase.Dispose(disposing)End SubWindows 窗體設(shè)計器所必需的PrivatecomponentsAs System.ComponentMo

13、del.IContainer 注意 : 以下過程是 Windows 窗體設(shè)計器所必需的 可以使用 Windows 窗體設(shè)計器修改此過程。 不要使用代碼編輯器修改它。FriendWithEventsButton2As System.Windows.Forms.ButtonFriendWithEventsButton1As System.Windows.Forms.ButtonFriendWithEventsTextBox2As System.Windows.Forms.TextBoxFriendWithEventsTextBox1As System.Windows.Forms.TextBoxFr

14、iendWithEventsLabel3As System.Windows.Forms.LabelFriendWithEventsLabel2As System.Windows.Forms.LabelFriendWithEventsLabel1As System.Windows.Forms.LabelPrivate Sub InitializeComponent()Dim resourcesAs System.ComponentModel.ComponentResourceManager = NewSystem.ComponentModel.ComponentResourceManager(G

15、etType( 登錄 )Me.Button2 =NewSystem.Windows.Forms.ButtonMe.Button1 =NewSystem.Windows.Forms.ButtonMe.TextBox2 =NewSystem.Windows.Forms.TextBoxMe.TextBox1 =NewSystem.Windows.Forms.TextBoxMe.Label3 =NewSystem.Windows.Forms.LabelMe.Label2 =NewSystem.Windows.Forms.LabelMe.Label1 =NewSystem.Windows.Forms.L

16、abelMe.SuspendLayout()Button2Me.Button2.Font= NewSystem.Drawing.Font( 宋體 , 12.0!,System.Drawing.FontStyle.Bold,System.Drawing.GraphicsUnit.Point,CType(134,Byte )Me.Button2.Location =New System.Drawing.Point(306, 299)word 資料.Me.Button2.Name =Button2Me.Button2.Size =New System.Drawing.Size(112, 32)Me.

17、Button2.TabIndex = 13Me.Button2.Text =取消Button1Me.Button1.Font= NewSystem.Drawing.Font( 宋體 , 12.0!, System.Drawing.FontStyle.Bold,System.Drawing.GraphicsUnit.Point,CType(134, Byte )Me.Button1.Location =New System.Drawing.Point(72, 299)Me.Button1.Name =Button1Me.Button1.Size =New System.Drawing.Size(

18、112, 32)Me.Button1.TabIndex = 12Me.Button1.Text =確定TextBox2Me.TextBox2.Location =NewSystem.Drawing.Point(208, 235)Me.TextBox2.Name =TextBox2Me.TextBox2.PasswordChar =Global .Microsoft.VisualBasic.ChrW(42)Me.TextBox2.Size =NewSystem.Drawing.Size(240, 21)Me.TextBox2.TabIndex = 11TextBox1Me.TextBox1.Lo

19、cation =NewSystem.Drawing.Point(208, 163)Me.TextBox1.Name =TextBox1Me.TextBox1.Size =NewSystem.Drawing.Size(240, 21)Me.TextBox1.TabIndex = 10Label3Me.Label3.Font= NewSystem.Drawing.Font( 宋體 , 12.0!,System.Drawing.FontStyle.Bold,System.Drawing.GraphicsUnit.Point,CType(134,Byte )Me.Label3.Location =Ne

20、wSystem.Drawing.Point(48, 234)Me.Label3.Name =Label3Me.Label3.Size =NewSystem.Drawing.Size(136, 22)Me.Label3.TabIndex = 9Me.Label3.Text =密碼 Label2Me.Label2.Font= NewSystem.Drawing.Font( 宋體 , 12.0!,System.Drawing.FontStyle.Bold,System.Drawing.GraphicsUnit.Point,CType(134,Byte )Me.Label2.Location =New

21、System.Drawing.Point(48, 163)Me.Label2.Name =Label2Me.Label2.Size =NewSystem.Drawing.Size(136, 21)Me.Label2.TabIndex = 8Me.Label2.Text =用戶名 Label1Me.Label1.BackColor = System.Drawing.SystemColors.ButtonHighlightMe.Label1.Font =NewSystem.Drawing.Font( 華文彩云 , 36.0!,System.Drawing.FontStyle.Regular, Sy

22、stem.Drawing.GraphicsUnit.Point,CType(134, Byte )Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaptionword 資料.Me.Label1.Location =NewSystem.Drawing.Point(55, 9)Me.Label1.Name =Label1Me.Label1.Size =NewSystem.Drawing.Size(393, 120)Me.Label1.TabIndex = 7Me.Label1.Text = 航空公司管理信息系統(tǒng) 登錄 Me.Au

23、toScaleBaseSize =NewSystem.Drawing.Size(6, 14)Me.BackgroundImage =CType(resources.GetObject($this.BackgroundImage),System.Drawing.Image)Me.ClientSize =NewSystem.Drawing.Size(504, 390)Me.Controls.Add(Me.Button2)Me.Controls.Add(Me.Button1)Me.Controls.Add(Me.TextBox2)Me.Controls.Add(Me.TextBox1)Me.Cont

24、rols.Add(Me.Label3)Me.Controls.Add(Me.Label2)Me.Controls.Add(Me.Label1)Me.Icon =CType(resources.GetObject($this.Icon), System.Drawing.Icon)Me.Name = 登錄 Me.Text =Form7Me.ResumeLayout( False )Me.PerformLayout()End Sub#End RegionPrivateSub Button1_Click(ByVal sender As System.Object,ByVal e As System.E

25、ventArgs)HandlesButton1.ClickDim userAs StringDim pw As StringDim temp1As StringDim temp2As StringDim conAs StringDim singeAs Integer= 1user = TextBox1.Textusername = TextBox1.Textpw = TextBox2.Textcon =select * from users where id=+ user + and password=+ pw +Dim dsAs NewDataSetds = class1.query(con

26、)TryIfds.Tables(0).Rows.Count 0Thenclass1.dr = ds.Tables(0).Rows(0)temp1 = class1.dr(0)temp2 = class1.dr(1)主窗口 .Show()word 資料.End IfCatch exAs ExceptionMessageBox.Show(ex.Message)End Trycon = insert into log(id) select id from permission where id= + temp1 + If (Trim(user) = Trim(temp1) And Trim(pw)

27、= Trim(temp2) And (user Or pw )Then Me.Hide() class1.insert(con) singe = 1ElseIf (user = And pw = ) ThenMessageBox.Show(用戶名和密碼為空！, 提示 ) TextBox1.Focus() singe = 0ElseIf (Trim(user) Trim(temp1) Or Trim(pw) Trim(temp2) ThenMessageBox.Show(沒有這個用戶或密碼錯誤，請重新輸入！, 提示 ) TextBox1.SelectAll() TextBox1.Focus()

28、singe = 0End Ifcount = count + 1If (count = 3 And singe = 0) ThenMessageBox.Show(三次錯誤，退出本系統(tǒng), 提示 ) End End IfEnd SubPrivateSub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)HandlesButton2.ClickEnd SubPrivateSub Form7_Load( ByVal senderAs System.Object,ByVal e As System.Event

29、Args)HandlesMyBase.Loadclass1.init()Label1.BackColor = Color.TransparentLabel2.BackColor = Color.TransparentLabel3.BackColor = Color.TransparentButton1.BackColor = Color.TransparentButton2.BackColor = Color.TransparentEnd SubEnd Class訂票界面代碼：PublicClass訂票PrivateSub Button1_Click(ByVal sender As Syste

30、m.Object,ByVal e As System.EventArgs)HandlesButton1.Clickword 資料.Dim iAs IntegerIfTextBox1.Text =Theni = MsgBox( 客戶號不能為空 , MsgBoxStyle.OkCancel, 警告 )ElseDim connAs String=data source=.;connect timeout=5;UserID=sa;Password=123;initial catalog=Ticket;Dim objconn1As NewSqlConnection(conn)objconn1.Open(

31、)Dim 客戶號As New SqlParameter( 客戶號 , SqlDbType.Int, 4)Dim 客戶As NewSqlParameter( 客戶 , SqlDbType.Char, 10)Dim 起飛地As New SqlParameter( 起飛地 , SqlDbType.VarChar, 50)Dim 目的地As New SqlParameter( 目的地 , SqlDbType.VarChar, 50)Dim 票價As NewSqlParameter( 票價 , SqlDbType.Int, 4)Dim 飛行時間As NewSqlParameter( 飛行時間 , Sql

32、DbType.Int, 4)Dim 航空公司As NewSqlParameter( 航空公司 , SqlDbType.VarChar, 50)Dim strinAs Stringstrin =insert into flyernb(客戶號 , 客戶 , 起飛地 , 目的地 , 票價 , 飛行時間 , 航空公司 )values( 客戶號 , 客戶 , 起飛地 , 目的地 , 票價 , 飛行時間 , 航空公司 )Dim objcmd1As NewSqlCommand(strin, objconn1)objcmd1.Parameters.Add(客戶號 )objcmd1.Parameters.Add

33、(客戶 )objcmd1.Parameters.Add(起飛地 )objcmd1.Parameters.Add(目的地 )objcmd1.Parameters.Add(票價 )objcmd1.Parameters.Add(飛行時間 )objcmd1.Parameters.Add(航空公司 )客戶號 .Value = TextBox1.Text客戶 .Value = TextBox2.Text起飛地 .Value = ComboBox2.Text()目的地 .Value = ComboBox3.Text()票價 .Value = TextBox5.Text飛行時間 .Value = TextBo

34、x6.Text航空公司 .Value = ComboBox1.Textobjcmd1.ExecuteNonQuery()objconn1.Close()objcmd1.Dispose()MsgBox( 訂票成功 ! )TextBox1.Text =TextBox2.Text =TextBox5.Text =TextBox6.Text =ComboBox2.Text =ComboBox3.Text() =ComboBox1.Text() =word 資料.End IfEnd SubPrivateSub Button2_Click(ByVal sender As System.Object,ByV

35、al e As System.EventArgs)HandlesButton2.ClickMe.Close()End SubEnd Class退票界面代碼：PublicClass退票PrivateSub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)HandlesButton1.ClickDim iAs Integeri = MsgBox( 確定要退票嗎？ , MsgBoxStyle.OkCancel, 警告 )Ifi = MsgBoxResult.CancelThenClose()ElseDim

36、 connAs String=data source=.;connect timeout=300;UserID=sa;Password=123;initial catalog=Ticket;Dim objconn1As NewSqlConnection(conn)objconn1.Open()Dim strsqlAs String= delete from flyernb where客戶號 =& Trim(TextBox1.Text)& objconn1.Open()Dim objcmdAs New SqlCommand(strsql, objconn1)objcmd.ExecuteNonQu

37、ery()objconn1.Close()objcmd.Dispose()MsgBox( 刪除成功 ! )TextBox1.Text =End IfEnd SubPrivateSub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)HandlesButton2.ClickMe.Close()End SubEnd Class用戶權(quán)限設(shè)置代碼：PublicClass退票PrivateSub Button1_Click(ByVal sender As System.Object,ByVal e As Sy

38、stem.EventArgs)HandlesButton1.ClickDim iAs Integeri = MsgBox( 確定要退票嗎？ , MsgBoxStyle.OkCancel, 警告 )word 資料.Ifi = MsgBoxResult.CancelThenClose()ElseDim connAs String=data source=.;connect timeout=300;UserID=sa;Password=123;initial catalog=Ticket;Dim objconn1As NewSqlConnection(conn)objconn1.Open()Dim

39、strsqlAs String= delete from flyernb where客戶號 =& Trim(TextBox1.Text)& objconn1.Open()Dim objcmdAs New SqlCommand(strsql, objconn1)objcmd.ExecuteNonQuery()objconn1.Close()objcmd.Dispose()MsgBox( 刪除成功 ! )TextBox1.Text =End IfEnd SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As S

40、ystem.EventArgs) Handles Button2.ClickMe.Close()End SubEnd Class航線信息代碼：PublicClass航線信息InheritsSystem.Windows.Forms.Form#Region Windows窗體設(shè)計器生成的代碼PublicSub New()MyBase.New() 該調(diào)用是 Windows 窗體設(shè)計器所必需的。InitializeComponent() 在 InitializeComponent()調(diào)用之后添加任何初始化End Sub 窗體重寫 dispose 以清理組件列表。ProtectedOverloadsOv

41、erridesSub Dispose( ByVal disposingAs Boolean )IfdisposingThenIfNot (componentsIsNothing ) Thencomponents.Dispose()End IfEnd IfMyBase.Dispose(disposing)End SubWindows 窗體設(shè)計器所必需的word 資料.PrivatecomponentsAs System.ComponentModel.IContainer 注意 : 以下過程是 Windows 窗體設(shè)計器所必需的 可以使用 Windows 窗體設(shè)計器修改此過程。 不要使用代碼編輯器修改它。FriendWithEventsGroupBox1As System.Windows.Forms.GroupBoxFriendWithEventsLabel1As System.Windows.Forms.LabelFriendWi