学生成绩档案管理系统的功能实现

学生成绩档案管理系统的功能实现

本软件的主要目标是实现学校学生信息管理的自动化，主要功能是对有关学生信息的存储与查询管理。

4.1登录系统模块编码设计

系统启动后，将首先出现用户登录窗体如下，用户首先输入用户名，然后输入密码。

procedure Tlogin_form.BitBtn1Click(Sender: TObject);

var

pass:variant;

begin

pass:=ADOTable1.Lookup('user',edit1.Text,'password');

if pass = edit2.text then

begin

main_form.Show;

strloginname:=edit1.Text;

main_form.StatusBar1.Panels[1].Text:=edit1.Text;

main_form.WindowState:=wsMaximized;

self.close;

end

else

begin

showmessage('用户名或密码错误,请重新输入');

edit1.text:='';

edit2.text:='';

edit1.setfocus;

end;

end;

procedure Tlogin_form.Edit2KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then

BitBtn1.Click;

end;

procedure Tlogin_form.FormShow(Sender: TObject);

begin

ADOTable1.TableName:='login';

ADOTable1.Open;

self.edit1.SetFocus;

end;

4.2用户管理编码设计

选择系统菜单里的用户管理功能，出现用户综合管理窗口，在该窗口中当前登录用户可以创建一个或多个有固定权限的用户、删除用户、当前用户密码修改。procedure TForm6.FormCreate(Sender: TObject);

var

newitem:Tlistitem;

strname,strp:string;

begin

adotable1.Open;

adotable1.Edit;

adotable1.First;

while not adotable1.Eof do

begin

newitem:=listview1.Items.Add();

strname:=adotable1.fields.fields[0].asstring;

strp:=adotable1.Fields.Fields[2].AsString ;

newitem.Caption:=strname;

newitem.SubItems.Add(strp);

adotable1.next;

end;

adotable1.Close;

adotable1.Free;

end;

procedure Tform6.listviewSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);

begin

BitBtn1.Enabled := selected;

seluser:=Item.Caption ;

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

var

strname:string;

begin

listview1.DeleteSelected;

adotable1.Edit;

adotable1.First;

while not adotable1.Eof do

begin

strname:=adotable1.Fields.Fields[0].AsString;

if (seluser=strname) then

adotable1.Delete;

end;

adotable1.Next;

adotable1.Post;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.

4.3修改密码编码设计

用户可以直接修改当前用户的密码，非常的方便.

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

if (edit4.Text =adotable1.Fields.Fields[0].AsString)and (edit1.Text =adotable1.Fields.Fields[1].AsString) then

begin

adotable1.Edit;

adotable1.Fields.Fields[1].AsString :=edit2.Text;

adotable1.Post;

showmessage('恭喜你，修改成功!');

end

else

showmessage('原用户名及密码错误，请重新输入!') ;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

close;

end;

4.4学生档案信息管理编码设计

选择学生信息管理菜单项里的基本信息功能，出现基本信息窗口(如图)，用户可以添加新的学生信息，但注意：学号不能和已有学号相同。

//以下为添加模块代码

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

adotable1.Open;

adotable1.Edit;

adotable1.FieldByName('学号').AsString:=trim(edit1.Text);

adotable1.FieldByName('姓名').AsString:=trim(edit2.Text);

adotable1.FieldByName('性别').AsString:=trim(combobox1.Text);

adotable1.FieldByName('出生日期').AsString:=trim(edit12.Text);

adotable1.FieldByName('民族').AsString:=trim(combobox4.Text);

adotable1.FieldByName('政治面貌

').AsString:=trim(combobox3.Text);

adotable1.FieldByName('籍贯').AsString:=trim(edit5.Text);

adotable1.FieldByName('入学时间').AsString:=trim(edit6.Text);

adotable1.FieldByName('入学成绩

').AsInteger :=strtoint(trim(edit7.Text));

adotable1.FieldByName('宿舍号').AsString:=trim(edit8.Text);

adotable1.FieldByName('宿舍电话').AsString:=trim(edit9.Text);

adotable1.FieldByName('家庭地址').AsString:=trim(edit10.Text);

adotable1.FieldByName('家庭电话').AsString:=trim(edit11.Text);

adotable1.FieldByName('备注').AsString:=trim(memo1.Text);

adotable1.FieldByName('班级').AsString:=trim(edit3.Text);

adotable1.FieldByName('年级').AsString:=trim(combobox2.Text);

adotable1.FieldByName('班主任').AsString:=trim(edit4.Text);

adotable1.Post;

showmessage('你已经成功添加该信息!');

adotable1.Close;

end;