funedit.pas

DelphiHelper---Delphi帮助源代码

unit funedit;

interface

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

type
  Tfrmfunedit = 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
  frmfunedit: Tfrmfunedit;

implementation

uses data;

{$R *.dfm}

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

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

end.