⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit_renwu.~pas

📁 传奇3人物属性修改器 可修改人物装备属性 角色属性 帐号信息
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
           edit13.Text :=adoq.FieldValues ['FLD_DESC3'];
           edit14.Text :=adoq.FieldValues ['FLD_DESC4'];
           edit174.Text :=adoq.FieldValues ['FLD_DESC5'];
           edit175.Text :=adoq.FieldValues ['FLD_DESC6'];
           edit17.Text :=adoq.FieldValues ['FLD_DESC7'];
           edit18.Text :=adoq.FieldValues ['FLD_DESC8'];
           edit19.Text :=adoq.FieldValues ['FLD_DESC9'];
           edit20.Text :=adoq.FieldValues ['FLD_DESC10'];
           combobox5.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC11']);
           edit22.Text :=adoq.FieldValues ['FLD_DESC12'];
           edit23.Text :=adoq.FieldValues ['FLD_DESC13'];
          label27.Caption :='破坏';
          label32.Caption :='魔法';
          label14.Caption :='无效';
          label15.Caption :='幸运';
          label16.Caption :='诅咒';
          label17.Caption :='准确';
          label18.Caption :='功击速度';
          label25.Caption :='强度';
          label20.Caption :='无效';
          label19.Caption :='无效';
          label22.Caption :='升级';
          combobox8.Visible :=false;
          combobox9.Visible :=false;
          edit174.Visible :=true;
          edit175.Visible :=true;
        end
    else
    begin
       Application.MessageBox('对不起，该角色没有代这件装备','装备',MB_OK+MB_ICONINFORMATION);
          button3.Enabled :=false;
        button21.Enabled :=false;
    end;

end;

procedure Tform_renwu.Image12Click(Sender: TObject);
var
inifile:TIniFile;
begin
    ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=3)');
    adoq.Open  ;
    if adoq.RecordCount > 0 then
        begin
        button3.Enabled :=true;
        button21.Enabled :=true;
          edit21.Text :='项链';
           edit8.Text :=ADOQ.FieldValues ['FLD_MAKEINDEX'];
           edit9.Text :=adoq.FieldValues ['FLD_INDEX'];
           inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'mms.ini');
           edit176.Text :=inifile.ReadString  ('stditems',inttostr(adoq.FieldValues ['FLD_INDEX']-1),'无法查找');
           inifile.Free ;
           edit10.Text :=adoq.FieldValues ['FLD_DURa'];
           edit11.text:=adoq.FieldValues ['FLD_DURaMAX'];
           EDIT25.Text :=adoq.FieldValues ['FLD_COLORR'];
           EDIT26.Text :=adoq.FieldValues ['FLD_COLORG'];
           EDIT27.Text :=adoq.FieldValues ['FLD_COLORB'];
           EDIT28.Text :=adoq.FieldValues ['FLD_NAMEPREFIX'];
           edit24.Text :=adoq.FieldValues ['FLD_DESC0'];
           edit29.Text :=adoq.FieldValues ['FLD_DESC1'];
           edit12.Text :=adoq.FieldValues ['FLD_DESC2'];
           edit13.Text :=adoq.FieldValues ['FLD_DESC3'];
           edit14.Text :=adoq.FieldValues ['FLD_DESC4'];
           edit174.Text :=adoq.FieldValues ['FLD_DESC5'];
           edit175.Text :=adoq.FieldValues ['FLD_DESC6'];
           edit17.Text :=adoq.FieldValues ['FLD_DESC7'];
           edit18.Text :=adoq.FieldValues ['FLD_DESC8'];
           edit19.Text :=adoq.FieldValues ['FLD_DESC9'];
           edit20.Text :=adoq.FieldValues ['FLD_DESC10'];
           combobox5.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC11']);
           edit22.Text :=adoq.FieldValues ['FLD_DESC12'];
           edit23.Text :=adoq.FieldValues ['FLD_DESC13'];
          label27.Caption :='准确';
          label32.Caption :='敏捷';
          label14.Caption :='破坏';
          label15.Caption :='魔法';
          label16.Caption :='无效';
          label17.Caption :='攻击原素2';
          label18.Caption :='原素值2';
          label25.Caption :='无效';
          label20.Caption :='特殊显示';
          label19.Caption :='不可摘除';
          label22.Caption :='无效';
          combobox8.Visible :=false;
          combobox9.Visible :=false;
          edit174.Visible :=true;
          edit175.Visible :=true;
        end
    else
    begin
       Application.MessageBox('对不起，该角色没有代这件装备','装备',MB_OK+MB_ICONINFORMATION);
       button3.Enabled :=false;
        button21.Enabled :=false;
    end;
end;

procedure Tform_renwu.Image11Click(Sender: TObject);
var
inifile:TIniFile;
begin

    ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=4)');
    adoq.Open  ;
    if adoq.RecordCount > 0 then
        begin
        button3.Enabled :=true;
        button21.Enabled :=true;
          edit21.Text :='头盔';
           edit8.Text :=ADOQ.FieldValues ['FLD_MAKEINDEX'];
           edit9.Text :=adoq.FieldValues ['FLD_INDEX'];
           inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'mms.ini');
           edit176.Text :=inifile.ReadString  ('stditems',inttostr(adoq.FieldValues ['FLD_INDEX']-1),'无法查找');
           inifile.Free ;
           edit10.Text :=adoq.FieldValues ['FLD_DURa'];
           edit11.text:=adoq.FieldValues ['FLD_DURaMAX'];
           EDIT25.Text :=adoq.FieldValues ['FLD_COLORR'];
           EDIT26.Text :=adoq.FieldValues ['FLD_COLORG'];
           EDIT27.Text :=adoq.FieldValues ['FLD_COLORB'];
           EDIT28.Text :=adoq.FieldValues ['FLD_NAMEPREFIX'];
           edit24.Text :=adoq.FieldValues ['FLD_DESC0'];
           edit29.Text :=adoq.FieldValues ['FLD_DESC1'];
           edit12.Text :=adoq.FieldValues ['FLD_DESC2'];
           edit13.Text :=adoq.FieldValues ['FLD_DESC3'];
           edit14.Text :=adoq.FieldValues ['FLD_DESC4'];
//           edit174.Text :=adoq.FieldValues ['FLD_DESC5'];
//           edit175.Text :=adoq.FieldValues ['FLD_DESC6'];
           combobox8.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC5']);
           combobox9.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC6']);
           edit17.Text :=adoq.FieldValues ['FLD_DESC7'];
           edit18.Text :=adoq.FieldValues ['FLD_DESC8'];
           edit19.Text :=adoq.FieldValues ['FLD_DESC9'];
           edit20.Text :=adoq.FieldValues ['FLD_DESC10'];
           combobox5.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC11']);
           edit22.Text :=adoq.FieldValues ['FLD_DESC12'];
           edit23.Text :=adoq.FieldValues ['FLD_DESC13'];
          label27.Caption :='防御';
          label32.Caption :='魔防';
          label14.Caption :='破坏';
          label15.Caption :='魔法';
          label16.Caption :='无效';
          label17.Caption :='强原素';
          label18.Caption :='弱原素';
          label25.Caption :='无效';
          label20.Caption :='无效';
          label19.Caption :='无效';
          label22.Caption :='无效';
          combobox8.Visible :=true;
          combobox9.Visible :=true;
          edit174.Visible :=false;
          edit175.Visible :=false;
        end
    else
    begin
       Application.MessageBox('对不起，该角色没有代这件装备','装备',MB_OK+MB_ICONINFORMATION);
           button3.Enabled :=false;
        button21.Enabled :=false;
    end;
end;

procedure Tform_renwu.Image10Click(Sender: TObject);
var
inifile:TIniFile;
begin
    ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=6)');
    adoq.Open  ;
    if adoq.RecordCount > 0 then
        begin
        button3.Enabled :=true;
        button21.Enabled :=true;
          edit21.Text :='右手镯';
           edit8.Text :=ADOQ.FieldValues ['FLD_MAKEINDEX'];
           edit9.Text :=adoq.FieldValues ['FLD_INDEX'];
           inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'mms.ini');
           edit176.Text :=inifile.ReadString  ('stditems',inttostr(adoq.FieldValues ['FLD_INDEX']-1),'无法查找');
           inifile.Free ;
           edit10.Text :=adoq.FieldValues ['FLD_DURa'];
           edit11.text:=adoq.FieldValues ['FLD_DURaMAX'];
           EDIT25.Text :=adoq.FieldValues ['FLD_COLORR'];
           EDIT26.Text :=adoq.FieldValues ['FLD_COLORG'];
           EDIT27.Text :=adoq.FieldValues ['FLD_COLORB'];
           EDIT28.Text :=adoq.FieldValues ['FLD_NAMEPREFIX'];
           edit24.Text :=adoq.FieldValues ['FLD_DESC0'];
           edit29.Text :=adoq.FieldValues ['FLD_DESC1'];
           edit12.Text :=adoq.FieldValues ['FLD_DESC2'];
           edit13.Text :=adoq.FieldValues ['FLD_DESC3'];
           edit14.Text :=adoq.FieldValues ['FLD_DESC4'];
//           edit174.Text :=adoq.FieldValues ['FLD_DESC5'];
//           edit175.Text :=adoq.FieldValues ['FLD_DESC6'];
           combobox8.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC5']);
           combobox9.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC6']);
           edit17.Text :=adoq.FieldValues ['FLD_DESC7'];
           edit18.Text :=adoq.FieldValues ['FLD_DESC8'];
           edit19.Text :=adoq.FieldValues ['FLD_DESC9'];
           edit20.Text :=adoq.FieldValues ['FLD_DESC10'];
           combobox5.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC11']);
           edit22.Text :=adoq.FieldValues ['FLD_DESC12'];
           edit23.Text :=adoq.FieldValues ['FLD_DESC13'];
          label27.Caption :='防御';
          label32.Caption :='魔防';
          label14.Caption :='破坏';
          label15.Caption :='魔法';
          label16.Caption :='无效';
          label17.Caption :='强原素';
          label18.Caption :='弱原素';
          label25.Caption :='无效';
          label20.Caption :='特殊显示';
          label19.Caption :='不可摘除';
          label22.Caption :='无效';
          combobox8.Visible :=true;
          combobox9.Visible :=true;
          edit174.Visible :=false;
          edit175.Visible :=false;
        end
    else
    begin
       Application.MessageBox('对不起，该角色没有代这件装备','装备',MB_OK+MB_ICONINFORMATION);
           button3.Enabled :=false;
        button21.Enabled :=false;
    end;
end;

procedure Tform_renwu.Image6Click(Sender: TObject);
var
inifile:TIniFile;
begin
ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=8)');
    adoq.Open  ;
    if adoq.RecordCount > 0 then
        begin
        button3.Enabled :=true;
        button21.Enabled :=true;
          edit21.Text :='右戒指';
           edit8.Text :=ADOQ.FieldValues ['FLD_MAKEINDEX'];
           edit9.Text :=adoq.FieldValues ['FLD_INDEX'];
           inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'mms.ini');
           edit176.Text :=inifile.ReadString  ('stditems',inttostr(adoq.FieldValues ['FLD_INDEX']-1),'无法查找');
           inifile.Free ;
           edit10.Text :=adoq.FieldValues ['FLD_DURa'];
           edit11.text:=adoq.FieldValues ['FLD_DURaMAX'];
           EDIT25.Text :=adoq.FieldValues ['FLD_COLORR'];
           EDIT26.Text :=adoq.FieldValues ['FLD_COLORG'];
           EDIT27.Text :=adoq.FieldValues ['FLD_COLORB'];
           EDIT28.Text :=adoq.FieldValues ['FLD_NAMEPREFIX'];
           edit24.Text :=adoq.FieldValues ['FLD_DESC0'];
           edit29.Text :=adoq.FieldValues ['FLD_DESC1'];
           edit12.Text :=adoq.FieldValues ['FLD_DESC2'];
           edit13.Text :=adoq.FieldValues ['FLD_DESC3'];
           edit14.Text :=adoq.FieldValues ['FLD_DESC4'];
           edit174.Text :=adoq.FieldValues ['FLD_DESC5'];
           edit175.Text :=adoq.FieldValues ['FLD_DESC6'];
           edit17.Text :=adoq.FieldValues ['FLD_DESC7'];
           edit18.Text :=adoq.FieldValues ['FLD_DESC8'];
           edit19.Text :=adoq.FieldValues ['FLD_DESC9'];
           edit20.Text :=adoq.FieldValues ['FLD_DESC10'];
           combobox5.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC11']);
           edit22.Text :=adoq.FieldValues ['FLD_DESC12'];
           edit23.Text :=adoq.FieldValues ['FLD_DESC13'];
          label27.Caption :='无效';
          label32.Caption :='魔防';
          label14.Caption :='破坏';
          label15.Caption :='魔法';
          label16.Caption :='无效';
          label17.Caption :='攻击原素2';
          label18.Caption :='原素值2';
          label25.Caption :='无效';
          label20.Caption :='特殊显示';
          label19.Caption :='不可摘除';
          label22.Caption :='无效';
          combobox8.Visible :=false;
          combobox9.Visible :=false;
          edit174.Visible :=true;
          edit175.Visible :=true;
        end
    else
    begin
       Application.MessageBox('对不起，该角色没有代这件装备','装备',MB_OK+MB_ICONINFORMATION);
          button3.Enabled :=false;
        button21.Enabled :=false;
    end;
end;

procedure Tform_renwu.Image5Click(Sender: TObject);
var
inifile:TIniFile;
begin
ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=7)');
    adoq.Open  ;
    if adoq.RecordCount > 0 then
        begin
        button3.Enabled :=true;
          edit21.Text :='左戒指';
           edit8.Text :=ADOQ.FieldValues ['FLD_MAKEINDEX'];
           edit9.Text :=adoq.FieldValues ['FLD_INDEX'];
           inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'mms.ini');
           edit176.Text :=inifile.ReadString  ('stditems',inttostr(adoq.FieldValues ['FLD_INDEX']-1),'无法查找');
           inifile.Free ;
           edit10.Text :=adoq.FieldValues ['FLD_DURa'];
           edit11.text:=adoq.FieldValues ['FLD_DURaMAX'];
           EDIT25.Text :=adoq.FieldValues ['FLD_COLORR'];
           EDIT26.Text :=adoq.FieldValues ['FLD_COLORG'];
           EDIT27.Text :=adoq.FieldValues ['FLD_COLORB'];
           EDIT28.Text :=adoq.FieldValues ['FLD_NAMEPREFIX'];
           edit24.Text :=adoq.FieldValues ['FLD_DESC0'];
           edit29.Text :=adoq.FieldValues ['FLD_DESC1'];
           edit12.Text :=adoq.FieldValues ['FLD_DESC2'];
           edit13.Text :=adoq.FieldValues ['FLD_DESC3'];
           edit14.Text :=adoq.FieldValues ['FLD_DESC4'];
           edit174.Text :=adoq.FieldValues ['FLD_DESC5'];
           edit175.Text :=adoq.FieldValues ['FLD_DESC6'];
           edit17.Text :=adoq.FieldValues ['FLD_DESC7'];
           edit18.Text :=adoq.FieldValues ['FLD_DESC8'];
           edit19.Text :=adoq.FieldValues ['FLD_DESC9'];
           edit20.Text :=adoq.FieldValues ['FLD_DESC10'];
           combobox5.ItemIndex :=strtoint(adoq.FieldValues ['FLD_DESC11']);
           edit22.Text :=adoq.FieldValues ['FLD_DESC12'];
           edit23.Text :=adoq.FieldValues ['FLD_DESC13'];
          label27.Caption :='无效';
          label32.Caption :='魔防';
          label14.Caption :='破坏';
          label15.Caption :='魔法';
          label16.Caption :='无效';
          label17.Caption :='攻击原素2';
          label18.Caption :='原素值2';
          label25.Caption :='无效';
          label20.Caption :='特殊显示';
          label19.Caption :='不可摘除';
          label22.Caption :='无效';
          combobox8.Visible :=false;
          combobox9.Visible :=false;
          edit174.Visible :=true;
          edit175.Visible :=true;
        end
    else
    begin
       Application.MessageBox('对不起，该角色没有代这件装备','装备',MB_OK+MB_ICONINFORMATION);
           button3.Enabled :=false;
        button21.Enabled :=false;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -