思迅专卖店V8 特殊设置工具

wenhuawang

去年做淘宝没事写的工具，后来不干了，没意思!
现在发出来给大家玩玩！！
象征性收取2币，当手工费！
上图！

游客，如果您要查看本帖隐藏内容请回复

s319832

有楼主在，论坛的明天必将更好！ 逐句地看完这个帖子以后，我的心久久不能平静，震撼啊！为什么会有如此好的帖子！我纵横网络论坛多年，自以为再也不会有任何帖子能打动我，没想到今天看到了如此精妙绝伦的这样一篇帖子

wuhalang0302

有楼主在，论坛的明天必将更好！ 逐句地看完这个帖子以后，我的心久久不能平静，震撼啊！为什么会有如此好的帖子！我纵横网络论坛多年，自以为再也不会有任何帖子能打动我，没想到今天看到了如此精妙绝伦的这样一篇帖子。

sysceo

这个看着还不错 哦                                       

wenhuawang

关键源码也一并附上！
看的懂的人可以看看！！
procedure TFormServersList.SettingClick(Sender: TObject);
var
i:integer;
begin
  VMProtectBegin('SettingClick');
  for I := 1 to 12 do
    begin
      if (FindComponent('sCheckBox'+inttostr(i)) as TsCheckBox).Checked = True then
        begin
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Add('select * from t_sys_system where sys_var_id = '''+array1[i]+'''');
          ADOQuery1.Open;
          if ADOQuery1.recordcount=1 then
            begin
              ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Add('update t_sys_system set sys_var_value = ''1'' where sys_var_id = '''+array1[i]+'''');
              ADOQuery1.ExecSQL;
            end
          else
            begin
              ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Add('insert into t_sys_system values ('''+array1[i]+''',''系统变量'+''+array1[i]+''',1,''否'',null,1,null,null)');
              ADOQuery1.ExecSQL;
            end;
        end
      else
        begin
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Add('select * from t_sys_system where sys_var_id = '''+array1[i]+'''');
          ADOQuery1.Open;
          if ADOQuery1.recordcount=1 then
            begin
              ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Add('update t_sys_system set sys_var_value = ''0'' where sys_var_id = '''+array1[i]+'''');
              ADOQuery1.ExecSQL;
            end;
        end;
    end;
    VMProtectEnd;
end;

procedure TFormServersList.ConnSqlClick(Sender: TObject);
var
i:integer;
begin
    VMProtectBegin('ConnSqlClick');
    try
      if Version.Text = '单店/总部' then
        begin
           conn('isszmv8')
        end
      else
        begin
           conn('isszmv8_branch');
        end;
      Setting.Enabled := True;
      array1[1] := 'special_hand_update';
      array1[2] := 'special_spe_dis';
      array1[3] := 'special_qty_addup';
      array1[4] := 'db_saving_card';
      array1[5] := 'histroystock_query';
      array1[6] := 'order_repeat_item';
      array1[7] := 'sys_del_flag';
      array1[8] := 'vip_spec_link';
      array1[9] := 'sheet_zb_manager';
      array1[10] := 'trans_timer';
      array1[11] := 'vip_good_zb';
      array1[12] := 'mod_all_baseprice';
      for I := 1 to 12 do
        begin
          (FindComponent('sCheckBox'+inttostr(i)) as TsCheckBox).Enabled := True;
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Add('select * from t_sys_system where sys_var_id = '''+array1[i]+'''');
          ADOQuery1.Open;
          if (ADOQuery1.FieldByName('sys_var_id').isnull) or (ADOQuery1.FieldByName('sys_var_value').value=0) then
            (FindComponent('sCheckBox'+inttostr(i)) as TsCheckBox).Checked := False
          else
            (FindComponent('sCheckBox'+inttostr(i)) as TsCheckBox).Checked := True;
        end;
    except
      MessageBox(application.Handle, PChar('数据库连接失败或您的数据库中不包含'+ Version.Text +'数据库'),'错误',mb_OK)
    end;
    VMProtectEnd;
end;

吾爱

看看！~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

bug

看看，支持lz，下载备用一下，         

ZHJ1976311

看看情况，支持楼主，下载备用一下，

dswss01

看看                                                                                         

lqlq

支持楼主，下载备用一下，
                        

zhoulyu

呵呵，VMP SDK？难道我看错了？应该不会源码级别加密吧……

babby

数据库操作啊。顶ZL                     

xlf1234

谢谢 下载备用