jyqk.~pas

学生管理系统小鸟做了

unit jyqk;

interface

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

type
  Tfmjyqk = class(TForm)
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmjyqk: Tfmjyqk;

implementation

uses dm;

{$R *.dfm}

procedure Tfmjyqk.Button1Click(Sender: TObject);
begin
if combobox1.Text='--请选择查询类别--' then
begin
  messagedlg('请选择查询类别！',mtInformation, [mbYes],0);
  exit;
end;
if edit1.Text='' then
begin
  messagedlg('请输入查询条件！',mtInformation,[mbYes],0);
  exit;
end;
  fmdm.qryjyqk.Close;
  fmdm.qryjyqk.SQL.Clear;
  if combobox1.Text='按学号查询' then
    begin
    fmdm.qryjyqk.SQL.Add('select stu_id,stu_name,stu_employmentstate,stu_company,stu_graduate from tab_stu where stu_id=:A');
    fmdm.qryjyqk.Parameters.ParamByName('A').Value:=edit1.Text;
    end;
  if combobox1.Text='按姓名查询' then
    begin
    fmdm.qryjyqk.SQL.Add('select stu_id,stu_name,stu_employmentstate,stu_company,stu_graduate from tab_stu where stu_name like :S');
    fmdm.qryjyqk.Parameters.ParamByName('S').Value:=Trim(edit1.Text+'%');
    end;
  fmdm.qryjyqk.Open;
  if fmdm.qryjyqk.RecordCount>0 then
  begin
    dbgrid1.Columns.Items[0].FieldName:='stu_id';
    dbgrid1.Columns.Items[1].FieldName:='stu_name';
    dbgrid1.Columns.Items[2].FieldName:='stu_employmentstate';
    dbgrid1.Columns.Items[3].FieldName:='stu_company';
    dbgrid1.Columns.Items[4].FieldName:='stu_graduate';
  end
  else
   begin
    MessageDlg('没有相关记录！',mtInformation, [mbYes],0);
    edit1.Text:='';
   end;




end;

procedure Tfmjyqk.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in [#13] then button1.Click;
end;

procedure Tfmjyqk.Button2Click(Sender: TObject);
begin
fmdm.qryjyqk.Close;
fmdm.qryjyqk.SQL.Clear;
fmdm.qryjyqk.SQL.Add('select stu_id,stu_name,stu_employmentstate,stu_company,stu_graduate from tab_stu');
fmdm.qryjyqk.Open;
end;

end.