机票预订系统(三)

3.订购机票界面订票成功按钮　clicked()
dw_3.update()

string num
num=dw_3.GetitemString(1,"flightnumber")
Update buyticket
set flag=1
where flightnumber=:num
using sqlca;

update planeticket

set rest=rest-1
where flightnumber=:num

using sqlca;
close(parent)

4.退票界面w_cancleticket  open()
// Profile xuwei
/*SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = 'manager'
SQLCA.ServerName = "lab_b14"
SQLCA.LogId = "system"
SQLCA.AutoCommit = true
//SQLCA.DBParm = "PBCatalogOwner='scott'"*/

// Profile fly
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=plane;UID=sa;PWD=sa'"

connect using sqlca;

5.退票界面查询按钮 clicked()
string filterStr
string name
integer rc
name=sle_buyername.text
filterStr="buyername='"+name+"'"
dw_4.SetTransobject(sqlca)

dw_4.setFilter(filterStr)

dw_4.Filter()
dw_4.Retrieve()

rc=dw_4.getrow()

 if rc<=0 then
 messagebox("提示：","没有此顾客订购机票信息!")
 return 1
end if
 
６．退票界面退票按钮　clicked()
string num
      num=dw_4.GetitemString(1,"flightnumber")
  update planeticket

      set rest=rest+1
      where flightnumber=:num

      using sqlca;
  
  dw_4.deleterow(0)
  dw_4.update()
      dw_4.retrieve()
  
messagebox("提示:","退票成功!")

7选择机票界面查询全部航班信息按钮　clicked()
disconnect using sqlca;
// Profile xuwei
/*SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = 'manager'
SQLCA.ServerName = "lab_b14"
SQLCA.LogId = "system"
SQLCA.AutoCommit = true*/

// Profile fly
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=plane;UID=sa;PWD=sa'"

connect using sqlca;

string filterStr
filterStr="flag=0"

dw_1.settransobject(sqlca)
dw_1.setfilter(filterStr)
dw_1.filter()
dw_1.retrieve ()

8.选择机票界面订购按钮　clicked()
int i
string selNum
for i=1 to dw_1.getrow()
 if dw_1.GetItemNumber(i,"flag")=1 then
  selNum=dw_1.GetitemString(i,"flightnumber")
    openwithparm(w_buyticket,selNum)
//  close(w_chooseplane)
  return
  end if
 next
 
9.选择机票界面按目的地查找按钮　clicked()
open(w_findplane)

10.按目的地查找界面w_findplane open()
// Profile xuwei
SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = 'manager'
SQLCA.ServerName = "lab_b14"
SQLCA.LogId = "system"
SQLCA.AutoCommit = true
//SQLCA.DBParm = "PBCatalogOwner='scott'"

connect using sqlca;

11.按目的地查找界面查找按钮　clicked()
string filterStr
string name
integer rc
name=sle_station.text
filterStr="endstation='"+name+"'"
dw_5.SetTransobject(sqlca)

dw_5.setFilter(filterStr)

dw_5.Filter()
dw_5.Retrieve()

rc=dw_5.getrow()

 if rc<=0 then
 mes

首页 上一页 1 2 3 4 5 下一页 尾页 3/5/5