unit6.~pas

学生管理系统

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.ToolButton1Click(Sender: TObject);
begin
     datasource1.DataSet.first;
end;

procedure TForm6.ToolButton2Click(Sender: TObject);
begin
    datasource1.DataSet.prior;
end;

procedure TForm6.ToolButton3Click(Sender: TObject);
begin
    datasource1.DataSet.next;
end;

procedure TForm6.ToolButton4Click(Sender: TObject);
begin
     datasource1.DataSet.last;
end;

procedure TForm6.ToolButton5Click(Sender: TObject);
begin
datasource1.DataSet.Post;
end;

procedure TForm6.ToolButton6Click(Sender: TObject);
begin
 datasource1.DataSet.Delete;
end;

procedure TForm6.ToolButton7Click(Sender: TObject);
begin
datasource1.DataSet.Append;
end;

procedure TForm6.ToolButton8Click(Sender: TObject);
begin
    datasource1.DataSet.Edit;
end;

procedure TForm6.ToolButton9Click(Sender: TObject);
begin
 datasource1.DataSet.Cancel;
end;

procedure TForm6.ToolButton10Click(Sender: TObject);
begin
   close;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
      ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from study');
    ADOQuery1.Open;
      Edit2.Text:=ADOQuery1.FieldByName('学号').Value;
    Edit2.Text:=ADOQuery1.FieldByName('课程号').Value;
    Edit3.Text:=ADOQuery1.FieldByName('成绩').Value;
    Edit4.Text:=ADOQuery1.FieldByName('考试次数').Value;
    Edit5.Text:=ADOQuery1.FieldByName('是否重修').Value;
   
end;

procedure TForm6.DBGrid1CellClick(Column: TColumn);
begin
    edit1.Text:=dbgrid1.fields[0].AsVariant;
  edit2.Text:=dbgrid1.fields[1].AsVariant;
  edit3.Text:=dbgrid1.fields[2].AsVariant;
  edit4.Text:=dbgrid1.fields[3].AsVariant;
  edit5.Text:=dbgrid1.fields[4].AsVariant;
end;

end.