CanClose=false;
}
4、退出按钮功能
加入代码：
void__fastcallTForm1:
:
SpeedButton2Click（TObject*Sender）
{
Application->Terminate（）;
}
图2系统封面界面
3.1.2信息管理系统主界面
信息管理系统主界面是整个系统的主界面，所实现的功能是与以后的各个子界面都可相联。
所运用到的主要组件是菜单组件。
本界面包括组件：
Button1—6,、DBGrid1、Default、MainMenu1、TDBNavigator.
1、菜单组件
在窗体上放置TMainMenu（主菜单）组件。
在Caption属性中输入菜单上的显示文本并编辑分割线。
在每项文本前添加显示图片。
在“基础维护”菜单中，添加“添加”和“删除”两个子菜单；另有修改、查询、预览菜单。
其中，“添加”菜单链接学生信息录入界面；“修改”菜单链接学生信息修改界面；“查询”菜单链接学生信息查询界面；“预览”子菜单链接报表界面。
菜单组件事件代码如下：
•“添加”子菜单程序：
void__fastcallTForm3:
:
N2Click（TObject*Sender）
{
Form6->Show（）;
}
为简洁论文，以下的“预览”“修改”“查询”子菜单程序与上述相似，分别对应Form5、Form8、Form4的显示。
•“删除”子菜单程序：
void__fastcallTForm3:
:
N4Click（TObject*Sender）
{
AnsiStringass;
if（Application->MessageBox（（"确定要删除:
"+ass+"的记录吗？
"）.c_str（）,"提示"
MB_YESNO）==IDYES）
Table1->Delete（）;
}
2、数据表的建立
TDatabase组件在应用程序中通过建立与数据库之间的联系对数据库进行控制。
利用TDatabase组件创建数据库表，保存于有效途径中。
在界面中插入Table、DBGrid、DBDataSource组件。
将所建数据表设置入Table1中，在TableName中选中数据库表，实现数据库与界面的相关联。
设置DBGrid、DBDataSource实现互相的关联。
3、按键功能
•“首记录”按键
“首记录”按键主要实现光标自动跳转到表格第一栏的功能。
其程序为：
void__fastcallTForm3:
:
Button1Click（TObject*Sender）
{
Table1->First（）;
}
•“上一条”按键
“上一条”按键主要实现光标转移到所处位置的上一栏的功能。
其程序为：
void__fastcallTForm3:
:
Button2Click（TObject*Sender）
{
Table1->MoveBy（-1）;
}
•“下一条”按键
“下一条”按键主要实现光标转移到所处位置的下一栏的功能。
其程序为：
void__fastcallTForm3:
:
Button3Click（TObject*Sender）
{
Table1->Next（）;
}
•“尾记录”按键
“尾记录”按键主要实现光标自动跳转到表格最后一栏的功能。
其程序为：
void__fastcallTForm3:
:
Button4Click（TObject*Sender）
{
Table1->Last（）;
}
•“浏览”按键
“浏览”按键主要实现跳转到报表显示界面的功能。
其程序为：
void__fastcallTForm3:
:
Button5Click（TObject*Sender）
{
Form5->Show（）;
}
•“退出”按键
“退出”按键主要实现关闭窗口的功能。
其程序为：
void__fastcallTForm3:
:
Button6Click（TObject*Sender）
{
Form3->Close（）;
}
•“刷新”按钮
“退出”按键主要实现系统数据刷新的功能。
其程序为：
void__fastcallTForm3:
:
Button7Click（TObject*Sender）
{
Table1->Refresh（）;
}
4、TDBNavigator导航器组件
TDBNavigator组件（又称为数据库导航器）是用来在数据库表中浏览和编辑数据的组件。
它由一组控制按键组成，通过这些控制按钮，用户可以在数据库表中移动记录指针，增添或删除一项纪录，编辑修改数据记录以及向数据库提交对数据库表记录的修改等工作。
TDBNavigator组件与其他数据控制组件（TDBGrid或TDBEdit）一起使用。
具体实现方法是插入TDBNavigator组件组件，将此与DataSource1建立链接。
图3信息管理系统主界面
图4数据库表图
3.1.3学生信息查询界面
此界面作用主要作用是进行学生信息的查询。
功能主要包括利用学号，实现模糊查询和精确查询两种功能。
本界面包括组件：
Query、Button1—3、DBGrid1、Edit1、Label1、DataSource。
1、数据集组件TQuery
TQuery组件主要实现可以使用SQL语句对数据库进行访问，可以对远程数据库或本地多个表的访问（如多表关联查询）。
实现查询功能需在界面上添加Tabel、DBGrid、DataSource组件，将所需查询表格显示于Tabel中。
通过SQL编辑器输入SQL语句，实现模糊查询和精确查询两种查询方式。
2、模糊查询功能
此功能利用对某信息的某一类字段的部分关键字的查询，搜索出符合部分所输入信息的完整信息，并显示于Table中。
实现程序为：
void__fastcallTForm4:
:
Button3Click（TObject*Sender）
{
AnsiStringass,tabname;
tabname="XHXX2.DB";
Query1->Active=False;
Query1->SQL->Clear（）;
Query1->SQL->Add（"SELECT*"）;
ass="FROM\""+tabname+"\"tab";
Query1->SQL->Add（ass）;
Query1->SQL->Add（"WHEREXHLIKE'%"+Edit1->Text+"%'"）;
Query1->SQL->Add（"ORDERBYXH"）;
Query1->Active=true;
Edit1->Text="";
}
3、精确查询
此功能利用对某信息某一类字段的完整关键字的查询，搜索出符合所输入信息的完整信息，并显示于Table中。
实现程序为：
void__fastcallTForm4:
:
Button1Click（TObject*Sender）
{
AnsiStringass,tabname;
tabname="XHXX2.DB";
Query1->Active=False;
Query1->SQL->Clear（）;
Query1->SQL->Add（"SELECT*"）;
ass="FROM\""+tabname+"\"tab";
Query1->SQL->Add（ass）;
Query1->SQL->Add（"WHEREXH='"+Edit1->Text+"'"）;
Query1->SQL->Add（"ORDERBYXH"）;
Query1->Active=true;
Edit1->Text="";
}
图5信息查询界面
3.1.4添加信息界面
此界面主要实现学生信息的添加功能。
可添加的信息有：
学号、姓名、性别、班级编码、年龄、入学时间、职务、照片、简历。
本界面包括组件：
Button1—3、Edit1—7、Label1—9、Memo1—2、Table、DataSource。
1、“提交”按钮
功能为实现信息的确认提交。
按下后，可将新录入的信息存入信息管理界面。
其程序为：
void__fastcallTForm6:
:
Button1Click（TObject*Sender）
{
if（Edit1->Text.IsEmpty（））
{ShowMessage（"输入的学号不能为空"）;
return;}
if（Edit2->Text.IsEmpty（））
{ShowMessage（"输入的姓名不能为空"）;
return;}
if（Edit3->Text.IsEmpty（））
{ShowMessage（"输入的性别不能为空"）;
return;}
if（Edit4->Text.IsEmpty（））
{ShowMessage（"输入的班级编码不能为空"）;
return;}
if（Edit5->Text.IsEmpty（））
{ShowMessage（"输入的年龄不能为空"）;
return;}
if（Edit6->Text.IsEmpty（））
{ShowMessage（"输入的入学时间不能为空"）;
return;}
if（Memo1->Text.IsEmpty（））
{ShowMessage（"输入的简历内容不能为空"）;
return;}
Table1->Append（）;
Table1->FieldByName（"XH"）->AsString=Edit1->Text.Trim（）;
Table1->FieldByName（"XM"）->AsString=Edit2->Text.Trim（）;
Table1->FieldByName（"XB"）->AsString=Edit3->Text.Trim（）;
Table1->FieldByName（"BJBM"）->AsString=Edit4->Text.Trim（）;
Table1->FieldByName（"NL"）->AsString=Edit5->Text.Trim（）;
Table1->FieldByName（"RXSJ"）->AsString=Edit6->Text.Trim（）;
Table1->FieldByName（"ZW"）->AsString=Edit7->Text.Trim（）;
Table1->FieldByName（"JL"）->AsString=Memo1->Text.Trim（）;
Table1->FieldByName（"ZP"）->AsString=Memo2->Text.Trim（）;
Table1->Post（）;
Form3->Show（）;
}
2、“复位”按钮
此按钮主要实现将输入数据清空的功能。
实现程序为：
void__fastcallTForm6:
:
Button3Click（TObject*Sender）
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="";
Memo1->Text="";
Memo2->Text="";
}
图6添加信息界面
3.1.5修改信息界面
与添加界面相同，当在信息管理界面中点“修改”子菜单，即可跳转到此界面。
可修改的信息有：
学号、姓名、性别、班级编码、年龄、入学时间、职务、照片、简历。
本界面包括组件：
Button1—3、Edit1—7、Label1—9、Memo1—2、Table、DataSource。
1、“确定”按钮
主要功能为实现信息的确认提交。
按下后，可将修改的信息存入信息管理界面。
实现程序为：
void__fastcallTForm8:
:
Button1Click（TObject*Sender）
{
if（Edit1->Text.IsEmpty（））
{ShowMessage（"输入的学号不能为空"）;
return;}
if（Edit2->Text.IsEmpty（））
{ShowMessage（"输入的姓名不能为空"）;
return;}
if（Edit3->Text.IsEmpty（））
{ShowMessage（"输入的性别不能为空"）;
return;}
if（Edit4->Text.IsEmpty（））
{ShowMessage（"输入的班级编码不能为空"
升级会员 