usemanager.pas

学籍管理

unit UseManager;

interface

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

type
  TfmUserManagerfm = class(TForm)
    Panel1: TPanel;
    DBGrid2: TDBGrid;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    ToolButton3: TToolButton;
    ToolButton8: TToolButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DataSource1: TDataSource;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmUserManagerfm: TfmUserManagerfm;

implementation

uses DataModuleLocate;

{$R *.DFM}

procedure TfmUserManagerfm.ToolButton4Click(Sender: TObject);
begin
  if LocateData.ADODataSetPassword.Active then
  LocateData.ADODataSetPassword.Next;
end;

procedure TfmUserManagerfm.ToolButton5Click(Sender: TObject);
begin
  if LocateData.ADODataSetPassword.Active then
  LocateData.ADODataSetPassword.Prior;
end;

procedure TfmUserManagerfm.SpeedButton1Click(Sender: TObject);
begin
  if LocateData.ADODataSetPassword.Active then
  LocateData.ADODataSetPassword.Last;
  LocateData.ADODataSetPassword.Insert;
end;

procedure TfmUserManagerfm.SpeedButton2Click(Sender: TObject);
begin
  if LocateData.ADODataSetPassword.Active then
  LocateData.ADODataSetPassword.Delete;
end;

procedure TfmUserManagerfm.SpeedButton5Click(Sender: TObject);
begin
  if LocateData.ADODataSetPassword.Active then
  LocateData.ADODataSetPassword.Post;
end;

end.