机票预订系统(四)

12.登录界面登录按钮　clicked()
string pwd,username

username=sle_name1.text
pwd=sle_pwd.text

SQLCA.LogId = username
SQLCA.LogPass =pwd

connect using sqlca;
if sqlca.sqlcode=-1 then
 messageBox("口令错误，请重新输入！",SQLCA.SQLErrText)
 close(parent)
else
 open(w_main)
end if

13航班信息查询界面w_plane1　open()
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;
dw_7.settransobject(sqlca)
dw_7.retrieve ()

14.航班信息维护界面w_planeinfo open()
dw_4.settransobject (SQLCA)
dw_4.retrieve ()

15.航班信息维护界面添加按钮　clicked()
long net
net=dw_4.insertrow(0)
dw_4.ScrollToRow(net)

16.航班信息维护界面删除按钮　clicked()
dw_4.deleterow(0)
dw_4.update()
dw_4.retrieve()

17机票信息登记界面确定插入按钮　clicked()
int num
String flightnumber,airlinecompany,startstation,middlestation,endstation,memo,takeofftime,landingtime,no1
String err

double price1
string mysql

/*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;

flightnumber = sle_number.text
airlinecompany = sle_airlinecompany.text
startstation = sle_startstation.text
middlestation = sle_middlestation.text
endstation = sle_endstation.text
memo=mle_memo.text
takeofftime = sle_takeofftime.text
landingtime = sle_landingtime.text
no1=sle_no1.text
em_price1.getData(price1)

err=""
if flightnumber="" then
  err=err+"航班号不能为空！~n"
end if
if airlinecompany = "" then
 err=err+"航空公司不能为空！~n"
end if
if startstation = "" then
 err=err+"起始站不能为空！~n"
end if
if endstation = "" then
 err=err+"终点站不能为空！~n"
end if
if takeofftime = "" then
 err=err+"起飞时间不能为空！~n"
end if
if landingtime = "" then
 err=err+"到达时间不能为空！~n"
end if
if price1<=0 then
 err=err+"单价应该大于0!~n"
end if
if err<>"" then
 messagebox("警告！",err)
 return
end if

//查询数据库，是否有该航班号，如果有则不能重复添加

select count(flightnumber)
into :num
from planeticket
where flightnumber=:flightnumber
using sqlca;

if num>0 then
 messagebox("警告","航班号不能重复")
 return
end if

//执行添加记录操作
/*mysql = "INSERT INTO planeticket(flightnumber,airlinecompany,startstation,middlestation,endstation,takeofftime,landingtime,price1,price2,memo)  VALUES('"+flightnumber+"','"+airlinecompany+"','"+startstation+"','"+middlestation+"','"+endstation+"','"+takeofftime+"','"+landingtime+"','"+price1+"','"+price2+"','"+memo+"')"
execute IMMEDIATE :mysql using sqlca;*/
INSERT INTO planeticket
            (flightnumber,
     airlinecompany,
     startstation,
 &nbs

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