ugetcno.pas

可实现学生成绩管理系统的各种功能,无需登陆,直接查询学生的各种信息

unit uGetCNo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids, ADODb, Db;

type
  TfrmGetCNo = class(TForm)
    BitBtnCancel: TBitBtn;
    Bevel1: TBevel;
    Label1: TLabel;
    RadioGrpFind: TRadioGroup;
    BitBtnHelp: TBitBtn;
    EdtCNo_Find: TEdit;
    BitBtnOk: TBitBtn;
    DBNavigator1: TDBNavigator;
    ActiveSource: TDataSource;
    DBGrdCNo: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure EdtCNo_FindChange(Sender: TObject);
    procedure DBGrdCNoDblClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGetCNo: TfrmGetCNo;
  VCNo : string;

implementation

  Uses uDm ;

{$R *.DFM}

Procedure TfrmGetCNo.FormCreate(Sender: TObject);

begin
  RadioGrpFind.ItemIndex := 0 ;
  ActiveControl := EdtCNo_Find ;
  EdtCNo_Find.text := '' ;
  VCNo := '' ;
end;


procedure TfrmGetCNo.EdtCNo_FindChange(Sender: TObject);
begin
  with DMSchool.ADOQuery do
    begin
      Close ;
      SQL.Clear;
      if RadioGrpFind.ItemIndex = 0 then
        begin
          SQL.ADD('SELECT CNO, CNAME FROM COURSE ');
          SQL.ADD(' WHERE CNO LIKE ' + '''%' + EdtCNo_Find.Text + '%''');
        end
      else
        begin
          SQL.ADD('SELECT CNO, CNAME FROM COURSE ');
          SQL.ADD(' WHERE CNAME LIKE ' + '''%' + EdtCNo_Find.Text + '%''');
        end ;
      SQL.ADD('   ORDER BY CNO');
//      showmessage(sql.Text);
      Open;
    end;
end;

procedure TfrmGetCNo.DBGrdCNoDblClick(Sender: TObject);
begin
  VCNo    := DMSchool.ADOQuery.FieldByName('CNO').AsString ;
  EdtCNo_Find.Text := VCNo;
  Close;
end;

procedure TfrmGetCNo.BitBtnCancelClick(Sender: TObject);
begin
  VCNo := '' ;
  Close;
end;

procedure TfrmGetCNo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ModalResult:=mrCancel;
end;

end.