addunit.pas

-个人文档管理专家V1.10版本源码

unit AddUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, StdCtrls, SUIEdit, ExtCtrls, SUIForm;

type
  TAddFrm = class(TForm)
    AddsFrm: TsuiForm;
    sedt_caption: TsuiEdit;
    lbl_caption: TLabel;
    lbl_info: TLabel;
    sbtn_Ok: TsuiButton;
    sbtn_Cancel: TsuiButton;
    srb_borther: TsuiRadioButton;
    srb_son: TsuiRadioButton;
    procedure sbtn_OkClick(Sender: TObject);
    procedure sbtn_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddFrm: TAddFrm;

implementation
Uses Main;
{$R *.dfm}

procedure TAddFrm.sbtn_OkClick(Sender: TObject);
var
  i:integer;
begin
  if Trim(sedt_caption.Text) ='' then
  begin
    MessageBox(Handle,'名称不能为空，请重试','提示',MB_OK + MB_ICONERROR);
    Exit;
  end;
  if Caption='新建课题' then
  begin
    for i:=0 to MainFrm.scbb_Subject.Items.Count -1 Do
    begin
      if Trim(sedt_caption.Text)=Trim(MainFrm.scbb_Subject.Items[i]) then
      begin
        MessageBox(handle,'已经存在相同名字的课题了，请换个名字重试','提示',MB_OK + MB_ICONERROR);
        Exit;
      end;
    end;
  end;
  ModalResult:=mrOk;
end;

procedure TAddFrm.sbtn_CancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.