unit1.pas

DELPHI开发的学生成绩管理系统

begin
  cond:='';
  if combobox3.Text <> '' then
    cond:=cond+' and '+'年级="'+combobox3.Text+'"';
  if combobox4.Text <>'' then
    cond:=cond+' and '+'学期="'+combobox4.Text+'"';
  if edit2.Text <>'' then
    cond:=cond+' and '+'课程.课程="'+edit2.Text+'"';
  findcoursesql(cond);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

  if (edit1.Text ='')or (combobox2.Text ='') then exit;
  with datamodel.DataModule2.ADOQuery1 do
    begin
      try
        close;
        sql.Clear;
        sql.Add('insert into 年级(年级,学期,课程,备注)');
        sql.Add('values("'+combobox5.Text +'","'+combobox6.Text +'","'+edit1.text+'","'+memo1.Text +'")');

             execsql;
       except
         statictext1.Caption:='  课程"'+edit1.Text +'"在数据库中已经存！不能插入！';
         //showmessage('1');
         exit;
       end;

       try
         close;
         sql.Clear;
         sql.Add('insert into 课程(学院,课程)');
         sql.Add('values("'+combobox2.Text +'","'+edit1.text+'")');
         //sql.Add('values("好","课程打发"');
         execsql;
       except
         showmessage('插入数据出错～');
         exit;
       end;

       statictext1.Caption:='  课程"'+edit1.Text +'"已经成功的加到数据库！';
     end;


end;

procedure TForm1.N1Click(Sender: TObject);
var
  tempStr:string;
  resp:word;
  deletestr:string;
begin

  with datamodel.DataModule2.ADOQuery1 do
    begin
      deletestr:= fields[0].AsString ;//dbedit2.EditText;
      resp:=messagedlg('确定要删除课程为[ '+deletestr+' ]这个记录吗？',mtconfirmation,[mbyes,mbno],0);
      if resp=mrno then exit;
      //showmessage(deletestr);
      tempstr:='where 课程="'+deletestr +'"'+' and 学院="'+fields[1].AsString +'"';
      //
      close;
      sql.Clear;
      sql.Add('delete from  课程');
      sql.Add(tempstr);
      execsql;

      tempstr:='where 课程="'+deletestr+'"';
      //tempstr:='where 课程="edit1"';
      //
      close;
      sql.Clear;
      sql.Add('delete from  年级');
      sql.Add(tempstr);
      execsql;
    end;
  ComboBox1Change(Sender);
end;

procedure TForm1.ComboBox7Change(Sender: TObject);
var
  cond:string;
begin

   cond:='';
 { if combobox8.Text <> '' then
    cond:=cond+' and 专业="'+combobox8.Text+'"';
  if combobox4.Text <>'' then
   cond:=cond+' and '+'学期="'+combobox4.Text+'"';

  if edit3.Text <>'' then
    cond:=cond+' 学号="'+edit3.Text+'" and ' ;
   }
  

   with datamodel.DataModule2.ADOQuery1 do
     begin
       close;
       sql.Clear;
       sql.Add('select distinct *');
       sql.Add('from 学生');
       if combobox7.ItemIndex <>0 then
         begin
           cond:=cond+'学院="'+combobox7.Text +'"';
           sql.add('where '+ cond);
         end
       else
         cond:='';

       sql.Add('order by 学院');
       open;
     end;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if edit3.Text ='' then
    exit;
  with datamodel.DataModule2.ADOQuery1 do
     begin
       close;
       sql.Clear;
       sql.Add('select distinct *');
       sql.Add('from 学生');
       sql.add('where 学号="'+edit3.Text+'"');
       sql.Add('order by 学院');
       open;
     end;
end;

procedure TForm1.MenuItem1Click(Sender: TObject);
var
  tempStr:string;
  resp:word;
  deletestr:string;
begin

  with datamodel.DataModule2.ADOQuery1 do
    begin
      deletestr:= fieldbyname('学号').AsString ;//dbedit2.EditText;
      //showmessage(deletestr);
      resp:=messagedlg('确定要删除学号为[ '+deletestr+' ]这个记录吗？',mtconfirmation,[mbyes,mbno],0);
      if resp=mrno then exit;
      tempstr:='where 学号="'+deletestr +'"';
      //
      close;
      sql.Clear;
      sql.Add('delete from  学生');
      sql.Add(tempstr);
      execsql;

      //tempstr:='where 课程="'+deletestr+'"';
      //tempstr:='where 课程="edit1"';
      //
      close;
      sql.Clear;
      sql.Add('delete from  成绩');
      sql.Add(tempstr);
      execsql;

    end;
  ComboBox7Change(Sender);
end;


procedure TForm1.BitBtn4Click(Sender: TObject);
begin

  if (edit4.Text ='')or (edit5.Text ='')or(edit6.Text ='') then
    exit;
  //showmessage('1');
  with datamodel.DataModule2.ADOQuery1 do
    begin
      try
        close;
        sql.Clear;
        sql.Add('insert into 学生(学号,学生姓名,专业,学院,备注)');
        sql.Add('values("'+edit6.Text +'","'+edit4.Text+'","'+edit5.Text+'","'+combobox10.Text +'","'+memo2.Text +'")');

        execsql;
       except
         statictext2.Caption:='  学号"'+edit6.Text +'"在数据库中已经存！不能插入！';

         exit;
       end;
      {
       try
         close;
         sql.Clear;
         sql.Add('insert into 课程(学院,课程)');
         sql.Add('values("'+combobox2.Text +'","'+edit1.text+'")');
         //sql.Add('values("好","课程打发"');
         execsql;
       except
         showmessage('插入数据出错～');
         exit;
       end;
       }
       statictext2.Caption:='  学号：学生"'+edit6.Text +':'+edit4.text+'"已经添加到数据库！';
     end;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
   if edit7.text= '' then exit;

   with datamodel.DataModule2.ADOQuery1 do
     begin
       close;
       sql.Clear;
       sql.Add('select distinct *');
       sql.Add('from 成绩,学生');
       sql.add('where 成绩.学号=学生.学号 and 学生.学号="'+edit7.Text+'"');
       sql.Add('order by 学生.学号');
       open;
     end;
end;

procedure TForm1.GetCourse(which:Tcombobox);
var
  i:integer;
begin
  with  datamodel.DataModule2 do
        begin
          quarytemp.close;
          quarytemp.SQL.Clear;
          quarytemp.SQL.Add('select distinct 课程');
          quarytemp.SQL.Add('from 课程');
          quarytemp.Open;
        end;
      which.Items.Clear;
      with datamodel.DataModule2 do
        begin
          for i:=1 to  QuaryTemp.RecordCount do
            begin
            //QuaryTemp.FieldByName('学院').AsString
              which.Items.Add(QuaryTemp.FieldByName('课程').AsString);
              quarytemp.Next;
            end;
        end;
      which.ItemIndex :=0;
end;

procedure TForm1.MenuItem2Click(Sender: TObject);
var
  tempStr:string;
  resp:word;
  deletestr,a:string;
begin

  with datamodel.DataModule2.ADOQuery1 do
    begin
      deletestr:= fieldbyname('学生.学号').AsString ;//dbedit2.EditText;
      a:=fieldbyname('课程').AsString;
      //showmessage(deletestr);
      //exit;
      resp:=messagedlg('确定要删除学号为[ '+deletestr+'：'+a+ ' ]这个记录吗？',mtconfirmation,[mbyes,mbno],0);
      if resp=mrno then exit;
      tempstr:='where 学号="'+deletestr +'" and '+'课程="'+a+'"';
      //
      close;
      sql.Clear;
      sql.Add('delete from  成绩');
      sql.Add(tempstr);
      execsql;

    end;
  //ComboBox7Change(Sender);
   PageControl2Change(Sender);
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  if (edit8.Text ='')or (edit9.Text ='') then exit;
  with datamodel.DataModule2.ADOQuery1 do
    begin
      try
        close;
        sql.Clear;
        sql.Add('insert into 成绩(学号,课程,成绩)');
        sql.Add('values("'+edit8.Text +'","'+combobox12.Text +'","'+edit9.text+'")');

        execsql;
       except
         statictext3.Caption:='  课程"'+edit8.Text +':'+combobox12.Text+'"：数据库中已经存这个组合！不能插入！';
         //showmessage('1');
         exit;
       end;

       statictext3.Caption:='  课程"'+combobox12.Text +'"已经成功的加到数据库！';
     end;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  PageControl2Change(Sender);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  PageControl2Change(Sender);
end;

procedure TForm1.ComboBox12Change(Sender: TObject);
begin
  edit9.SetFocus;
end;

end.