unitstuinfo.pas

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

unit UnitStuinfo;

interface

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

type
  TFrmStuinfo = class(TFrame)
    ImageBg: TImage;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    ImagePrint: TImage;
    Imageadd: TImage;
    Image1: TImage;
    Image2: TImage;
    ComboBox1: TComboBox;
    DBNavigator1: TDBNavigator;
    procedure ImagePrintClick(Sender: TObject);
    procedure ImageaddClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UnitDBConnect, UnitStuRep, UnitStuInput, UnitDefine;

{$R *.dfm}


procedure TFrmStuinfo.ImagePrintClick(Sender: TObject);
begin
   FMStuRep.QuickRep1.Refresh;
   FMStuRep.QuickRep1.Preview;
end;

procedure TFrmStuinfo.ImageaddClick(Sender: TObject);
begin
FMDBConnect.ADOQueryStu.Append;
FMStuInput.ShowModal;
end;

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

procedure TFrmStuinfo.Image2Click(Sender: TObject);
begin
FMDBConnect.ADOQueryStu.Edit;
FMStuInput.ShowModal;
end;



procedure TFrmStuinfo.ComboBox1Change(Sender: TObject);
var
classno:string;
begin
   classno:=ComboBox1.Text;
   with FMDBConnect.ADOQueryStu do
   begin
   Close;
   SQL.Clear;
   if classno<>'显示全部' then
    begin
       SQL.Text:='select * from Student where SClassNo='#39+classno+#39;
    end
   else
    begin
       SQL.Text:='select * from Student';
    end;
   Active:=True ;
   Open;
   end;
end;

end.