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);
var
 str:string;
begin
   if Edit1.Text='' then
   begin
   DBGrid1.Visible:=false;
   Application.MessageBox('学号不能为空!','提示',64)
   end
   else
   begin
    DBGrid1.Visible:=true;
    str:='select 学号,姓名,性别,出生日期,student.班级编号,籍贯  from student,class
     where student.班级编号=class.班级编号 and 学号='+Edit1.Text;
    dmform.ADOQuery_student.Close;
    dmform.ADOQuery_student.SQL.Clear;
    dmform.ADOQuery_student.SQL.Add(str);
    dmform.ADOQuery_student.Open;

    edit2.Text:=dmform.ADOQuery_student.FieldByName('姓名').AsString;
    edit3.Text:=dmform.ADOQuery_student.FieldByName('性别').AsString;
    edit4.Text:=dmform.ADOQuery_student.FieldByName('出生日期').AsString;
    edit5.Text:=dmform.ADOQuery_student.FieldByName('班级编号').AsString;
    edit6.Text:=dmform.ADOQuery_student.FieldByName('班主任').AsString;
    with dmform.ADOQuery_student do
          begin
             close;
             SQL.Clear;
             SQL.Add('select * from student where 学号='+Edit1.Text);
             open;
          end;
    end;
end;


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

end.