modifymark.pas

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

unit modifyMark;

interface

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

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

var
  Form12: TForm12;

implementation

uses main, logout;

{$R *.dfm}

procedure TForm12.Button3Click(Sender: TObject);
begin
 Form12.hide;
 Form2.show;
end;

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

procedure TForm12.Button1Click(Sender: TObject);
var
numText,uNameText,class_name,grade_name:String;
begin
  numText:='';
  uNameText:='';
  class_name:='';
  grade_name:='';
  if(gName.Text='初一') then grade_name:='grade1_mark'
  else if (gName.Text='初二') then grade_name:='grade2_mark'
  else if (gName.Text='初三') then grade_name:='grade3_mark';
  with qry do
    begin
      close;
      with sql do
        begin
          clear;
          if (scale.text='按班级修改') then
            begin
              if(cName.Text='一班') then class_name:='一班'
              else if (cName.Text='二班') then class_name:='二班';
              add('select * from '+grade_name+'  where 班级 = '''+class_name+'''') ;
            end
          else if (scale.text='按学号修改') then
            begin
              numText:=num.Text;
              add('select * from '+grade_name+'  where 学号 = '''+num.Text+'''');
            end
          else if (scale.text='按姓名修改') then
            begin
              uNameText:=uName.Text;
              add('select * from  '+grade_name+'  where 姓名 = '''+uName.Text+'''');
            end
          else
            showMessage('请选择你要修改的范围');
          end;
          if(scale.text='按班级修改') then
            begin
              if((grade_name='') or (class_name='')) then showMessage('请先选择年级和班级')
              else open;
            end
          else if (scale.text='按学号修改') then
            begin
              if((grade_name='') or (numText='')) then showMessage('请先输入年级和学号')
              else open;
            end
          else if (scale.text='按姓名修改') then
            begin
              if((grade_name='') or (uNameText='')) then showMessage('请先输入年级和姓名')
              else open;
            end

      end;

end;

procedure TForm12.Button2Click(Sender: TObject);
var
numText,uNameText,class_name,grade_name:String;
begin
  numText:='';
  uNameText:='';
  class_name:='';
  grade_name:='';
  if(gName.Text='初一') then grade_name:='grade1_mark'
  else if (gName.Text='初二') then grade_name:='grade2_mark'
  else if (gName.Text='初三') then grade_name:='grade3_mark';
  with qry do
    begin
      close;
      with sql do
        begin
          clear;
          if (scale.text='按班级修改') then
            begin
              if(cName.Text='一班') then class_name:='一班'
              else if (cName.Text='二班') then class_name:='二班';
              add('select * from '+grade_name+'  where 班级 = '''+class_name+'''') ;
            end
          else if (scale.text='按学号修改') then
            begin
              numText:=num.Text;
              add('select * from '+grade_name+'  where 学号 = '''+num.Text+'''');
            end
          else if (scale.text='按姓名修改') then
            begin
              uNameText:=uName.Text;
              add('select * from  '+grade_name+'  where 姓名 = '''+uName.Text+'''');
            end
          else
            showMessage('请选择你要修改的范围');
          end;
          if(scale.text='按班级修改') then
            begin
              if((grade_name='') or (class_name='')) then showMessage('请先选择年级和班级')
              else open;
            end
          else if (scale.text='按学号修改') then
            begin
              if((grade_name='') or (numText='')) then showMessage('请先输入年级和学号')
              else open;
            end
          else if (scale.text='按姓名修改') then
            begin
              if((grade_name='') or (uNameText='')) then showMessage('请先输入年级和姓名')
              else open;
            end

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

procedure TForm12.FormShow(Sender: TObject);
begin
   Label2.Enabled:=false ;
   num.Enabled:=false;
   Label1.Enabled:=false;
   uName.Enabled:=false;
   cName.Enabled:=true;
   gName.Enabled:=true;
end;

end.