arcedit.pas

来自「DelphiHelper---Delphi帮助源代码」· PAS 代码 · 共 90 行

unit arcedit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, RzEdit, Mask, RzCmboBx, RzLabel, RzButton,
  DBCtrls, RzDBEdit, RzDBCmbo;

type
  Tfrmarcedit = class(TForm)
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzDBEdit1: TRzDBEdit;
    RzDBComboBox1: TRzDBComboBox;
    RzDBRichEdit1: TRzDBMemo;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmarcedit: Tfrmarcedit;

implementation

uses main, data;

{$R *.dfm}

procedure Tfrmarcedit.RzBitBtn2Click(Sender: TObject);
var
I:string;
begin
if trim(rzdbcombobox1.Text)='' then
begin
showmessage('请选择分类！');
exit;
end;
if trim(rzdbedit1.Text)='' then
begin
showmessage('请填写标题！');
exit;
end;
if trim(rzdbrichedit1.Text)='' then
begin
showmessage('请填写文章内容！');
exit;
end;
with dm do
 begin
 I:=Set_Arc_edit.Fieldbyname('Article_ID').AsString;
 query2.Close;
 query2.SQL.Clear;
 query2.SQL.Add('select * from Article where Article_Title='+''''+rzdbedit1.Text+''''+' and Article_ID<>'+I);
 query2.Prepared;
 query2.Open;
 if query2.RecordCount>0 then
 begin
 showmessage('文章标题已经存在！ ');
 exit;
 end
 else
 begin
 Set_Arc_edit.Post;
 frmmain.creattree;
 Set_Arc_edit.Close;
 end;
end;
 close;
end;

procedure Tfrmarcedit.RzBitBtn1Click(Sender: TObject);
begin
with dm do
begin
Set_Arc_edit.Cancel;
Set_Arc_edit.Close;
end;
close;
end;

end.