unit15.pas

本例是用delphi开发的学生与课程信息管理系统

unit Unit15;

interface

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

type
  TFormg_sel = class(TForm)
    ADOQueryg_sel: TADOQuery;
    DataSourceg_sel: TDataSource;
    DBGridg_sel: TDBGrid;
    Label1: TLabel;
    Editsno: TEdit;
    Label2: TLabel;
    Editsname: TEdit;
    Label3: TLabel;
    ComboBoxsem: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formg_sel: TFormg_sel;

implementation

{$R *.dfm}

procedure TFormg_sel.Button1Click(Sender: TObject);
var
  sno,sname,sem,temp:string;
begin
  sno:=trim(editsno.text);
  sname:=trim(editsname.text);
  sem:=trim(comboboxsem.text);
  if(sno='')or(sname='')or(sem='')then
    showmessage('请将信息输入完全！')
  else
    begin
      adoqueryg_sel.close;
      adoqueryg_sel.sql.clear;
      adoqueryg_sel.sql.add('select sno from student where sno='''+sno+''' and sname='''+sname+'''');
      adoqueryg_sel.open;
      temp:=adoqueryg_sel.fieldbyname('sno').asstring;
      if temp='' then
        showmessage('您输入的学号或姓名错误！')
      else
       begin
         dbgridg_sel.visible:=true;
         button2.visible:=true;
         button3.visible:=true;
         button4.visible:=true;
         button5.visible:=true;
         button6.visible:=true;
         if sem='all' then
           begin
             adoqueryg_sel.close;
             adoqueryg_sel.sql.clear;
             adoqueryg_sel.sql.add('select * from viewg');
             adoqueryg_sel.sql.add('where sno='''+sno+'''');
             adoqueryg_sel.sql.add('order by sem');
             adoqueryg_sel.open;
           end
         else
           begin
             adoqueryg_sel.close;
             adoqueryg_sel.sql.clear;
             adoqueryg_sel.sql.add('select * from viewg');
             adoqueryg_sel.sql.add('where sno='''+sno+''' and sem='''+sem+'''');

             adoqueryg_sel.open;
           end;
           
       end;
    end;
end;

procedure TFormg_sel.Button7Click(Sender: TObject);
begin
  close;
end;

end.