unit6.~pas

学生管理信息系统

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB,
  DBTables, Menus;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    GroupBox1: TGroupBox;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    Edit1: TEdit;
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit5, Unit2, Unit1;

{$R *.dfm}

procedure TForm6.N2Click(Sender: TObject);
begin
close();
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
if form1.radiobutton1.checked then
begin
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级1');
SQl.add(' where 学号=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton2.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级1');
SQl.add(' where 姓名=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton3.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级1');
SQl.add(' where 班级=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton4.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级1');
SQl.add(' where 性别=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton5.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级1');
SQl.add(' where 籍贯=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
end;

if form1.radiobutton2.checked then
begin
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级2');
SQl.add(' where 学号=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton2.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级2');
SQl.add(' where 姓名=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton3.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级2');
SQl.add(' where 班级=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton4.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级2');
SQl.add(' where 性别=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
if radiobutton5.checked then
with Query1 do
begin
close;
SQL.clear;
SQL.add('select * from 班级2');
SQl.add(' where 籍贯=:p1');
ParamByname('p1').Asstring:= edit1.text;
prepare;
open;
end;
end;

end;

procedure TForm6.N4Click(Sender: TObject);
begin
form2.show;
end;

end.