departmentmanageunit.pas

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

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.