type_edit.~pas

个人信息管理系统

unit Type_Edit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,adodb,DATADEFINE,dm;

type
  TType_EditFrm = class(TForm)
    Name_Edit: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Name_EditKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Type_EditFrm: TType_EditFrm;
  Edit_Node,Edit_Type:integer;

implementation

{$R *.dfm}

procedure TType_EditFrm.Button2Click(Sender: TObject);
VAR RET:BOOLEAN;
begin
Try
if name_edit.Text='' then exit;
RET:=fALSE;
Tmp_Connection.BeginTrans;
if Edit_Type=1 Then
Begin
  Tmp_Query.Close;
  Tmp_Query.SQL.Clear;
  Tmp_Query.SQL.Add('INSERT INTO TYPE_NAME(TYPE_NAME,PID) VALUES(:TYPE_NAME,:PID)');
  Tmp_Query.Parameters.ParamByName('TYPE_NAME').Value:=NAME_Edit.Text;
  Tmp_Query.Parameters.ParamByName('PID').Value:=node_pid[Edit_Node];
  Tmp_Query.Prepared;
  Tmp_Query.ExecSQL;
  Tmp_Query.Close;
  RET:=True;
end
else if Edit_Type=2 Then
Begin
  Tmp_Query.Close;
  Tmp_Query.SQL.Clear;
  Tmp_Query.SQL.Add('UPDATE TYPE_NAME SET TYPE_NAME=:TYPE_NAME WHERE ID=:ID');
  Tmp_Query.Parameters.ParamByName('TYPE_NAME').Value:=NAME_Edit.Text;
  Tmp_Query.Parameters.ParamByName('ID').Value:=node_pid[Edit_Node];
  Tmp_Query.Prepared;
  Tmp_Query.ExecSQL;
  Tmp_Query.Close;
  RET:=True;
end
else if Edit_Type=3 Then
Begin
  Tmp_Query.Close;
  Tmp_Query.SQL.Clear;
  Tmp_Query.SQL.Add('SELECT COUNT(*)  FROM  TYPE_NAME WHERE PID=:ID');
  Tmp_Query.Parameters.ParamByName('ID').Value:=node_pid[Edit_Node];
  Tmp_Query.Prepared;
  Tmp_Query.Open;
  IF Tmp_Query.Fields[0].AsInteger>0 THEN
  begin
  SHOWMESSAGE('还有子项，不能删除！');
  end
  ELSE
  Begin
  Tmp_Query.Close;
  Tmp_Query.SQL.Clear;
  Tmp_Query.SQL.Add('SELECT COUNT(*)  FROM  MSG WHERE TYPE=:ID');
  Tmp_Query.Parameters.ParamByName('ID').Value:=node_pid[Edit_Node];
  Tmp_Query.Prepared;
  Tmp_Query.Open;
  IF Tmp_Query.Fields[0].AsInteger>0 THEN
  begin
  SHOWMESSAGE('还有数据项，不能删除！');
  end
  ELSE
  begin
  Tmp_Query.Close;
  Tmp_Query.SQL.Clear;
  Tmp_Query.SQL.Add('DELETE FROM  TYPE_NAME WHERE ID=:ID');
  Tmp_Query.Parameters.ParamByName('ID').Value:=node_pid[Edit_Node];
  Tmp_Query.Prepared;
  Tmp_Query.ExecSQL;
  Tmp_Query.Close;
  RET:=True;
  End;
  End;
{
dmfrm.Table_MSG.Active:=False;
dmfrm.Table_MSG.Active:=True;
  dmfrm.Table_MSG.DisableControls;
dmfrm.Table_MSG.EnableControls;


dmfrm.table_type.Active:=False;
dmfrm.table_type.Active:=True;
dmfrm.table_type.DisableControls;
dmfrm.table_type.EnableControls;}
end;

Tmp_Connection.CommitTrans;
except
Tmp_Connection.RollbackTrans;
end;
if ret then Type_EditFrm.ModalResult:=mrOK;
end;

procedure TType_EditFrm.Button1Click(Sender: TObject);
begin
Type_EditFrm.ModalResult:=mrCancel;
end;

procedure TType_EditFrm.Name_EditKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Button2.Click;
end;

end.