unit1.pas

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

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



      end;
           form2.Memo1.Lines.Text:=form4.help4.Lines.Text;
         form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME4.Lines.Text;
          form2.label4.caption:=form4.name4.Lines.Text;
         form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;
          end else begin
    form2.Memo1.Lines.Text:=form4.help4.Lines.Text;
    form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME4.Lines.Text;
    form2.label4.caption:=form4.name4.Lines.Text;
    form4.ClientDataSet1.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name4.Lines.Text)+'.mod');
     {=========}
   if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name4.Lines.Text)+'.mwh') then
      begin
    form4.width.Lines.Clear;
    form4.width.lines.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name4.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.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;

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



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


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

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

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



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

          end else begin
    form2.Memo1.Lines.Text:=form4.help5.Lines.Text;
    form2.Caption:='@NewStar客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME5.Lines.Text;
    form2.label4.caption:=form4.name5.Lines.Text;
    form4.ClientDataSet1.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name5.Lines.Text)+'.mod');
     {=========}
   if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name5.Lines.Text)+'.mwh') then
      begin
    form4.width.Lines.Clear;
    form4.width.lines.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name5.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.filename5.Lines.Count-1 do
      begin
      if   form4.filetype5.Lines[i]='ftsmallint' then
           begin

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

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



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

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

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

      if   form4.filetype6.Lines[i]='ftdate' then
           begin
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftdate,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftword' then
           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 Co Ltd客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME6.Lines.Text;
          form2.label4.caption:=form4.name6.Lines.Text;
         form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;

          end else begin
    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.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name6.Lines.Text)+'.mod');
     {=========}
   if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name6.Lines.Text)+'.mwh') then
      begin
    form4.width.Lines.Clear;
    form4.width.lines.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name6.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.filename6.Lines.Count-1 do
      begin
      if   form4.filetype6.Lines[i]='ftsmallint' then
           begin

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

      if   form4.filetype6.Lines[i]='ftdate' then
           begin
            form4.ClientDataSet1.FieldDefs.Add(form4.filename6.Lines[i],ftdate,0,false);
           end;
      if   form4.filetype6.Lines[i]='ftword' then