ugetsno.pas

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

unit uGetSNo;

interface

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

type
  TfrmGetSNo = class(TForm)
    BitBtnCancel: TBitBtn;
    Bevel1: TBevel;
    Label1: TLabel;
    RadioGrpFind: TRadioGroup;
    BitBtnHelp: TBitBtn;
    EdtSNo_Find: TEdit;
    BitBtnOk: TBitBtn;
    DBNavigator1: TDBNavigator;
    ActiveSource: TDataSource;
    DBGrdSNo: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure EdtSNo_FindChange(Sender: TObject);
    procedure DBGrdSNoDblClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

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

var
  frmGetSNo: TfrmGetSNo;
  VSNo : string;

implementation

  Uses uDm ;

{$R *.DFM}

Procedure TfrmGetSNo.FormCreate(Sender: TObject);

begin
  RadioGrpFind.ItemIndex := 0 ;
  ActiveControl := EdtSNo_Find ;
  EdtSNo_Find.text := '' ;
  VSNo := '' ;
end;


procedure TfrmGetSNo.EdtSNo_FindChange(Sender: TObject);
begin
  with DMSchool.ADOQuery do
    begin
      Close ;
      SQL.Clear;
      if RadioGrpFind.ItemIndex = 0 then
        begin
          SQL.ADD('SELECT * FROM STUDENT ');
          SQL.ADD(' WHERE SNO LIKE ' + '''%' + EdtSNo_Find.Text + '%''');
        end
      else
        begin
          SQL.ADD('SELECT * FROM STUDENT ');
          SQL.ADD(' WHERE SNAME LIKE ' + '''%' + EdtSNo_Find.Text + '%''');
        end ;
      SQL.ADD('   ORDER BY SNO');
//      showmessage(sql.Text);
      Open;
    end;
end;

procedure TfrmGetSNo.DBGrdSNoDblClick(Sender: TObject);
begin
  VSNo    := DMSchool.ADOQuery.FieldByName('SNO').AsString ;
  EdtSNo_Find.Text := VSNo;
  Close;
end;

procedure TfrmGetSNo.BitBtnCancelClick(Sender: TObject);
begin
  VSNo := '' ;
  Close;
end;

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

end.