unitsquery.pas

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

unit UnitSquery;

interface

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

type
  TFrmSquery = class(TFrame)
    ImageBg: TImage;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Image1: TImage;
    Image2: TImage;
    ImagePrint: TImage;
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure ImagePrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UnitDBConnect, UnitStuScoreRpt;

{$R *.dfm}

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

procedure TFrmSquery.Image2Click(Sender: TObject);
begin
 if Edit1.Text<>'' then
  begin
    with FMDBConnect.ADOQueryScore do
     begin
       Close;
       SQL.Clear;
       SQL.Add('select * from dbo.ViewIScore where SNo='''+Edit1.Text+'''') ;
       Active := True;
       Open;
     end;
  end
  else
    begin
      showmessage('请输入学号');
    end;
    
end;

procedure TFrmSquery.ImagePrintClick(Sender: TObject);
begin
  if Edit1.Text<>'' then
  begin
   FMStuScoreRpt.QuickRep1.Refresh;
   FMStuScoreRpt.QuickRep1.Preview;
   end
   else
   begin
   showmessage('请输入要查询同学的学号');
   end;
   
end;

end.