unit1.pas

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

           begin
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftword,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftinteger' then
           begin
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftinteger,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftfloat' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftfloat,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftboolean' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftboolean,0,false);
           end;
      if   form4.filetype6.Lines[i]='fttime' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],fttime,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftautoinc' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftautoinc,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftcurrency' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftcurrency,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftmemo' then
           begin
            p:= word(strtoint(form4.filesize6.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftmemo,p,false);
           end;
      if   form4.filetype6.Lines[i]='ftstring' then
           begin
            p:= word(strtoint(form4.filesize6.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftstring,p,false);
           end;
      if   form4.filetype6.Lines[i]='ftbcd' then
           begin
            p:= word(strtoint(form4.filesize6.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftbcd,p,false);
           end;
      if   form4.filetype6.Lines[i]='ftblob' then
           begin
            p:= word(strtoint(form4.filesize6.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftblob,p,false);
           end;




      end;
             form2.Memo1.Lines.Text:=form4.help6.Lines.Text;
         form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME6.Lines.Text;
          form2.label4.caption:=form4.name6.Lines.Text;
         form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;    end;
 end;




 procedure Tform1.CHJ7;
var i:integer;
p: word;
begin
        form4.ClientDataSet1.Close;
        form4.ClientDataSet1.FieldDefs.Clear;

      for i:=0 to  form4.filename7.Lines.Count-1 do
      begin
      if   form4.filetype7.Lines[i]='ftsmallint' then
           begin

           form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftsmallint,0,false);
           end;

      if   form4.filetype7.Lines[i]='ftdate' then
           begin
            form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftdate,0,false);
           end;
      if   form4.filetype7.Lines[i]='ftword' then
           begin
            form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftword,0,false);
           end;
      if   form4.filetype7.Lines[i]='ftinteger' then
           begin
            form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftinteger,0,false);
           end;
      if   form4.filetype7.Lines[i]='ftfloat' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftfloat,0,false);
           end;
      if   form4.filetype7.Lines[i]='ftboolean' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftboolean,0,false);
           end;
      if   form4.filetype7.Lines[i]='fttime' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],fttime,0,false);
           end;
      if   form4.filetype7.Lines[i]='ftautoinc' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftautoinc,0,false);
           end;
      if   form4.filetype7.Lines[i]='ftcurrency' then
           begin
           form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftcurrency,0,false);
           end;
      if   form4.filetype7.Lines[i]='ftmemo' then
           begin
            p:= word(strtoint(form4.filesize7.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftmemo,p,false);
           end;
      if   form4.filetype7.Lines[i]='ftstring' then
           begin
            p:= word(strtoint(form4.filesize7.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftstring,p,false);
           end;
      if   form4.filetype7.Lines[i]='ftbcd' then
           begin
            p:= word(strtoint(form4.filesize7.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftbcd,p,false);
           end;
      if   form4.filetype7.Lines[i]='ftblob' then
           begin
            p:= word(strtoint(form4.filesize7.Lines[i]));
            form4.ClientDataSet1.FieldDefs.Add(form4.filename7.Lines[i],ftblob,p,false);
            form4.Label2.Caption:='false';
             mainform.editor.DataSource:=Form2.DataSource1 ;
            mainform.editor.DataField:=form4.filename7.Lines[i];
           end;
end;

         form2.Memo1.Lines.Text:=form4.help7.Lines.Text;
         form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME7.Lines.Text;
         form2.label4.caption:=form4.name7.Lines.Text;
        form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;



 end;





procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.Close;
//form4.Enabled:=true;
end;




procedure TForm1.BitBtn8Click(Sender: TObject);
begin
if (edit1.Text<>'') and   (edit1.Text<>'') and (edit1.Text=edit2.Text) then
begin

 panel3.Visible:=false;
 password.Lines.Clear;
 password.Lines.Text:= edit1.Text;
 password.Lines.SaveToFile('c:\NewStar\config\pc.dat');
 showmessage('你的口令已更该成功！！请务必记住更改过的口令');

end
else
begin
showmessage('口令设置错误！');
end;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
Panel3.Visible:=false;
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
if trim(edit3.Text)=trim(password.lines.text) then
begin
 panel4.Visible:=false;
 if tf=11 then
 begin
 panel3.Visible:=true;
 end;
  if tf=10 then
 begin

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


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


end else
begin
  if tf=11 then
  begin
 showmessage('原口令输入错误，你没有权限更该口令!!');
 panel4.Visible:=false;
 end;
  if tf=10 then
  begin
 showmessage('口令输入错误，你没有权限查看备份纪录!!');
 panel4.Visible:=false;
 end;



end;
end;



procedure TForm1.FTPViewDblClick(Sender: TObject);
   var
s: string;
ret: integer;
begin

  try
  if FTPView.Selected.Caption='' then
  sleep(10);
  except
  exit;
  end;


  if FTPView.Selected.StateIndex=1  then
  begin
  if (FTPView.Selected.Caption='空') or (FTPView.Selected.Caption='null') then exit;
sql.Caption:=trim(form4.query.Lines[0]);
alias.Caption:=trim(form4.databasealias.Lines[0]);
mainform.editor.DataSource:=nil;
mainform.editor.DataField:='';

 form2 := Tform2.Create( Application );
      try
       form2.Show;
       form2.Update;
      except
       end;

chj1;
form4.dformtdlabel.Caption:='dat01';
  end;

  if FTPView.Selected.StateIndex=2  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   sql.Caption:=trim(form4.query.Lines[1]);
alias.Caption:=trim(form4.databasealias.Lines[1]);
mainform.editor.DataSource:=nil;
mainform.editor.DataField:='';
form2 := Tform2.Create( Application );
      try
       form2.Show;
       form2.Update;
      except
       end;

chj2;
form4.dformtdlabel.Caption:='dat02';
  end;

   if FTPView.Selected.StateIndex=3  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   sql.Caption:=trim(form4.query.Lines[2]);
alias.Caption:=trim(form4.databasealias.Lines[2]);
mainform.editor.DataSource:=nil;
mainform.editor.DataField:='';
form2 := Tform2.Create( Application );
      try
       form2.Show;
       form2.Update;
      except
       end;

chj3;
form4.dformtdlabel.Caption:='dat03';
  end;

   if FTPView.Selected.StateIndex=4  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   sql.Caption:=trim(form4.query.Lines[3]);
alias.Caption:=trim(form4.databasealias.Lines[3]);
mainform.editor.DataSource:=nil;
mainform.editor.DataField:='';
form2 := Tform2.Create( Application );
      try
       form2.Show;
       form2.Update;
      except
       end;

chj4;
form4.dformtdlabel.Caption:='dat04';
  end;

   if FTPView.Selected.StateIndex=5  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   sql.Caption:=trim(form4.query.Lines[4]);
alias.Caption:=trim(form4.databasealias.Lines[4]);
mainform.editor.DataSource:=nil;
mainform.editor.DataField:='';
form2 := Tform2.Create( Application );
      try
       form2.Show;
       form2.Update;
      except
       end;

chj5;
form4.dformtdlabel.Caption:='dat05';
  end;

   if FTPView.Selected.StateIndex=6  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   sql.Caption:=trim(form4.query.Lines[5]);
alias.Caption:=trim(form4.databasealias.Lines[5]);
mainform.editor.DataSource:=nil;
mainform.editor.DataField:='';
form2 := Tform2.Create( Application );
      try
       form2.Show;
       form2.Update;
      except
       end;

chj6;
form4.dformtdlabel.Caption:='dat06';
  end;

   if FTPView.Selected.StateIndex=7  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   sql.Caption:=trim(form4.query.Lines[6]);
alias.Caption:=trim(form4.databasealias.Lines[6]);
form2 := Tform2.Create( Application );
      try
       form2.Show;
       form2.Update;
      except
       end;

chj7;
mainform.Show;
  end;

   if FTPView.Selected.StateIndex=8  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   TF:=11;
   panel4.Visible:=true;
  end;

   if FTPView.Selected.StateIndex=9  then

  begin
   if FTPView.Selected.Caption='空' then exit;



if  Directoryexists('d:\') then
begin

  s:= 'D:\备份文件\';
end else
begin
   s:= 'c:\备份文件\';
end;

  ret:=application.MessageBox(pchar(' 为了防止病毒的影响,系统将将《乐华信息集成录入系统》重要文件备份在: '+ s+' 的目录文件夹内...,是否备份?'),'系统备份',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
  if ret=1 then
     begin
{===========================}


  with FlyingOp1 do
  begin
    SourceDirectory      := 'c:\NewStar\';
    DestinationDirectory :=s+'\NewStar\' ;
    RecurseDirectory     := true;
    FileMask             :='*.*';
    SearchForFiles;
    ExecCopy;
  end;

   with FlyingOp1 do
  begin
    SourceDirectory      := 'c:\备份\';
    DestinationDirectory :=s+'\备份\' ;
    RecurseDirectory     := true;
    FileMask             :='*.*';
    SearchForFiles;
    ExecCopy;
  end;
{======================================}
    end;



end;


   if FTPView.Selected.StateIndex=10  then
  begin
   if FTPView.Selected.Caption='空' then exit;
   TF:=10;
   panel4.Visible:=true;
  end;





end;



procedure TForm1.cancelbtClick(Sender: TObject);
begin
 panel4.Visible:=false;
end;






procedure TForm1.FormActivate(Sender: TObject);
begin

form4.Enabled:=false;
end;


end.