- 12 -18
IF ll_ rows<>O THEN
sle_ passenger_ name. Text =dw_ message. Object . Passenger _ name [1]
em_ credit. Text =string (dw_ message. object. Credit [1]) sle_ passenger_ number . Set Focus ()
ELSE
sle _ passenger_ name. Set Focus () END IF END IF
“姓名”编辑框（sle_ passenger_ name）的modified事件代码为：
码为:
码为:
Yes/No!)
sle_ passenger_ name . Set Focus ()
“性别”编辑框（sle_ passenger_ sex）的modified事件代码为： sle_ passenger_ sex. Set Focus ()
“工作单位”编辑框（sle_ passenger_ company）的modified事件代
sle_ passenger_ company . Set Focus ()
“旅行时间”编辑框(sle_ passenger_ time)的modified事件代码为： sle_ passenger_ time . Set Focus ()
“旅行目的地”编辑框(sle_ passenger_ address)的modified事件代
sle_ passenger_ address . Set Focus ()
“航班”编辑框(sle_ passenger_ plane id)的modified事件代码为: sle_ passenger_ plane id. Set Focus ()
“增加”编辑框(cd_ add)的clicked事件代码为： Open (w_ message_ add) IF
sle_ passenger_ name. Text =“”OK sle_ passenger_ sex .Text = “”OK sle_ passenger_ number . Text =“”OK sle_ passenger_ company. Text =“”OK sle_ passenger_ time. Text =“”OK sle_ passenger_ address .text =“”OK sle_ passenger_ plane Id. Text =“”OK
message box (“提示”其输入姓名、性别、身份证号码、工作单位、
旅行时间、旅行目的地和航班！”)
cd_ delete）的clicked事件代码为: li_ ret = Message Box(“提示”, “确实要删除吗？”Exclamation!
12
RETURN END IF
sl_ row = dw_ message_ input. Inset Row (0) dw_ message .Input . Scroll To Row (sl_ row) dw_ message . Input. Set Row (sl_ row) dw_ message. Input. Set Focus ()
“删除”按钮（ int li_ ret
IF li_ret=1 THEN
company,
plane Id
- 13 -18
dw_ message. Delete Row (0) IF dw_ message . Update ()=1 THEN COMMIT; ELSE
ROLLBACK; END IF END IF
“保存”按钮（cd_ save）的clicked事件代码为：
string ls_ passenger_ name, ls_ passenger_ number, ls_ passenger_
ls_ passenger_ time, ls_ passenger_ address, ls_ passenger_
int li_ credit
decimal ldec _ message
ls_ passenger_ name =Trim (ls _ passenger_ name. text) ls_ passenger_ sex =Trim (ls_ passenger_ sex. text)
ls_ passenger_ number =Trim (ls_ passenger_ number. text) ls_ passenger_ company =Trim (ls_ passenger_ company .text) ls_ passenger_ time =Trim (ls_ passenger_ time. text)
ls_ passenger_ address =Trim (ls_ passenger_ address. text) ls_ passenger_ plane id =Trim (ls_ passenger_ plane id. text) li_ credit=Integer(em_ credit. text) ldec_ message=Dec(en_ message. text) INSERT INTO “message”
(“Passenger_ name”, “Passenger_ sex”, “Passenger_ number”, “Passenger_ company”, “Passenger_ time”, “Passenger_ address”, “Passenger_ plane Id”, “Credit”, “Message”)
VALVES (: ls_ passenger_ name ,
: ls_ passenger_ sex,
: ls_ passenger _ number , : ls_ passenger_ company , : ls_ passenger_ time, : ls_ passenger_ address , : ls_ passenger_ plane Id , :ls_ Credit,
:ldec _ Message);
IF SQLCA. SQL code<>0 THEN ROLLBACK;
Message Box(“错误”, “存盘失败”, Stop sign!) RETURN
13
- 14 -18
END IF COMMIT;
Message Box( “提示”, “存盘成功！”) sle_ passenger_ name. Text = “” sle_ passenger_ sex. Text = “” sle_ passenger_ number. Text = “” sle_ passenger_ company. Text = “” sle_ passenger_ time. Text = “” sle_ passenger_ address. Text = “” sle_ passenger_ plane Id . Text = “” sle_ passenger_ number. Set Focus () dw_ message. Retrieve ()
“检索”按钮(cd_ retrieve)的clicked事件代码为： Long ll_ rows
String ls_ passenger_ name , ls_ passenger_ number
IF Trim (sle_ passenger_ name. text)= “”and Trim (sle_ passenger_
number. text)= “”
THEN
Message Box( “提示”, “请输入姓名或身份证好嘛！”) sle_ passenger_ number. Set Focus() RETURN END IF
ls_ passenger_ number = Trim(sle_ passenger_ number. text) IF Len (ls_ passenger_ number)>0 THEN
dw_ message_ input. Set Filter (“passenger_ number =’”+ ls_
passenger _ number +’””)
dw_ message_ input . Filter ()
ll_ rows = dw_ message_ input. Retrieve () IF ll_rows=0,THEN
Message Box( “提示”，“无记录！”) RETURN END IF
sle_ passenger_ name. Text = dw_ message_ Input. Object_ name[1] RETURN END IF
ls_ passenger_ name = Trim (sle _ passenger_ name . text) dw_ message _ input. Set Filter (“passenger_ name =’”+ ls_
passenger_ name +’””)
dw_ message_ input . Filter ()
ll_ rows = dw_ message_ input. Retrieve () IF ll_rows=0 THEN
Message Box(“提示”, “无记录！”) END IF
14
- 15 -18
sle_passenger_number.text=dw_message_input_object_passenger_number[1]
右边数据窗口控件（dw_ message _input）的clicked事件代码为： String ls_ passenger_ number Long ll_ rows
IF row = 0 THEN row = 1
ls_ passenger_ number = this. Object. Passenger_ number [row] dw_ message_ input. Set Filter (“passenger_ number =’”+ ls_
passenger_ number +’”)
dw_ message_ input . Filter ()
ll_ rows = dw_ message_ input. Retrieve () “退出”按钮(cd_ exit)的clicked事件代码为: Close (parent)
测试
软件测试在软件生命周期中横跨两个阶段。通常在编写出每个模块之后就对他做必要
的测试（称为单元测试），相同模块的编写者和测试者是同一个人，编码和单元测试属于软件生命周期的同一阶段。在这个阶段结束后，对软件系统还应该进行各种综合测试，这是软件生命周期中另一独立的阶段，由非该模块编写者承担这项工作。
我们要通过测试发现错误之后还必须诊断并改正错误，即调试。我们在测试阶段所能做的，就是测试一个个模块，使之更完善。
致谢
通过这次课程设计，了解了设计一个数据库系统的复杂性和对综合知识要求较高。因此在设计阶段我们查阅了很多资料，加深了对数据库知识的认识。在设计过程中，在需求分析、数据库概念模型设计、数据库逻辑模型设计、数据库实施设计阶段和同学进行了反复的讨论、研究逐渐完善了整个机票预订系统。
在数据库逻辑模型设计阶段，将全局E-R图转换成关系模式，确定各关系模式的函数依赖关系，并且对依赖关系进行了规范化处理。同时为了更好满足不同用户的应用需求进行了关系调整，优化了数据库的运用。建立了基本结构表，并且对基本表给出了主键和外键，确定了其完整化约束。并确定了外模式和数据视图。另外。经过这次的课程
15
相关推荐：
loading