سوالات و آموزش براي مبتدي ها

توی تب Samples!

تشكر :20: نمي دونم چرا نديده بودمش!!!!

ببخشيد آقاي سولجر ، من نمي دونم شما برنامه رو دانلود كرديد يا نه

الان ديگه اون خطا رو نمي ده

تو اين برنامه اومده از تابع Miladytoshamsi و ... استفاده كرده . من ميخوام كد اين تابع رو ببينم منتها نمي دونم چه طور !!!! كل چيزي كه تو اين فرم ايناست ( يه سري دستورات براي Button و Lable )

کد:

---

procedure TfrmDemo.btnMiladyToShamsiClick(Sender: TObject);
begin
  lblMiladyToShamsi.Caption:=TFarDate.farDateToStr(TFarDate.MiladyToShamsi(Now));
end;
procedure TfrmDemo.btnMiladyToShamsiStrClick(Sender: TObject);
begin
  lblMiladyToShamsiStr.Caption:=TFarDate.MiladyToShamsiStr(Now);
end;
procedure TfrmDemo.btnShamsiToMiladyClick(Sender: TObject);
var
  Date:TDateTime;
begin
  Date:=TFarDate.MiladyToShamsi(Now);
  Date:=TFarDate.ShamsiToMilady(Date);
  lblShamsiToMilady.Caption:=SysUtils.DateToStr(Date);
end;
procedure TfrmDemo.btnCloseClick(Sender: TObject);
begin
  self.Close;
end;
procedure TfrmDemo.btnDateTimeToStrClick(Sender: TObject);
begin
  lblDateTimeToStr.Caption:=TFarDate.farDateTimeToStr(TFarDate.MiladyToShamsi(now));
end;
procedure TfrmDemo.btnFormatDateTimeClick(Sender: TObject);
begin
  lblFormatDateTime1.Caption:=TFarDate.farFormatDateTime('yyy/mmmm/dddd', TFarDate.MiladyToShamsi(now));
  lblFormatDateTime2.Caption:=TFarDate.farFormatDateTime('dddd dd mmmm ÓÇá yyyy', TFarDate.MiladyToShamsi(now));
end;
procedure TfrmDemo.btnDayClick(Sender: TObject);
var
  date:TDateTime;
begin
  date:=TFarDate.MiladyToShamsi(now);
  lblDay.Caption:=IntToStr(TFarDate.farDayOf(date));
  lblDay.Caption:=lblDay.Caption+' = '+TFarDate.farDayString(date);
end;
procedure TfrmDemo.btnWeekClick(Sender: TObject);
begin
  lblWeek.Caption:=IntToStr(TFarDate.farWeekOf(TFarDate.MiladyToShamsi(now)));
end;
procedure TfrmDemo.btnDayOfWeekClick(Sender: TObject);
begin
  lblDayOfWeek.Caption:=IntToStr(TFarDate.farDayOfTheWeek(TFarDate.MiladyToShamsi(now)));
end;
procedure TfrmDemo.btnMonthClick(Sender: TObject);
var
  date:TDateTime;
begin
  date:=TFarDate.MiladyToShamsi(now);
  lblMonth.Caption:=IntToStr(TFarDate.farMonthOf(date));
  lblMonth.Caption:=lblMonth.Caption+' = '+TFarDate.farMonthString(date);
end;
procedure TfrmDemo.btnYearClick(Sender: TObject);
begin
  lblYear.Caption:=IntToStr(TFarDate.farYearOf(TFarDate.MiladyToShamsi(now)));
end;
procedure TfrmDemo.btnFaGoClick(Sender: TObject);
var
  date:TDateTime;
begin
  date:=TFarDate.FarEncodeDate(txtYearFa.value,txtMonthFa.value,txtDayFa.value);
  lblEncodeDate.Caption:= TFarDate.farDateToStr(date);
  date:=TFarDate.farStrToDate(txtYearFa.Text+'/'+txtMonthFa.Text+'/'+txtDayFa.Text);
  lblStrToDate.Caption:= TFarDate.farDateToStr(date);
  date:=TFarDate.FarEncodeDate(txtYearFa.value,txtMonthFa.value,txtDayFa.value);
  lblEncodeDate_ShamsiToMilady.Caption:=DateToStr(TFarDate.ShamsiToMilady(date));
end;
procedure TfrmDemo.btnEnGoClick(Sender: TObject);
var
  date:tDateTime;
begin
  date:=EncodeDate(txtYearEn.Value,txtMonthEn.Value,txtDayEn.Value);
  lblEnMiladyToShamsiStr.Caption:=TFarDate.MiladyToShamsiStr(date);
  date:=StrToDate(txtYearEn.Text+'/'+txtMonthEn.Text+'/'+txtDayEn.Text);
  date:=TFarDate.MiladyToShamsi(date);
  lblEnMiladyToShamsi.Caption:= TFarDate.farDateToStr(date);
  date:=StrToDate(txtYearEn.Text+'/'+txtMonthEn.Text+'/'+txtDayEn.Text);
  date:=TFarDate.MiladyToShamsi(date);
  date:=TFarDate.ShamsiToMilady(date);
  lblMiladyToShamsi_ShamsiToMilady.Caption:=SysUtils.DateToStr(date);
end;
end.

---

شما قبلا گفته بودي

نقل قول:

---

اول شما باید کمپوننت رو نصب کنی

و UfarsiDate.dcu + UDemoForm.pas

رو در پوشه ی Bin در Directory دلفی که نصب کردید کپی کنید...

---

كه من اين كار رو نكردم اگه جواب سوالم هنوزم همينه اين كمپوننت ها رو از كجا بايد نصب كنم؟؟

منتظرم.....

:41::41::41::41::41::41:

خواستم پست بالايي رو حذف كنم ، نشد ، از اين پست صرف نظر كنيد.

سلام

خوب پست رو ویرایش کن و توش بنویس : "پست حذف شود..."

بای

salam, man az koja mitoonam barname delphy ro download konam,mishe begid
mamnoon misham

راهنمايي در مورد ربط دادن جداول به هم يعني با تغيير در يک جدول روي جدول اطلاعات ديگري رو ببينيم مثلا ***** بر حسب شماره دانشجويي

این کار با Query ها انجام میشه و به نوع دیتابیسی که کار میکنی خیلی بستگی داره.
البته اگه فرامین SQL رو بلد باشی میتونی این کار بکنی.
اگرم نه خیلی راحت با چند خط کد نویسی میتونی این کارو بکنی.

سلام

تا حالا لینک دانلود دلفی رو ندیدم...

اما میتونید سی دی اون رو بخرید...

من خودم از نسخه 7 دلفی استفاده میکنم... مثل اینکه نسخه 8 هم داره...

اما اگر میخواهید از توسعه دهنده .نت هم استفاده کنید که خیلی مفیده

میتونید نسخه دلفی .نت رو بگیرید...

موفق باشی

سلام و خسته نباشيد
بازم برام مشكل پيش اومده:41:
تو اين برنامم از چند تا فرم استفاده كردم مشكل من سر فرم 2 و 5

فرم 2 ، صفحه لاگين پسورد منه

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
فرم 5 هم منوي برنامه است

من كد زير رو واسه دكمه تاييد نوشتم

کد:

---

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  if (edit1.Text <> '' ) and (edit2.Text <> '') then
    begin
        with DataModule4.ADOQuery2 do
          begin
              Active := false;
              sql.Clear;
              sql.Add('SELECT T_PASSWORD.user, T_PASSWORD.password');
              sql.add('FROM T_PASSWORD');
              sql.Add('WHERE (((T_PASSWORD.user)=u) AND ((T_PASSWORD.password)=p))');
              Parameters.ParamValues['u']:= edit1.Text;
              Parameters.ParamValues['p']:=edit2.Text;
              form2.Close;
              Form5.Show ;
              Active := true;
              if eof then
                ShowMessage('Wrong Information , Try again ') ;
            end;
    end
    else
      ShowMessage('fill the blankets');
 
 
 
end;

---

اگه نام كاربري و پسورد درست نوشته شه كه بايد فرم 2بسته شه و منوي برنامه نمايش داده شه در غير اين صورت بايد پيغام مناسب رو بده
حالا مشكل من اينه كه وقتي نام كاربري و پسورد اشتباه زده مي شه بايد برنامه Showmessage رو نشون بده و دوباره تو همين فرم 2 بمونه ولي متاسفانه اين طوري نمشه ، ( صفحه لاگين پسورد بسته ميشه و منوي برنامه باز ميشه و message مربوطه نشون داده ميشه )

اگه ممكنه راهنمايي كنيد كه چي كنم كه در صورت وارد كردن لاگين پسورد اشتباه اين فرم بسته نشه

ممنون