queryunit.pas

用Delphi做的一个学生数据库系统

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;
    Edit_xuehao: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid_reward: TDBGrid;
    DBGrid_punish: TDBGrid;
    TabSheet4: TTabSheet;
    DBGrid_change: TDBGrid;
    DBGrid_stu: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit_xuehaoKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  queryform: Tqueryform;
implementation

uses MainUnit, dm, changUnit;

{$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 Edit_xuehao.Text='' then
   begin
     Application.MessageBox('学号不能为空!','提示',64)
   end
   else
   begin
    DBGrid_stu.Visible:=true;
    DBGrid_reward.Visible:=true;
    DBGrid_punish.Visible:=true;
    DBGrid_change.Visible:=true;
    str:='select 学号,姓名,性别,出生日期,student.班级编号,籍贯,班主任  from student,class where student.班级编号=class.班级编号 and 学号='+Edit_xuehao.Text;
    dmform.ADOQuery_stu.Close;
    dmform.ADOQuery_stu.SQL.Clear;
    dmform.ADOQuery_stu.SQL.Add(str);
    dmform.ADOQuery_stu.Open;
   
    edit2.Text:=dmform.ADOQuery_stu.FieldByName('学号').AsString;
    edit3.Text:=dmform.ADOQuery_stu.FieldByName('姓名').AsString;
    edit4.Text:=dmform.ADOQuery_stu.FieldByName('性别').AsString;
    edit5.Text:=dmform.ADOQuery_stu.FieldByName('出生日期').AsString;
    edit6.Text:=dmform.ADOQuery_stu.FieldByName('班级编号').AsString;
    edit7.Text:=dmform.ADOQuery_stu.FieldByName('籍贯').AsString;
    edit8.Text:=dmform.ADOQuery_stu.FieldByName('班主任').AsString;
          with dmform.ADOQuery_stu do
          begin
             close;
             SQL.Clear;
             SQL.Add('select 学号,姓名,性别,出生日期,student.班级编号,籍贯,班主任  from student,class where student.班级编号=class.班级编号 and 学号='+Edit_xuehao.Text);
             open;
          end;
           with dmform.ADOQuery_punish do
          begin
             close;
             SQL.Clear;
             SQL.Add('select * from punish where 学号='+Edit_xuehao.Text);
             open;
          end;
           with dmform.ADOQuery_change do
          begin
             close;
             SQL.Clear;
             SQL.Add('select * from change where 学号='+Edit_xuehao.Text);
             open;
          end;
        end;
end;
procedure Tqueryform.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tqueryform.Edit_xuehaoKeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
    if m then
    key:=#0;
end;

end.