obeyunitunit.pas

是一个Delphi的教材管理系统,内容很全面详细

unit ObeyUnitUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;

type
  TfrmUnit = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    procedure LoadData();{ Private declarations }
  public
    { Public declarations }
  end;

var
  frmUnit: TfrmUnit;
  UnitTable:TADOTable;
  ChangeOrAdd:Char;//C:修改,A:添加
implementation

uses DataModuleUnit;

{$R *.dfm}
//加载部门信息
procedure TfrmUnit.LoadData();
begin
  with UnitTable do
  begin
    Edit1.Text:=FieldByName('id').AsString;
    Edit2.Text:=FieldByName('UnitName').Value;
  end;
end;
//初始化
procedure TfrmUnit.FormCreate(Sender: TObject);
begin
  UnitTable:=TADOTable.Create(nil);
  With UnitTable do
  begin
    Connection:=frmDataModule.Connection;
    TableName:='UnitsName';
    DataSource1.DataSet:=UnitTable;
    DbGrid1.DataSource:=DataSource1;
    Active:=true;
  end;
end;
//添加部门
procedure TfrmUnit.BitBtn1Click(Sender: TObject);
begin
   Edit2.Text:='';
   Edit1.Text:='';
   Edit2.ReadOnly:=false;
   ChangeOrAdd:='A';
   bitbtn4.Enabled:=true;
   bitbtn1.Enabled:=false;
end;
//删除部门
procedure TfrmUnit.BitBtn3Click(Sender: TObject);
begin
  if MessageDlg('你真的要删除吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    UnitTable.Delete;
end;
//修改部门名称
procedure TfrmUnit.BitBtn2Click(Sender: TObject);
begin
   ChangeOrAdd:='C';
   Edit2.ReadOnly:=false;
   bitBtn4.Enabled:=true;
   bitbtn2.Enabled:=false;
end;

procedure TfrmUnit.DBGrid1ColEnter(Sender: TObject);
begin
  self.LoadData;
end;

procedure TfrmUnit.BitBtn4Click(Sender: TObject);
var
  IsExists:boolean;
  un:string;
begin
with UnitTable do
begin
  if ChangeOrAdd='C' then
  begin
   IsExists:=Locate('id',Edit1.Text,[loCaseInsensitive]);
   if IsExists then
   begin
     Edit;
     FieldByName('UnitName').Value:=Edit2.Text;
     Post;
     Application.MessageBox('修改成功!','提示',mb_ok);
   end;
  end
  else if ChangeOrAdd='A' then
  begin
   un:=trim(Edit2.Text);
   if un=''then
   begin
     Application.MessageBox('请部门名不能为空或空格!','出错提示',mb_ok);
     Edit2.SetFocus;
     Abort;
   end;
//添加部门
     IsExists:=Locate('UnitName',Edit2.Text,[loCaseInsensitive]);
     if not IsExists then
     begin
       Append;
       Edit;
       FieldByName('UnitName').Value:=Edit2.Text;
       Post;
       Application.MessageBox('添加成功!','提示',mb_ok);
     end
     else
     begin
       Application.MessageBox('该部门名称已存在!','出错提示',mb_ok);
       Edit2.SetFocus;
       Abort;
     end;
   end;
  end;
  //ChangeOrAdd:='';
  Bitbtn4.Enabled:=false;
  bitBtn1.Enabled:=true;
  bitbtn2.Enabled:=true;
  Edit2.ReadOnly:=true;
end; 


end.