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
 intNum:integer;
begin
  intNum:=DBGrid1.Fields[0].AsInteger;
  try
 if Trim(edit_yxbh.Text)='' then
 begin
      Application.MessageBox('院系编号不能为空!','提示',64);
 end
 else
 begin
dmform.ADOQuery_depart.Close;
dmform.ADOQuery_depart.SQL.Clear;
  dmform.ADOQuery_depart.SQL.Add('udate deparment set 院系编号='''+edit_yxbh.Text+'''');
  dmform.ADOQuery_depart.SQL.Add(',院系名称='''+edit_yxmc.Text+'''');
  dmform.ADOQuery_depart.SQL.Add(',院系领导='''+edit_yxld.Text+'''');
  dmform.ADOQuery_depart.SQL.Add(',领导电话='''+edit_lddh.Text+'''');
  dmform.ADOQuery_depart.SQL.Add(',院系描述='''+edit_yxms.Text+'''');
  dmform.ADOQuery_depart.SQL.Add(' where 院系编号='''+inttostr(intNum)+'''');
  dmform.ADOQuery_depart.SQL.Add('select 院系名称 from dartment where 院系编号='''+inttostr(intNum)+'''');

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;
Application.MessageBox('修改成功!','提示',64)
 end;
 except
 Application.MessageBox('系统出错!','提示',64)
  end;
end;
 end.