stuunit.~pas

这是我做的一个课程设计

unit stuUnit;

interface

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

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

var
  stuForm: TstuForm;

implementation

uses MainUnit, dm;

{$R *.dfm}

procedure TstuForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  mainform.tb_stu.Down:=false;
end;

procedure TstuForm.tb_exitClick(Sender: TObject);
begin
  close;
end;

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

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

  dmform.ADOQuery_student.ExecSQL;

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


end;

procedure TstuForm.tb_deleteClick(Sender: TObject);
begin
 if messagedlg('确定删除该记录吗？',mtConfirmation,[mbYes, mbNo],0)=mryes then
   begin
     dmform.ADOQuery_student.Delete;
   end;
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_editClick(Sender: TObject);
var
  s:string;
  i:string;
begin
  s:='update student set 学号=:a,姓名=:b,性别=:c,出生日期=:d,班级编号=:e,籍贯=:f where 学号=:n';
  i:=dmform.ADOQuery_student.fieldbyname('学号').AsString;

  dmform.ADOQuery_student.Close;
  dmform.ADOQuery_student.SQL.Clear;
  dmform.ADOQuery_student.SQL.Add(s);

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

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

end.