unit13.pas

学籍管理系统 基于sql2000 实现插入删除修改 等功能 不错

unit Unit13;

interface

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

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

var
  Form13: TForm13;
  data_path,data_path1:string;
  sqlstring:string;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm13.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 TForm13.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 TForm13.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 TForm13.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;
   sqlstring:='select * from 惩罚表';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
end;

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

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

procedure TForm13.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;

procedure TForm13.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 TForm13.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;

end.