表4-2学生信息（Stuinfo）
字 段 名 称 StuId StuNo DepartMent Class Name Sex BirthDay NativePlace
表4-3学籍变更（Change） 字 段 名 称 StuNo Name Class DeparMent ChangeName ChangeTime Remark
表4-4学生奖励（Encourage） 字 段 名 称 StuNo Name Class DeparMent EncourageName EncourageTime 数 据 类 型 数字 文本 文本 文本 文本 日期/时间
表4-5学生处罚（Punish） 字 段 名 称 StuNo Name Class DepartMent PunishName PunishTime 表4-6学生成绩（Score）
第 16 页 共 29 页
数 据 类 型 数字 数字 文本 文本 文本 文本 日期/时间 文本 说 明 编号(主键) 学号 院系 班级 姓名 性别 生日 籍贯 数 据 类 型 数字 文本 文本 文本 文本 日期/时间 文本 说 明 学号(主键) 姓名 班级 院系 学籍变更项 学籍变更时间 备注 说 明 学号(主键) 姓名 班级 院系 奖励项 奖励时间 数 据 类 型 数字 文本 文本 文本 文本 日期/时间 说 明 学号(主键) 姓名 班级 院系 处罚项 处罚时间
字 段 名 称 ScoreId StuNo Name Course Score
数 据 类 型 数字 数字 文本 文本 数字 说 明 编号(主键) 学号 姓名 课程 成绩 第 17 页 共 29 页
第五章 系统详细设计
5.1系统各模块详细设计
5.1.1登录窗体与系统主界面设计 5.1.1.1登录窗体设计 登录窗体命名为 login。（如图5-1）
图5-1 登录窗体
学生管理信息系统启动时，首先出现的是系统主界面。单击系统主界面中工具栏的“用户登录”按钮，就弹出用户登录界面。程序从配置文件中获取管理员和学生的密码，和用户输入的密码比较，如果密码正确，则根据身份配权限；如果不正确，则提示用户重输或退出：重输3次以上，系统自动退出。代码如下：
Proctdure TLoginFrm.BitBtn1Click(Sender:TObject);//“用户登陆”按钮的单击事件
Var pwdfile:textfile;
PwdStr:string; Begin
if RadioButton1.checked=True then assingnfile(pwdfile,’.\\Admini.cfg’); if RadioButton2.checked=True then assingfile(pwdfile,’.\\student.cfg’); reset(pwdfile);
readln(pwdfile,pwdStr); closefile(pwdfile); Times:=Times=1;
If edit1.Text=PwdStr then begin close;
StuMainFrm.Enabled:=True
StuMainFrm.PageControll.ActivePage:=StuMainFrm.Tabsheet6; StuMainFrm.PageControll.Visible:=true; if Radiobuttonl.checked=True then begin
StuMainFrm.ToolButton2.Enabled:=Ture; StuMainFrm.Toolbutton3.Enabled:=True; StuMainFrm.ToolButton4.Enabled:=True;
第 18 页 共 29 页
StuMainFrm.ToolButton5.Enabled:=True; StuMainFrm.ToolButton8.Enabled:=True; StuMainFrm.ToolButton6.Enabled:=True; end;
if RadioButton2.checked=True then begin
StuMainFrm.ToolButton6.Enabled:=True; end;
end else begin
if MessageDlg(‘密码输入错误，是否退出？’，mtContirmation,[mbYes,mbNo],0)=mryes
then
begin close;
StuMainFrm.Enabled:=True; end else begin
if times<3 then editl.SetFocus else begin
MessageDlg(‘对不起，密码输入严重错误，请退出！’,mtInformation,[mbOk],0);
Application.Terminate; end;
end; end; end;
为了防止用户多次重输密码，限制了输入了次数为3次，因此需要对次数进行初始化，活加代码如下：
Procedure TLoginFrm.FormShow(Sender:TObject); Begin
Times:=0; End;
5.1.1.2系统主界面设计
学生管理信息系统主界面主要实现新生信息录入、成绩管理、学籍变更、处罚管理、奖励管理和查询修改的功能。选择该界面中工具栏中的不同按钮，就会进入实现不同功能的窗体。（如图5-3）
第 19 页 共 29 页
图5-1学生管理信息系统主界面窗体
这里主要介绍与数据库相关的组件的属性，如表1所示。
表1学生管理信息系统主界面中数据库组件的属性设置
组 件 Table1 Table2 Table3 Table4 Table5 Query1 Query2 Query3 Query4 Query5 DataSource1 DataSource2 DataSource3 属 性 DatebaseName TableName DatebaseName TableName DatebaseName TableName DatebaseName TableNsam DatebasdeName TableName DatebaseName DatebaseName DatebaseName DatebaseName DatebaseName DataSet DataSet DataSet 属 性 值 Student Stulnfo Student Change Student Encourage Student Punish Student Score Student Student Student Student Student Table1 Query2 Query3 第 20 页 共 29 页