arcadd.pas

DelphiHelper---Delphi帮助源代码

unit arcadd;

interface

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

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

var
  frmarcadd: Tfrmarcadd;

implementation

uses data, main;

{$R *.dfm}

procedure Tfrmarcadd.FormShow(Sender: TObject);
begin
with dm do
 begin
  RzDBComboBox1.Clear;
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select distinct Article_Type from Article where Article_Type is not null');
  query1.Prepared;
  query1.Open;
  while not query1.Eof do
   begin
    RzDBComboBox1.Items.Add(trim(query1.Fields[0].asstring));
    query1.Next;
   end;
 end;
end;

procedure Tfrmarcadd.RzBitBtn2Click(Sender: TObject);
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
 query2.Close;
 query2.SQL.Clear;
 query2.SQL.Add('select * from Article where Article_Title='+''''+rzdbedit1.Text+'''');
 query2.Prepared;
 query2.Open;
 if query2.RecordCount>0 then
 begin
 showmessage('文章标题已经存在！ ');
 exit;
 end
 else
 begin
 Set_Arc_add.Post;
 frmmain.creattree;
 set_Arc_add.Close;
 end;
end;
close;
end;

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

end.