unit3.pas

学生成绩管理系统

unit Unit3;

interface

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

type
  Tstudentfind = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    Table1: TTable;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Button2: TButton;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    Button3: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  studentfind: Tstudentfind;

implementation

{$R *.dfm}

procedure Tstudentfind.Button1Click(Sender: TObject);
begin
 if edit1.Text =''  then
showmessage('请输入姓名')
 else
 begin

 table1.Filtered :=false;
table1.Filter:='name='''+edit1.Text+'''' ;
table1.Filtered :=true;
end;
if table1.RecordCount=0 then
showmessage('无记录')



 end;
procedure Tstudentfind.Button2Click(Sender: TObject);
begin
if edit2.Text ='' then
showmessage('请输入编号')
else
begin
table1.Filter := 'studentid'+'>='+edit2.text;
table1.Filtered :=true;
end;
if table1.RecordCount =0 then
messagedlg('没有发现符合条件的记录。',mtinformation,[mbok],0);

end;

procedure Tstudentfind.Button3Click(Sender: TObject);
begin
if edit3.Text ='' then
showmessage('请输入编号')
else
begin
table1.Filter := 'studentid'+'='+edit3.text;
table1.Filtered :=true;
end;
if table1.RecordCount =0 then
messagedlg('没有发现符合条件的记录。',mtinformation,[mbok],0);

end;

procedure Tstudentfind.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

end.