unitroom.pas

教务管理系统

unit UnitRoom;

interface

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

type
  TfrmRoom = class(TForm)
    dbg: TDBGrid;
    Label1: TLabel;
    edtName: TEdit;
    btnAdd: TButton;
    btnDel: TButton;
    btnClose: TButton;
    ds: TDataSource;
    qry: TADOQuery;
    procedure btnCloseClick(Sender: TObject);
    procedure edtNameChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure dbgCellClick(Column: TColumn);
    procedure btnDelClick(Sender: TObject);
  private
    { Private declarations }
    procedure FreshDBGrid;
  public
    { Public declarations }
  end;

var
  frmRoom: TfrmRoom;

implementation

uses UnitData;

{$R *.dfm}

procedure TfrmRoom.FreshDBGrid;
begin
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Add('select id as 记录号,name as 教室名 from ROOM');
  qry.Open;
end;

procedure TfrmRoom.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmRoom.edtNameChange(Sender: TObject);
begin
  btnAdd.Enabled := edtName.Text <> '';
//若姓名不为空则“添加“按钮有效
end;

procedure TfrmRoom.FormShow(Sender: TObject);
begin
  FreshDBGrid;
  edtName.SetFocus;
end;
 //完成对教室信息的添加功能
procedure TfrmRoom.btnAddClick(Sender: TObject);
var
  qryAdd: TADOQuery;
begin
  qryAdd := TADOQuery.Create(self);
  qryAdd.Connection := data.adoc;
  qryAdd.Close;
  qryAdd.SQL.Clear;
  qryAdd.SQL.Add('insert into ROOM(name) values(''' + edtName.Text + ''')');
   //添加教室信息
  qryAdd.ExecSQL;
  qryAdd.Free;
  edtName.Text := '';
  FreshDBGrid;
end;

procedure TfrmRoom.dbgCellClick(Column: TColumn);
begin
  btnDel.Enabled := not qry.Eof;
  //若不是末尾行则“删除“按钮有效
end;

procedure TfrmRoom.btnDelClick(Sender: TObject);
var
  s: string;
begin
  if application.MessageBox(PAnsiChar('真的要删除吗？'), PAnsiChar('确认删除'), MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDNO then exit;
  //显示消息框
  s := qry.FieldByName('记录号').AsString;
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Add('delete from ROOM where id=' + s);
  qry.ExecSQL;
  FreshDBGrid;
end;

end.