توی تب Samples!
Printable View
توی تب 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 هم منوي برنامه است
من كد زير رو واسه دكمه تاييد نوشتم
اگه نام كاربري و پسورد درست نوشته شه كه بايد فرم 2بسته شه و منوي برنامه نمايش داده شه در غير اين صورت بايد پيغام مناسب رو بدهکد: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;
حالا مشكل من اينه كه وقتي نام كاربري و پسورد اشتباه زده مي شه بايد برنامه Showmessage رو نشون بده و دوباره تو همين فرم 2 بمونه ولي متاسفانه اين طوري نمشه ، ( صفحه لاگين پسورد بسته ميشه و منوي برنامه باز ميشه و message مربوطه نشون داده ميشه )
اگه ممكنه راهنمايي كنيد كه چي كنم كه در صورت وارد كردن لاگين پسورد اشتباه اين فرم بسته نشه
ممنون
سلام
خوب عزیز دل من... چرا از همون اول یک کتاب نخوندی؟
مشکل :
شما در اول یک شرط گذاشتی که اگر فیلد های Username و Password خالی نبود
فرم 2 رو ببند و فرم 5 رو نشون بده ...
راه حل:
اول باید ببینی فیلدها خالی اند یا نه... اگر خالی بود. خوب خطا رو میده و ...
اگر خالی نبود... اونوقت چک کنه ببینه یوزر و پسورد صحیحه یا نه....
بعدش فرم 2 و ببنده و فرم 5 رو نشون بده...
خوب نمیشه دیگه من کد بنویسم...
( اما خوب چون آشنایی و تمام پست هات سوال بوده یواش بهم بگو کد رو بهت بدم :D )
شوخی کردم... اما واقعآ این بار رو خودتون کد بنویسید...
من همه چیز رو بهتون گفتم و راهنمایی کردم...
کد نویسی شما و طراحی برای برنامه خیلی خوبه... اما روی چیزای خیلی کوچک
دقت نمیکنید و این اشکالات بوجود میاد... وقتی مشکلی بود از همون اول بررسی کن تا ببینی از کجاست...
موفق باشی...
:41::41::41:
گفتن كتاب نخون ،دلفي رو تو پروژه ياد بگيري بهتره !!!!
چون يه كم هم سرم شلوغه دو هفته اي ميشه كه خيلي خيلي كم وقت گذاشتم
به هر حال ممنون
اما اگه نتونستم بازم ميام
Ok. خوب باشه... خیلی هم ناراحت نباش...
خوب پیشرفت کردی... اما باید کمی بیشتر دقت کنی ...
خبر بده...
سلام
چطوری می تونم از پروژه در حالت run پرینت بگیرم.
البته من یک printdialog صدا کردم و در منوها برای آن دستور execute را نوشتم اما با این کارها فقط پنجره پرینت باز می شود و زمانی که دستور پرینت می دهم بسته می شود و هیچ فعالیتی انجام نمی دهد.
بیشتر توضیح بده...
میخواهی فرم رو پرینت(چاپ) کنی ؟
یا میخواهی فقط ذخیرش کنی توی یه فایل ؟
من هدفم اینه که از فرمم پرینت بگیرم.
البته ذخیره کردن را هم نتونستم انجام بدم اگر هر دو را بگویید ممنون می شوم.
سلام
من یک radiogroupدارم و می خوام در حالت پیش فرض اولین item اون selectشده باشه . باید چی کار کنم؟
با سلام
خاصیت ItemIndex کمپوننت RadioGroup1 رو برابر 0 قرار بده.
نمي دونم چرا هر وقت اين دلفي رو باز ميكنم شروع ميكنه به ناسازگاري بازم مشكل دارم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شكل بالا يه قسمتي از پايگاه داده منه
توضيحات :
USER جدول كاربر كه خودش به دو قسمت تقسيم ميشه كاربر دائمي (شناخته شده ) و كاربر غير دائمي (عمومي)
ِDOC_TYPE نوع سند(امانتي مثل شناسنامه ، ...) ، كه براي كاربران غير دائمي است
تو قسمت ثبت اطلاعات مشكل دارم
Adoconnection , دو تا هم adodataset دارم وقتي مي خوام يكي از adodataset ها رو به جدول user وصل كنم خطاي زير رو ميگيره
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
از Adotable هم استفاده كردم نشد حالا بايد چي كنم ؟
اگه راه ديگه اي وجود داره واسه ثبت اطلاعات بگيد
ممنون
پست اول ویرایش شد!
+ نکاتی رو برای کاربران عزیز ...
برای راحت تر و سریع تر رسیدن به جواب...
سلام
اگه ممكنه يه توضيحي درمورد درج اطلاعات در جداول به هم پيوسته (Foreign key دار ) بديد
چون اينجا هم به مشكل برخوردم.
سلام
کافیه فیلد کلید رو در جدول دیگه ای که با جدول اصلی ارتباط داره وارد کنی و بعد master/detail کنی.
ميشه بيشتر توضيح بديد آخه من تا حالا با master/Detail كار نكردم كسي هم نيست كه ازش بپرسم
جدول tb_user :
id : Autonumber , Name : text , Family : text , Phone : text
جدول user_known :
code : text , Address : text , User-id : number
كه user_id تو اين جا Foreign key هستش و با فيلد id از جدول Tb_user در ارتباط
من واسه درج كردن فك ميكردم كه اول بايد درج رو جدول tb_user صورت بگيره واسه همين اول درج رو رو اين جدول انجام دادم بعد كه خواستم درج رو رو جدول user _konwn انجام بدم از اونجايي كه بايد مقادير user-id با id از جدول tb_user يكسان باشه اين كار رو دستي انجام دادم كه البته درست نشد
اگه ممكنه در مورد master /detail توضيح بيشتري بديد
ممنون
با جدولهای خودتون مثال میزنم که بهتر متوجه شی.
MasterSource جدول user_known رو برابر datasource ی که به جدول tb_user اشاره میکنه قرار بده
روی خصوصیت MasterFields جدول user_known دابل کلیک کن
از کادری که ظاهر میشه، فیلدهایی رو که قراره با هم در ارتباط باشن انتخاب کن -> Add>OK
اینطوری User_known جدول detail و tb_user جدول master هست.
هر وقت که شما بخوای رکورد جدیدی رو به detail اضافه کنی، فیلد کلید خارجی شما به صورت خودکار مقدارش رو از فیلدی که در master با اون ارتباط داره میگیره. پس دقت کن به رکورد فعال در جدول master
سوالی بود در خدمتم. موفق باشی
سلام خيلي خيلي ممنون مشكلم تو اين قسمت حل شد
اما يه سوالي واسم پيش اومده
مي تونم از Adotable ها استفاده مجدد كنم واسه ثبت جدولهاي ديگم ؟؟؟؟
البته خودم امتحان كردم تا وقتي كه ثبت تو dbgrid اتفاق ميفته امكان پذيره اما وقتي كه كليك راست ميكنم و از طريق فيلدي ثبت اطلاعات ميكنم نميشه انگاري كه فيلدهاي جدول قبلي هنوز تو حافظش هستش
حتي وقتي دستي هم فيلد ها رو پاك ميكنم بازم نميشه
كد براي Adotable :
ميشه يه كم راهنمايي كنيدکد:with ADOTable2 do
begin
active := false;
TableName :=' اسم جدول';
MasterSource := DataSource;
MasterFields := 'فيلد مربوطه';
IndexFieldNames := 'فيلد مربوطه';
active:= true;
insert;
end;
اگه بخوام از Adotable ديگه استفاده كنم تعداد آنها خيلي زياد ميشه
شرمنده كه من انقدر دارم اذيتتون ميكنم آخه هنوز من مبتديم و استادي هم نيست كه حداقل سوالام رو بپرسم
راستي يه سوال ديگه هم دارم يه قسمت از برنامم عمل جستجو فيلم رو انجام ميده من مي خوام نتيجه عمليات جستجو (كد فيلم ) رو در فرم ديگه داشته باشم
اگه نتيجه عمليات جستجو چند ركورد باشه هميشه كد ركورد اول رو بر مي گردونه واسه اينكه بتونه كد فيلم ركورد هاي ديگه رو بر گردونه چي بايد كنم ؟
كد دكمه جستجو
البته از دكمه ديگه هم استفاده كردم واسه پيمايش رو جدولکد:with DataModule4.ADOQuery2 do
begin
Active := false;
SQL.clear;
sql.Add('SELECT v_film.code, v_film.film.name');
sql.add('FROM v_film INNER JOIN [film_count_ Mojoudi] ON v_film.code = [film_count_ Mojoudi].Fcode');
sql.add('WHERE ((([film_count_ Mojoudi].count)<>0) AND ((v_film.filmNationality.name)=n) )') ;
Parameters.ParamValues['n'] := ComboBox1.Text;
active := true ;
if Eof then
begin
ShowMessage('There is no film with this details');
form13.DBEdit3.Text:= ' no film' ;
end
else
form13.DBEdit3.Text := FieldValues ['code'] ;
end;
end
اما اگه كد قرمز رنگ رو بهش اضافه كنم خطا ميگيرهکد:DataModule4.ADOQuery2.Next;
//form13.DBEdit3.Text := FieldValues ['code'] ;
چه كار بايد كنم ؟؟؟
بازم مرسي
منظور سوال اول رو نفهمیدم. لطفا واضحتر توضیح بده
در مورد سوال دوم باید بگم که شما زمانی میتونی مقدار dbedit رو تغییر بدی که dataset در وضعیت edit یا insert باشه. پس پیغام خطا درسته.
شما یه combobox یا list به فرمی که میخوای نتایج جستجو رو داشته باشی اضافه کن، بعد رکوردهای مورد نظر رو خیلی راحت به اون اضافه کن.
در مورد سوال دوم هنوز گفته شما رو متوجه نشدم
ببينيد مقدار dbedit تغيير ميكنه (در حالت insert) منتها فقط كد فيلم مربوط به اولين ركورد رو برميگردونه
كد بالا :
کد:if Eof then
begin
ShowMessage('There is no film with this details');
form13.DBEdit3.Text:= ' no film' ;
end
else
form13.DBEdit3.Text := FieldValues ['code'] ;
end;
نتايج جستجو چندين ركورد . كد من فقط كد فيلم مربوط به اولين ركورد رو برمي گردونه (منطقا هم اين درسته چون Search اولين ركورد ي رو كه پيدا ميكنه به عنوان ركورد انتخابي در نظر ميگيره پس فقط كد مربوط به اون رو برميگر دونه) من ميخوام كد فيلم ركورد انتخاب شده رو برگردونه
به عبارت ديگه مي خوام به فيلد كد ركورد انتخاب شده دسترسي داشته باشم . واسه خاطر همين شايد لازم باشه تو قسمت search اين كار رو نكنم و دكمه ديگه داشته باشم كه اين كار رو واسم انجام بده
اگه ممكنه بگيد چطور ميتونم اين كار رو انجام بدم
در مورد سوال اول هم بايد بگم كه منظورم استفاده مجدد از Adotable ها است
سوال دوم واسم مهمتره (سوال اول رو بي خيال)
ممنون
اگر میخوای فقط مقدار فیلد رکورد جاری رو داشته باشی، روی فرم 13 یه edit قرار بده و از کد زیر استفاده کن:
کد رو در رویداد OnCellClick مربوط به dbgrid قرار بده.کد:
form13.edit1.Text:=DataSet.FieldValues['نام فیلد'];
ولی اگر میخوای تمام مقادیر یک فیلد رو بعد از جستجو در فرم دیگه داشته باشی، روی فرم 13 یه combobox قرار بده و از کد زیر استفاده کن:
موفق باشیکد:
while not DataSet.Eof do
begin
form13.comboBox1.Items.Add(DataSet.FieldValues['نام فیلد']);
DataSet.Next;
end;
سلام اتفاقا اين كار رو من رو دكمه انجام دادم منتها نشد
كاري رو هم كه شما گفته بودي انجام دادم بازم نشد، Undeclared identifire :'fieldvalues'
اگر fieldvalues رو خطا میگیره،کد زیر رو جایگزین کن. البته این دو فرقی با هم ندارن.
روش دوم: برنامه ای رو که داری مینویسی یه جایی آپلود کن تا من یا دوستان دیگه راحت تر بتونیم کمک کنیم.کد:
سلام الان يه كم توضيح بيشتر رو ميدم اگه منظورم رو متوجه نشديد باز يه قسمتي از برنامه رو درست ميكنم و آپلود ميكنم (حجم برنامه اصلي زياده )
همونطور که گفتم دارم یه برنامه ویدئو کلوپ می نویسم شکل زیر فرم تحویل فیلم رو نشون میده
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شکل زیر هم قسمت جستجو فیلم رو نشون میده
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تحویل فیلم فرم 13 است که از یه Adodataset استفاده می کنه (و در حالت insert)واسه پر کردن این فرم (فیلدهای مربوطه مثل کد فیلم و کد مشتری و ....) اپراتور نیاز به جستجو داره (فیلم و مشتری و... ، که ببینه اصلا چنین فیلمی وجود داره یا نه !!!) واسه همین دو تا label گذاشتم واسه راحتی کار اپراتور .(جستجو فیلم و مشتری)....جستجو هم از یه adoquery استفاده میکنه
وقتی اپراتور وارد صفحه جستجو میشه و بر اساس یکی از موارد (نام ، موضوع و ...) جستجو میکنه نتایج جستجو در یه Dbgrid نمایش داده میشه به طور مثال جستجو بر اساس ملیت صورت گرفته و نتایج رو شما تو عکس می بینید . من با کد زیر که تو کد جستجو گذاشتم
کد:
مقدار کد فیلم رو مستقیما تو فیلد فیلم تو فرم 13 گذاشتم ( dbedit1) . این کد من وقتی کار میکنه که نتیجه جستجو یه رکورد بیشتر نباشه اما وقتی که بیشتر از یکی بشه اپراتور حق انتخاب داره اونوقت که باید مقدار کد فیلم رکورد انتخابی در dbedit جایگزین شه . اما كد من فقط ميتونه وقدار فيلد كد ركورد اول رو جايگزين كنه البته خودم هم می دونم که این کد رو نباید به تنهایی در دکمه Search بذارم چون search اولین رکورد رو برمی گردونهکد:form13.DBEdit1.Text := FieldValues ['code'] ;
البته
من مي تونم يه combobox يا listbox بذارم و تو رويداد onchangesh اين كار رو كنم اما مي خوام اپراتور مستقيما با كلييك كردن رو هر ركورد در dbgrid اين كار واسش انجام بشه
اگه ممکنه بهم کمک کنید که چطور اینکار رو کنم
پیشاپیش از جوابهاتون ممنونم
اگه عكسا باز نشد زحمتي بكشيد از لينكاي زير عكسا رو ببينيد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگر درست متوجه شده باشم، شما میخوای کد فیلم رو در رکوردی که اپراتور کلیک میکنه وارد DBedit در فرم 13 بشه. اگر اینطور هست از رویداد OnCellClick در DbGrid استفاده کن.
در غیر اینصورت اگر خواستی تمام نتایج جستجو رو داشته باشی از ComboBox استفاده کن.
موفق باشی
از رويداد oncellclick استفاده كردم نشد اما خوب از combobox استفاده كردم ممنون
با سلام به همه دوستاي غزيزي كه اينجا با صبر و حوصله به سوالات ما جواب ميدن ..........دستتون درد نكنه
مخصوصا سولجر عزيز كه به اصطلاح صاحب خوونه حساب ميشه....دست شما بيشتر درد نكنه خيلي تاپيك خوبي من همه رو خوندم........................چششششم تو نظرخواهي هم شركت ميكنم و اما بعد....
سوال من اينه كه چه جوري ميشه پيش فرض edit را روي فارسي بزارم؟؟؟؟؟؟يعني زمان اجرا اين اديت بره روي فونت فارسي و فارسي بگيره؟؟؟
ممنون از لطفتون
دوست عزیز قبلا زیاد بحث شده. از کد زیر استفاده کن:نقل قول:
کد:
begin
LoadKeyBoardLayout('00000429',KLF_ACTIVATE);
end;
دست شما درد نكنه...............
خير از جوونيت ببيني ....ممنوووون
سلام دوستان
من مي خواستم بدوونم آيا مي شه براي گرفتن گزارش و كشيدن نمودار در گزارش از برنامه هاي آماري كه براي رسم نمودار است (غير از excel) در دلفي استفاده كرد؟مثلا استفاده از minitab در دلفي!!!!!!!!! :worried:
خود دلفی یه کامپوننت برای نمودار به نام chart در تب additional داره، و یه دونه هم به نام VtChart که دومی رو باید از Component>Import ActiveX control نصب کنی. البته من با هیچ کدوم کار نکردم و کمک زیادی نمیتونم بکنمنقل قول:
سلام دوستان عزیز من چند تا مشکل دارم اگر اشکالی نداشته باشه همه را با هم بپرسم؟
اول اینکه مند یک پروژه دارم که آخرین تغییرات را روی ان دو روز پیش دادم حالا زمانی آن را اجرا می کنم اجرا می شود اما وقتی می خواهم روی آن تغییرات ایجاد کنم (هرگونه تغییری از جمله پاک کردن یک label) error زیر را می دهد که این اشکال برای تمامی فرم ها ایجاد شده و با هرگونه تغییری این ایراد را می گیرد؟
[Fatal Error] Unit3.pas(66): Could not create output file 'Unit3.dcu'
اشکال بعدی : من یک فرم اصلی دارم پس از زدن گزینه ورود وارد فرم بعدی می شوم که در آن رکوردهای دیتا بیسم را توسط edit می بینم. اما پس از ورود به این فرم درون editها خالی نیست و آخرین رکوردی که ثبت شده مشخصاتش باقی مانده است. البته من در رویدادformshow دستور EditDBEdit2.text=' '; را هم نوشتم اما فایده ندارد، ضمنا اگر مقادیر درون این editها را پاک کنم و دوباره داده وارد کنم این داده درون همان رکورد قبلی ثبت می شود (یعنی در حالت باز شدن و بستن فرم به جای ثبت رکورد جدید رکورد قبلی را ویرایش می کند)
سوال سوم در مورد تاریخ شمسی است که من دیدم آوا123 عزیز درون پروژه اش استفاده کردم خواستم اگر امکان دارد برایم توضیح دهد.
در اخر هم از همه ی دوستان به خاطر تمام کمک هایشان تشکر می کنم.