dlg_editnode.pas

用于家庭养殖的财务进出

unit dlg_editnode;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, CheckLst;

type
  TDlg_Edit = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    RB_Type: TRadioGroup;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    E_Name: TEdit;
    Label2: TLabel;
    E_Order: TEdit;
    Label3: TLabel;
    E_dm: TEdit;
    CheckListBox1: TCheckListBox;
    Label4: TLabel;
    procedure RB_TypeClick(Sender: TObject);//窗体初始化
    procedure FormActivate(Sender: TObject); //选择 激活状态下窗体初始化信息
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dlg_Edit: TDlg_Edit;

implementation
  uses unit_main,unit_global;
{$R *.dfm}

procedure TDlg_Edit.RB_TypeClick(Sender: TObject);
begin
  if RB_Type.ItemIndex=0 then   //系统
  begin
    e_dm.Enabled:=false;
    checklistbox1.Enabled:=false;
  end;
  if rb_type.ItemIndex=1 then
  begin
    e_dm.Enabled:=true;
    checklistbox1.Enabled:=true;
  end;
end;

procedure TDlg_Edit.FormActivate(Sender: TObject);
var
   i:integer;
begin
/////////////20060418//////////////////////////////
  if frm_main.Frame61.TreeView1.Selected<>nil then
  begin
    e_name.Text:=frm_main.frame61.TreeView1.Selected.text;
    e_order.Text:=pmyrec(frm_main.frame61.TreeView1.Selected.Data)^.index;
    if pmyrec(frm_main.frame61.TreeView1.Selected.Data)^.boarder_host<>'' then
    begin
      RB_Type.ItemIndex:=0;
      E_dm.Enabled:=false;
      checklistbox1.Enabled:=false;
    end
    else
    begin
      rb_type.ItemIndex:=1;
      dlg_edit.E_dm.Enabled:=true;
      checklistbox1.Enabled:=true;
      dlg_edit.E_dm.Text:=PMyRec(frm_main.frame61.TreeView1.Selected.Data)^.dm;
///////////////提取系统,单位索引权限组/////20060418/////
      for i:=0 to dlg_edit.CheckListBox1.Count-1 do
      begin
        if pos(','+inttostr(i)+',',PMyRec(frm_main.frame61.TreeView1.Selected.Data)^.user_group_id)<>0 then
           dlg_edit.CheckListBox1.Checked[i]:=true
        else
           dlg_edit.CheckListBox1.Checked[i]:=false;
      end;
///////////////////////////////////////////////////////
    end;
  end;

end;

end.