انجمن در حال تغییر سرور است ، لطفا تا اطلاع ثانوی فقط خواننده باشید

ali3d

سلام به دوستان خوبم
بنده حقیر از شما تقاضایی دارم و اون اینه که اگر کسی از شما هاست رایگانی سراغ داره که قابلیت ریموت (سوال و جواب) را داره لطفا به من معرفی کنه!!
با تشکــــــــــــــــــــــــر

meyti

اینجا رو یه نگاه بنداز

http://p30world.com

ali3d

سپاس فراوان دوست عزیز
میرم ببینم چه خبره.

ali3d

ببخشید دوستان
متاسفانه هاست مورد نظر پیدا نشد!!!
اگه جایی سراغ دارید معرفی کنید.

admin

سلام دوست گرامی.
هیچ هاستینگ مجانی ای وجود نداره که قابلیت ریموت شدن رو داشته باشه.بایستی یه مقدار هزینه کنید...

ali3d

خب نمیشه اول اموزش شما را دنبال کنیم بعد هاست اجاره کنم؟
آخه اومدیم من هاست گرفتم و بعد آموزش طول بکشه و مدت زکان اجاره هاست از بین بره!!!

admin

کار کردن با دلفی در Localhost که کار سختی نیست ، فقط قراره دیتابیس رو بسازید و اتصال بدید ...
از UniDac استفاده کنید و Provider رو مثلا MySql انتخاب کنید ..
پارامترهاش هم که مثلا سرور میشه Localhost
DB_NAME هم که هر چی گذاشته باشید.
DB_USER و DB_PASSWORD هم همینطور ...
پورت هم برای MySql بصورت پیش فرض 3306

ali3d

خب اقای مدیر من این کار هایی که فرمودید را با موفقیت انجام دادم.
لطفا ادامه مبحث ...

admin

سلام. طبق این پست خودتون چهار عمل اصلی رو هم که بلدین http://irandelphi.ir/Catgory/4/Post/177
مشکلتون کجاست؟
ادامه ی بحث چی؟

ali3d

اقای مدیر اگه شما به اون نرم افزاری که من نشونتون داده بودم توجه کرده باشید ، با ید بدونید که من در ارسال و گرفتن اطلاعات از روی هاست ، چگونگی ارسال پسورد در صورتی که فراموش شده باشه ، و نحوه تشخیص اطلاعات درست توسط نرم افزار و ... مشکل دارم یا بطور اساسی بگم میخواهم با کمک شما از 0 تا 100 این طراحی را باهم انجام بدهیم.
پس خواهشان کمک کنید ، حتی در مورد طراحی نرم افزار.
با سپاس

admin

در طراحی نرم افزار و ارسال و یا دریافت اطلاعات از هاست یا از دیتابیس تحت شبکه ، هیچ تقاوتی وجود ندارد و فقط بحث رشته ی اتصال یا همان Connection String متفاوت خواهد بود.
شما طراحی فرم اول (Login) رو استارت بزنید تا من ایرادات اتون رو برطرف کنم.
ضمنا من دقت کامل رو انجام دادم ، شک نکنید ...
مثال زیر برای چک کردن یوزر و پسورد نرم افزار و همچنین بررسی دسترسی های کاربر میباشد.

کد:
procedure TLogin.SpeedButton1Click(Sender: TObject);

var

password : MD5Digest ;

begin

try

password :=MD5String(MaskEdit1.Text) ;

if dm.tbl_users.Locate('users_id;users_password;',VarArrayOf([Edit1.Text,MD5Print(password)]),[loCaseInsensitive]) then

begin

if dm.tbl_users['userSahebKala']= true    then

begin

main.btn_menue_peymankaran.Enabled := True;

main.N4.Enabled :=  True;

end

else

begin

main.btn_menue_peymankaran.Enabled := false;

main.N4.Enabled :=  false;

end;

if dm.tbl_users['userBackup']= true    then

begin

main.btn_menue_backup.Enabled := True;

main.N20.Enabled :=  True;

end

else

begin

main.btn_menue_backup.Enabled := false;

main.N20.Enabled :=  false;

end;

 if dm.tbl_users['userReport']= true    then

begin

main.btn_menue_fehrest.Enabled := True;

frmVoroodInformation.btn_chap_all_peymankar.Enabled:=True;

 frmVoroodInformation.btn_chap_one_peymankar.Enabled:=True;

end

else

begin

main.btn_menue_fehrest.Enabled := false;

frmVoroodInformation.btn_chap_all_peymankar.Enabled:=false;

 frmVoroodInformation.btn_chap_one_peymankar.Enabled:=false;

end;

if dm.tbl_users['userKarbaran']= true    then

begin

main.btn_menue_karbaran.Enabled := True;

main.N1.Enabled :=  True;

end

else

begin

main.btn_menue_karbaran.Enabled := false;

main.N1.Enabled :=  false;

end;

 Login.Hide;

 main.Show;

 main.StatusBar1.Panels[3].Text :='کاربر جاري :'+dm.tbl_users['users_name'];

  end

 else

begin

ShowMessage('نام کاربري يا کلمه عبور اشتباه مي باشد');

//edit1.Clear;

MaskEdit1.Clear;

Edit1.SetFocus;

end;

except

ShowMessage('عمليات ورود با شکست مواجه شد.لطفا اتصال خود را بررسي نماييد');

end;

end;

تعداد بازدید 658 درخواست هاست
نویسنده	پیام