queryunit.pas

这是我做的一个课程设计

unit queryUnit;

interface

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

type
  TqueryForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    TabSheet4: TTabSheet;
    DBGrid4: TDBGrid;
    GroupBox1: TGroupBox;
    DBGrid5: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  queryForm: TqueryForm;

implementation

uses MainUnit, dm;

{$R *.dfm}

procedure TqueryForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  mainform.tb_stuquery.Down:=false;
end;

procedure TqueryForm.Button1Click(Sender: TObject);
begin
  dmform.ADOQuery_change.Close;
  dmform.ADOQuery_change.SQL.Clear;
  dmform.ADOQuery_change.SQL.Add('select * from change where 学号='+edit1.Text+'');
  dmform.ADOQuery_change.Open;

  dmform.ADOQuery_reward.Close;
  dmform.ADOQuery_reward.SQL.Clear;
  dmform.ADOQuery_reward.SQL.Add('select * from reward where 学号='+edit1.Text+'');
  dmform.ADOQuery_reward.Open;

  dmform.ADOQuery_punish.Close;
  dmform.ADOQuery_punish.SQL.Clear;
  dmform.ADOQuery_punish.SQL.Add('select * from reward where 学号='+edit1.Text+'');
  dmform.ADOQuery_punish.Open;

  dmform.ADOQuery_stu.Close;
  dmform.ADOQuery_stu.SQL.Clear;
  dmform.ADOQuery_stu.SQL.Add('select * from student where 学号='+edit1.Text+'');
  dmform.ADOQuery_stu.Open;
end;


procedure TqueryForm.Button2Click(Sender: TObject);
begin
 close;
end;

end.