unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,filectrl ,Buttons, Db, DBClient, FlyingOp, lmdctrl,
  lmdstdcS, lmdbtn, lmdmmS, ComCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    temp: TClientDataSet;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    password: TMemo;
    Panel4: TPanel;
    Edit3: TEdit;
    Panel5: TPanel;
    FlyingOp1: TFlyingOp;
    LMDSimpleLabel1: TLMDSimpleLabel;
    LMDSimpleLabel2: TLMDSimpleLabel;
    sql: TLabel;
    alias: TLabel;
    LMDSimpleLabel5: TLMDSimpleLabel;
    LMDSimpleLabel3: TLMDSimpleLabel;
    LMDSimpleLabel4: TLMDSimpleLabel;
    LMDSimpleLabel6: TLMDSimpleLabel;
    LMDSimpleLabel7: TLMDSimpleLabel;
    LMDSimpleLabel8: TLMDSimpleLabel;
    LMDSimpleLabel9: TLMDSimpleLabel;
    LMDSimpleLabel12: TLMDSimpleLabel;
    LMDSimpleLabel13: TLMDSimpleLabel;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    Image3: TImage;
    Image4: TImage;
    Panel8: TPanel;
    Image1: TImage;
    LargeImage: TImageList;
    Panel9: TPanel;
    Label6: TLabel;
    BitBtn10: TBitBtn;
    cancelbt: TBitBtn;
    Bevel2: TBevel;
    Panel1: TPanel;
    Image5: TImage;
    Bevel1: TBevel;
    Image2: TImage;
    Bevel3: TBevel;
    Bevel4: TBevel;
    ftpview: TListView;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   

    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure FTPViewDblClick(Sender: TObject);
    procedure cancelbtClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
  procedure chj1;
   procedure chj2;
    procedure chj3;
     procedure chj4;
      procedure chj5;
       procedure chj6;
         procedure chj7;

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit4, REMain1, Unit5;

{$R *.DFM}
var
TF:integer;



procedure TForm1.FormCreate(Sender: TObject);
VAR
RET: INTEGER;
item: Tlistitem;
begin


if not directoryexists('C:\NewStar\Save') then
begin
forceDirectories('C:\NewStar\Save');
end;

if not directoryexists('C:\Sky') then
begin
forceDirectories('C:\Sky');
end;

if not directoryexists('C:\备份') then
begin
forceDirectories('C:\备份');
end;

if not directoryexists('C:\备份\销售') then
begin
forceDirectories('C:\备份\销售');
end;
if not directoryexists('C:\备份\财务') then
begin
forceDirectories('C:\备份\财务');
end;
if not directoryexists('C:\备份\报表') then
begin
forceDirectories('C:\备份\报表');
end;
if not directoryexists('C:\备份\维修') then
begin
forceDirectories('C:\备份\维修');
end;
if not directoryexists('C:\备份\统计') then
begin
forceDirectories('C:\备份\统计');
end;
if not directoryexists('C:\备份\其它') then
begin
forceDirectories('C:\备份\其它');
end;
if not directoryexists('C:\NewStar\EXCEL') then
begin
forceDirectories('C:\NewStar\EXCEL');
end;

if not fileexists('c:\NewStar\config\pc.dat') then
begin
password.Lines.Clear;
password.Lines.Add('1');
password.Lines.SaveToFile('c:\NewStar\config\pc.dat');
ret:=application.MessageBox('此客户端程序没有口令,请负责主管输入唯一口令?','输入口令',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
if ret=1 then
begin
form1.Panel3.Visible:=true;
end;
end else
begin
password.Lines.LoadFromFile('c:\NewStar\config\pc.dat');

end;





{=================================================================}
FTPView.Items.Clear;




        if trim(form4.name1.Lines.Text)<>'NUIL' then
       begin

        item:=FTPView.Items.Add;
        item.Caption:=trim(form4.name1.Lines.Text);
        item.StateIndex:=1;
        item.ImageIndex:=7;

      end else
      begin

       item:=FTPView.Items.Add;
       item.Caption:=trim('空');
        item.StateIndex:=1;
       item.ImageIndex:=7;


      end;


      if trim(form4.name2.Lines.Text)<>'NUIL' then
      begin

       item:=FTPView.Items.Add;
        item.StateIndex:=2;
        item.Caption:=trim(form4.name2.Lines.Text);

        item.ImageIndex:=7;

      end
      else
      begin

       item:=FTPView.Items.Add;
        item.Caption:='空';
        item.ImageIndex:=7;
         item.StateIndex:=2;

      end;

         if trim(form4.name3.Lines.Text)<>'NUIL' then
begin

 item:=FTPView.Items.Add;
        item.Caption:=trim(form4.name3.Lines.Text);
        item.ImageIndex:=7;
         item.StateIndex:=3;

end
else
begin

 item:=FTPView.Items.Add;
        item.Caption:='空';
        item.ImageIndex:=7;
         item.StateIndex:=3;

end;

if trim(form4.name4.Lines.Text)<>'NUIL' then
begin


        item:=FTPView.Items.Add;
        item.Caption:=trim(form4.name4.Lines.Text);
        item.ImageIndex:=7;
         item.StateIndex:=4;

end
else
begin


        item:=FTPView.Items.Add;
        item.Caption:='空';
        item.ImageIndex:=7;
         item.StateIndex:=4;

end;



if trim(form4.name5.Lines.Text)<>'NUIL' then
begin

 item:=FTPView.Items.Add;
        item.Caption:=trim(form4.name5.Lines.Text);
        item.ImageIndex:=7;
         item.StateIndex:=5;

end
else
begin

 item:=FTPView.Items.Add;
        item.Caption:='空';
        item.ImageIndex:=7;
         item.StateIndex:=5;

end;



if trim(form4.name6.Lines.Text)<>'NUIL' then
begin

   item:=FTPView.Items.Add;
        item.Caption:=trim(form4.name6.Lines.Text);
        item.ImageIndex:=7;
         item.StateIndex:=6;


end
else
begin

   item:=FTPView.Items.Add;
        item.Caption:='空';
        item.ImageIndex:=7;
         item.StateIndex:=6;


end;


if trim(form4.name7.Lines.Text)<>'NUIL' then
begin

 item:=FTPView.Items.Add;
        item.Caption:=trim(form4.name7.Lines.Text);
        item.ImageIndex:=7;
         item.StateIndex:=7;

end
else
begin

 item:=FTPView.Items.Add;
        item.Caption:='空';
        item.ImageIndex:=7;
         item.StateIndex:=7;

end;


item:=FTPView.Items.Add;

        item.Caption:='更改口令';
        item.ImageIndex:=16;
         item.StateIndex:=8;


{        item:=FTPView.Items.Add;
        item.Caption:='数据备份';
        item.ImageIndex:=26;
         item.StateIndex:=9;



        item:=FTPView.Items.Add;
        item.Caption:='浏览查询备份数据';
        item.ImageIndex:=17;
         item.StateIndex:=10;}


          item:=FTPView.Items.Add;
        item.Caption:='帮助';
        item.ImageIndex:=13;
         item.StateIndex:=11;





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





end;

procedure Tform1.CHJ1;
var i:integer;
p: word;
ret:integer;
begin

if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name1.Lines.Text)+'.mod') then
   begin
       ret:=application.MessageBox('是否加载模板文件?','加载模板',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
          if ret<>1 then
          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客户端录入系统—'+'['+form4.name.Lines.Text+']'+form4.NAME1.Lines.Text;
         form2.label4.caption:=form4.name1.Lines.Text;
         form4.ClientDataSet1.CreateDataSet;
         form4.ClientDataSet1.Open;
          end else begin

    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.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name1.Lines.Text)+'.mod');
   {=========}
   if fileexists(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name1.Lines.Text)+'.mwh') then
      begin
    form4.width.Lines.Clear;
    form4.width.lines.LoadFromFile(trim('c:\NewStar\Save\'+form4.name.Lines.Text+form4.name1.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;