funadd.pas

DelphiHelper---Delphi帮助源代码

unit funadd;

interface

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

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

var
  frmfunadd: Tfrmfunadd;

implementation

uses main, data;

{$R *.dfm}

procedure Tfrmfunadd.RzBitBtn1Click(Sender: TObject);
begin
if trim(rzdbedit1.Text)='' then
begin
showmessage('请填写名称！');
exit;
end;
if trim(rzdbmemo1.Text)='' then
begin
showmessage('请填写解释说明！');
exit;
end;
with dm do
 begin
 query2.Close;
 query2.SQL.Clear;
 query2.SQL.Add('select * from tbl_function where fun_name='+''''+rzdbedit1.Text+'''');
 query2.Prepared;
 query2.Open;
 if query2.RecordCount>0 then
 begin
 showmessage('记录名称存在！ ');
 exit;
 end
 else
 begin
 Set_Func_add.Post;
 Set_Func_add.Close;
 end;
end;
close;
end;

procedure Tfrmfunadd.RzBitBtn2Click(Sender: TObject);
begin
with dm do
begin
Set_Func_add.Cancel;
Set_Func_add.Close;
end;
close;
end;

end.