📄 unit2.pas

📁 SQL server 2000 + Delphi 7 做的学生管理及综合积分测评系统。
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23

procedure TForm2.Button9Click(Sender: TObject);
begin
  ADOQuery5.SQL.Clear;
  ADOQuery5.SQL.Add('select 学年,学期,班级,学生.学号,姓名,日常得分,活动得分 from 课外考评,学生 where 学生.学号=课外考评.学号 and  学年='''+ComboBox9.Text+''' and 学期='''+ComboBox10.Text+''' and 学生.学号='''+edit14.Text+'''  ');
  ADOQuery5.Close;
  ADOQuery5.Open;
end;

procedure TForm2.Button13Click(Sender: TObject);
begin
if(edit17.Text<>'')then
  begin
  ADOQuery8.SQL.Clear;
  ADOQuery8.SQL.Text:='select 班级 from 测评比例 where 学年='''+ComboBox13.Text+''' and 学期='''+ComboBox14.Text+''' and 班级='''+edit17.Text+'''  ';
  ADOQuery8.Close;
  ADOQuery8.Open;

  if(ADOQuery8.FieldByName('班级').AsString='')then
     begin
     ADOCommand1.CommandText:='insert into 测评比例 values('''+ComboBox13.Text+''','''+ComboBox14.Text+''','''+edit17.Text+''','''+ComboBox16.Text+''','''+ComboBox17.Text+''') ';
     ADOCommand1.Execute;
     end
  else
    begin
     ADOCommand1.CommandText:='update 测评比例 set 考试成绩比例='''+ComboBox16.Text+'''  where 学年='''+ComboBox13.Text+''' and 学期='''+ComboBox14.Text+''' and 班级='''+edit17.Text+'''  ';
     ADOCommand1.Execute;
     ADOCommand1.CommandText:='update 测评比例 set 日常行为比例='''+ComboBox17.Text+'''  where 学年='''+ComboBox13.Text+''' and 学期='''+ComboBox14.Text+''' and 班级='''+edit17.Text+'''  ';
     ADOCommand1.Execute;
   end;

  ADOQuery7.SQL.Clear;
  ADOQuery7.SQL.Text:='select * from 综合测评积分 where 学年='''+ComboBox13.Text+''' and 学期='''+ComboBox14.Text+''' and 班级='''+edit17.Text+'''  ';
  ADOQuery7.Close;
  ADOQuery7.Open;
  end
  else
  begin
    showmessage('请输入班级');
    end
end;

procedure TForm2.Button14Click(Sender: TObject);
begin
  ADOQuery7.SQL.Clear;
  ADOQuery7.SQL.Add('select * from 综合测评积分');
  ADOQuery7.Close;
  ADOQuery7.Open;
end;

procedure TForm2.TabSheet6Show(Sender: TObject);
begin
  ADOQuery7.SQL.Clear;
  ADOQuery7.SQL.Add('select * from 综合测评积分');
  ADOQuery7.Close;
  ADOQuery7.Open;
end;

procedure TForm2.ComboBox17Change(Sender: TObject);
begin
  edit16.Text:= FloatToStr(1-StrToFloat(ComboBox16.Text)-StrToFloat(ComboBox17.Text));
end;

procedure TForm2.ComboBox16Change(Sender: TObject);
begin
  edit16.Text:= FloatToStr(1-StrToFloat(ComboBox16.Text)-StrToFloat(ComboBox17.Text));
end;

procedure TForm2.Button12Click(Sender: TObject);
begin
  ADOQuery9.Close;
  ADOQuery9.SQL.Clear;
  ADOQuery9.SQL.Text:='select 用户名 from 用户管理 where 用户名='''+Edit18.Text+''' and 密码='''+Edit19.text+''' and 类型='''+combobox15.Text+'''  ';
  ADOQuery9.Open;
  if(ADOQuery9.FieldByName('用户名').AsString<>'') then
    begin
    if (Edit20.text=Edit21.text)  then
      begin
      ADOCommand1.CommandText:='UPDATE 用户管理 SET  密码='''+Edit20.text+''' WHERE 用户名='''+Edit18.Text+''' ';
      ADOCommand1.Execute;
      ShowMessage(' '''+Edit18.text+''' 修改成功');
      end
    else
      begin
      showmessage('密码不一致');
      end
    end
  else
    begin
      ShowMessage('用户名，密码错误或不存在');
    end
end;

procedure TForm2.Button15Click(Sender: TObject);
begin
  combobox15.ItemIndex:=0;
  edit18.Text:='';
  edit19.Text:='';
  edit20.Text:='';
  edit21.Text:='';
end;

procedure TForm2.Button16Click(Sender: TObject);
begin
  if (Edit22.text='') then
    begin
    showmessage('用户名不能为空');
    end
  else
    begin
    ADOQuery9.Close;
    ADOQuery9.SQL.Clear;
    ADOQuery9.SQL.Text:='select 用户名 from 用户管理 where 用户名='''+Edit22.Text+''' ';
    ADOQuery9.Open;
    if(ADOQuery9.FieldByName('用户名').AsString<>'') then
      begin
      ShowMessage('该用户名已被占用');
      end
    else
      begin
      if (Edit23.text=Edit24.text) then
        begin
        ADOCommand1.CommandText:='INSERT INTO 用户管理 VALUES('''+Edit22.text+''','''+Edit23.text+''','''+combobox18.Text+''') ';
        ADOCommand1.Execute;
        ShowMessage(' '''+Edit22.text+''' 添加成功');
        end
      else
        begin
        showmessage('密码不一致');
        end
      end
    end
end;

procedure TForm2.Button17Click(Sender: TObject);
begin
  combobox18.ItemIndex:=0;
  edit22.Text:='';
  edit23.Text:='';
  edit24.Text:='';
end;

procedure TForm2.Button18Click(Sender: TObject);
begin

  ADOCommand1.CommandText:='DELETE FROM 用户管理 WHERE 用户名='''+dblookupcombobox2.Text+''' ';
  ADOCommand1.Execute;
  ShowMessage(' '''+dblookupcombobox2.Text+''' 删除成功');
end;

procedure TForm2.TabSheet3Show(Sender: TObject);
begin
   ADOQuery10.SQL.Clear;
   ADOQuery10.SQL.Add('select * from 用户管理 where 类型<>''系统管理员'' ');
   ADOQuery10.Close;
   ADOQuery10.Open;
end;

procedure TForm2.Button20Click(Sender: TObject);
begin
  ADOQuery9.Close;
  ADOQuery9.SQL.Clear;
  ADOQuery9.SQL.Text:='select 用户名 from 用户管理 where 用户名='''+Edit25.Text+''' and 密码='''+Edit26.text+''' and 类型=''系统管理员''  ';
  ADOQuery9.Open;
  if(ADOQuery9.FieldByName('用户名').AsString<>'') then
    begin
    if (Edit27.text=Edit28.text)  then
      begin
      ADOCommand1.CommandText:='UPDATE 用户管理 SET  密码='''+Edit27.text+''' WHERE 用户名='''+Edit25.Text+''' ';
      ADOCommand1.Execute;
      ShowMessage(' '''+Edit25.text+''' 修改成功');
      end
    else
      begin
      showmessage('密码不一致');
      end
    end
  else
    begin
      ShowMessage('用户名，密码错误或不存在');
    end
end;

procedure TForm2.Button19Click(Sender: TObject);
begin
  if(combobox21.Text='个人')then
    begin
      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select count(*) as num from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+''' and 学号='''+edit29.Text+''' ');
      ADOQuery7.Close;
      ADOQuery7.Open;
      label4.Caption:='共 '+ADOQuery7.Fieldbyname('num').AsString+' 人';

      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select * from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+''' and 学号='''+edit29.Text+''' ');
      ADOQuery7.Close;
      ADOQuery7.Open;
    end
    else if(combobox21.Text='班级')then
    begin
      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select count(*) as num from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+''' and 班级='''+edit29.Text+''' ');
      ADOQuery7.Close;
      ADOQuery7.Open;
      label4.Caption:='共 '+ADOQuery7.Fieldbyname('num').AsString+' 人';

      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select * from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+''' and 班级='''+edit29.Text+''' ');
      ADOQuery7.Close;
      ADOQuery7.Open;
    end
    else if(combobox21.Text='年级')then
    begin
      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select count(*) as num from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+''' and 班级 like '''+edit29.Text+'______'' ');
      ADOQuery7.Close;
      ADOQuery7.Open;
      label4.Caption:='共 '+ADOQuery7.Fieldbyname('num').AsString+' 人';

      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select * from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+'''  and 班级 like '''+edit29.Text+'______'' ');
      ADOQuery7.Close;
      ADOQuery7.Open;
    end
end;

procedure TForm2.Button22Click(Sender: TObject);
begin
   if(combobox21.Text='个人')then
    begin
      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select * from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+''' and 学号='''+edit29.Text+''' order by 综合测评积分 desc');
      ADOQuery7.Close;
      ADOQuery7.Open;
    end
    else if(combobox21.Text='班级')then
    begin
      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select * from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+''' and 班级='''+edit29.Text+'''  order by 综合测评积分 desc');
      ADOQuery7.Close;
      ADOQuery7.Open;
    end
    else if(combobox21.Text='年级')then
    begin
      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('select * from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+'''  and 班级 like '''+edit29.Text+'______''  order by 综合测评积分 desc');
      ADOQuery7.Close;
      ADOQuery7.Open;
    end
end;

procedure TForm2.Button23Click(Sender: TObject);
begin
  ADOQuery7.SQL.Clear;
  ADOQuery7.SQL.Add('select 班级,avg(综合测评积分) as 班级均分  from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+'''  and 班级 like '''+edit29.Text+'______'' group by 班级  order by  班级均分 desc');
  ADOQuery7.Close;
  ADOQuery7.Open;
end;

procedure TForm2.Button24Click(Sender: TObject);
begin
  ADOQuery7.SQL.Clear;
  ADOQuery7.SQL.Add('select sum(综合测评积分)/count(*) as 年级均分  from 综合测评积分 where 学年='''+ComboBox19.Text+''' and 学期='''+ComboBox20.Text+'''  and 班级 like '''+edit29.Text+'______''  ');
  ADOQuery7.Close;
  ADOQuery7.Open;
end;

procedure TForm2.ComboBox21Change(Sender: TObject);
begin
if(ComboBox21.Text='个人')then
  begin
     label5.Caption:='学号';
     button19.Enabled:=true;
     button22.Enabled:=false;
     button23.Enabled:=false;
     button24.Enabled:=false;
  end
  else if(ComboBox21.Text='班级')then
  begin
    label5.Caption:='班级';
     button19.Enabled:=true;
     button22.Enabled:=true;
     button23.Enabled:=false;
     button24.Enabled:=false;
  end
  else
  begin
    label5.Caption:='年级';
     button19.Enabled:=true;
     button22.Enabled:=true;
     button23.Enabled:=true;
     button24.Enabled:=true;
  end
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  if(form1.combobox1.Text='系统管理员')then
  begin
    bitbtn3.Enabled:=true;
    bitbtn4.Enabled:=true;
    button2.Enabled:=true;
    button3.Enabled:=true;
    dbnavigator1.Enabled:=true;
    button13.Enabled:=true;
    button16.Enabled:=true;
    button17.Enabled:=true;
    button18.Enabled:=true;
    button20.Enabled:=true;
    button21.Enabled:=true;
    end
  else if(form1.combobox1.Text='操作用户') then
  begin
    bitbtn3.Enabled:=true;
    bitbtn4.Enabled:=true;
    button2.Enabled:=true;
    button3.Enabled:=true;
    dbnavigator1.Enabled:=true;
    button13.Enabled:=false;
    button16.Enabled:=false;
    button17.Enabled:=false;
    button18.Enabled:=false;
    button20.Enabled:=false;
    button21.Enabled:=false;
    end
  else
  begin
    bitbtn3.Enabled:=false;
    bitbtn4.Enabled:=false;
    button2.Enabled:=false;
    button3.Enabled:=false;
    dbnavigator1.Enabled:=false;
    button13.Enabled:=false;
    button16.Enabled:=false;
    button17.Enabled:=false;
    button18.Enabled:=false;
    button20.Enabled:=false;
    button21.Enabled:=false;
    end
end;

end.
上一页 1 23
💿 文件大小 609 K
👤 上传用户 sfdong
📂 所属分类 SQL Server
🏷️ 相关标签

#Delphi #server #2000 #SQL
⌨️ 快捷键说明

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