departunit.pas

这是我做的一个课程设计

unit departUnit;

interface

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

type
  TdepartForm = 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;
    Edit_yxbh: TEdit;
    Edit_yxmc: TEdit;
    Edit_yxld: TEdit;
    Edit_lddh: TEdit;
    Edit_yxms: TEdit;
    tb_cancel: TToolButton;
    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_editClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  departForm: TdepartForm;

implementation

uses MainUnit, dm;

{$R *.dfm}

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

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

procedure TdepartForm.tb_addClick(Sender: TObject);
begin
  edit_yxbh.Text:='';
  edit_yxmc.Text:='';
  edit_yxld.Text:='';
  edit_lddh.Text:='';
  edit_yxms.Text:='';
  edit_yxbh.SetFocus;
end;

procedure TdepartForm.tb_postClick(Sender: TObject);
var
  s:string;
begin
  s:='insert into department(院系编号,院系名称,院系领导,领导电话,院系描述) values(:a,:b,:c,:d,:e)';
  dmform.ADOQuery_depart.Close;
  dmform.ADOQuery_depart.SQL.Clear;
  dmform.ADOQuery_depart.SQL.Add(s);

  dmform.ADOQuery_depart.Parameters[0].Value:=edit_yxbh.Text;
  dmform.ADOQuery_depart.Parameters[1].Value:=edit_yxmc.Text;
  dmform.ADOQuery_depart.Parameters[2].Value:=edit_yxld.Text;
  dmform.ADOQuery_depart.Parameters[3].Value:=edit_lddh.Text;
  dmform.ADOQuery_depart.Parameters[4].Value:=edit_yxms.Text;

  dmform.ADOQuery_depart.ExecSQL;

  dmform.ADOQuery_depart.Close;
  dmform.ADOQuery_depart.SQL.Clear;
  dmform.ADOQuery_depart.SQL.Add('select * from department');
  dmform.ADOQuery_depart.Open;


end;

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

procedure TdepartForm.tb_editClick(Sender: TObject);
 var
  s:string;
  i:string;
begin
  s:='update department set 院系编号=:a,院系名称=:b,院系领导=:c,领导电话=:d,院系描述=:e where 院系编号=:n';
  i:=dmform.ADOQuery_depart.fieldbyname('院系编号').AsString;

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

  dmform.ADOQuery_depart.Parameters[0].Value:=edit_yxbh.Text;
  dmform.ADOQuery_depart.Parameters[1].Value:=edit_yxmc.Text;
  dmform.ADOQuery_depart.Parameters[2].Value:=edit_yxld.Text;
  dmform.ADOQuery_depart.Parameters[3].Value:=edit_lddh.Text;
  dmform.ADOQuery_depart.Parameters[4].Value:=edit_yxmc.Text;
  dmform.ADOQuery_depart.Parameters[5].Value:=i;
  dmform.ADOQuery_depart.ExecSQL;

  dmform.ADOQuery_depart.Close;
  dmform.ADOQuery_depart.SQL.Clear;
  dmform.ADOQuery_depart.SQL.Add('select * from department');
  dmform.ADOQuery_depart.Open;
end;

 end.