unit9.~pas

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

unit Unit9;

interface

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

type
  TFormstu_alt = class(TForm)
    Querystu_alt: TQuery;
    DataSourcestu_alt: TDataSource;
    DBGridstu_alt: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Editsno: TEdit;
    Editsname: TEdit;
    Editsdep: TEdit;
    Button6: TButton;
    Button7: TButton;
    ComboBoxssex: TComboBox;
    ComboBoxsage: TComboBox;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Editsno1: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Editkey_set: TEdit;
    ComboBoxkey: TComboBox;
    Button8: TButton;
    Button9: TButton;
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure DBGridstu_altCellClick(Column: TColumn);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formstu_alt: TFormstu_alt;

implementation

{$R *.dfm}

procedure TFormstu_alt.Button6Click(Sender: TObject);
var
  sno,sname,ssex,sage,sdep:string;
begin
  sno:=editsno.Text+'%';
  sname:=editsname.Text+'%';
  ssex:=comboboxssex.Text+'%';
  sage:=comboboxsage.Text+'%';
  sdep:=editsdep.Text+'%';
  with querystu_alt do
    begin
      close;
      sql.Clear;
      sql.add('select * from student');
      sql.add('where(sno like :snoname)and(sname like :snamename)and(ssex like :ssexname)and(sage like :sagename)and(sdep like :sdepname)');
      sql.Add('order by sno');
      parambyname('snoname').AsString:=sno;
      parambyname('snamename').AsString:=sname;
      parambyname('ssexname').AsString:=ssex;
      parambyname('sagename').AsString:=sage;
      parambyname('sdepname').AsString:=sdep;
      prepare;
      open;

    end;

end;

procedure TFormstu_alt.Button7Click(Sender: TObject);
begin
  editsno.Text:='';
  editsname.Text:='';
  comboboxssex.Text:='';
  comboboxsage.Text:='';
  editsdep.Text:='';
  with querystu_alt do
    begin
      close;
      sql.Clear;
      sql.add('select * from student');
      sql.add('order by sno');
      prepare;
      open;
    end;
end;

procedure TFormstu_alt.Button8Click(Sender: TObject);
var
  key,key_set:string;
  sno:string;
begin
  sno:=editsno1.Text;
  key:=comboboxkey.Text;
  key_set:=editkey_set.Text;
  if (sno='')or(key='')or(key_set='')then
    showmessage('请将修改信息输入完全！')
  else
    begin

    if key='sname' then
     begin
      with querystu_alt do
        begin
          close;
          sql.Clear;
          sql.add('update student set sname=:key_setname');
          sql.add('where sno=:snoname');
          parambyname('key_setname').AsString:=key_set;
          parambyname('snoname').AsString:=sno;
          prepare;
          execsql;
        end;

     end
    else if key='ssex' then
      begin

       with querystu_alt do
         begin
           close;
           sql.Clear;
           sql.Add('update student set ssex=:key_setname');
           sql.Add('where sno=:snoname' );
           parambyname('key_setname').asstring:=key_set;
           parambyname('snoname').AsString:=sno;
           prepare;
           execsql;
          end;

         end
    else if key='sage' then
      begin
         with querystu_alt do
           begin
             close;
             sql.Clear;
             sql.add('update student set sage=:key_setname');
             sql.add('where sno=:snoname');
             parambyname('key_setname').AsString:=key_set;
             parambyname('snoname').asstring:=sno;
             prepare;
             execsql;
           end;

        end 
      else if key='sdep' then
        with querystu_alt do
           begin
             close;
             sql.Clear;
             sql.add('update student set sdep=:key_setname');
             sql.add('where sno=:snoname');
             parambyname('key_setname').AsString:=key_set;
             parambyname('snoname').asstring:=sno;
             prepare;
             execsql;
           end;

       with querystu_alt do
      begin
        close;
        sql.Add('select * from student');
        sql.add('order by sno');
        prepare;
        open;
      end;
    end;


end;

procedure TFormstu_alt.DBGridstu_altCellClick(Column: TColumn);
begin
 editsno1.Text:=dbgridstu_alt.fields[0].asstring;
 comboboxkey.Text:='';
 editkey_set.Text:='';
end;

procedure TFormstu_alt.Button9Click(Sender: TObject);
begin
  close;
end;

end.