unit4.pas

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

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons,FileCtrl, Db, DBClient, lmdclass,
  lmdctrl, lmdstdcS;

type
  TForm4 = class(TForm)
    passEdit: TEdit;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    Label1: TLabel;
    ListBox1: TListBox;
    ClientDataSet2: TClientDataSet;
    Label2: TLabel;
    LMDSimpleLabel5: TLMDSimpleLabel;
    LMDSimpleLabel1: TLMDSimpleLabel;
    LMDSimpleLabel2: TLMDSimpleLabel;
    LMDSimpleLabel3: TLMDSimpleLabel;
    LMDSimpleLabel4: TLMDSimpleLabel;
    LMDSimpleLabel6: TLMDSimpleLabel;
    LMDSimpleLabel7: TLMDSimpleLabel;
    LMDSimpleLabel8: TLMDSimpleLabel;
    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;
    dformtdlabel: TLabel;
    ClientDataSet1: TClientDataSet;
    filename3: TMemo;
    filetype3: TMemo;
    filename4: TMemo;
    filesize6: TMemo;
    filetype1: TMemo;
    filesize4: TMemo;
    filename2: TMemo;
    filetype2: TMemo;
    query: TMemo;
    databasealias: TMemo;
    filesize7: TMemo;
    filetype5: TMemo;
    filetype6: TMemo;
    filetype7: TMemo;
    help2: TMemo;
    name3: TMemo;
    help1: TMemo;
    name: TMemo;
    help3: TMemo;
    help4: TMemo;
    filename6: TMemo;
    filename7: TMemo;
    name7: TMemo;
    filesize5: TMemo;
    filename5: TMemo;
    name2: TMemo;
    filename1: TMemo;
    name1: TMemo;
    name6: TMemo;
    help7: TMemo;
    width: TMemo;
    help5: TMemo;
    help6: TMemo;
    name5: TMemo;
    name4: TMemo;
    filesize1: TMemo;
    filesize2: TMemo;
    filetype4: TMemo;
    filesize3: TMemo;
    BitBtn1: TBitBtn;
    slabel: TLabel;
    dformctlabel: TLabel;
    fileallright: TLabel;
    Panel1: TPanel;
    Image5: TImage;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
  procedure InitSyaDat;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit1,regftyp, Unit5, REMain1, Unit2,
  sendUnit;

{$R *.DFM}


{$R icon.res}
var
tf:integer;


procedure TForm4.FormCreate(Sender: TObject);
var
i:integer;
begin
InitSyaDat;
 TF:=0;
{reg====================}
registerfiletype ('.cdx','cdxfile','cdx-file','C:\NewStar\Sky.exe,1','C:\NewStar\Sky.exe');




try
{===1======}

NAME1.Lines.Clear;
FILENAME1.Lines.Clear;
FILETYPE1.Lines.Clear;
FILESIZE1.Lines.Clear;
{============}
{===1======}
NAME2.Lines.Clear;
FILENAME2.Lines.Clear;
FILETYPE2.Lines.Clear;
FILESIZE2.Lines.Clear;
{============}
{===3======}
NAME3.Lines.Clear;
FILENAME3.Lines.Clear;
FILETYPE3.Lines.Clear;
FILESIZE3.Lines.Clear;
{============}
{===4======}
NAME4.Lines.Clear;
FILENAME4.Lines.Clear;
FILETYPE4.Lines.Clear;
FILESIZE4.Lines.Clear;
{============}
{===5======}
NAME5.Lines.Clear;
FILENAME5.Lines.Clear;
FILETYPE5.Lines.Clear;
FILESIZE5.Lines.Clear;
{============}
{===6======}
NAME6.Lines.Clear;
FILENAME6.Lines.Clear;
FILETYPE6.Lines.Clear;
FILESIZE6.Lines.Clear;
{============}
{===6======}
NAME7.Lines.Clear;
FILENAME7.Lines.Clear;
FILETYPE7.Lines.Clear;
FILESIZE7.Lines.Clear;
{======web======}
query.Lines.Clear;
databasealias.Lines.Clear;
{============}

if directoryexists('C:\NewStar\Config') then
begin
 name1.Lines.LoadFromFile('C:\NewStar\Config\name1.dat');
 name2.Lines.LoadFromFile('C:\NewStar\Config\name2.dat');
 name3.Lines.LoadFromFile('C:\NewStar\Config\name3.dat');
 name4.Lines.LoadFromFile('C:\NewStar\Config\name4.dat');
 name5.Lines.LoadFromFile('C:\NewStar\Config\name5.dat');
 name6.Lines.LoadFromFile('C:\NewStar\Config\name6.dat');
 name7.Lines.LoadFromFile('C:\NewStar\Config\name7.dat');

 filename1.Lines.LoadFromFile('C:\NewStar\Config\filename1.dat');
 filename2.Lines.LoadFromFile('C:\NewStar\Config\filename2.dat');
 filename3.Lines.LoadFromFile('C:\NewStar\Config\filename3.dat');
 filename4.Lines.LoadFromFile('C:\NewStar\Config\filename4.dat');
 filename5.Lines.LoadFromFile('C:\NewStar\Config\filename5.dat');
 filename6.Lines.LoadFromFile('C:\NewStar\Config\filename6.dat');
 filename7.Lines.LoadFromFile('C:\NewStar\Config\filename7.dat');

 filetype1.Lines.LoadFromFile('C:\NewStar\Config\filetype1.dat');
 filetype2.Lines.LoadFromFile('C:\NewStar\Config\filetype2.dat');
 filetype3.Lines.LoadFromFile('C:\NewStar\Config\filetype3.dat');
 filetype4.Lines.LoadFromFile('C:\NewStar\Config\filetype4.dat');
 filetype5.Lines.LoadFromFile('C:\NewStar\Config\filetype5.dat');
 filetype6.Lines.LoadFromFile('C:\NewStar\Config\filetype6.dat');
 filetype7.Lines.LoadFromFile('C:\NewStar\Config\filetype7.dat');

 filesize1.Lines.LoadFromFile('C:\NewStar\Config\filesize1.dat');
 filesize2.Lines.LoadFromFile('C:\NewStar\Config\filesize2.dat');
 filesize3.Lines.LoadFromFile('C:\NewStar\Config\filesize3.dat');
 filesize4.Lines.LoadFromFile('C:\NewStar\Config\filesize4.dat');
 filesize5.Lines.LoadFromFile('C:\NewStar\Config\filesize5.dat');
 filesize6.Lines.LoadFromFile('C:\NewStar\Config\filesize6.dat');
 filesize7.Lines.LoadFromFile('C:\NewStar\Config\filesize7.dat');

 name.Lines.LoadFromFile('C:\NewStar\Config\name.dat');

 help1.Lines.LoadFromFile('C:\NewStar\Config\help1.dat');
 help2.Lines.LoadFromFile('C:\NewStar\Config\help2.dat');
 help3.Lines.LoadFromFile('C:\NewStar\Config\help3.dat');
 help4.Lines.LoadFromFile('C:\NewStar\Config\help4.dat');
 help5.Lines.LoadFromFile('C:\NewStar\Config\help5.dat');
 help6.Lines.LoadFromFile('C:\NewStar\Config\help6.dat');
 help7.Lines.LoadFromFile('C:\NewStar\Config\help7.dat');


 query.Lines.LoadFromFile('C:\NewStar\Config\query.dat');
 databasealias.Lines.LoadFromFile('C:\NewStar\Config\databasealias.dat');
 
 {===============================================}

end  else
begin

 fileallright.Caption:='NO';
end;

except

 fileallright.Caption:='NO';
end;





{======================}
LISTBOX1.ITEMS.Clear;
FOR I:=0 TO PARAMCOUNT DO
                         BEGIN
                          LISTBOX1.ITEMS.ADD(PARAMSTR(I));

                          END;
                          IF LISTBOX1.Items.Count>1 THEN TF:=1;

if not fileexists('c:\NewStar\config\pc.dat') then
begin
memo1.Lines.Clear;
memo1.Lines.Add('1');
memo1.Lines.SaveToFile('c:\NewStar\config\pc.dat');
end;
memo1.Lines.LoadFromFile('c:\NewStar\config\pc.dat');

end;

procedure TForm4.BitBtn1Click(Sender: TObject);
var
i:integer;
s:string;
begin

 if form4.fileallright.Caption='NO' then
  begin
  showmessage('你安装的客户录入系统已损坏，请先重新安装此系统！！');
  form4.close;
  end;

if passEdit.Text=trim(memo1.Lines.Text) then
begin

if tf<>1 then
begin

{=======================================}
 form1 := Tform1.Create( Application );
      try
       form1.Show;
       form1.Update;
      except
       end;

{=======================================}
end else
begin
{打开文件}

 s:='';

 FOR I:=1 TO PARAMCOUNT DO
                         BEGIN
                          s:=S+' '+PARAMSTR(I);

                          END;
                          s:=trim(s);
{ 判断是cdx还是mdx.ndx}
 if (uppercase(trim(ExtractFileExt(s)))='.MDX') then
   begin

   end else
   begin
   slabel.Caption:=s;
{=======================================}
 form5 := Tform5.Create( Application );
      try
       form5.Show;
       form5.Update;
       form5.ClientDataSet1.LoadFromFile(form4.slabel.Caption);
       form5.Caption:='CDX编辑器1.0-'+ form4.slabel.Caption;
       form5.ClientDataSet1.Open;
        for i:=0 to  form5.ClientDataSet1.FieldCount-1 do
       begin
           if form5.ClientDataSet1.Fields[i].DataType=ftblob then
             begin
              mainform.editor.DataSource:=form5.DataSource1;
              mainform.editor.DataField:=form5.ClientDataSet1.Fields[i].FieldName;
              form4.Label2.Caption:='false';
              mainform.show;
             end;

       end;


        try
        form5.ClientDataSet1.First;
        form5.ClientDataSet1.Next;
        form5.ClientDataSet1.First;
       except
        end;


      except
       end;

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


end;

end else
begin
showmessage('警告: 口令输入错误! 请重新输入!');
end;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
try
form4.Close;
except
end;
end;

procedure TForm4.InitSyaDat;
begin
  try

    if  not fileexists('C:\NewStar\Enterpirse\user\sysuser.dat') then
    begin
    fileexist.Caption:='error';
    exit;
    end;



    ClientDataSet2.Close;
    ClientDataSet2.LoadFromFile('C:\NewStar\Enterpirse\user\sysuser.dat');
    ClientDataSet2.Open;
    ClientDataSet2.First;
    while not  ClientDataSet2.EOF do
    begin
       if ClientDataSet2.fieldbyname('local').Value=true then
       begin
         {===========================================================================}
     nameLabel.Caption:=ClientDataSet2.fieldbyname('ycjsjm').asstring;
     superLabel.Caption:=ClientDataSet2.fieldbyname('super').asstring;
     localLabel.Caption:=ClientDataSet2.fieldbyname('local').asstring;
     registryLabel.Caption:=ClientDataSet2.fieldbyname('registry').asstring;
     hostsiteLabel.Caption:=ClientDataSet2.fieldbyname('hostsite').asstring;
     ftppassLabel.Caption:=ClientDataSet2.fieldbyname('ftppass').asstring;
     ftpuserLabel.Caption:=ClientDataSet2.fieldbyname('ftpuser').asstring;
     datpassLabel.Caption:=ClientDataSet2.fieldbyname('datpass').asstring;
     dbuserLabel.Caption:=ClientDataSet2.fieldbyname('dbuser').asstring;
     dbpassLabel.Caption:=ClientDataSet2.fieldbyname('dbpass').asstring;
     datuserLabel.Caption:=ClientDataSet2.fieldbyname('datuser').asstring;
     skyjyLabel.Caption:=ClientDataSet2.fieldbyname('skyjy').asstring;
     skyfsjyLabel.Caption:=ClientDataSet2.fieldbyname('skyfsjy').asstring;
     skydqjyLabel.Caption:=ClientDataSet2.fieldbyname('skydqjy').asstring;
     skyeditorjyLabel.Caption:=ClientDataSet2.fieldbyname('skyeditorjy').asstring;
     skyeditorjsjyLabel.Caption:=ClientDataSet2.fieldbyname('skyeditorjsjy').asstring;
     skyeditorfsjyLabel.Caption:=ClientDataSet2.fieldbyname('skyeditorfsjy').asstring;
     skyeditortjjyLabel.Caption:=ClientDataSet2.fieldbyname('skyeditortjjy').asstring;
     skynetjyLabel.Caption:=ClientDataSet2.fieldbyname('skynetjy').asstring;
     SkyServerjyLabel.Caption:=ClientDataSet2.fieldbyname('SkyServerjy').asstring;
     SkyServer01jyLabel.Caption:=ClientDataSet2.fieldbyname('SkyServer01jy').asstring;
     SkyServer02jyLabel.Caption:=ClientDataSet2.fieldbyname('SkyServer02jy').asstring;
     SkyServer03jyLabel.Caption:=ClientDataSet2.fieldbyname('SkyServer03jy').asstring;
     SkyServer04jyLabel.Caption:=ClientDataSet2.fieldbyname('SkyServer04jy').asstring;
     SkyServer05jyLabel.Caption:=ClientDataSet2.fieldbyname('SkyServer05jy').asstring;
     SkyServer06jyLabel.Caption:=ClientDataSet2.fieldbyname('SkyServer06jy').asstring;
     EditorServerjyLabel.Caption:=ClientDataSet2.fieldbyname('EditorServerjy').asstring;
     ftpjylabel.Caption:=ClientDataSet2.fieldbyname('ftpjy').asstring;
     ftpszjylabel.Caption:=ClientDataSet2.fieldbyname('ftpszjy').asstring;
     ftpxjwjjjylabel.Caption:=ClientDataSet2.fieldbyname('ftpxjwjjjy').asstring;
     ftpxzjylabel.Caption:=ClientDataSet2.fieldbyname('ftpxzjy').asstring;
     ftpscjylabel.Caption:=ClientDataSet2.fieldbyname('ftpscjy').asstring;
     sqljy.Caption:=ClientDataSet2.fieldbyname('sqljy').asstring;
     nssqljy.Caption:=ClientDataSet2.fieldbyname('nssqljy').asstring;
     WinArchiverjyLabel.Caption:=ClientDataSet2.fieldbyname('WinArchiverjy').asstring;
     WinFtpJyLabel.Caption:=ClientDataSet2.fieldbyname('WinFtpJy').asstring;
     SkyImagejyLabel.Caption:=ClientDataSet2.fieldbyname('SkyImagejy').asstring;
     exit;
       end;
    ClientDataSet2.Next;
    end;


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

  except

  readsysdat.Caption:='error';

  end;

end;






procedure TForm4.FormActivate(Sender: TObject);
begin
if uppercase(trim(fileexist.Caption))='ERROR' then
begin
showmessage('系统检测到本远程计算机未安装完整,请安装完整!');
close;
end;

if uppercase(trim(registryLabel.Caption))<>'TRUE' then
begin
showmessage('系统检测到本远程计算机还未注册,请注册后使用!');
close;
end;


if uppercase(trim(readsysdat.Caption))='ERROR' then
begin
showmessage('系统读取本远程计算机系统数据库出现意外错误!,请重试!');
close;
end;

if Uppercase(skyjyLabel.Caption)='TRUE' then
    begin
   showmessage('系统检测到你没有此权限使用此功能!');
   close;
   end;

end;












end.