studentseek.~pas

学生档案管理系统

unit StudentSeek;

interface

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

type
  TStudentSeekForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    Database1: TDatabase;
    Query1: TQuery;
    Query1number: TStringField;
    Query1name: TStringField;
    Query1address: TStringField;
    Query1postcode: TStringField;
    Query1phone: TStringField;
    Query1parents: TStringField;
    Query1sex: TStringField;
    Query1birthday: TDateTimeField;
    Query1id: TStringField;
    Query1score: TSmallintField;
    Query1speciality: TStringField;
    Query1class: TStringField;
    Query1registerdate: TDateTimeField;
    Query1dorm: TStringField;
    Query1dorm_phone: TStringField;
    Query1note: TStringField;
    Query1opera: TStringField;
    Query1stamp: TDateTimeField;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Database1Login(Database: TDatabase; LoginParams: TStrings);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StudentSeekForm: TStudentSeekForm;

implementation

{$R *.dfm}

procedure TStudentSeekForm.RadioButton1Click(Sender: TObject);
begin
    Label1.Caption:='请输入要查询的学号';
    Combobox1.Visible:=false;
    Edit1.Visible:=true;
    Edit1.text:='';
end;

procedure TStudentSeekForm.RadioButton2Click(Sender: TObject);
begin
    Label1.Caption:='请输入要查询的姓名';
    Combobox1.Visible:=false;
    Edit1.Visible:=true;
    Edit1.text:='';
end;

procedure TStudentSeekForm.RadioButton3Click(Sender: TObject);
begin
    Label1.Caption:='请选取要查询的专业';
    Combobox1.Visible:=true;
    ComboBox1.text:='';
    Edit1.Visible:=false;
end;

procedure TStudentSeekForm.RadioButton4Click(Sender: TObject);
begin
    Label1.Caption:='请输入要查询的班级';
    Combobox1.Visible:=false;
    Edit1.Visible:=true;
    Edit1.text:='';
end;

procedure TStudentSeekForm.Database1Login(Database: TDatabase;
  LoginParams: TStrings);
begin
    loginparams.Clear;
    loginparams.add('user_name=administator');
    loginparams.add('password=650124');
end;

procedure TStudentSeekForm.FormActivate(Sender: TObject);
var
    query2:TQuery;
begin
    DBGrid1.DataSource:=Datasource1;
    DBGrid1.ReadOnly:=true;
    Datasource1.DataSet:=query1;
    query1.DatabaseName:='student';
    query1.close;
    query1.sql.clear;
    query1.SQL.add('select * from student');
    query1.open;
    query2:=TQuery.Create(self);
    query2.DatabaseName:='student';
    query2.Close;
    query2.SQL.Clear;
    query2.SQL.add('select * from speciality');
    query2.Params.clear;
    query2.open;
    combobox1.text;
    combobox1.Items.Clear;
    while not query2.eof do
    begin
          combobox1.Items.Add(Query2.fieldbyname('name').asstring);
          query2.Next;
    end;
    query2.close;
    radiobutton1.Checked:=true;
    Query1Number.DisplayLabel:='学号';
    Query1Name.DisplayLabel:='姓名';
    Query1Address.DisplayLabel:='通信地址';
    Query1Postcode.DisplayLabel:='邮政编码';
    Query1Phone.DisplayLabel:='联系电话';
    Query1Parents.DisplayLabel:='家庭联系人';
    Query1Sex.DisplayLabel:='性别';
    Query1Birthday.DisplayLabel:='出生年月';
    Query1Id.DisplayLabel:='身份证号';
    Query1Score.DisplayLabel:='入学成绩';
    Query1Speciality.DisplayLabel:='所学专业';
    Query1Class.DisplayLabel:='班级';
    Query1registerdate.DisplayLabel:='注册日期';
    Query1dorm.DisplayLabel:='宿舍编号';
    Query1Dorm_phone.DisplayLabel:='宿舍电话';
    Query1Note.DisplayLabel:='备注';
    Query1Opera.DisplayLabel:='操作人';
    Query1Stamp.DisplayLabel:='最后修改日期';
end;

procedure TStudentSeekForm.BitBtn2Click(Sender: TObject);
begin
    Database1.close;
    Close;
end;

procedure TStudentSeekForm.BitBtn1Click(Sender: TObject);
begin
    query1.Close;
    query1.sql.Clear;
    if radiobutton1.checked and (Edit1.text<>'') then
    begin
        query1.SQL.Add('select * from student where number=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=edit1.text;
    end
    else if radiobutton2.Checked and (Edit1.text<>'') then
    begin
        query1.SQL.Add('select * from student where name=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=edit1.text;
    end
    else if radiobutton3.Checked and (ComboBox1.Text<>'') then
    begin
        query1.SQL.Add('select * from student where speciality=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=combobox1.text;
    end
    else if radiobutton4.Checked and (Edit1.Text<>'') then
    begin
        query1.SQL.Add('select * from student where class=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=Edit1.text;
    end
    else
    begin
        query1.SQL.Add('select * from student');
        query1.Params.Clear;
    end;
    query1.Open;
end;

end.