unit1.pas

转载 工控软件管理绿色小精灵 v2005代码。非常好的 要控件上http://www.bokonger.com/ReNewsInfo.asp?id=19下

begin
form3.Show;
end;

procedure TForm1.bsSkinDirectoryEdit1Change(Sender: TObject);
begin
adoquery1.Edit;
 bsSkinDBEdit1.Text:=bsSkinDirectoryEdit1.Text;//赋值到数据库
 adoquery1.Post;
end;

procedure TForm1.bsSkinLinkImage2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
bsSkinLinkImage2.URL:=bsSkinDBEdit1.text;
end;

procedure TForm1.bsSkinDateEdit1DateChange(Sender: TObject);
begin
adoquery1.Edit;
 bsSkinDBEdit6.Text:=bsSkinDateEdit1.Text;//赋值到数据库
 adoquery1.Post;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
bsSkinLinkLabel1.click;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
bsSkinLinkLabel1.click;
end;

procedure TForm1.N47Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.N49Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.N50Click(Sender: TObject);
begin
frReport1.ShowReport;
end;

procedure TForm1.N48Click(Sender: TObject);
begin
bsTrayIcon1.ShowMainForm;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
 bsTrayIcon1.HideMainForm;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
if MessageDlg('软件是最新版本，不需要升级!',
    mtconfirmation, [mbYes, mbNo], 0)= mryes then
   
end;

procedure TForm1.N56Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm1.N66Click(Sender: TObject);
begin
frReport1.ShowReport;
end;

procedure TForm1.N68Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.N71Click(Sender: TObject); 
begin
SaveDialog1.FileName := 'kh'; //保存名称
  if SaveDialog1.Execute then
  begin
    save := SaveDialog1.FileName;  //名称赋值
    if FileExists(save) then
    begin
      if MessageBox(handle, '文件已存在是否覆盖？', '系统提示', MB_ICONQUESTION
        + mb_YesNo) = mrYes then
      begin
        DeleteFile(save); //覆盖
        sqlstr := 'select * into [Text;Database=';

        Int_Index := Pos('\', save);

        while Int_Index > 0 do
        begin
          sqlstr := sqlstr + Copy(save, 1, Int_Index);
          delete(save, 1, Int_Index);
          Int_Index := Pos('\', save);
        end;
        sqlstr := sqlstr + '].' + save + ' from ' + 'kh';
        try
         ADOConnection1.Execute(sqlstr);
        except
          showmessage('error');
          Exit;
        end;

      end
      else
      begin
        exit;
      end;
    end
    else
    begin
      DeleteFile(save);
      sqlstr := 'select* into [Text;Database=';

      Int_Index := Pos('\', save);

      while Int_Index > 0 do
      begin
        sqlstr := sqlstr + Copy(save, 1, Int_Index);
        delete(save, 1, Int_Index);
        Int_Index := Pos('\', save);
      end;
      sqlstr := sqlstr + '].' + save + ' from ' + 'kh';

      try
    ADOConnection1.Execute(sqlstr);
      except
        showmessage('error');
        Exit;
      end;

    end;

  end
  else
  begin
    exit;
  end;
  showmessage('客户资料导出成功，导入时请不要修改文件名称');
end;

procedure TForm1.N72Click(Sender: TObject);
begin
SaveDialog1.FileName := 'ziliao'; //保存名称
  if SaveDialog1.Execute then
  begin
    save := SaveDialog1.FileName;  //名称赋值
    if FileExists(save) then
    begin
      if MessageBox(handle, '文件已存在是否覆盖？', '系统提示', MB_ICONQUESTION
        + mb_YesNo) = mrYes then
      begin
        DeleteFile(save); //覆盖
        sqlstr := 'select * into [Text;Database=';

        Int_Index := Pos('\', save);

        while Int_Index > 0 do
        begin
          sqlstr := sqlstr + Copy(save, 1, Int_Index);
          delete(save, 1, Int_Index);
          Int_Index := Pos('\', save);
        end;
        sqlstr := sqlstr + '].' + save + ' from ' + 'ziliao';
        try
         ADOConnection1.Execute(sqlstr);
        except
          showmessage('error');
          Exit;
        end;

      end
      else
      begin
        exit;
      end;
    end
    else
    begin
      DeleteFile(save);
      sqlstr := 'select* into [Text;Database=';

      Int_Index := Pos('\', save);

      while Int_Index > 0 do
      begin
        sqlstr := sqlstr + Copy(save, 1, Int_Index);
        delete(save, 1, Int_Index);
        Int_Index := Pos('\', save);
      end;
      sqlstr := sqlstr + '].' + save + ' from ' + 'ziliao';

      try
    ADOConnection1.Execute(sqlstr);
      except
        showmessage('error');
        Exit;
      end;

    end;

  end
  else
  begin
    exit;
  end;
  showmessage('软件资料导出成功，导入时请不要修改文件名称');
end;

procedure TForm1.N69Click(Sender: TObject);
var
  openfiname, sqlstr, strsql: string;
  Int_Index: integer;
  SL: TStrings;
  i: integer;
begin


end;

procedure TForm1.N70Click(Sender: TObject);
var
  openfiname, sqlstr, strsql: string;
  Int_Index: integer;
  SL: TStrings;
  i: integer;
begin
ComboBox1.ItemIndex := 1; //
if MessageBox(handle, '是否倒入？', '系统提示', MB_ICONQUESTION
    + mb_YesNo) = mrYes then
  begin
    if OpenDialog1.Execute then
    begin
      openfiname := OpenDialog1.FileName;

      sqlstr := 'from [Text;Database=';

      Int_Index := Pos('\', openfiname);

      while Int_Index > 0 do
      begin
        sqlstr := sqlstr + Copy(openfiname, 1, Int_Index);
        delete(openfiname, 1, Int_Index);
        Int_Index := Pos('\', openfiname);
      end;
      sqlstr := sqlstr + '].' + openfiname;

      Int_Index := Pos('.', openfiname);
      delete(openfiname, Int_Index, 4);
      sqlstr := 'select * into ' + openfiname + ' ' + sqlstr;
      for i := 0 to ComboBox1.Items.Count - 1 do
      begin
        if ComboBox1.Items.Strings[i] = openfiname then
        begin
          if MessageBox(handle, '表已存在是否覆盖？', '系统提示', MB_ICONQUESTION
            + mb_YesNo) = mrYes then
          begin
            with ADOQuery1 do
            begin
              Close;
              SQL.Clear;
              strsql := 'drop table ' + openfiname;
              sql.Add(strsql);
              ExecSQL;
            end;

          end
          else
          begin
            exit;
          end;

        end;
      end;

      //        showmessage(sqlstr);
      try
       ADOConnection1.Execute(sqlstr);
      except
        showmessage('error');
        Exit;
      end;

      showmessage('数据库导入成功!');
      ADOConnection1.Close;
      ADOConnection1.Open;
      SL := TStringList.Create;
      ADOConnection1.GetTableNames(sl, false);
      for i := 0 to sl.Count - 1 do
      begin
        ComboBox1.Items := sl;
      end;
      ComboBox1.ItemIndex := 1; //不可以加的东西

    end;
  end;
  with ADOQuery1 do
  begin
  Close;
    SQL.Clear;
    SQL.Add('select * from '+ComboBox1.Text);
    open;
  end;

end;

procedure TForm1.N19Click(Sender: TObject);
begin
//ADOQuery1.Sort := '出品公司 ASC';//降序
frReport1.ShowReport;
end;

end.