wdxx.pas

学生管理系统小鸟做了

unit wdxx;

interface

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

type
  Tfmwdxx = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmwdxx: Tfmwdxx;

implementation

uses denglu, dm, main;

{$R *.dfm}

procedure Tfmwdxx.Button1Click(Sender: TObject);
begin
fmdm.qrywdxx.Close;
fmdm.qrywdxx.SQL.Clear;
fmdm.qrywdxx.SQL.Add('select * from tab_stu where stu_id=:A');
fmdm.qrywdxx.Parameters.ParamByName('A').Value:=fmdenglu.Edit1.Text;
fmdm.qrywdxx.Open;
end;

end.