|
为方便用户使用，将查询、添加、修改和删除等功能放在同一个界面中。
图1 教师信息管理界面
表1 教师信息管理界面对象的属性设置
|
类名 |
属性名 |
属性值 |
类名 |
属性名 |
属性值 |
|
TForm |
Name |
FormTeacher |
TComboBox |
Name |
CBoxSearchType |
|
Caption |
教师信息 |
Style |
csDropDownList |
|
BorderStyle |
bsDialog |
Items |
姓名
学院
教工号 |
|
TDBEdit |
Name |
所有以DBEdit
打头的组件 |
TDBGrid |
Name |
DBGrid1 |
|
DataSource |
DMServerDB.
DataSourceTeacher |
DataSource |
DMServerDB.DataSourceTeacher |
|
DataField |
各自对应的字段名 |
ReadOnly |
True |
|
TDBComboBox |
Name |
DBComboBoxSex |
TDBLookup
ComboBox |
Name |
DBLookupComboBox |
|
DataSource |
DMServerDB.
DataSource
Teacher |
DataSource |
DMServerDB.DataSourceTeacher |
|
Items |
男
女 |
DataField |
DepartmentID |
|
用于选择学院 |
|
TDateTime
Picker |
Name |
DateTimePicker
Birthday |
TEdit |
Name |
EditPassWord |
|
ShowCheckbox |
True |
|
|
|
|
|
|
|
|
|
1.2 代码设计
⑴ 编写“查询”按钮的OnClick事件，实现教师的查询，相关代码如下：
procedure TFormTeacher.SBtnSearchClick(Sender: TObject);
begin
with DMServerDB do begin
ADODataSetTeacher.Close; // 教师表
strSQL := 'Select * From Teacher';
if Trim(EditSearch.Text)<>'' then begin
case CBoxSearchType.ItemIndex of // 查询方式
0: strSQL := strSQL + ' Where TeacherName';
1: strSQL := strSQL + ' Where DepartmentID';
2: strSQL := strSQL + ' Where TeacherID';
end;
if CBoxSearchType.ItemIndex in [0,2] then
strSQL:=strSQL+' Like ''%'+ Trim(EditSearch.Text)+'%'''
else begin // 查出学院名所对应的学院ID
strSQL:=strSQL+' In(Select DepartmentID From Department';
strSQL:=strSQL+' Where DepartmentName Like ''%'+ Trim(EditSearch.Text)+'%'')';
end;
strSQL:=strSQL+' Order By DepartmentID, TeacherID';
end;
ADODataSetTeacher.CommandText := strSQL;
ADODataSetTeacher.Open; // 打开查询
end;
end;
|
