unit1.pas

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

   end else
   begin

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

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

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



      end;
         form2.Memo1.Lines.Text:=form4.help1.Lines.Text;
         form2.Caption:='@NewStar Co Ltd客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME1.Lines.Text;
         form2.label4.caption:=form4.name1.Lines.Text;
         form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;


   end;





 end;

procedure Tform1.CHJ2;
var i:integer;
p: word;
ret:integer;
begin
if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name2.Lines.Text)+'.mod') then
   begin
          ret:=application.MessageBox('是否加载模板文件?','加载模板',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
          if ret<>1 then
          begin
          for i:=0 to  form4.filename2.Lines.Count-1 do
      begin
      if   form4.filetype2.Lines[i]='ftsmallint' then
           begin

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

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



      end;
              form2.Memo1.Lines.Text:=form4.help2.Lines.Text;
         form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME2.Lines.Text;
         form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;
          form2.label4.caption:=form4.name2.Lines.Text;
          end else begin

    form2.Memo1.Lines.Text:=form4.help2.Lines.Text;
    form2.Caption:='@NewStar Co Ltd客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME2.Lines.Text;
    form2.label4.caption:=form4.name2.Lines.Text;
    form4.ClientDataSet1.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name2.Lines.Text)+'.mod');
     {=========}
   if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name2.Lines.Text)+'.mwh') then
      begin
    form4.width.Lines.Clear;
    form4.width.lines.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name2.Lines.Text)+'.mwh');
    for i:=0 to  form4.width.Lines.Count-1 do
    begin
     form4.ClientDataSet1.Fields[i].DisplayWidth:=strtoint(trim(form4.width.Lines[i]));
    end;
    end;
   {===========}

    form4.ClientDataSet1.Open;
           end;


   end else
   begin



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

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

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



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

procedure Tform1.CHJ3;
var i:integer;
p: word;
ret:integer;
begin
if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name3.Lines.Text)+'.mod') then
   begin
     ret:=application.MessageBox('是否加载模板文件?','加载模板',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
          if ret<>1 then
          begin
            for i:=0 to  form4.filename3.Lines.Count-1 do
      begin
      if   form4.filetype3.Lines[i]='ftsmallint' then
           begin

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

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



      end;
             form2.Memo1.Lines.Text:=form4.help3.Lines.Text;
         form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME3.Lines.Text;
          form2.label4.caption:=form4.name3.Lines.Text;
         form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;
          end else begin
    form2.Memo1.Lines.Text:=form4.help3.Lines.Text;
    form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME3.Lines.Text;
    form2.label4.caption:=form4.name3.Lines.Text;
    form4.ClientDataSet1.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name3.Lines.Text)+'.mod');
     {=========}
   if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name3.Lines.Text)+'.mwh') then
      begin
    form4.width.Lines.Clear;
    form4.width.lines.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name3.Lines.Text)+'.mwh');
    for i:=0 to  form4.width.Lines.Count-1 do
    begin
     form4.ClientDataSet1.Fields[i].DisplayWidth:=strtoint(trim(form4.width.Lines[i]));
    end;
    end;
   {===========}
    form4.ClientDataSet1.Open;
          end;
   end else
   begin



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

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

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



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

 procedure Tform1.CHJ4;
var i:integer;
p: word;
ret:integer;
begin
if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name4.Lines.Text)+'.mod') then
   begin
     ret:=application.MessageBox('是否加载模板文件?','加载模板',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
          if ret<>1 then
          begin
              for i:=0 to  form4.filename4.Lines.Count-1 do
      begin
      if   form4.filetype4.Lines[i]='ftsmallint' then
           begin

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