uqrygrade.pas

来自「可实现学生成绩管理系统的各种功能,无需登陆,直接查询学生的各种信息」· PAS 代码 · 共 87 行

unit uQryStudent;

interface

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

type
  TfrmQryStudent = class(TForm)
    ActiveSource: TDataSource;
    DBGrid1: TDBGrid;
    DBNavig: TDBNavigator;
    EdtQry: TEdit;
    Label1: TLabel;
    RadioGrpIndex: TRadioGroup;
    BitBtnClose: TBitBtn;
    BtnQuery: TButton;
    procedure BitBtnCloseClick(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);
    procedure RadioGrpIndexClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQryStudent: TfrmQryStudent;

implementation

uses uDm ;  

{$R *.dfm}

procedure TfrmQryStudent.BitBtnCloseClick(Sender: TObject);
begin
  Close ;
end;

procedure TfrmQryStudent.BtnQueryClick(Sender: TObject);
begin
  if RadioGrpIndex.ItemIndex = 0 then
    begin
      DmSchool.ADOQuery.Close ;
      DmSchool.ADOQuery.SQL.Clear ;
      DmSchool.ADOQuery.SQL.Add('SELECT * FROM STUDENT WHERE SNO LIKE ');
      DmSchool.ADOQuery.SQL.Add('''%' + EdtQry.Text + '%''');
//      showmessage(DmSchool.ADOQuery.SQL.Text );
      DmSchool.ADOQuery.Open ;
    end
  else
    begin
      DmSchool.ADOQuery.Close ;
      DmSchool.ADOQuery.SQL.Clear ;
      DmSchool.ADOQuery.SQL.Add('SELECT * FROM STUDENT WHERE SNAME LIKE ');
      DmSchool.ADOQuery.SQL.Add('''%' + EdtQry.Text + '%''');   
      DmSchool.ADOQuery.Open ;
    end;
end;

procedure TfrmQryStudent.RadioGrpIndexClick(Sender: TObject);
begin
  if RadioGrpIndex.ItemIndex = 1 then
    begin
      EdtQry.ImeMode := imChinese  ;
      EdtQry.ImeName := '中文 (简体) - 智能 ABC'  ;
    end
  else
    begin
      EdtQry.ImeMode := imAlpha  ;
      EdtQry.ImeName := ''  ;
    end ;
  BtnQueryClick(Application) ;
end;

procedure TfrmQryStudent.FormCreate(Sender: TObject);
begin
  ActiveSource.DataSet :=DMSchool.ADOQuery ;
  EdtQry.ImeMode := imAlpha  ;
  EdtQry.ImeName := ''  ;
end;

end.