plane.cls

本系统包括用户管理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Plane"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Pid Int 飞机编号
'2 AirCom  Varchar 50  航空公司
'3 Pno Varchar 20  航班号
'4 Sairport  Varchar 40  起飞机场
'5 Eairport  Varchar 40  抵达机场
'6 Stime Varchar 40  起飞时间
'7 Etime Varchar 40  抵达时间
'8 Price1  Decimal 7,2 公布票价
'9 Price2  Decimal 7,2 折扣票价
'10  Cycle Char 7  飞机航期，其7个字符，代表一周中的7天。出现在字符串中的数字表示周几有航班。例如，1245表示每周1、周2、周4、周5有航班
'11  Input_time  Char 17 录入日期和时间

Public Pid As Long
Public AirCom As String
Public Pno As String
Public Sairport As String
Public Eairport As String
Public Stime As String
Public Etime As String
Public Price1 As Single
Public Price2 As Single
Public Cycle As String
Public Input_time As String

Public Sub Init()
  Pid = 0
  AirCom = ""
  Pno = ""
  Sairport = ""
  Eairport = ""
  Stime = ""
  Etime = ""
  Price1 = 0
  Price2 = 0
  Cycle = 0
  Input_time = ""
End Sub

Public Sub Delete(ByVal TmpPid As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM plane WHERE Pid=" + Trim(TmpPid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
End Sub

Public Function GetInfo(ByVal TmpPid As Long) As Boolean
  Pid = TmpPid
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM plane WHERE Pid=" + Trim(TmpPid)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    AirCom = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Pno = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Sairport = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Eairport = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Stime = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Etime = TrimStr(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Price1 = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Len(ColVal), pcblen)
    Price2 = Val(ColVal)
   
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 10, 1, ColVal, Len(ColVal), pcblen)
    Cycle = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 11, 1, ColVal, Len(ColVal), pcblen)
    Input_time = TrimStr(ColVal)
    
    GetInfo = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetId(ByVal TmpPno As String, _
                      ByVal TmpSairport As String, _
                      ByVal TmpEairport As String) As Long
  DB_Connect
  
  SqlStmt = "SELECT * FROM plane WHERE Pno='" + Trim(TmpPno) _
          + "' And Sairport='" + Trim(TmpSairport) _
          + "' And Eairport='" + Trim(TmpEairport) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetId = Val(ColVal)
  Else
    GetId = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpPno As String, _
                      ByVal TmpSairport As String, _
                      ByVal TmpEairport As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM plane WHERE Pno='" + Trim(TmpPno) _
          + "' And Sairport='" + Trim(TmpSairport) _
          + "' And Eairport='" + Trim(TmpEairport) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    In_DB = True
  Else
    In_DB = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Sub Insert()
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Format(tt, "hh:mm")
  
  DB_Connect
  
  SqlStmt = "INSERT INTO plane (AirCom, Pno, Sairport, Eairport," _
          + " Stime, Etime, Price1, Price2, Cycle, Input_time)" _
          + " VALUES('" + Trim(AirCom) + "','" + Trim(Pno) _
          + "','" + Trim(Sairport) + "','" + Trim(Eairport) _
          + "','" + Trim(Stime) + "','" + Trim(Etime) + "'," _
          + Trim(Price1) + "," + Trim(Price2) + ",'" _
          + Trim(Cycle) + "','" + dd + " " + tt + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub LoadPno(ByVal TmpSairport As String, _
                   ByVal TmpEairport As String)
  Dim i As Integer
  Erase ArrPno
  ReDim ArrPno(0)
  
  DB_Connect
  SqlStmt = "SELECT Pno FROM plane WHERE Sairport='" _
          + Trim(TmpSairport) + "' And Eairport='" _
          + Trim(TmpEairport) + "' ORDER BY Pno"
  OdbcExt (SqlStmt)
  i = 0
  Do While SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    ReDim Preserve ArrPno(i + 1)
    ArrPno(i) = TrimStr(ColVal)
    i = i + 1
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As String)
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Format(tt, "hh:mm")
  
  DB_Connect
  SqlStmt = "UPDATE plane SET AirCom='" + Trim(AirCom) _
          + "', Pno='" + Trim(Pno) + "',Sairport='" _
          + Trim(Sairport) + "',Eairport='" + Trim(Eairport) _
          + "', Stime='" + Trim(Stime) + "', Etime='" _
          + Trim(Etime) + "', Price1=" + Trim(Price1) _
          + ", Price2=" + Trim(Price2) + ", Cycle='" _
          + Trim(Cycle) + "', Input_time='" + Trim(dd) _
          + " " + Trim(tt) + "' WHERE Pid=" + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub