unitclass.pas

来自「这是我做的一个大学院系成绩管理系统」· PAS 代码 · 共 53 行

unit UnitClass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DBCtrls;

type
  TFrmClass = class(TFrame)
    ImageBg: TImage;
    DBGrid1: TDBGrid;
    Imageadd: TImage;
    Image1: TImage;
    Image2: TImage;
    DBNavigator1: TDBNavigator;
    procedure ImageaddClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UnitDBConnect, UnitClassInput;

{$R *.dfm}

procedure TFrmClass.ImageaddClick(Sender: TObject);
begin
FMDBConnect.ADOQueryClass.Append;
FMClassInput.ShowModal;
end;

procedure TFrmClass.Image1Click(Sender: TObject);
begin
    if(messagebox(handle,PChar('确定删除吗?'),'删除记录',MB_ICONinformation+MB_OKCANCEL)=IDOK)then
     begin
     FMDBConnect.ADOQueryClass.Delete;
     end;
end;

procedure TFrmClass.Image2Click(Sender: TObject);
begin
FMDBConnect.ADOQueryClass.Edit;
FMClassInput.ShowModal;
end;

end.