classunit.pas

这是我做的一个课程设计

unit classUnit;

interface

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

type
  TclassForm = 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
  classForm: TclassForm;

implementation

uses MainUnit, dm;

{$R *.dfm}

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

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

procedure TclassForm.tb_postClick(Sender: TObject);
var
  s:string;
begin
  s:='insert into class(班级编号,班级名称,所属院系,班主任,联系电话,班级描述) values(:a,:b,:c,:d,:e,:f)';
  dmform.ADOQuery_class.Close;
  dmform.ADOQuery_class.SQL.Clear;
  dmform.ADOQuery_class.SQL.Add(s);

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

  dmform.ADOQuery_class.ExecSQL;

  dmform.ADOQuery_class.Close;
  dmform.ADOQuery_class.SQL.Clear;
  dmform.ADOQuery_class.SQL.Add('select * from class');
  dmform.ADOQuery_class.Open;


end;
procedure TclassForm.tb_deleteClick(Sender: TObject);
begin
 if messagedlg('确定删除该记录吗？',mtConfirmation,[mbYes, mbNo],0)=mryes then
   begin
     dmform.ADOQuery_class.Delete;
   end;
end;

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

procedure TclassForm.tb_editClick(Sender: TObject);
var
  s:string;
  i:string;
begin
  s:='update class set 班级编号=:a,班级名称=:b,所属院系=:c,班主任=:d,联系电话=:e,班级描述=:f where 班级编号=:n';
  i:=dmform.ADOQuery_class.fieldbyname('班级编号').AsString;

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

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

  dmform.ADOQuery_class.Close;
  dmform.ADOQuery_class.SQL.Clear;
  dmform.ADOQuery_class.SQL.Add('select * from class');
  dmform.ADOQuery_class.Open;
end;


end.