unit11.pas

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

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    bj: TComboBox;
    Label4: TLabel;
    xq: TComboBox;
    Label2: TLabel;
    tj: TComboBox;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery3: TADOQuery;
    Label3: TLabel;
    xh: TEdit;
    Label5: TLabel;
    xm: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure tjChange(Sender: TObject);
    procedure bjChange(Sender: TObject);
    procedure xqChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;
   data_path,data_path1:string;
  sqlstring:string;
  fields_name:array[0..10] of string;
  i,fields_lenth:integer;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm11.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 TForm11.tjChange(Sender: TObject);
var
str:string;
begin
{for i:=0 to fields_lenth-1 do
    begin
      str:='select 编号,学号,姓名,'+trim(tj.text)+' from  第'+trim(xq.Text)+'学期成绩表 where ';
      if (i=tj.ItemIndex) then
         begin
            str:=str+fields_name[i]+'<=60';
            break;
         end
      else
         continue;
     end;
     with ADOQuery1 do
       begin
         close;
         sql.Clear;
         sql.Add(str);
            //Parameters.ParamByName('keyword').Value:=60;

          open;
        end;  }
end;

procedure TForm11.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 TForm11.xqChange(Sender: TObject);
begin
  tj.Clear;
  data_path1:=application.GetNamePath+'user/'+form1.user+'/'+trim(bj.Text)+'.mdb';
  ADOQuery1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path1+';';
  ADOQuery3.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path1+';';

  sqlstring:='select * from 第'+trim(xq.Text)+'学期成绩表';
  fields_lenth:=0;
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
  for i:=3 to ADOQuery1.Recordset.Fields.Count-3 do //  读取字段名
  begin
  tj.Items.Add(ADOQuery1.Recordset.Fields[i].name);
  fields_name[i]:=ADOQuery1.Recordset.Fields[i].name;
  fields_lenth:=fields_lenth+1;
  end;
end;

procedure TForm11.BitBtn1Click(Sender: TObject);
begin
data_path1:=application.GetNamePath+'user/'+form1.user+'/'+trim(bj.Text)+'.mdb';
ADOQuery3.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path1+';';

sqlstring:='insert into 补考表(学号,姓名,科目,学期) values(:xh,:xm,:km,:xq)';
with adoquery3 do
begin
close;
sql.Clear;
sql.Add(sqlstring);
 Parameters.ParamByName('xh').Value:=trim(xh.Text);
 Parameters.ParamByName('xm').Value:=trim(xm.Text);
Parameters.ParamByName('km').Value:=trim(tj.Text);
 Parameters.ParamByName('xq').Value:=trim(xq.Text);
execsql;

end;
end;

procedure TForm11.BitBtn3Click(Sender: TObject);
begin
 sqlstring:='delete from 补考表 where 学号=:xh';
with adoquery3 do
begin
close;
sql.Clear;
sql.Add(sqlstring);
Parameters.ParamByName('xh').Value:=trim(xh.Text);
execsql;
 end;
end;

procedure TForm11.BitBtn4Click(Sender: TObject);
begin
close;
end;

end.