xueshengdanganguanli.txt

本软件的主要目标是实现学校学生信息管理的自动化

adotable1.Delete;
//adotable1.Post;
end;
//此为删除确认代码
procedure TFrmClass.btndelClick(Sender: TObject);
begin
if Messagedlg('确定要删除这条记录吗?'，MtWarning，MbOKCancel，0)=MrOk then
   qutil.Delete;
end;
//此为刷新记录代码
procedure TFrmClass.btnokClick(Sender: TObject);
begin
  qutil.FieldByName('cid').AsString:=DBEdit1.Text;
 qutil.FieldByName('cclass').AsString:=DBEdit2.Text;
 qutil.Post;
 qutil.Refresh;
 btnadd.Enabled:=true;
 btndel.Enabled:=true;
 btnclose.Enabled:=true;
 btnok.Enabled:=false;
 btncancel.Enabled:=false;
end;
//此为增加数据代码
procedure TFrmClass.btncancelClick(Sender: TObject);
begin
if messagebox(0，'确定不新增本条数据？'，'提示'，
mb_ICONInformation+mb_yesno+mb_defbutton2)= mryes then
  begin
 qutil.Cancel;
 btnok.Enabled:=false;
 btncancel.Enabled:=false;
 btnadd.Enabled:=true;
 btndel.Enabled:=true;
 btnclose.Enabled:=true;
 end;
end;
//此为条件查找班级代码
procedure TFrmClass.btnq1Click(Sender: TObject);
begin
 qutil.SQL.Clear;
  qutil.SQL.Add('Select * from Classinfo');
  qutil.SQL.Add('Where cID >='''+edit1.text +'''');
  qutil.SQL.Add('And cID<='''+edit3.text+'''');
  qutil.Close;
  qutil.Open;
end;
procedure TFrmClass.btnq2Click(Sender: TObject);
begin
  qutil.SQL.Clear;
  qutil.SQL.Add('Select * from Classinfo');
  qutil.SQL.Add('Where cClass ='''+edit2.text +'''');
  qutil.SQL.Add('And cClass<='''+edit4.text+'''');
  qutil.Close;
  qutil.Open;
end;
//此为窗口关闭提示代码
procedure TFrmClass.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canClose := True;
if (formmode = 'ins') or (formmode = 'edt') then
begin
  MessageBox(application.Handle，'请先结束输入模式后再离开'，'警告'，
  mb_ICONWarning+mb_OK);
  canClose := False;
end;
end;

procedure TFrmClass.btnq3Click(Sender: TObject);
begin
   qutil.SQL.Clear;
   qutil.SQL.Add('Select * from Classinfo');
   qutil.Close;
   qutil.Open; //数据库找开
end;
4.6课程设置编码设计
  选择课程设置菜单项里的课程设置功能，出现课程设置信息窗口户可以新增、删除课程，但应注意：新添课程号不能和已有课程号相同.
//增开新课程代码
procedure TForm15.BitBtn1Click(Sender: TObject);
var
n:integer;
begin
   n:=0;
   adotable1.Open;
   adotable1.Edit;
   adotable1.First ;
   while not adotable1.Eof do
       begin
        if edit1.Text =adotable1.Fields.Fields[0].AsString then
           n:=1;
        adotable1.Next;
       end;
   if n=1 then
     begin
       showmessage('数据库中已存在该课程编号，请另外输入!');
       edit1.Text :='';
       edit1.SetFocus;
       adotable1.First ;
     end
   else
   begin
   adotable1.append;
   adotable1.Fields.Fields[0].AsString :=edit1.Text ;
   adotable1.Fields.Fields[1].AsString :=edit2.Text ;
   adotable1.Fields.Fields[2].AsString :=combobox1.Text;
   adotable1.Fields.Fields[3].AsString :=memo1.Text;
   adotable1.Post;
   edit1.Text :='';
   edit2.Text :='';
   combobox1.Text :='';
   memo1.Text :='';
   edit1.SetFocus ;
   end;
end;
//修改课程信息代码
procedure TForm15.BitBtn2Click(Sender: TObject);
begin

   adotable1.Edit;
   adotable1.Locate('课程编号',edit1.text,[]);
   showmessage('你可以在对应记录内直接修改!');
end;
//删除课程信息代码
procedure TForm15.BitBtn3Click(Sender: TObject);
var
 n:integer;
begin
   n:=0;
   //adotable1.Edit;
    if edit1.Text = '' then
      showmessage('请输入课程编号!')
    else
      begin
        adotable1.Open;
        adotable1.Edit;
        adotable1.First ;
   while not adotable1.Eof do
       begin
        if edit1.Text = adotable1.Fields.Fields[0].AsString then
           begin
             adotable1.Delete;
             n:=n+1;
           end
        else
          adotable1.Next;
        end;

        if n=0 then
         begin
           showmessage('该课程号不存在，请重试!');
           edit1.Text :='';
           edit1.SetFocus;
         end;

      end;
   edit1.Text :='';
   edit1.SetFocus;
end;
//删除确认代码
procedure TForm4.btndelClick(Sender: TObject);
begin
if Messagedlg('确定要删除这条记录吗?'，MtWarning，MbOKCancel，0)=MrOk then
   qutil.Delete;
end;
//添加确认代码
procedure TForm4.btncancelClick(Sender: TObject);
begin
if messagebox(0，'确定不新增本条数据？'，'提示'，
mb_ICONInformation+mb_yesno+mb_defbutton2)= mryes then
  begin
  qutil.Cancel;
 btnok.Enabled:=false;
 btncancel.Enabled:=false;
 btnadd.Enabled:=true;
 btndel.Enabled:=true;
 btnclose.Enabled:=true;
  end ;
 end;
4.7成绩模块编码设计
 在成绩模块窗口的下们菜单下进行选择可执行相应操作，包括文化成绩及量化成绩的添加、删除及相应信息的查询。
//量化成绩的添加代码
procedure TFrame13.BitBtn1Click(Sender: TObject);
var
   n:integer;
begin
n:=0;
if edit1.Text ='' then
     showmessage('学号不能为空，重新输入!')
   else
     begin
adotable1.Open;
adotable1.Edit;
adotable1.First;
while not adotable1.Eof do
begin
if edit1.Text = adotable1.Fields.Fields[0].AsString then
             begin
             n:=1;
             adotable1.Delete;
             adotable1.append;
             adotable1.Fields.Fields[0].AsString :=edit1.text;
             adotable1.Fields.Fields[1].AsString :=edit2.text;
   if checkbox1.Checked =true then
        adotable1.Fields.Fields[3].AsInteger:=adotable1.Fields.Fields[3].AsInteger+1;
if checkbox2.Checked =true then
        adotable1.Fields.Fields[2].AsInteger:=adotable1.Fields.Fields[2].AsInteger+1;
if checkbox3.Checked =true then
        adotable1.Fields.Fields[4].AsInteger:=adotable1.Fields.Fields[4].AsInteger+1;
             if checkbox4.Checked =true then
        adotable1.Fields.Fields[5].AsInteger:=adotable1.Fields.Fields[5].AsInteger+1;  adotable1.Post;
   end;
   adotable1.Next;
end;
   if n=0 then
     begin
      adotable1.append;
      adotable1.Fields.Fields[0].AsString :=edit1.text;
      adotable1.Fields.Fields[1].AsString :=edit2.text;
     if checkbox1.Checked =true then
    adotable1.Fields.Fields[3].AsInteger:=adotable1.Fields.Fields[3].AsInteger+1;
     if checkbox2.Checked =true then
        adotable1.Fields.Fields[2].AsInteger:=adotable1.Fields.Fields[2].AsInteger+1;
     if checkbox3.Checked =true then
        adotable1.Fields.Fields[4].AsInteger:=adotable1.Fields.Fields[4].AsInteger+1;
     if checkbox4.Checked =true then
        adotable1.Fields.Fields[5].AsInteger:=adotable1.Fields.Fields[5].AsInteger+1;
     if combobox1.Text = '活动量化' then
        adotable1.Fields.Fields[6].AsString :=edit3.text;
     if combobox1.Text = '班委量化' then
        adotable1.Fields.Fields[7].AsString :=edit3.text;
     if combobox1.Text = '学生会量化' then
        adotable1.Fields.Fields[8].AsString :=edit3.text;
     adotable1.Post;
     end;
     //adotable1.Close;
   end;
      edit1.Text :='';
   edit2.Text :='';
   edit3.Text :='';
   checkbox1.Checked :=false;
   checkbox2.Checked :=false;
   checkbox3.Checked :=false;
   checkbox4.Checked :=false;
   combobox1.Text :='';
end;
//量化成绩信息修改
 procedure TFrame13.BitBtn2Click(Sender: TObject);
begin
if edit1.Text ='' then
   showmessage('学号不能为空!')
else
begin
   adotable1.Edit;
   adotable1.Locate('学号',edit1.Text,[]);
end;
end;
//量化成绩查询代码
procedure TFrame13.BitBtn3Click(Sender: TObject);
begin
  if (checkbox5.Checked =false) and (checkbox6.Checked =false )then
     showmessage('请选择查找条件再填入相应值!')
  else
if checkbox5.Checked =true then
 begin
if edit1.Text ='' then
   showmessage('学号不能为空!')
else
  begin
   adotable1.Edit;
   adotable1.Locate('学号',edit1.Text,[]);
   if adotable1.Eof =true then
     showmessage('该数据库中不存在此学号,建议使用姓名查找!');
   edit1.Text :='';
   edit2.Text :='';
   edit3.Text :='';
   checkbox1.Checked :=false;
   checkbox2.Checked :=false;
   checkbox3.Checked :=false;
   checkbox4.Checked :=false;
   checkbox5.Checked :=false;
   checkbox6.Checked :=false;
   combobox1.Text :='';
  end;
  end
  else
    if checkbox6.Checked =true then
      begin
       if edit2.Text ='' then
         showmessage('姓名不能为空!')
    else
     begin
     adotable1.Edit ;
     adotable1.Locate('姓名',edit2.Text,[]);
    if adotable1.Eof =true then
     showmessage('该数据库中不存在此姓名,建议使用学号查找!');
      edit1.Text :='';
   edit2.Text :='';
   edit3.Text :='';
   checkbox1.Checked :=false;
   checkbox2.Checked :=false;
   checkbox3.Checked :=false;
   checkbox4.Checked :=false;
   checkbox5.Checked :=false;
   checkbox6.Checked :=false;
   combobox1.Text :='';
  end;
  end;