unit8.~pas

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

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    banjibox: TComboBox;
    xueqibox: TComboBox;
    Memo: TMemo;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Label1: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure banjiboxChange(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);
var
my_adoquery:Tadoquery;
sqlstring:string;
str:string;
data_path:string;
begin
  data_path:=application.GetNamePath+'user/'+form1.user+'/班级.mdb';
  my_adoquery:=Tadoquery.Create(self);
  my_adoquery.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path+';';
  sqlstring:='select * from 班级表';
  with my_adoquery do
    begin
      close;
      sql.Clear;
      sql.Add(sqlstring);
      open;
       first;
       while not eof do
         begin
           banjibox.Items.Add(fieldbyname('名称').asstring);
           //xueqibox.Items.Add(fieldbyname('学制').asstring);
           next;
         end;
      end;
end;

procedure TForm8.banjiboxChange(Sender: TObject);
var
my_adoquery:Tadoquery;
sqlstring:string;
str:string;
data_path:string;
i,xuezhi:integer;
begin
  data_path:=application.GetNamePath+'user/'+form1.user+'/班级.mdb';
  my_adoquery:=Tadoquery.Create(self);
  my_adoquery.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path+';';
  sqlstring:='select * from 班级表 where 名称=:mc';
  xueqibox.Clear;
  with my_adoquery do
    begin
      close;
      sql.Clear;
      sql.Add(sqlstring);
      Parameters.ParamByName('mc').Value:=trim(banjibox.Text);
      open;
      xuezhi:=fieldbyname('学制').AsInteger;
       end;
    for i:=1 to xuezhi*2 do
     xueqibox.Items.Add(inttostr(i));

    end;

procedure TForm8.BitBtn5Click(Sender: TObject);
var
str:string;
i:integer;
data_path:string;
begin
if (banjibox.Text='') or (xueqibox.Text='') or (memo.Text='') then
begin
showmessage('请输入完整信息！');
exit;
end;
data_path:=application.GetNamePath+'user/'+form1.user+'/'+trim(banjibox.text)+'.mdb';
str:='create table 第'+xueqibox.text+'学期成绩表(编号 COUNTER PRIMARY KEY,学号 char(20),姓名 char(10),';
for i:=1 to memo.Lines.Count-1 do
begin
str:=str+memo.Lines.Strings[i]+' float,';
end;
str:=str+'总分 float,平均分 float)';
//showmessage(str);
form1.createdatasheet(data_path,str);
showmessage('设置成功!')
end;

procedure TForm8.BitBtn6Click(Sender: TObject);
begin
close;
end;

procedure TForm8.BitBtn4Click(Sender: TObject);
begin
memo.Clear;
end;

end.