unit5.pas

学生管理系统

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Image1: TImage;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton7Click(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
  Form5: TForm5;

implementation

{$R *.dfm}

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

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

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

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

procedure TForm5.ToolButton5Click(Sender: TObject);
begin
   datasource1.DataSet.Delete;
end;

procedure TForm5.ToolButton11Click(Sender: TObject);
begin
       close;
end;

procedure TForm5.ToolButton6Click(Sender: TObject);
begin
  datasource1.DataSet.Post;
end;

procedure TForm5.ToolButton8Click(Sender: TObject);
begin
     datasource1.DataSet.Append;
end;

procedure TForm5.ToolButton7Click(Sender: TObject);
begin
   datasource1.DataSet.Edit;
end;

procedure TForm5.ToolButton9Click(Sender: TObject);
begin
   if application.MessageBox('是否删除记录??','确认',MB_OKCANCEL)=IDOK THEN
     datasource1.DataSet.Delete;
end;

procedure TForm5.ToolButton10Click(Sender: TObject);
begin
    datasource1.DataSet.Cancel;
end;

procedure TForm5.FormCreate(Sender: TObject);

begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from student');
    ADOQuery1.Open;
    Edit1.Text:=ADOQuery1.FieldByName('学号').Value;
    Edit2.Text:=ADOQuery1.FieldByName('姓名').Value;
    Edit3.Text:=ADOQuery1.FieldByName('性别').Value;
    Edit4.Text:=ADOQuery1.FieldByName('籍贯').Value;
    Edit5.Text:=ADOQuery1.FieldByName('所在系').Value;
    Edit6.Text:=ADOQuery1.FieldByName('所在班级').Value;
    Edit7.Text:=ADOQuery1.FieldByName('年龄').Value;
    Edit8.Text:=ADOQuery1.FieldByName('联系电话').Value;
end;


procedure TForm5.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;
  edit6.Text:=dbgrid1.fields[5].AsVariant;
  edit7.Text:=dbgrid1.fields[6].AsVariant;
  edit8.Text:=dbgrid1.fields[7].AsVariant;
end;

end.