unit3.~pas

学生管理系统

unit Unit3;

interface

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

type
  TParent = class(TForm)
    ToolBar1: TToolBar;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    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  setbutton(val:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Parent: TParent;

implementation

{$R *.dfm}

procedure TParent.ToolButton1Click(Sender: TObject);
begin
   datasource1.DataSet.First;
end;

procedure TParent.ToolButton2Click(Sender: TObject);
begin
   datasource1.DataSet.Prior;
end;

procedure TParent.ToolButton3Click(Sender: TObject);
begin
  datasource1.DataSet.Next;
end;

procedure TParent.ToolButton4Click(Sender: TObject);
begin
     datasource1.DataSet.Last;
end;

procedure TParent.ToolButton5Click(Sender: TObject);
begin
     datasource1.DataSet.Append;
     setbutton(0);
end;

procedure TParent.ToolButton6Click(Sender: TObject);
begin
   datasource1.DataSet.Edit;
   setbutton(0);
end;

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

procedure TParent.ToolButton8Click(Sender: TObject);
begin
    datasource1.DataSet.Post;
    setbutton(1);
end;

procedure TParent.ToolButton9Click(Sender: TObject);
begin
    datasource1.DataSet.Cancel;
    setbutton(1);
end;

procedure TParent.ToolButton10Click(Sender: TObject);
begin
      close;
end;
procedure TParent.setbutton(val:integer);
  begin
  if val=0 then
  begin
       toolbutton1.Enabled:=false;
       toolbutton2.Enabled:=false;
       toolbutton3.Enabled:=false;
       toolbutton4.Enabled:=false;
       toolbutton5.Enabled:=false;
       toolbutton6.Enabled:=false;
       toolbutton7.Enabled:=false;
       toolbutton8.Enabled:=true;
       toolbutton9.Enabled:=true;
         panel1.Enabled:=true;
         end
              else
         begin
         toolbutton1.Enabled:=true;

         toolbutton1.Enabled:=true;
         toolbutton1.Enabled:=true;
         toolbutton1.Enabled:=true;
         toolbutton1.Enabled:=true;
         toolbutton1.Enabled:=true;
         toolbutton1.Enabled:=true;
         toolbutton1.Enabled:=false;
         toolbutton1.Enabled:=false;
         panel1.Enabled:=false;
         end;


end;
end.