www.pudn.com > jiaocaiguanlixitongdaima.rar > ObeyUnitUnit.pas

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.