unstudent.pas

自己写的学生成绩管理系统

unit unstudent;

interface

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

type
  Tfmstudent = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    rbsame: TRadioButton;
    rbbig: TRadioButton;
    rbsmall: TRadioButton;
    rblike: TRadioButton;
    Edit2: TEdit;
    Button1: TButton;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TDateTimeField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TWideStringField;
    ADOQuery1DSDesigner6: TWideStringField;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmstudent: Tfmstudent;

implementation
     uses unmain;
{$R *.dfm}

procedure Tfmstudent.Button1Click(Sender: TObject);
var
str:string;
begin
adoquery1.Open;
if combobox1.Text<>'' then
   begin
       str:='select 学号,姓名,出生日期,院系,专业班级,电话 from student where '+
       combobox1.Text;
       if rbsame.Checked then
        str:=str+'=';
       if rbbig.Checked then
        str:=str+'>';
        if rbsmall.Checked then
        str:=str+'<';
        if rblike.Checked then
        begin
        str:=str+' like '+''''+'%'+edit2.Text+'%'+'''';
        end
        else
        str:=str+''''+edit2.Text+'''';
        if adoquery1.Active then
          begin
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add(str);
            adoquery1.Open;
          end;
   end
   else
     showmessage('请输入要查询的字段！');
end;

end.