unitmscore.pas

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

unit UnitMscore;

interface

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

type
  TFrmMscore = class(TFrame)
    ImageBg: TImage;
    GroupBox1: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    ComboBox3: TComboBox;
    Image1: TImage;
    Image2: TImage;
    Imageadd: TImage;
    Image3: TImage;
    Image4: TImage;
    DBNavigator1: TDBNavigator;
    procedure Image2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure ImageaddClick(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UnitDBConnect, UnitMScoreInput;

{$R *.dfm}

procedure TFrmMscore.Image2Click(Sender: TObject);
begin
with FMDBConnect.ADOQueryMScore do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select * from MScore');
   Active:=true;
   Open;
  end;
end;

procedure TFrmMscore.Image1Click(Sender: TObject);
begin
if (ComboBox1.Text<>'') and (ComboBox2.Text<>'') and (ComboBox3.Text<>'') then
  begin
     with FMDBConnect.ADOQueryMScore do
      begin
         Close;
         SQL.Clear;
         SQL.Add('select * from MScore where SNo in(select SNo from Student where SClassNo='''+ComboBox1.Text+''') and Lyear='''+ComboBox2.Text+''' and Term='''+ComboBox3.Text+'''');
         Active:=True;
         Open;
      end;
  end
  else
    begin
      showmessage('请输入查询的完整信息');
    end;
end;

procedure TFrmMscore.ImageaddClick(Sender: TObject);
begin
 FMDBConnect.ADOQueryMScore.Append;
FMScoreInput.ShowModal;
end;

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

procedure TFrmMscore.Image4Click(Sender: TObject);
begin
 FMDBConnect.ADOQueryMScore.Edit;
FMScoreInput.ShowModal;
end;

end.