飞机订票系统

8РNoР(None)РPassenger-startРCharР20РNoР(None)РPassenger-endРCharР20РNoР(None)РPassenger-idРIntegerР10РNoР(None)РPassenger-priceРDoubleР8РNoР(None)Р(一)、创建界面前的还要做的准备工作Р首先建数据库,在连接数据库。Р建表Р填入数据Р建立数据窗Р修改标题存盘d—planeР建立窗口(W—man)Р主窗口(W—man)代码:Р dw- 1. Settrans Object ( SQLCA )Р dw- 1. Retrieve ()Р窗口open(打开)事件的代码:РSQLCA.DBMS=Profile String (“PB.INI”, “Database”, “DBMS ”,“”)РSQLCA. Database=Profile String (“PB.INI”, “Database”, “Data Base”, “”)РSQLCA. Log ID=Profile String (“PB.INI”, “Database”, “Log ID”,“”)РSQLCA. Log Pass=Profile String (“PB.INI”, “Database”, “Log Pass word”, “”)РSQLCA. Server Name=Profile String (“PB.INI”, “Database”, “Server Name”, “”)РSQLCA. User ID=Profile String (“PB.INI”, “Database”, “User ID ”, “”)РSQLCA. DB Pass=Profile String (“PB.INI”, “Database”, “Database Password”, “”)