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

unit DepartmentManageUnit; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids; 
 
type 
  TfrmDepartmentManage = class(TForm) 
    DBGrid1: TDBGrid; 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Edit3: TEdit; 
    GroupBox2: TGroupBox; 
    RadioButton1: TRadioButton; 
    RadioButton2: TRadioButton; 
    RadioButton3: TRadioButton; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    DataSource1: TDataSource; 
    procedure FormCreate(Sender: TObject); 
    procedure DBGrid1ColEnter(Sender: TObject); 
    procedure Edit1Exit(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure RadioButton1Click(Sender: TObject); 
    procedure RadioButton2Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
  private 
    procedure loadData(); 
    procedure clearData();{ Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  frmDepartmentManage: TfrmDepartmentManage; 
 
implementation 
 
uses DataModuleUnit, MainUnit; 
 
{$R *.dfm} 
//加载数据 
procedure TfrmDepartmentManage.loadData(); 
begin 
   with frmDatamodule.DepartmentManage do 
   begin 
     edit1.Text:=FieldByName('DepartmentName').Value; 
     edit2.Text:=FieldByName('charger').Value; 
     edit3.Text:=FieldByName('chargerPhone').Value; 
     edit; 
   end; 
end; 
 //清空输入的数据 
procedure TfrmDepartmentManage.clearData(); 
begin 
   edit1.Text:=''; 
   edit2.Text:=''; 
   edit3.Text:=''; 
   edit1.SetFocus; 
end; 
procedure TfrmDepartmentManage.FormCreate(Sender: TObject); 
begin 
   frmDataModule.DepartmentManage.Active:=true; 
end; 
 
procedure TfrmDepartmentManage.DBGrid1ColEnter(Sender: TObject); 
begin 
  self.loadData; 
end; 
 
procedure TfrmDepartmentManage.Edit1Exit(Sender: TObject); 
var 
  isExists:boolean; 
begin 
    isExists:=frmDataModule.DepartmentManage.Locate('DepartmentName',trim(edit1.Text),[loCaseInsensitive]); 
    if not radioButton1.Checked then 
    begin 
      LoadData(); 
    end 
    else 
    if(RadioButton1.Checked and isExists) then 
    begin 
       Application.MessageBox('该院系已存在!','出错提示',mb_ok); 
       abort; 
    end; 
end; 
 
procedure TfrmDepartmentManage.BitBtn1Click(Sender: TObject); 
var 
  IsExists:boolean; 
begin 
  IsExists:=false; 
  with frmDataModule.DepartmentManage do  //添加信息 
  begin 
    if RadioButton1.Checked then 
    begin 
       Append; 
       edit; 
       FieldByName('DepartmentName').Value:=Edit1.Text; 
       FieldByName('charger').Value:=Edit2.Text; 
       FieldByName('chargerPhone').Value:=Edit3.Text; 
       FieldByName('OperatorID').Value:=frmMain.OperatorInfo.OperatorID; 
       post; 
    end 
    else 
    if RadioButton2.Checked then  //修改信息 
    begin 
      IsExists:=Locate('DepartmentName',trim(edit1.Text),[loCaseInsensitive]); 
      if IsExists then 
      begin 
        Edit; 
        FieldByName('charger').Value:=Edit2.Text; 
        FieldByName('chargerPhone').Value:=Edit3.Text; 
        FieldByName('OperatorID').Value:=frmMain.OperatorInfo.OperatorID; 
        post; 
      end; 
    end 
    else 
    if RadioButton3.Checked then //删除信息 
    begin 
      if MessageDlg('你真的要删除吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then 
        Delete; 
    end 
    else 
      ShowMessage('请选择"操作类型"!'); 
  end; 
  self.clearData; 
  RadioButton1.Checked:=false; 
  RadioButton2.Checked:=false; 
  RadioButton3.Checked:=false; 
  Edit1.ReadOnly:=true; 
  Edit2.ReadOnly:=true; 
  Edit3.ReadOnly:=true; 
end; 
 
procedure TfrmDepartmentManage.RadioButton1Click(Sender: TObject); 
begin 
   self.clearData; 
   Edit1.ReadOnly:=false; 
   Edit2.ReadOnly:=false; 
   Edit3.ReadOnly:=false; 
end; 
 
procedure TfrmDepartmentManage.RadioButton2Click(Sender: TObject); 
begin 
   Edit1.ReadOnly:=true; 
   Edit2.ReadOnly:=false; 
   Edit3.ReadOnly:=false; 
end; 
 
procedure TfrmDepartmentManage.BitBtn2Click(Sender: TObject); 
begin 
 close; 
end; 
 
end.