DataSource4 DataSource5 DataSource6 DataSet DataSet DataSet
Query4 Table5 Query5 5.1.2新生管理模块设计
新生信息录入界面主要实现学生信息的添加功能，包括学号、性别、出生日期、籍贯、姓名、班级、所属院系等信息的添加，图29是新生信息录入界面窗体。
图29新生信息录入界面窗体
5.1.3成绩管理模块设计
成绩管理界面主要实现成绩的添加和校对修改的功能，图30是成绩管理界面窗体。
图30成绩管理界面窗体
第 21 页 共 29 页
当管理员选择了一位学生后，输入各科成绩，程序把数据保存到数据库。代码如下：
Procedure TStuMainFrm.BitBtn9Click(Sender:TObject);//“添加”按钮的单击事件 var StuNo,StuName:string; i:integer; begin
with Query do begin close; Sql.Clear;
Sql.Add(‘Select StuNo from Score Whers StuNo=’+’’’’+DbEdit6.Text+’’’’);
Open;
if recordcount=0 then begin
StuNo:=DbEdit6.Text; StuName:=DbEdit7.Text; for i:=l to 12 do begin
if Course[i]<>’0’then with Table5 do begin Open; Append;
SetFields([nil,StuNo,kStuName,Course[i],Score[i]]); Post; end;
end; end
else
MessageDlg(‘对不起，该记录已经存在!’,mtInformation,[mbOk],0);
end; end;
5.1.4学籍变更管理模块
学籍变更界面是实现学生学籍变更的功能，图31是学籍变更界面窗体。
第 22 页 共 29 页
图31学籍变更界面窗体
当管理员选择了学籍需要变更的学生后，输入变更项和变更时间，程序把数据保存到数据库。代码如下：
procedure TStuMainFrm.BitbtnlClick(Sender: Tobject);//“添加”按钮的单击事件
var StuNo,StuName,StuClass,StuDepart.ChangeName,ChangeRemark:string; begin
winth Table2 do begin Open;
StuNo:=Editl.text; StuName:=Edit2.text; StuClass:=Edit3.text; StuDepart:=Edit4.text;
ChangeName:=ComboBoxl.Text; ChangeRemark:=Edit5.text; append;
SetFields([StuNo,StuName,StuClass,StuDepart,ChangeName,ChangeRemark,
Formatdatetime(‘dddddde’,DateTimePicker2.Dat)]);
Post; end;
end;
第 23 页 共 29 页
5.1.5奖励管理模块设计
当学生在校表现优秀，学校应该奖励该学生，以鼓励大家的学习热情。奖励管理界面用于实现学生奖励的功能。相应的奖项有校特等奖、校一等校、校二等校、校三等校、工作奖等，用户可以根据实际情况进行设计。图32是奖励管理界面窗体。
图32奖励管理界面窗体
当管理员选择了需要奖励的学生后，选择了奖项和奖励时后，程序把数据保存到数据库。代码如下：
procedure TStuMainFrm.bitbtn3Click(Sender: TObject);//“添加”按钮的单击事件
var StuNo,StuName,StuClass,StuDepart,EncourageName:sering; begin
with Table3 do begin Open;
StuNo:=Edit6.text; StuName:=Edit7.text; StuClass:=Edit8.text; StuDepart:=Edit9.text;
if RadioButtonl.checked=true then
EncourageName:=RadioButtonl.Caption; if RadioButton2.checked=true then
EncourageName:=RadioButton2.Caption; if RadioButton3.checked=true then
EncourageName:=RadioButton3.lCaption; if RadioButton4.checked=true then
EncourageName:=RadioButton4.Caption;
第 24 页 共 29 页
if RadioButton5.checked=true then
EncourageName:=RadioButton5.Caption; if RadioButton6.checked=true then
EncourageName:=RadioButton6.Caption; if RadioButton7.checked=true then
EncourageName:=RadioButton7.Capiton; if RadioButton8.checked=true then
EncourageName:=RadioButton8.Caption; append;
SetFields([StuNo,StuName,StuClass,StuDepart,EncourageName,
Formatdatetime(‘dddddd’,DateTimePickerl.Dat)]);
Post; end;
end:
5.1.6处罚管理模块设计
当学生在校的表现差，学校应该处罚该学生。处罚管理界面就是实现学生处罚的功能。相应的处罚项有警告、记过、开除等，用户可以根据实际情况进行设计。图33是处罚管理界面窗体。
图33处罚管理界面窗体
处罚管理的代码和奖励管理的代码类似，这里不再累述。
第 25 页 共 29 页