u_chscore.pas

大学生综合素质及诚信管理系统可以满足管理人员和高级管理员两方面管理学生综合素质及诚信信息的需要。设计充分利用Delphi7、MS SQL Server2000数据库技术的强大力量

unit u_chscore;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  Tf_chscore = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    ADOQuery1: TADOQuery;
    BitBtn9: TBitBtn;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_chscore: Tf_chscore;

implementation

{$R *.dfm}

procedure Tf_chscore.BitBtn5Click(Sender: TObject);
var
sqlstr:string;
begin
 sqlstr:=' update score set score='''+edit2.text+'''';
 sqlstr:=sqlstr+',course='''+combobox1.Text+'''';
 sqlstr:=sqlstr+',type='''+combobox2.Text+'''';
 sqlstr:=sqlstr+' where stuid='''+edit1.text+'''';
    try
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('修改成功!');
       except
       showmessage('数据库连接失败!');
     end;

end;

procedure Tf_chscore.BitBtn9Click(Sender: TObject);
begin
if edit1.Text<>'' then
   begin
   try
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from score where stuid='''+edit1.Text+'''');
       adoquery1.Open;
       if adoquery1.RecordCount=0 then
        begin
          showmessage('该学号不存在！');
          edit1.SetFocus;
        end
        else
        begin
         edit2.Text:=adoquery1.fieldbyname('score').AsString;
         combobox1.Text:=adoquery1.fieldbyname('course').AsString;
         combobox2.Text:=adoquery1.fieldbyname('type').AsString;
        end;
        except
       showmessage('数据库连接失败!');
     end;
    end;
end;     
        
end.