stuunit.pas

用Delphi做的一个学生数据库系统

unit stuUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ExtCtrls, ToolWin, Grids, DBGrids, StdCtrls,
  DBActns, ActnList;

type
  Tstuform = class(TForm)
    ToolBar1: TToolBar;
    Panel1: TPanel;
    tb_first: TToolButton;
    tb_prior: TToolButton;
    tb_next: TToolButton;
    tb_last: TToolButton;
    tb_add: TToolButton;
    tb_uptate: TToolButton;
    tb_delete: TToolButton;
    tb_post: TToolButton;
    tb_cancel: TToolButton;
    tb_exit: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    DBGrid1: TDBGrid;
    ActionList1: TActionList;
    Action1: TAction;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetCancel1: TDataSetCancel;
    Label6: TLabel;
    Edit6: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tb_exitClick(Sender: TObject);
    procedure tb_addClick(Sender: TObject);
    procedure tb_postClick(Sender: TObject);
    procedure tb_deleteClick(Sender: TObject);
    procedure tb_uptateClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stuform: Tstuform;
  flag3:boolean;
implementation

uses MainUnit, dm;

{$R *.dfm}

procedure Tstuform.FormClose(Sender: TObject; var Action: TCloseAction); //关闭子窗体
begin
action:=cafree;
mainform.tb_stu.Down:=false;
flag3:=false;
end;

procedure Tstuform.tb_exitClick(Sender: TObject);  //关闭
begin
close;
end;

procedure Tstuform.tb_addClick(Sender: TObject);  //添加
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit1.SetFocus;
end;

procedure Tstuform.tb_postClick(Sender: TObject);  //提交
   var
 str:string;
begin
  str:='insert into student(学号,姓名,性别,出生日期,班级编号,籍贯) values (:a,:b,:c,:d,:e,:f)';
  dmform.ADOQuery_stu.Close;
  dmform.ADOQuery_stu.SQL.Clear;
  dmform.ADOQuery_stu.SQL.Add(str);

  dmform.ADOQuery_stu.Parameters[0].Value:=edit1.Text;
  dmform.ADOQuery_stu.Parameters[1].Value:=edit2.Text;
  dmform.ADOQuery_stu.Parameters[2].Value:=edit3.Text;
  dmform.ADOQuery_stu.Parameters[3].Value:=edit4.Text;
  dmform.ADOQuery_stu.Parameters[4].Value:=edit5.Text;
  dmform.ADOQuery_stu.Parameters[5].Value:=edit6.Text;
  dmform.ADOQuery_stu.ExecSQL;

  dmform.ADOQuery_stu.Close;
  dmform.ADOQuery_stu.SQL.Clear;
  dmform.ADOQuery_stu.SQL.Add('select * from student');
  dmform.ADOQuery_stu.Open;
end;

procedure Tstuform.tb_uptateClick(Sender: TObject);  //修改
 var
 str:string;
begin
     try
str:='Update student set 姓名=:b,性别=:c,出生日期=:d,班级编号=:e,籍贯=:f where 学号=:a';

dmform.ADOQuery_stu.Close;
dmform.ADOQuery_stu.SQL.Clear;
dmform.ADOQuery_stu.SQL.Add(str);
dmform.ADOQuery_stu.Parameters.ParamByName('a').Value:=Trim(edit1.Text);
dmform.ADOQuery_stu.Parameters.ParamByName('b').Value:=Trim(edit2.Text);
dmform.ADOQuery_stu.Parameters.ParamByName('c').Value:=Trim(edit3.Text);
dmform.ADOQuery_stu.Parameters.ParamByName('d').Value:=Trim(edit4.Text);
dmform.ADOQuery_stu.Parameters.ParamByName('e').Value:=Trim(edit5.Text);
dmform.ADOQuery_stu.Parameters.ParamByName('f').Value:=Trim(edit6.Text);
dmform.ADOQuery_stu.ExecSQL;

 dmform.ADOQuery_stu.Close;
 dmform.ADOQuery_stu.SQL.Clear;
 dmform.ADOQuery_stu.SQL.Add('select * from student');
 dmform.ADOQuery_stu.Open;

 Application.MessageBox('修改成功!','提示',64)
       except
 Application.MessageBox('系统出错!','提示',64)
end;
   end;
procedure Tstuform.tb_deleteClick(Sender: TObject);    //删除
begin
  if messagedlg('确定删除该记录吗？',mtConfirmation,[mbYes, mbNo],0)=mryes then
  begin
       dmform.ADOQuery_stu.Delete;
  end;

end;


procedure Tstuform.Edit1KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
    if m then
    key:=#0;
end;

procedure Tstuform.Edit5KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
    if m then
    key:=#0;
end;


procedure Tstuform.FormCreate(Sender: TObject);
begin
flag3:=true;
end;

procedure Tstuform.Edit1Change(Sender: TObject);
begin
if edit1.Text='' then
begin
   tb_post.Enabled:=false;
end
else
begin
  tb_post.Enabled:=true;
end;
end;

end.