软件工程导论实验报告 航空订票系统(14)

这是我的软件工程课程实验报告 大家修改姓名后可以直接使用

If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then Adodc2.Recordset.AddNew Text1.SetFocus

Adodc2.Recordset.Fields("身份证号码") = Text1.Text Adodc2.Recordset.Fields("姓名") = Text2.Text

If Option1.Caption <> "" And Option2.Caption = "" Then Adodc2.Recordset.Fields("性别") = Option1.Caption

ElseIf Option2.Caption <> "" And Option1.Caption = "" Then Adodc2.Recordset.Fields("性别") = Option2.Caption End If

Adodc2.Recordset.Fields("工作单位") = Text5.Text Adodc2.Recordset.Fields("旅行时间") = Text3.Text Adodc2.Recordset.Fields("旅行目的地") = Text4.Text Adodc2.Recordset.Fields("联系方式") = Text6.Text Else

MsgBox "请输入完整的旅客信息！", vbInformation + vbOKOnly, "信息不完整" End If

End Sub

Private Sub Command2_Click() If DataGrid1.Visible = True Then Fdy.Show Else

MsgBox "请先查询航班", 64, "警告" End If End Sub

Private Sub Command3_Click() Unload Me End Sub

Private Sub Command4_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = ""