📄 insertmark.~pas

📁 中学考试管理系统采用智能管理具有统计分析的能力
💻 ~PAS
字号:
unit insertMark;

interface

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

type
  TForm4 = class(TForm)
    ADOConnection1: TADOConnection;
    searchQry: TADOQuery;
    DataSource1: TDataSource;
    sumQry: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    num: TEdit;
    Label2: TLabel;
    huaXue: TEdit;
    Button6: TButton;
    Button7: TButton;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    gName: TComboBox;
    cName: TComboBox;
    Button3: TButton;
    shuXue: TEdit;
    yuWen: TEdit;
    yingYu: TEdit;
    zhengZhi: TEdit;
    liShi: TEdit;
    wuLi: TEdit;
    diLi: TEdit;
    shengWu: TEdit;
    updateQry: TADOQuery;
    Label11: TLabel;
    timeCB: TComboBox;
    Label12: TLabel;
    kindCB: TComboBox;
    kindQry: TADOQuery;
    Label13: TLabel;
    nameEd: TEdit;
    Label14: TLabel;

    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
   
    procedure numChange(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure gNameChange(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  table_name: String;
implementation

uses main, logout;

{$R *.dfm}

procedure TForm4.Button3Click(Sender: TObject);

begin
  table_name:='';

  if(gName.Text='初一') then table_name:='grade1_mark'
  else if (gName.Text='初二') then table_name:='grade2_mark'
  else if (gName.Text='初三') then table_name:='grade3_mark';
  if ((table_name<>'') and (cName.Text<>'请选择班级')) then
    begin
      with searchQry do
        begin
         close;
         with sql do
          begin
            clear;
            add('select * from  '+table_name+'  where 班级 = '''+cName.Text+'''');
          end;
       //   showMessage(sql.Text);
          open;
         end;
     end
   else showMessage('请先选择你要录入成绩的年级与班级名称');

end;

procedure TForm4.Button2Click(Sender: TObject);
begin
   Form4.Hide;
   Form14.show;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
  Form4.Hide;
  Form2.show;
end;

procedure TForm4.Button1Click(Sender: TObject);

begin
    with sumQry do
    begin
      close;
      with sql do
        begin
          clear;
          if(table_name='grade1_mark') then
            add('update grade1_mark set 总成绩 = 数学+语文+英语+政治+历史 where 班级 = '''+cName.Text+'''')
          else if(table_name='grade2_mark') then
            add( 'update grade2_mark set 总成绩 = 数学+语文+英语+政治+历史+物理+生物+地理 where 班级 = '''+cName.Text+'''')
          else if(table_name='grade3_mark') then
            add( 'update grade3_mark set 总成绩 = 数学+语文+英语+政治+历史+物理+生物+地理+化学 where 班级 = '''+cName.Text+'''');
        end;
        //showMessage(sql.Text);
        execsql;

     if(gName.Text='初一') then table_name:='grade1_mark'
     else if (gName.Text='初二') then table_name:='grade2_mark'
     else if (gName.Text='初三') then table_name:='grade3_mark';
     if ((table_name<>'') and (cName.Text<>'请选择班级')) then
       begin
         with searchQry do
         begin
           close;
           with sql do
             begin
               clear;
               add('select * from  '+table_name+'  where 班级 = '''+cName.Text+'''');
             end;
       //   showMessage(sql.Text);
            open;
          end;
        end ;
    end;

end;

procedure TForm4.Button5Click(Sender: TObject);

begin
    with searchQry do
    begin
      close;
      with sql do
        begin
          clear;
          add('select * from  '+table_name+' where 班级 = '''+cName.Text+'''');
        end;
        open;
    end;
end;

procedure TForm4.FormShow(Sender: TObject);
var
  i:integer;
  cNum:String;
begin
  gName.Text:='初一';

  cName.Text:='一班';
  wuLi.Enabled:=false;
  diLi.Enabled:=false;
  shengWu.Enabled:=false;
  huaXue.Enabled:=false;

  Label7.Enabled:=false;
  Label8.Enabled:=false;
  Label9.Enabled:=false;
  Label10.Enabled:=false;

  i:=1;
  kindQry.Close;
  kindQry.SQL.Clear;
  kindQry.SQL.Add('select distinct(考试类别) from grade1_mark');
  kindQry.Open;
  kindCB.Clear;
  while((i<=kindQry.RecordCount) and (not(kindQry.Eof)) ) do 
    begin
      cNum:=kindQry.Fields[0].asString;
      if(i=1) then
        kindCB.Text:=cNum;
      kindCB.Items.Add(cNum) ;
      kindQry.Next;
      i:=i+1;
    end;


end;



procedure TForm4.numChange(Sender: TObject);
begin
  if length(num.Text)>0 then Button6.Enabled:=true
  else Button6.Enabled:=false;
end;

procedure TForm4.Button6Click(Sender: TObject);
var
table_name:String;
begin
  if(gName.Text='初一') then table_name:='grade1_mark'
  else if(gName.Text='初二') then  table_name:='grade2_mark'
  else if(gName.Text='初三') then  table_name:='grade3_mark';
  if(length(num.Text)<8) then showMessage('请输入8位正确的学号')
  else  begin
    updateQry.Close;
    updateQry.sql.Clear;
    updateQry.sql.Add('select * from '+table_name+' where 学号='''+num.Text+'''');
    updateQry.Open;
    if not(updateQry.Eof) then
     begin
      if(table_name='grade1_mark') then
        begin
          updateQry.Close;
          updateQry.SQL.Clear;
          updateQry.SQL.add('update  grade1_mark  set 数学 = '+shuXue.Text+',  语文 = '+yuWen.Text+', 英语 = '+yingYu.Text+', 政治 = '+zhengZhi.Text+', 历史='+liShi.Text+', 时间='''+timeCB.Text+''', 考试类别='''+kindCB.Text+''' where 学号='''+num.Text+'''')
        end
      else if (table_name='grade2_mark') then
        begin
          updateQry.close;
          updateQry.SQL.Clear;
          updateQry.SQL.Add('update  grade2_mark  set 数学 = '+shuXue.Text+',  语文 = '+yuWen.Text+', 英语 = '+yingYu.Text+', 政治 = '+zhengZhi.Text+', 历史='+liShi.Text+',物理='+wuLi.Text+', 地理='+diLi.Text+',生物='+shengWu.Text+', 时间='''+timeCB.Text+''', 考试类别='''+kindCB.Text+''' where 学号='''+num.Text+'''')
        end
      else if (table_name='grade3_mark') then
        begin
          updateQry.close;
          updateQry.SQL.Clear;
          updateQry.SQL.Add('update  grade3_mark  set 数学 = '+shuXue.Text+',  语文 = '+yuWen.Text+', 英语 = '+yingYu.Text+', 政治 = '+zhengZhi.Text+', 历史='+liShi.Text+',物理='+wuLi.Text+', 地理='+diLi.Text+',生物='+shengWu.Text+',化学='+huaXue.Text+', 时间='''+timeCB.Text+''', 考试类别='''+kindCB.Text+'''  where 学号='''+num.Text+'''');
        end ;
      end  
    else
      begin
        if(table_name='grade1_mark') then
        begin
          updateQry.Close;
          updateQry.SQL.Clear;
          updateQry.SQL.add('insert into  grade1_mark (学号, 姓名, 数学, 语文, 英语, 政治, 历史, 时间, 考试类别 ,班级)  values('''+num.Text+''','''+nameEd.Text+''','+shuXue.Text+','+yuWen.Text+', '+yingYu.Text+','+zhengZhi.Text+','+liShi.Text+','''+timeCB.Text+''','''+kindCB.Text+''','''+cName.Text+''')');
        end
      else if (table_name='grade2_mark') then
        begin
          updateQry.close;
          updateQry.SQL.Clear;
          updateQry.SQL.Add('insert into  grade2_mark (学号, 姓名, 数学, 语文, 英语, 政治, 历史,物理, 地理, 生物, 时间, 考试类别 ,班级)  values('''+num.Text+''','''+nameEd.Text+''','+shuXue.Text+','+yuWen.Text+','+yingYu.Text+','+zhengZhi.Text+','+liShi.Text+','+wuLi.Text+','+diLi.Text+','+shengWu.Text+','''+timeCB.Text+''','''+kindCB.Text+''','''+cName.Text+''')');
        end
      else if (table_name='grade3_mark') then
        begin
          updateQry.close;
          updateQry.SQL.Clear;
          updateQry.SQL.Add('insert into  grade3_mark (学号, 姓名, 数学, 语文, 英语, 政治, 历史,物理, 地理, 生物,化学,时间, 考试类别 ,班级)  values('''+num.Text+''','''+nameEd.Text+''','+shuXue.Text+','+yuWen.Text+','+yingYu.Text+','+zhengZhi.Text+','+liShi.Text+','+wuLi.Text+','+diLi.Text+','+shengWu.Text+','+huaXue.Text+','''+timeCB.Text+''','''+kindCB.Text+''','''+cName.Text+''')');
        end;
      end;
    try
    showMessage(updateQry.SQL.Text);
     updateQry.ExecSQL;
     updateQry.Close;
     with searchQry do
       begin
       close;
       with sql do
         begin
           clear;
           add('select * from  '+table_name+' where 班级 = '''+cName.Text+'''');
         end;
       open;
       end;
    except
      showMessage('成绩输入失败，请尝试重新输入');
    end;
  end;
end;

procedure TForm4.gNameChange(Sender: TObject);
begin
   if(gName.Text='初一') then
    begin
      wuLi.Enabled:=false;
      diLi.Enabled:=false;
      shengWu.Enabled:=false;
      huaXue.Enabled:=false;

      Label7.Enabled:=false;
      Label8.Enabled:=false;
      Label9.Enabled:=false;
      Label10.Enabled:=false;
    end
  else if(gName.Text='初二') then
    begin
      wuLi.Enabled:=true;
      diLi.Enabled:=true;
      shengWu.Enabled:=true;
      huaXue.Enabled:=false;
      Label9.Enabled:=false;
      Label7.Enabled:=true;
      Label8.Enabled:=true;
      Label10.Enabled:=true;
    end
  else if(gName.Text='初三') then
    begin
      wuLi.Enabled:=true;
      diLi.Enabled:=true;
      shengWu.Enabled:=true;
      huaXue.Enabled:=true;
      Label9.Enabled:=true;
      Label7.Enabled:=true;
      Label8.Enabled:=true;
      Label10.Enabled:=true;

    end;


end;

procedure TForm4.Button7Click(Sender: TObject);
begin
  num.clear;
  shuXue.Clear;
  yuWen.Clear;
  yingYu.Clear;
  zhengZhi.Clear;
  liShi.Clear;
  wuLi.Clear;
  diLi.Clear;
  shengWu.Clear;
  huaXue.Clear;
end;

end.
💿 文件大小 928 K
👤 上传用户 yxm_325
📂 所属分类教育系统应用
🏷️ 相关标签

#管理系统 #智能管理 #统计分析
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -