modifystudent.pas

中学考试管理系统 采用智能管理 具有统计分析的能力

unit modifyStudent;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type
  TForm11 = class(TForm)
    GroupBox1: TGroupBox;
    scale: TComboBox;
    cName: TComboBox;
    Label1: TLabel;
    num: TEdit;
    Label2: TLabel;
    uName: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    qry: TADOQuery;
    Button3: TButton;
    Button4: TButton;
    grade: TComboBox;
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure scaleChange(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

uses main, logout;

{$R *.dfm}



procedure TForm11.Button4Click(Sender: TObject);
begin
   Form11.Hide;
   Form14.show;
//  Application.Terminate;
end;

procedure TForm11.Button3Click(Sender: TObject);
begin
  Form11.Hide;
  Form2.show;
end;

procedure TForm11.Button1Click(Sender: TObject);
begin
  with qry do
    begin
      close;
      with sql do
        begin
          clear;
          if (scale.text='按班级修改') then
            add('select * from student where 班级 = '''+cName.Text+''' and 年级='''+grade.Text+'''')
          else if (scale.text='按学号修改') then
            add('select * from student where 学号 = '''+num.Text+'''')
          else if (scale.text='按姓名修改') then
            add('select * from student where 姓名 = '''+uName.Text+'''')
          else
            showMessage('请选择你要修改的范围');
          end;
       // showMessage(sql.Text);
        open;
      end;
   if(qry.Eof) then
      begin
        if(scale.Text='按年级查询') then
          showMessage('你所选择的年级不存在，请重新选择或输入')
        else if  (scale.Text='按班级查询') then
          showMessage('你所选择的班级不存在，请重新选择或输入')
        else if (scale.Text='按学号查询') then
          showMessage( '你所输入的学号不存在，请重新输入')
        else
          showMessage('你所输入的姓名不存在，请重新输入');
       end;
end;

procedure TForm11.Button2Click(Sender: TObject);
begin
  with qry do
    begin
      close;
      with sql do
        begin
          clear;
          if (scale.text='按班级修改') then
            add('select * from student where 班级 = '''+cName.Text+''' and 年级='''+grade.Text+'''')
          else if (scale.text='按学号修改') then
            add('select * from student where 学号 = '''+num.Text+'''')
          else if (scale.text='按姓名修改') then
            add('select * from student where 姓名 = '''+uName.Text+'''')
          else
            showMessage('请选择你要修改的范围');
          end;
       // showMessage(sql.Text);
        open;
      end;
end;

procedure TForm11.FormShow(Sender: TObject);
begin
   Label2.Enabled:=false ;
   uName.Enabled:=false;
   Label1.Enabled:=false;
   uName.Enabled:=false;
   cName.Enabled:=true;
   grade.Enabled:=true;
end;

procedure TForm11.scaleChange(Sender: TObject);
begin
  if (scale.Text='按学号修改') then
    begin
      Label1.Enabled:=true;
      num.Enabled:=true;
      Label2.Enabled:=false;
      uName.Enabled:=false;
      cName.Enabled:=false;
      grade.Enabled:=false;
    end
  else if (scale.Text='按姓名修改') then
    begin
       Label2.Enabled:=true ;
       uName.Enabled:=true;
       Label1.Enabled:=false;
       num.Enabled:=false;
       cName.Enabled:=false;
       grade.Enabled:=false;
    end
  else if (scale.Text='按班级修改') then
    begin
      Label2.Enabled:=false ;
      uName.Enabled:=false;
      Label1.Enabled:=false;
      uName.Enabled:=false;
      cName.Enabled:=true;
      grade.Enabled:=true;
    end

end;

end.