return 1
end if
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