unit6.pas

用Delphi写的学生信息管理系统的源代码

unit Unit6;

interface

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

type
  Tcjxg = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label2: TLabel;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Image1: TImage;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cjxg: Tcjxg;

implementation
  uses unit1;
{$R *.dfm}

procedure Tcjxg.SpeedButton5Click(Sender: TObject);
begin
self.Close;
end;

procedure Tcjxg.SpeedButton2Click(Sender: TObject);
var
i:integer;
begin
  i:=application.MessageBox('你确定要删除吗？','删除提示',mb_YesNO);
 if i=7 then
 exit;
 ADOquery1.Delete;
end;

procedure Tcjxg.SpeedButton3Click(Sender: TObject);
begin
if ADOquery1.RecordCount>0 then
 begin
 ADOquery1.Prior;
  exit;
 end;
 end;

procedure Tcjxg.SpeedButton4Click(Sender: TObject);
begin
if ADOquery1.RecordCount>0 then
 begin
  ADOquery1.Next;
  exit;
 end;
end;

procedure Tcjxg.FormActivate(Sender: TObject);
 var
 sqlstr:string;
begin
sqlstr:='select * from t_score';
ADOquery1.Close;
ADoquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADOquery1.Open;
end;

procedure Tcjxg.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
edit1.Text:=ADOquery1.FieldValues['学号'];
edit2.Text:=ADOquery1.FieldValues['所在班级'];
edit3.Text:=ADOquery1.FieldValues['课程名称'];
edit4.Text:=ADOquery1.FieldValues['学期'];
edit5.Text:=ADOquery1.FieldValues['授课教师'];
edit6.Text:=ADOquery1.FieldValues['成绩'];
end;

procedure Tcjxg.SpeedButton1Click(Sender: TObject);
begin
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')
or(edit5.Text='')or(edit6.Text='')then
begin
 application.MessageBox('请输入要修该的内容','提示',0+64);
 exit;
end;
 ADOquery1.Edit;
 ADOquery1.FieldValues['学号']:=edit1.Text;
 ADOquery1.FieldValues['所在班级']:=edit2.Text;
 ADOquery1.FieldValues['课程名称']:=edit3.Text;
 ADOquery1.FieldValues['学期']:=edit4.Text;
 ADOquery1.FieldValues['授课教师']:=edit5.Text;
 ADOquery1.FieldValues['成绩']:=edit6.Text;
 ADOquery1.Post;
 application.MessageBox('信息已经修改完成！','修改提示',mb_ok);
end;

end.