courseseek.~pas

学生成绩管理系统

unit courseseek;

interface

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

type
  TCourseSeekForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    Database1: TDatabase;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1number: TStringField;
    Query1name: TStringField;
    Query1speciality: TStringField;
    Query1college: TStringField;
    Query1time: TStringField;
    Query1score: TIntegerField;
    Query1semester: TStringField;
    Query1book: TStringField;
    Query1operator: TStringField;
    Query1stamp: TDateTimeField;
    procedure BitBtn2Click(Sender: TObject);
    procedure Database1Login(Database: TDatabase; LoginParams: TStrings);
    procedure FormActivate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CourseSeekForm: TCourseSeekForm;

implementation

{$R *.dfm}

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

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

procedure TCourseSeekForm.FormActivate(Sender: TObject);
var
      query2:TQuery;
begin
      DBGrid1.DataSource:=datasource1;
      datasource1.DataSet:=query1;
      query1.DatabaseName:='student';
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add('select * from course');
      query1.Params.clear;
      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:='课程名';
      Query1Speciality.DisplayLabel:='所属专业';
      Query1College.DisplayLabel:='所属院系';
      Query1time.DisplayLabel:='学时';
      query1score.DisplayLabel:='学分';
      query1semester.DisplayLabel:='开课学期';
      Query1Book.DisplayLabel:='使用教材';
      Query1Operator.DisplayLabel:='操作人';
      Query1Stamp.DisplayLabel:='最后操作日期';
end;

procedure TCourseSeekForm.RadioButton1Click(Sender: TObject);
begin
    Label1.Caption:='选取您要查询的专业';
    ComboBox1.Visible:=true;
    ComboBox1.Text:='';
    Edit1.Visible:=false;
end;

procedure TCourseSeekForm.RadioButton2Click(Sender: TObject);
begin
    Label1.Caption:='输入您要查询的院系名';
    ComboBox1.Visible:=false;
    Edit1.Text:='';
    Edit1.Visible:=true;
end;

procedure TCourseSeekForm.RadioButton3Click(Sender: TObject);
begin
    Label1.Caption:='选取您要查询的课程名';
    ComboBox1.Visible:=false;
    Edit1.Text:='';
    Edit1.Visible:=true;
end;

procedure TCourseSeekForm.BitBtn1Click(Sender: TObject);
begin
    query1.Close;
    query1.sql.clear;
    if (RadioButton1.Checked) and (ComboBox1.text<>'') then
    begin
        query1.SQL.add('select * from course where speciality=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=combobox1.text;
    end
    else if RadioButton2.Checked and (Edit1.text<>'')then
    begin
        query1.SQL.add('select * from course where college=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=Edit1.text;
    end
    else if RadioButton3.Checked and (Edit1.Text<>'') then
    begin
        query1.SQL.add('select * from course where name=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=Edit1.text;
    end
    else
    begin
        Query1.sql.add('select * from Course');
        query1.Params.Clear;
    end;
    query1.Open;
end;

end.