unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, TB97, ComCtrls, cmpGFXComboBox, Buttons, ExtCtrls,
  Menus, lmdctrl, Lmdsplta, wwriched, LsFileExplorer, ArchiverRoot,
  CustExtractor, CustArchiver, Archiver, lmdstdcS, Db, DBClient,
  TFlatEditUnit, TFlatSpinEditUnit;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    DirectoryListBox3: TDirectoryListBox;
    Toolbar971: TToolbar97;
    Panel13: TPanel;
    bkstyle: TLabel;
    link: TLabel;
    Image6: TImage;
    Sendbt: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel14: TPanel;
    Image7: TImage;
    ComboBox1: TGFXComboBox;
    DateTimePicker1: TDateTimePicker;
    Dock971: TDock97;
    MainMenu1: TMainMenu;
    O1: TMenuItem;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    X1: TMenuItem;
    N40: TMenuItem;
    MenuItem4: TMenuItem;
    G1: TMenuItem;
    MenuItem7: TMenuItem;
    N11: TMenuItem;
    N28: TMenuItem;
    H1: TMenuItem;
    N32: TMenuItem;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    LMD3PaneSplitCtrl1: TLMD3PaneSplitCtrl;
    Panel5: TPanel;
    Panel6: TPanel;
    DirectoryListBox5: TDirectoryListBox;
    FileListBox3: TFileListBox;
    editor: TwwDBRichEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    LsFileListView1: TLsFileListView;
    Image1: TImage;
    DateTimePicker2: TDateTimePicker;
    SpeedButton4: TSpeedButton;
    DirectoryListBox1: TDirectoryListBox;
    Archiver1: TArchiver;
    Label1: TLabel;
    Image2: TImage;
    PopupMenu4: TPopupMenu;
    N36: TMenuItem;
    N39: TMenuItem;
    N37: TMenuItem;
    Image3: TImage;
    Image4: TImage;
    deptname: TLabel;
    LMDSimpleLabel1: TLMDSimpleLabel;
    PopupMenu1: TPopupMenu;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem8: TMenuItem;
    SpeedButton3: TSpeedButton;
    SpeedButton6: TSpeedButton;
    initpanel: TPanel;
    nameLabel: TLabel;
    superLabel: TLabel;
    hostsiteLabel: TLabel;
    ftppassLabel: TLabel;
    ftpuserLabel: TLabel;
    datpassLabel: TLabel;
    datuserLabel: TLabel;
    skyjyLabel: TLabel;
    skyfsjyLabel: TLabel;
    skydqjyLabel: TLabel;
    skyeditorjyLabel: TLabel;
    skyeditorjsjyLabel: TLabel;
    skyeditorfsjyLabel: TLabel;
    skyeditortjjyLabel: TLabel;
    skynetjyLabel: TLabel;
    SkyServerjyLabel: TLabel;
    SkyServer01jyLabel: TLabel;
    SkyServer02jyLabel: TLabel;
    localLabel: TLabel;
    registryLabel: TLabel;
    SkyServer03jyLabel: TLabel;
    SkyServer04jyLabel: TLabel;
    SkyServer05jyLabel: TLabel;
    SkyServer06jyLabel: TLabel;
    EditorServerjyLabel: TLabel;
    ftpjylabel: TLabel;
    ftpszjylabel: TLabel;
    ftpxjwjjjylabel: TLabel;
    ftpxzjylabel: TLabel;
    ftpscjylabel: TLabel;
    sqljy: TLabel;
    nssqljy: TLabel;
    WinArchiverjyLabel: TLabel;
    WinFtpJyLabel: TLabel;
    SkyImagejyLabel: TLabel;
    fileexist: TLabel;
    readsysdat: TLabel;
    dbuserlabel: TLabel;
    dbpasslabel: TLabel;
    ClientDataSet2: TClientDataSet;
    ClientDataSet1: TClientDataSet;
    LMDSimpleLabel2: TLMDSimpleLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    SpeedButton7: TSpeedButton;
    PopupMenu2: TPopupMenu;
    N43241: TMenuItem;
    N4241: TMenuItem;
    N1: TMenuItem;
    LMDSimpleLabel3: TLMDSimpleLabel;
    recSize: TFlatSpinEditInteger;
    Bevel3: TBevel;
    Bevel4: TBevel;
    N2: TMenuItem;
    N5: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure SendbtClick(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FileListBox3Click(Sender: TObject);
    procedure Archiver1DeleteFile(Sender: TObject;
      const FileEntry: TFileEntry; var Accept: Boolean);
    procedure SpeedButton1Click(Sender: TObject);
    procedure PopupMenu4Popup(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure LsFileListView1DblClick(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure MenuItem8Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure LsFileListView1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure PopupMenu2Popup(Sender: TObject);
    procedure N43241Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure G1Click(Sender: TObject);
  private
  procedure InitSyaDat;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ipdress,reabout, Unit11, Unit10,redunit;

{$R *.DFM}
var
dir:string;
 fname : pchar;
 tempp: string;
 cmp: array[0..255] of Char;

procedure TForm1.FormCreate(Sender: TObject);
begin

  InitSyaDat;
  memo1.Lines.Clear;

  try
  memo1.Lines.LoadFromFile('C:\newstar\config\name.dat');
  deptname.Caption:=memo1.Text;
  except
  showmessage( '系统检测到你未正确安装服务器，本程序将无法使用!');
  exit;
  end;
  form1.Caption:=deptname.Caption+'-文档信息数据接收系统';
  DateTimePicker1.Date:=date;
  DateTimePicker2.Date:=date;
  dir:=DirectoryListBox3.directory;
  LMD3PaneSplitCtrl1.SplitterMain.Position:=190;
  try
  forcedirectories(dir+'\bakup');
  forcedirectories(dir+'\dat');
  forcedirectories(dir+'\dat\rdx02');
  forcedirectories(dir+'\dat\rdx03');
  forcedirectories(dir+'\dat\rdx04');
  forcedirectories(dir+'\dat\rdx05');
  forcedirectories(dir+'\dat\rdx06');
  forcedirectories(dir+'\dat\rdx01');
  forcedirectories(dir+'\dat\rdx00');
  forcedirectories(dir+'\dat\temp01');
  forcedirectories(dir+'\dat\temp02');
  forcedirectories(dir+'\dat\temp03');
  forcedirectories(dir+'\dat\temp04');
  forcedirectories(dir+'\dat\temp05');
  forcedirectories(dir+'\dat\temp06');
  forcedirectories(dir+'\dat\temp00');
  forcedirectories(dir+'\dat\dat');




  memo1.Lines.Clear;
  {==}
   combobox1.Items.Clear;
  combobox1.Items.Add('总部通告');
  combobox1.ImageIndex[0]:=0;



  combobox1.Items.Add('01文档资料');
  combobox1.ImageIndex[0]:=0;
  {==}


  combobox1.Items.Add('02文档资料');
   combobox1.ImageIndex[1]:=0;
{==}


  combobox1.Items.Add('03文档资料');
   combobox1.ImageIndex[2]:=0;
{==}


  combobox1.Items.Add('04文档资料');
   combobox1.ImageIndex[3]:=0;
{==}


  combobox1.Items.Add('05文档资料');
   combobox1.ImageIndex[4]:=0;
{==}


  combobox1.Items.Add('06文档资料');
   combobox1.ImageIndex[5]:=0;

  except
  end;



 {=====================================}

 ComboBox1.ItemIndex:=0;
 ComboBox1.OnChange(nil);


 {=====================================}


end;








procedure TForm1.N26Click(Sender: TObject);
begin
ipform.show;
end;

procedure TForm1.N32Click(Sender: TObject);
begin
 with TAboutBox.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
N32.Click;
end;

procedure TForm1.SendbtClick(Sender: TObject);
begin


 if trim(ComboBox1.Text)<>'' then
   begin

    if ComboBox1.ItemIndex=0 then //总部通告
    begin
     {======================================================}

     if Uppercase(skyeditorjsjyLabel.Caption)='TRUE' then
begin
   showmessage('系统检测到你没有此权限使用此功能!');
   exit;
end;
     if trim(ComboBox1.Text)<>'' then
   begin
     with Tredform.Create(Self) do
       try
         ShowModal;
       finally
         Free;
       end;

   end;
  {========================================================}

    end else
    begin    //其他(0-6通道)
 {======================================================}
     if trim(ComboBox1.Text)<>'' then
   begin
     with Treform.Create(Self) do
       try
         ShowModal;
       finally
         Free;
       end;
     end;

  {========================================================}
    end;

 end;
end;


procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
 if trim(combobox1.Text)<>'' then
 begin

  setform:= Tsetform.Create( Application );
      try
       setform.Show;
       setform.Update;

        {==}

  setform.combobox1.Items.Clear;

  setform.combobox1.Items.Add('01文档资料');
  setform.combobox1.ImageIndex[0]:=1;
  {==}


  setform.combobox1.Items.Add('02文档资料');
   setform.combobox1.ImageIndex[1]:=1;
{==}


  setform.combobox1.Items.Add('03文档资料');
  setform. combobox1.ImageIndex[2]:=1;
{==}


  setform.combobox1.Items.Add('04文档资料');
  setform. combobox1.ImageIndex[3]:=1;
{==}


  setform.combobox1.Items.Add('05文档资料');
  setform. combobox1.ImageIndex[4]:=1;
{==}


  setform.combobox1.Items.Add('06文档资料');
  setform. combobox1.ImageIndex[5]:=1;
       setform.combobox1.ItemIndex:=combobox1.ItemIndex-1;
       setform.combobox1.OnChange(self);
      except
      end;

 end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
y:word;
m:word;
d:word;
begin
  DateTimePicker2Change(owner);
  DecodeDate(form1.DateTimePicker1.date,y,m,d);
  if ComboBox1.ItemIndex=0 then
  begin
    SpeedButton7.Enabled:=false;
    recSize.Visible:=true;
  end  else
  begin
  SpeedButton7.Enabled:=true;
  recSize.Visible:=false;
  end;
  DirectoryListBox1.Directory:=dir+'\dat\temp0'+inttostr(ComboBox1.ItemIndex);
  forcedirectories(dir+'\dat\rdx0'+inttostr(form1.ComboBox1.ItemIndex)+'\'+form1.ComboBox1.Text+inttostr(y)+inttostr(m)+inttostr(d));
  LsFileListView1.Directory:=dir+'\dat\rdx0'+inttostr(form1.ComboBox1.ItemIndex)+'\'+form1.ComboBox1.Text+inttostr(y)+inttostr(m)+inttostr(d);
  LsFileListView1.UpdateFileList;
  editor.Lines.Clear;
end;