newunit.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit newunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, cmpGFXListBox, ExtCtrls, Buttons, ComCtrls, lmdctrl, lmdstdcS,
  TFlatRadioButtonUnit;

type
  Ttypeform = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    ImageList1: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Image2: TImage;
    cancelbt: TBitBtn;
    okbt: TBitBtn;
    Bevel1: TBevel;
    Image3: TImage;
    Panel2: TPanel;
    tvDirectory: TTreeView;
    Panel1: TPanel;
    Image4: TImage;
    LMDSimpleLabel1: TLMDSimpleLabel;
    LMDSimpleLabel2: TLMDSimpleLabel;
    LMDSimpleLabel3: TLMDSimpleLabel;
    RadioButton1: TFlatRadioButton;
    RadioButton2: TFlatRadioButton;
    procedure cancelbtClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure okbtClick(Sender: TObject);
    procedure tvDirectoryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  typeform: Ttypeform;

implementation

uses REMain1, sendUnit;

{$R *.DFM}

procedure Ttypeform.cancelbtClick(Sender: TObject);
begin
label3.Caption:='false';
close;
 if  RadioButton2.Checked then
    begin
     label2.Caption:=label4.Caption;
    end;

end;

procedure Ttypeform.FormActivate(Sender: TObject);
begin
label3.Caption:='true';
mainform.enabled:=false;
panel2.Enabled:=true;
RadioButton1.Checked:=true;

end;

procedure Ttypeform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.enabled:=true;
end;


procedure Ttypeform.FormCreate(Sender: TObject);
 var

RecNode:TTreeNode;
SenNode:TTreeNode;
HRecNode:TTreeNode;
HDelNode:TTreeNode;

RecNode01:TTreeNode;
SenNode01:TTreeNode;


RecNode02:TTreeNode;
SenNode02:TTreeNode;

RecNode03:TTreeNode;
SenNode03:TTreeNode;

HDelNode01: TTreeNode;
HDelNode02: TTreeNode;
HDelNode03: TTreeNode;

HRecNode01: TTreeNode;
HRecNode02: TTreeNode;
HRecNode03: TTreeNode;

begin
{========================}







  RecNode:=tvDirectory.Items.AddChild(nil,'01号文档资料');
  RecNode.ImageIndex:=1;
  RecNode.SelectedIndex:=1  ;

  RecNode01:=tvDirectory.Items.AddChild(nil,'02号文档资料');
  RecNode01.ImageIndex:=1;
  RecNode01.SelectedIndex:=1  ;

  RecNode02:=tvDirectory.Items.AddChild(nil,'03号文档资料');
  RecNode02.ImageIndex:=1;
  RecNode02.SelectedIndex:=1  ;

  RecNode03:=tvDirectory.Items.AddChild(nil,'04号文档资料');
  RecNode03.ImageIndex:=1;
  RecNode03.SelectedIndex:=1;




  SenNode:=tvDirectory.Items.AddChild(nil,'05号文档资料');
  SenNode.ImageIndex:=1;
  SenNode.SelectedIndex:=1;

  SenNode01:=tvDirectory.Items.AddChild(nil,'06号文档资料');
  SenNode01.ImageIndex:=1;
  SenNode01.SelectedIndex:=1;


  tvDirectory.FullExpand;
  
{========================}
end;

procedure Ttypeform.RadioButton2Click(Sender: TObject);
begin
  if    RadioButton2.Checked then
  begin
 Panel2.visible:=true;
 tvDirectory.SetFocus;
  end;
  tvDirectoryClick(owner);
end;

procedure Ttypeform.RadioButton1Click(Sender: TObject);
begin
 if    RadioButton1.Checked then
  begin
     Panel2.visible:=false;
  end;
end;

procedure Ttypeform.okbtClick(Sender: TObject);
begin
    if  RadioButton2.Checked then
    begin
      mainform.bttgfb.Visible:=false;
      mainform.bttgfb.Enabled:=false;

     if label2.Caption='false' then
     begin
     showmessage('操作错误: 请选择文档资料类型!..');
     exit;
     end else
     begin
      dform.label3.Caption:='true';
     label4.Caption:=label2.Caption;
     label1.Caption:='true';
     end;

   end else
   begin
   with mainform do
   begin
       dform.label3.Caption:='true';
       openbutton.Enabled:=true;
       SaveButton.Enabled:=true;
      PrintButton.Enabled:=true;
      UndoButton.Enabled:=true;
      PasteButton.Enabled:=true;
      CopyButton.Enabled:=true;
      CutButton.Enabled:=true;
      SpeedButton1.Enabled:=true;
       SpeedButton3.Enabled:=true;
      SpeedButton4.Enabled:=true;
      fileopenitem.Enabled:=true;
      bttgfb.Visible:=true;
      bttgfb.Enabled:=true;
filesaveitem.Enabled:=true;
fileprintitem.Enabled:=true;
n12.Enabled:=true;
n6.Enabled:=true;
editundoitem.Enabled:=true;
editcutitem.Enabled:=true;
editcopyitem.Enabled:=true;
editpasteitem.Enabled:=true;
n9.Enabled:=true;

   end;
   end;
  mainform.Editor.Visible:=true;
  close;

end;

procedure Ttypeform.tvDirectoryClick(Sender: TObject);
begin
label2.Caption:='false';
 if (tvDirectory.Items.Item[0].Selected) then
 begin
 label2.Caption:='1';
 end;

  if (tvDirectory.Items.Item[1].Selected) then
 begin
 label2.Caption:='2';
 end;

  if (tvDirectory.Items.Item[2].Selected) then
 begin
 label2.Caption:='3';
 end;

  if (tvDirectory.Items.Item[3].Selected) then
 begin
 label2.Caption:='4';
 end;

  if (tvDirectory.Items.Item[4].Selected) then
 begin
 label2.Caption:='5';
 end;

 if (tvDirectory.Items.Item[5].Selected) then
 begin
 label2.Caption:='6';
 end;


end;








end.