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

📄 unit_renwu.~pas

📁 传奇3人物属性修改器 可修改人物装备属性 角色属性 帐号信息
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    end;
end;

procedure Tform_renwu.Image9Click(Sender: TObject);
var
inifile:TIniFile;
begin
    ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=5)');
    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);
    end;
end;

procedure Tform_renwu.Image8Click(Sender: TObject);
var
inifile:TIniFile;
begin
    ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=0)');
    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.Image13Click(Sender: TObject);
var
inifile:TIniFile;
begin
    ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=10)');
    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 :='无效';
          label21.Caption :='无效';
          label24.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.Image4Click(Sender: TObject);
var
inifile:TIniFile;
begin
   ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=2)');
    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 :='FLD_DESC0';
          label32.Caption :='FLD_DESC1';
          label14.Caption :='FLD_DESC2';
          label15.Caption :='FLD_DESC3';
          label16.Caption :='FLD_DESC4';
          label17.Caption :='FLD_DESC5';
          label18.Caption :='FLD_DESC6';
          label25.Caption :='FLD_DESC7';
          label20.Caption :='FLD_DESC8';
          label19.Caption :='FLD_DESC9';
          label22.Caption :='FLD_DESC10';
          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.Image3Click(Sender: TObject);
var
inifile:TIniFile;
begin
   ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=9)');
    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 :='FLD_DESC0';
          label32.Caption :='FLD_DESC1';
          label14.Caption :='FLD_DESC2';
          label15.Caption :='FLD_DESC3';
          label16.Caption :='FLD_DESC4';
          label17.Caption :='FLD_DESC5';
          label18.Caption :='FLD_DESC6';
          label25.Caption :='FLD_DESC7';
          label20.Caption :='FLD_DESC8';
          label19.Caption :='FLD_DESC9';
          label22.Caption :='FLD_DESC10';
          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.Image7Click(Sender: TObject);
var
inifile:TIniFile;
begin
   ADOQ.SQL.Clear ;
    ADOQ.SQL.Add('Select * from TBL_ITEM where (FLD_CHARACTER='+''''+edit6.Text +''''+')'+'and (FLD_TYPE=11)');
    adoq.Open  ;
    if adoq.RecordCount > 0 then
        begin
        button21.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.
12345

⌨️ 快捷键说明

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