【導讀】航班售票管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要。包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。性，實現(xiàn)數(shù)據(jù)共享；同時也能夠提高工作人員的素質(zhì)。操作過程中達到直觀、方便、實用、安全等要求。一個正常營運的航班售票需要管理所擁有的飛。面對各種不同種類的信息，需要合理的數(shù)據(jù)庫結(jié)構(gòu)。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成。艙座位數(shù)量、頭等艙座位數(shù)量以及備注信息等。客戶等級名稱、折扣比例和備注信息等。

　　

【正文】 t 0 The n f r mP la ne 1. t xt SQ L = s e le c t * f r o m p la ne I n f o w he r e p la ne N O =39。 amp。 Tr im( ms gL is t. Te x tMa t r ix( intC o un t, 1) ) amp。 39。 f r mP la ne 1. Show 1 Els e Ms gB o x 警告 , v bO K O n ly + v bE xc la ma t io n , 請 首 先 選 擇 需 要 修改的紀錄！ End I f End I f End Sub P r iva te Sub C omma nd3_ C lic k( ) f r mP la ne 2. Show 1 End Sub 33 P r iva te Sub For m_ Loa d( ) Show Tit le Show D a ta End Sub P r iva te Sub For m_ R e s ize ( ) I f Me . Win dow Sta te vb M in im ize d A n d f Ma inF or m. Win d ow Sta te vbMinim ize d The n I f Me . Sc a le H e ight 10 * lblTit le . H e ig ht The n Exit Sub End I f I f Me . Sc a le Width lblTit le . Widt h + lblTit le . Widt h / 2 The n Exit Sub End I f lblTit le . To p = lblTit le . H e ig ht lblTit le . Le f t = ( Me . Width lblTit le . Wid th) / 2 ms gLis t. Top = lblTit le . To p + lblTit le . H e igh t + lblTit le . H e igh t / 2 ms gLis t. Widt h = Me . Sc a le Width 200 ms gLis t. Le f t = Me . Sc a le Le f t + 100 ms gLis t. H e ig ht = Me . Sc a le H e ight ms gLis t. Top 1500 Fr a me 2. Top = ms gLis t. Top + ms gLis t. H e ig ht + 50 Fr a me 2. Le f t = Me . Sc a le Widt h / 2 3000 End I f End Sub P ublic Sub For mC los e ( ) U nloa d Me End Sub P r iva te Sub Show D a ta ( ) D im j A s I nte ge r D im i A s I nte ge r D im Ms gTe xt A s Str ing Se t mr c = Exe c ute SQ L( txtSQ L , Ms gTe xt) With ms gLis t . R ow s = 1 D o While N ot mr c . EO F . R ow s = . R ow s + 1 For i = 1 To mr c . Fie lds . C o u nt I f N ot I s N ull( Tr im( mr c . F ie lds ( i 1) ) ) The n Se le c t C a s e mr c . Fie lds ( i 1) . Type C a s e a dD B D a te . Te xtMa tr ix( . R ow s 1 , i) = F or ma t( mr c . F ie lds ( i 1) amp。 , yyyy mm d d ) C a s e Els e . Te xtMa tr ix( . R ow s 1, i) = mr c . Fie lds ( i 1) amp。 End Se le c t 34 End I f N e xt i mr c . Move N e xt Loop End With mr c . C los e End Sub P r iva te Sub Show Tit le ( ) Dim i A s I nte ge r With ms gLis t . C ols = 9 . Te xtMa tr ix( 0, 1) = 客機編號 . Te xtMa tr ix( 0, 2) = 客機型號 . Te xtMa tr ix( 0, 3) = 購買時間 . Te xtMa tr ix( 0, 4) = 服役時間 . Te xtMa tr ix( 0, 5) = 經(jīng)濟艙座位數(shù)量 . Te xtMa tr ix( 0, 6) = 公務艙座位數(shù)量 . Te xtMa tr ix( 0, 7) = 頭等艙座位數(shù)量 . Te xtMa tr ix( 0, 8) = 備注信息 . Fixe dR ow s = 1 For i = 0 To 8 . C olA lig n me n t( i) = 0 N e xt i . FillSty le = f le xFillR e pe a t . C ol = 0 . R ow = 0 . R ow Se l = 1 . C olSe l = . C ols 1 . C e llA lign me n t = 4 . C olWidth ( 0) = 1000 . C olWidth ( 1) = 1000 . C olWidth ( 2) = 1000 . C olWidth ( 3) = 1000 . C olWidth ( 4) = 1000 . C olWidth ( 5) = 1500 . C olWidth ( 6) = 1500 . C olWidth ( 7) = 1500 . C olWidth ( 8) = 3000 . R ow = 1 End With End Sub P r iva te S ub ms gL is t_ M ous e U p( B utt o n A s I n te ge r , Sh if t A s I nte ge r , x A s S ing le , y A s Single ) I f B utton = 2 A nd Shif t = 0 The n 35 End I f End Sub 客 機 信 息 窗體 代 碼 ： O ption Explic it D im mblC ha nge A s B oole a n D im mr c A s A D O D B . R e c or ds e t P ublic txtSQ L A s Str ing P r iva te Sub c mdExit_ C lic k( ) I f mblC ha nge A nd c mdSa ve . Ena ble d The n I f Ms gB o x( 保 存 當 前 記 錄 的 變 化 嗎 ？ , v bO K C a nc e l + v bE xc la ma t ion , 警告 ) = vbO K The n C a ll c mdSa ve _ C lic k End I f End I f U nloa d Me End Sub P r iva te Sub c mdSa ve _ C lic k ( ) D im intC ount A s I nte ge r D im s Me g A s Str ing D im Ms gTe xt A s Str ing For intC ount = 0 To 6 I f Tr im( txtI te m( in tC ou nt) amp。 ) = The n Se le c t C a s e intC ount C a s e 0 s Me g = 客機編號 C a s e 1 s Me g = 客機型號 C a s e 2 s Me g = 購買時間 C a s e 3 s Me g = 服役時間 C a s e 4 s Me g = 經(jīng)濟艙座位數(shù)量 C a s e 5 s Me g = 公務艙座位數(shù)量 C a s e 6 s Me g = 頭等艙座位數(shù)量 End Se le c t s Me g = s Me g amp。 不能為空！ Ms gB ox s Me g, vbO K O nly + vbExc la ma tio n , 警告 txtI te m( intC ou nt ) . Se t Foc us Exit Sub End I f 36 N e xt intC ount For intC ount = 4 To 6 I f N ot I s N ume r ic ( Tr im( t xtI te m ( intC ou nt ) ) ) The n s Me g = 座位數(shù)量 s Me g = s Me g amp。 請輸入數(shù)字！ Ms gB ox s Me g, vbO K O nly + vbExc la ma tio n , 警告 txtI te m( intC ou nt ) . Se t Foc us End I f N e xt intC ount For intC ount = 2 To 3 I f I s D a te ( txtI te m( intC o un t) ) The n txtI te m( intC ou nt ) = For ma t( txtI te m( int C o u nt)