masterunit.pas

教学管理系统 功能: 选课,查询成绩,学生信息,修改信息, 录入成绩,修改密码

procedure TmasterForm.SpeedButton1Click(Sender: TObject);
begin
    with adoquery4 do
    begin
     adoquery4.close;
    adoquery4.sql.clear;
    adoquery4.sql.Add('select * from sc where 学号='''+edit2.text+'''and 课程号='''+edit3.text+'''');
    adoquery4.open;
    if recordcount=1 then
      begin
    close;
    adoquery4.sql.clear;
    adoquery4.sql.Add('update sc set 成绩='''+edit4.Text+'''where 学号='''+edit2.text+'''');
    adoquery4.ExecSQL;
    showmessage('恭喜你成绩录入成功@_@');
     end
    else
       showmessage('该生没有选这门课,请确认后再录入');
       exit;
       end

end;

procedure TmasterForm.SpeedButton7Click(Sender: TObject);
begin
      if (combobox3.Text='请选择') or (combobox4.Text='请选择') then
          begin   showmessage ('请选择你要修改的条件或你要修改哪一项 ');
          end
      else
       if  edit9.Text='' then
           begin  showmessage('请输入条件的值!');
           end
       else
           if  edit10.Text='' then
           begin  showmessage('请输入修改值!');
           end
      else
      with adoquery5 do
      begin
        close;
        sql.Clear;
        sql.Add('update course set '+combobox4.text+'='''+edit10.Text+''' where '+combobox3.Text+'='''+edit9.text+'''');
         adoquery5.ExecSQL;
      end

end;

procedure TmasterForm.SpeedButton8Click(Sender: TObject);
begin
    if edit11.Text='' then
       begin  showmessage('请输入课程号!');
       end
    else
    with adoquery5 do
    begin
    adoquery5.close;
    adoquery5.sql.clear;
    adoquery5.SQL.Add('select * from course where 课程号='''+edit11.Text+'''');
    adoquery5.Open;
    if recordcount>0 then
      begin  showmessage('课程已经存在,请确认后重新输入!');
      end 
    else
       if edit12.Text='' then
       begin showmessage('请输入课程名!');
       end
    else
       if edit14.Text='' then
        begin  showmessage('请输入学分!');
        end
    else
    with adoquery5 do
    begin
    adoquery5.close;
    adoquery5.sql.clear;
    adoquery5.sql.Add('insert into course values('''+edit11.Text+''','''+edit12.Text+''','''+edit13.Text+''','''+edit14.Text+''')');
    showmessage('恭喜你,课程增开成功@_@');
    adoquery5.ExecSQL;
    end
    end
end;

procedure TmasterForm.SpeedButton9Click(Sender: TObject);
begin
    if combobox3.Text='请选择' then
     begin  showmessage('请选择删除的条件!');
     end
    else
      if edit9.Text='' then
      begin showmessage('请输入条件值!');
      end
    else
    with adoquery5 do
    begin
    adoquery5.Close;
    adoquery5.sql.Clear;
    adoquery5.SQL.Add('select * from course where '+combobox3.Text+'='''+edit9.Text+'''');
    adoquery5.Open;
    if recordcount=0 then
      begin showmessage('你删除的课程不存在!请确认后再删除!!!');
      end
    else
    begin
    adoquery5.Close;
    adoquery5.sql.Clear;
    adoquery5.SQL.Add('delete from course where '+combobox3.Text+'='''+edit9.Text+'''');
    adoquery5.ExecSQL;
    showmessage('恭喜你!删除成功');
    end
   end
end;

procedure TmasterForm.SpeedButton10Click(Sender: TObject);
begin
     with adoquery1 do
      begin
       datasource1.Enabled:=true;
       adoquery1.close;
       adoquery1.sql.clear;
       adoquery1.sql.Add('select * from student');
       adoquery1.open ;
       end
end;

procedure TmasterForm.SpeedButton12Click(Sender: TObject);
begin
     with adoquery2 do
     begin
       datasource2.Enabled:=true;
       close;
       sql.Clear;
       sql.Add('select 学号,SC.课程号,课程名,成绩 from sc,course where sc.课程号=course.课程号 ');
       open;
     end
end;

procedure TmasterForm.SpeedButton11Click(Sender: TObject);
begin
       with adoquery4 do
     begin
       datasource4.Enabled:=true;
       close;
       sql.Clear;
       sql.Add('select 学号,SC.课程号,课程名,成绩 from sc,course where sc.课程号=course.课程号 ');
       open;
     end
end;

procedure TmasterForm.SpeedButton13Click(Sender: TObject);
begin
     with adoquery1 do
     begin
     close;
     sql.Clear;
     sql.Add('select * from student where 学号='''+edit15.Text+'''');
     open;
     if recordcount=0 then
       begin
        if edit16.Text='' then
          begin showmessage('请输入姓名!');
          END
        ELSE
          if combobox5.Text='请选择' then
          begin showmessage('请选择性别!');
          end
        else
          if edit18.Text='' then
          begin showmessage('请输入年龄!');
          end
        else
        with adoquery1 do
        begin
        close;
         sql.Clear;
         sql.Add('insert into student values('''+edit15.Text+''','''+edit16.Text+''','''+combobox5.Text+''','''+edit18.Text+''','''+edit19.Text+''')') ;
         adoquery1.ExecSQL;
         showmessage('恭喜你!添加成功^_^');
         end
       end
       else
         showmessage('学号已经存在,请重新输入!');
         
     end
end;

procedure TmasterForm.SpeedButton14Click(Sender: TObject);
begin
    if combobox2.Text='请选择' then
     begin  showmessage('请选择删除的条件!');
     end
    else
      if edit1.Text='' then
      begin showmessage('请输入条件值!');
      end
    else
    with adoquery1 do
    begin
    adoquery1.Close;
    adoquery1.sql.Clear;
    adoquery1.SQL.Add('select * from student where '+combobox2.Text+'='''+edit1.Text+'''');
    adoquery1.Open;
    if recordcount=0 then
      begin showmessage('你删除的学生不存在列表中!请确认后再删除!!!');
      end
    else
    begin
    adoquery1.Close;
    adoquery1.sql.Clear;
    adoquery1.SQL.Add('delete from student where '+combobox2.Text+'='''+edit1.Text+'''');
    adoquery1.ExecSQL;
    showmessage('恭喜你!删除成功');
    end
   end
end;

procedure TmasterForm.SpeedButton15Click(Sender: TObject);
var
   st1,st2:string;
begin
     st1:=combobox2.text ;
     st2:=edit1.text;
     datasource1.Enabled:=true;
     if st2='' then
         begin
          showmessage('请输入查询值!');
          exit;
         end
      else
        if st1='请选择' then
        begin
          showmessage('请选择查询条件!');
          exit;
          end
      else
      with adoquery1 do
      begin
       close;
       sql.clear;
       sql.Add('select * from student where '+st1+'='''+st2+'''') ;

       open ;
       end

end;

procedure TmasterForm.SpeedButton16Click(Sender: TObject);
begin
      if edit5.Text='' then
         begin
          showmessage('请输入查询值!');
          exit;
         end
      else
        if combobox1.text='请选择' then
        begin
          showmessage('请选择查询条件!');
          exit;
          end
       else
        begin
        with adoquery2 do
        begin
       datasource2.Enabled:=true;
       close;
       sql.clear;
       sql.Add('select * from sc where '+combobox1.text+'='''+edit5.text+'''') ;
       open;
       ExecSQL ;
        end
       end
     end;

procedure TmasterForm.SpeedButton17Click(Sender: TObject);
begin

      with adoquery5 do
      begin
       close;
       sql.clear;
       sql.Add('select * from course ') ;

       open ;
       end
end;

procedure TmasterForm.SpeedButton18Click(Sender: TObject);
begin
 if (combobox3.Text='请选择') or (combobox4.Text='请选择') then
          begin   showmessage ('请选择你要修改的条件或你要修改哪一项 ');
          end
      else
       if  edit9.Text='' then
           begin  showmessage('请输入条件的值!');
           end
       else
           if  edit10.Text='' then
           begin  showmessage('请输入修改值!');
           end
      else
      with adoquery5 do
      begin
        close;
        sql.Clear;
        sql.Add('update course set '+combobox4.text+'='''+edit10.Text+''' where '+combobox3.Text+'='''+edit9.text+'''');
         adoquery5.ExecSQL;
      end

end;

procedure TmasterForm.SpeedButton19Click(Sender: TObject);
begin
if combobox3.Text='请选择' then
     begin  showmessage('请选择删除的条件!');
     end
    else
      if edit9.Text='' then
      begin showmessage('请输入条件值!');
      end
    else
    with adoquery5 do
    begin
    adoquery5.Close;
    adoquery5.sql.Clear;
    adoquery5.SQL.Add('select * from course where '+combobox3.Text+'='''+edit9.Text+'''');
    adoquery5.Open;
    if recordcount=0 then
      begin showmessage('你删除的课程不存在!请确认后再删除!!!');
      end
    else
    begin
    adoquery5.Close;
    adoquery5.sql.Clear;
    adoquery5.SQL.Add('delete from course where '+combobox3.Text+'='''+edit9.Text+'''');
    adoquery5.ExecSQL;
    showmessage('恭喜你!删除成功');
    end
   end
end;

end.