setup.pas

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

unit setup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    name1: TMemo;
    filename1: TMemo;
    filetype1: TMemo;
    filesize1: TMemo;
    name2: TMemo;
    filename2: TMemo;
    filetype2: TMemo;
    filesize2: TMemo;
    name3: TMemo;
    filename3: TMemo;
    filetype3: TMemo;
    filesize3: TMemo;
    name4: TMemo;
    filename4: TMemo;
    filetype4: TMemo;
    filesize4: TMemo;
    name5: TMemo;
    filename5: TMemo;
    filetype5: TMemo;
    filesize5: TMemo;
    name6: TMemo;
    filename6: TMemo;
    filetype6: TMemo;
    filesize6: TMemo;
    help6: TMemo;
    help5: TMemo;
    help4: TMemo;
    help3: TMemo;
    help2: TMemo;
    help1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
{===1======}
NAME1.Lines.Clear;
FILENAME1.Lines.Clear;
FILETYPE1.Lines.Clear;
FILESIZE1.Lines.Clear;

NAME1.Lines.Text:='维修报表'  ;

FILENAME1.Lines.Add('ID');
FILENAME1.Lines.Add('BBLX');
FILENAME1.Lines.Add('RM');
FILENAME1.Lines.Add('MODEL');
FILENAME1.Lines.Add('JX');
FILENAME1.Lines.Add('JH');
FILENAME1.Lines.Add('DATE1');
FILENAME1.Lines.Add('DATE2');
FILENAME1.Lines.Add('DATE3');
FILENAME1.Lines.Add('RUIN');
FILENAME1.Lines.Add('POS');
FILENAME1.Lines.Add('NAME');
FILENAME1.Lines.Add('XM');
FILENAME1.Lines.Add('DH');
FILENAME1.Lines.Add('DZ');
FILENAME1.Lines.Add('YB');

FILESIZE1.Lines.Add('3');
FILESIZE1.Lines.Add('3');
FILESIZE1.Lines.Add('3');
FILESIZE1.Lines.Add('8');
FILESIZE1.Lines.Add('6');
FILESIZE1.Lines.Add('8');
FILESIZE1.Lines.Add('8');
FILESIZE1.Lines.Add('8');
FILESIZE1.Lines.Add('8');
FILESIZE1.Lines.Add('4');
FILESIZE1.Lines.Add('28');
FILESIZE1.Lines.Add('28');
FILESIZE1.Lines.Add('8');
FILESIZE1.Lines.Add('13');
FILESIZE1.Lines.Add('56');
FILESIZE1.Lines.Add('7');

FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftdate');
FILETYPE1.Lines.Add('ftdate');
FILETYPE1.Lines.Add('ftdate');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
FILETYPE1.Lines.Add('ftstring');
{==============}

{===2======}
NAME2.Lines.Clear;
FILENAME2.Lines.Clear;
FILETYPE2.Lines.Clear;
FILESIZE2.Lines.Clear;

NAME2.Lines.Text:='开箱率'  ;

FILENAME2.Lines.Add('ID');
FILENAME2.Lines.Add('MODEL');
FILENAME2.Lines.Add('JX');
FILENAME2.Lines.Add('HGS');
FILENAME2.Lines.Add('BHGS');
FILENAME2.Lines.Add('RUIN');
FILENAME2.Lines.Add('DATE0');
FILENAME2.Lines.Add('JH');


FILESIZE2.Lines.Add('3');
FILESIZE2.Lines.Add('8');
FILESIZE2.Lines.Add('6');
FILESIZE2.Lines.Add('10');
FILESIZE2.Lines.Add('10');
FILESIZE2.Lines.Add('2');
FILESIZE2.Lines.Add('10');
FILESIZE2.Lines.Add('8');
FILETYPE2.Lines.Add('ftstring');
FILETYPE2.Lines.Add('ftstring');
FILETYPE2.Lines.Add('ftstring');
FILETYPE2.Lines.Add('ftsmallint');
FILETYPE2.Lines.Add('ftsmallint');
FILETYPE2.Lines.Add('ftstring');
FILETYPE2.Lines.Add('ftdate');
FILETYPE2.Lines.Add('ftstring');

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

{===3======}
NAME3.Lines.Clear;
FILENAME3.Lines.Clear;
FILETYPE3.Lines.Clear;
FILESIZE3.Lines.Clear;

NAME3.Lines.Text:='专柜统计'  ;

FILENAME3.Lines.Add('DATEO');
FILENAME3.Lines.Add('DEPT');
FILENAME3.Lines.Add('ID');
FILENAME3.Lines.Add('SALE');
FILENAME3.Lines.Add('SKY14');
FILENAME3.Lines.Add('SKY21');
FILENAME3.Lines.Add('SKY25');
FILENAME3.Lines.Add('SKY29');
FILENAME3.Lines.Add('SKY34');
FILENAME3.Lines.Add('SKY38');
FILENAME3.Lines.Add('CHANG');
FILENAME3.Lines.Add('KONKA');
FILENAME3.Lines.Add('TCL');
FILENAME3.Lines.Add('Haier');

FILESIZE3.Lines.Add('8');
FILESIZE3.Lines.Add('6');
FILESIZE3.Lines.Add('8');
FILESIZE3.Lines.Add('25');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');
FILESIZE3.Lines.Add('3');


FILETYPE3.Lines.Add('ftdate');
FILETYPE3.Lines.Add('ftstring');
FILETYPE3.Lines.Add('ftstring');
FILETYPE3.Lines.Add('ftstring');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');
FILETYPE3.Lines.Add('ftsmallint');


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

{===4======}
{NAME4.Lines.Clear;
FILENAME4.Lines.Clear;
FILETYPE4.Lines.Clear;
FILESIZE4.Lines.Clear;}

NAME4.Lines.Text:='NUIL'  ;

{FILENAME4.Lines.Add('ID');
FILENAME4.Lines.Add('MODEL');
FILENAME4.Lines.Add('DATE1');
FILENAME4.Lines.Add('DATE2');
FILENAME4.Lines.Add('RUIN');
FILENAME4.Lines.Add('TYPE');
FILENAME4.Lines.Add('NAME');
FILENAME4.Lines.Add('POS');
FILENAME4.Lines.Add('DATE3');
FILENAME4.Lines.Add('QTY');
FILENAME4.Lines.Add('RM');
FILENAME4.Lines.Add('BBLX');

FILESIZE4.Lines.Add('10');
FILESIZE4.Lines.Add('6');
FILESIZE4.Lines.Add('10');
FILESIZE4.Lines.Add('10');
FILESIZE4.Lines.Add('10');
FILESIZE4.Lines.Add('2');
FILESIZE4.Lines.Add('30');
FILESIZE4.Lines.Add('30');
FILESIZE4.Lines.Add('10');
FILESIZE4.Lines.Add('10');
FILESIZE4.Lines.Add('3');
FILESIZE4.Lines.Add('10');

FILETYPE4.Lines.Add('ftsmallint');
FILETYPE4.Lines.Add('ftstring');
FILETYPE4.Lines.Add('ftdate');
FILETYPE4.Lines.Add('ftdate');
FILETYPE4.Lines.Add('ftsmallint');
FILETYPE4.Lines.Add('ftstring');
FILETYPE4.Lines.Add('ftstring');
FILETYPE4.Lines.Add('ftstring');
FILETYPE4.Lines.Add('ftdate');
FILETYPE4.Lines.Add('ftsmallint');
FILETYPE4.Lines.Add('ftstring');
FILETYPE4.Lines.Add('ftsmallint');}

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

{===5======}
{NAME5.Lines.Clear;
FILENAME5.Lines.Clear;
FILETYPE5.Lines.Clear;
FILESIZE5.Lines.Clear; }

NAME5.Lines.Text:='NUIL'  ;

{FILENAME5.Lines.Add('ID');
FILENAME5.Lines.Add('MODEL');
FILENAME5.Lines.Add('DATE1');
FILENAME5.Lines.Add('DATE2');
FILENAME5.Lines.Add('RUIN');
FILENAME5.Lines.Add('TYPE');
FILENAME5.Lines.Add('NAME');
FILENAME5.Lines.Add('POS');
FILENAME5.Lines.Add('DATE3');
FILENAME5.Lines.Add('QTY');
FILENAME5.Lines.Add('RM');
FILENAME5.Lines.Add('BBLX');

FILESIZE5.Lines.Add('10');
FILESIZE5.Lines.Add('6');
FILESIZE5.Lines.Add('10');
FILESIZE5.Lines.Add('10');
FILESIZE5.Lines.Add('10');
FILESIZE5.Lines.Add('2');
FILESIZE5.Lines.Add('30');
FILESIZE5.Lines.Add('30');
FILESIZE5.Lines.Add('10');
FILESIZE5.Lines.Add('10');
FILESIZE5.Lines.Add('3');
FILESIZE5.Lines.Add('10');

FILETYPE5.Lines.Add('ftsmallint');
FILETYPE5.Lines.Add('ftstring');
FILETYPE5.Lines.Add('ftdate');
FILETYPE5.Lines.Add('ftdate');
FILETYPE5.Lines.Add('ftsmallint');
FILETYPE5.Lines.Add('ftstring');
FILETYPE5.Lines.Add('ftstring');
FILETYPE5.Lines.Add('ftstring');
FILETYPE5.Lines.Add('ftdate');
FILETYPE5.Lines.Add('ftsmallint');
FILETYPE5.Lines.Add('ftstring');
FILETYPE5.Lines.Add('ftsmallint');}

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

{===6======}
{NAME6.Lines.Clear;
FILENAME6.Lines.Clear;
FILETYPE6.Lines.Clear;
FILESIZE6.Lines.Clear;}

NAME6.Lines.Text:='NUIL'  ;

{FILENAME6.Lines.Add('ID');
FILENAME6.Lines.Add('MODEL');
FILENAME6.Lines.Add('DATE1');
FILENAME6.Lines.Add('DATE2');
FILENAME6.Lines.Add('RUIN');
FILENAME6.Lines.Add('TYPE');
FILENAME6.Lines.Add('NAME');
FILENAME6.Lines.Add('POS');
FILENAME6.Lines.Add('DATE3');
FILENAME6.Lines.Add('QTY');
FILENAME6.Lines.Add('RM');
FILENAME6.Lines.Add('BBLX');

FILESIZE6.Lines.Add('10');
FILESIZE6.Lines.Add('6');
FILESIZE6.Lines.Add('10');
FILESIZE6.Lines.Add('10');
FILESIZE6.Lines.Add('10');
FILESIZE6.Lines.Add('2');
FILESIZE6.Lines.Add('30');
FILESIZE6.Lines.Add('30');
FILESIZE6.Lines.Add('10');
FILESIZE6.Lines.Add('10');
FILESIZE6.Lines.Add('3');
FILESIZE6.Lines.Add('10');

FILETYPE6.Lines.Add('ftsmallint');
FILETYPE6.Lines.Add('ftstring');
FILETYPE6.Lines.Add('ftdate');
FILETYPE6.Lines.Add('ftdate');
FILETYPE6.Lines.Add('ftsmallint');
FILETYPE6.Lines.Add('ftstring');
FILETYPE6.Lines.Add('ftstring');
FILETYPE6.Lines.Add('ftstring');
FILETYPE6.Lines.Add('ftdate');
FILETYPE6.Lines.Add('ftsmallint');
FILETYPE6.Lines.Add('ftstring');
FILETYPE6.Lines.Add('ftsmallint');}

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

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

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

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

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

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

showmessage('成功该变系统设置，请启动客户录入系统观看改变结果！');
  close;
end
else
begin
showmessage('你未安装客户录入系统，请先安装此系统！！');
form1.close;
end;



end;

end.