unit7.pas

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

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    banji_edit: TLabeledEdit;
    xuezhibox: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);
var
data_path:string;
sqlstring:string;
my_adoquery:Tadoquery;
begin
my_adoquery:=Tadoquery.create(self);
if (banji_edit.Text='') or (xuezhibox.Text='') then
begin
showmessage('请输入必填信息');
exit;
end;
data_path:=application.GetNamePath+'user/'+form1.user+'/'+trim(banji_edit.Text)+'.mdb';
if not Fileexists(data_path) then
  begin
    form1.createdatabase(data_path);
    data_path:=application.GetNamePath+'user/'+form1.user+'/班级.mdb';
    my_adoquery.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path+';';
    sqlstring:='insert into 班级表(名称,学制) values(:name,:xuezhi)';
       if Fileexists(data_path) then
           begin
               with my_adoquery do
                     begin
                           close;
                           sql.Clear;
                           sql.Add(sqlstring);
                           Parameters.ParamByName('name').Value:=trim(banji_edit.Text);
                           parameters.ParamByName('xuezhi').Value:=trim(xuezhibox.Text);
                           execsql;
                     end;
            end;
 end
else
  showmessage('班级存在!');
  data_path:=application.GetNamePath+'user/'+form1.user+'/'+banji_edit.Text+'.mdb';
  sqlstring:='create table 学生信息表(编号 COUNTER PRIMARY KEY,学号 char(12) not null,姓名 char(10),性别 char(2),出生年月 date,';
  sqlstring:=sqlstring+'籍贯 char(20),入学性质 char(10),政治面貌 char(10),专业 char(20),系别 char(20),相片 char(10),家庭地址 char(100))';
  form1.createdatasheet(data_path,sqlstring);
  sqlstring:='create table 补考表(编号 COUNTER PRIMARY KEY,学号 char(12) not null,姓名 char(10),科目 char(20),分数 float,学期 char(15))';
  form1.createdatasheet(data_path,sqlstring);
  sqlstring:='create table 奖惩表(编号 COUNTER PRIMARY KEY,学号 char(12) not null,姓名 char(10),类型 char(10),详细 memo,学期 char(15),日期 date)';
  form1.createdatasheet(data_path,sqlstring);
 banji_edit.Clear;
  xuezhibox.Text:='';
end;

procedure TForm7.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.