uclass.~pas

一.录入学生信息（预计有81个学生

unit uClass;

interface

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

type
  TfrmClass = class(TForm)
    Panel2: TPanel;
    cmdAppend: TBitBtn;
    cmdEdit: TBitBtn;
    cmdDelete: TBitBtn;
    cmdClose: TBitBtn;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    dsQuery: TADODataSet;

    Function ReadyData():Boolean;
    procedure cmdCloseClick(Sender: TObject);
    procedure cmdAppendClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure cmdDeleteClick(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Function ShowClass():Boolean;

implementation

uses uClassEdit;

{$R *.dfm}

Function ShowClass():Boolean;
var
  frmClass: TfrmClass;
begin
  Result:=False;
  frmClass:=TfrmClass.Create(nil);
  if Not frmClass.ReadyData then
  begin
    frmClass.Free;
    Exit;
  end;
  frmClass.ShowModal;
  frmClass.Free;
  Result:=True;
end;


Function TfrmClass.ReadyData():Boolean;
var TmpSQL:String;
begin
  Result:=False;
  TmpSQL:='select * from TClass Order by ClassCode';
  dsQuery.Close;
  dsQuery.CommandText:=TmpSQL;
  Try
    dsQuery.Open;
  Except
    ShowMessage('读取本地数据文件发生错误！');
    Exit;
  End;
  Result:=True;
end;

procedure TfrmClass.cmdCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmClass.cmdAppendClick(Sender: TObject);
begin
  if Not ShowClassEdit(-1) then Exit;
  ReadyData;
end;

procedure TfrmClass.cmdEditClick(Sender: TObject);
begin
  if dsQuery.IsEmpty then Exit;
  if Not ShowClassEdit(dsQuery.fieldByName('ID').asInteger) then Exit;
  ReadyData;

end;

procedure TfrmClass.cmdDeleteClick(Sender: TObject);
begin
  if dsQuery.IsEmpty then Exit;
  if MessageDlg('您确认删除选定的班级记录吗？',mtWarning,[mbYes,mbNo],0)=mrNo then Exit;
  Try
    dsQuery.Delete;
  Except
    ShowMessage('指定班级简码信息可能已经被使用，不能删除！');
    Exit;
  End;
end;

procedure TfrmClass.DBGridEh1DblClick(Sender: TObject);
begin
  cmdEditClick(nil);
end;

end.