unit Unit12;

interface

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

type
  TForm12 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    xm: TEdit;
    Label2: TLabel;
    bj: TComboBox;
    Label3: TLabel;
    xq: TComboBox;
    Label4: TLabel;
    nr: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery2: TADOQuery;
    Label5: TLabel;
    xh: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    bh: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure bjChange(Sender: TObject);
    procedure xqChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;
  data_path,data_path1:string;
  sqlstring:string;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm12.FormCreate(Sender: TObject);
begin
data_path:=application.GetNamePath+'user/'+form1.user+'/'+'班級.mdb';
 ADOQuery2.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path+';';
 sqlstring:='select * from 班級表';
  bj.Clear;
  with ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add(sqlstring);
      open;
      while not eof do
         begin
           bj.Items.Add(fieldbyname('名稱').asstring);
            next;
         end;
end;
 end;
procedure TForm12.bjChange(Sender: TObject);
var
i,xuezhi:integer;
begin
xq.Clear;
sqlstring:='select * from 班級表 where 名稱=:mc';
with ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add(sqlstring);
      Parameters.ParamByName('mc').Value:=trim(bj.Text);
      open;
      xuezhi:=fieldbyname('學制').AsInteger;
       end;
    for i:=1 to xuezhi*2 do
     xq.Items.Add(inttostr(i));
end;

procedure TForm12.xqChange(Sender: TObject);
begin
  data_path1:=application.GetNamePath+'user/'+form1.user+'/'+trim(bj.Text)+'.mdb';
  ADOQuery1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path1+';';
  sqlstring:='select * from 獎勵表';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
end;

procedure TForm12.BitBtn1Click(Sender: TObject);
begin
 sqlstring:='select * from 學生信息表 where 學號=:xh and 姓名=:xm';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  Parameters.ParamByName('xh').Value:=trim(xh.Text);
  Parameters.ParamByName('xm').Value:=trim(xm.Text);
  open;
  if recordcount<1 then

  showmessage('此學號學生不存在!')
 else
  begin
  sqlstring:='insert into 獎勵表(學號,姓名,班級,學期,內容) values(:number,:name,:class,:xueqi,:neirong)';
  close;
  sql.Clear;
  sql.Add(sqlstring);
  Parameters.ParamByName('number').Value:=trim(xh.Text);
  Parameters.ParamByName('name').Value:=trim(xm.Text);
  Parameters.ParamByName('class').Value:=trim(bj.Text);
  Parameters.ParamByName('xueqi').Value:=trim(xq.text);
  Parameters.ParamByName('neirong').Value:=trim(nr.Text);
  execsql;
  end;
  end;
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
end;

procedure TForm12.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm12.BitBtn4Click(Sender: TObject);
begin
sqlstring:='update 獎勵表 set 學號=:number,姓名=:name,班級=:class,學期=:xueqi,內容=:nr where 編號=:bh';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  Parameters.ParamByName('number').Value:=trim(xh.Text);
  Parameters.ParamByName('name').Value:=trim(xm.Text);
  Parameters.ParamByName('class').Value:=trim(bj.Text);
  Parameters.ParamByName('xueqi').Value:=trim(xq.text);
  Parameters.ParamByName('nr').value:=trim(nr.Text);
  Parameters.ParamByName('bh').Value:=trim(bh.Text);
  execsql;
  end;
  sqlstring:='select * from 獎勵表';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
end;

procedure TForm12.BitBtn5Click(Sender: TObject);
begin
sqlstring:='delete from 獎勵表 where 編號=:bh';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  Parameters.ParamByName('bh').Value:=trim(bh.Text);
  execsql;
  end;
  sqlstring:='select * from 獎勵表';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
end;

procedure TForm12.BitBtn6Click(Sender: TObject);
begin
 sqlstring:='select * from 獎勵表';
with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
end;

procedure TForm12.DBGrid1CellClick(Column: TColumn);
begin
 with  ADOQuery1 do
  begin
  bj.Text:=fieldbyname('班級').AsString;
  xh.Text:=fieldbyname('學號').AsString;
  xm.Text:=fieldbyname('姓名').AsString;
  xq.Text:=fieldbyname('學期').AsString;
  nr.Text:=fieldbyname('內容').AsString;
  bh.Text:=fieldbyname('編號').AsString;
    end;
end;

end.