u_addscore.pas

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

unit u_addscore;

interface

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

type
  Tf_addscore = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    ComboBox2: TComboBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  xh,kc,fs,lx:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_addscore: Tf_addscore;

implementation

{$R *.dfm}

procedure Tf_addscore.BitBtn1Click(Sender: TObject);
var sqlstr:string;
begin
  try
       sqlstr:=' insert into score values('''+edit1.text+''','''+combobox1.text+''','''+combobox2.Text+''','''+edit2.text+''')';
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('添加成功!');
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(' select * from  score order by stuid ');
       adoquery1.Open; 
     except
       showmessage('该学号已存在或数据库连接失败!');
     end;

end;

procedure Tf_addscore.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tf_addscore.DBGrid1CellClick(Column: TColumn);
begin
 edit1.Text:=dbgrid1.Fields[0].AsString;
 combobox1.Text:=dbgrid1.Fields[1].AsString;
 edit2.Text:=dbgrid1.Fields[3].AsString;
 combobox2.Text:=dbgrid1.Fields[2].AsString;
 xh:=dbgrid1.Fields[0].AsString;
 kc:=dbgrid1.Fields[1].AsString;
 fs:=dbgrid1.Fields[3].AsString;
 lx:=dbgrid1.Fields[2].AsString;

end;

procedure Tf_addscore.Button1Click(Sender: TObject);

var
sqlstr:string;
begin
   try

       sqlstr:=' update score set stuid='''+edit1.Text+''',course='''+combobox1.Text+''' ';
       sqlstr:=sqlstr+' ,type='''+combobox2.Text+''',score='''+edit2.Text+''' ';
       sqlstr:=sqlstr+' where stuid='''+xh+''' and course='''+kc+''' and score='''+fs+''' and type='''+lx+'''';
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('修改成功!');
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(' select * from  score order by stuid ');
       adoquery1.Open;

     except
       showmessage('数据库连接失败!');
     end;
end;

procedure Tf_addscore.FormCreate(Sender: TObject);
begin
  try

       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(' select * from  score order by stuid ');
       adoquery1.Open;

     except
       showmessage('数据库连接失败!');
     end;
end;

procedure Tf_addscore.Button2Click(Sender: TObject);
var
sqlstr:string;
begin
 try

       sqlstr:=' delete from score ';
       sqlstr:=sqlstr+' where stuid='''+xh+''' and course='''+kc+''' and score='''+fs+''' and type='''+lx+'''';
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('删除成功!');
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(' select * from  score order by stuid ');
       adoquery1.Open;
     except
       showmessage('数据库连接失败!');
     end;
end;

end.