Printable View
من دو تا جدول دارم يكي جدول دانشجو كه اطلاعات دانشجو ذخيره مي شوند وجدول ديگر جدول ثبت نام است كه هر دانشجو كه براي ثبت نام مي ايد در اين جدول ثبت مي شود و در جدول ثبت نام ممكن است يك دانشجو در چند كلاس ثبت نام بكند . حالا من مي خواه م يكي از كلاس هايي كه دانشجو ثبت نام كرده است را حذف كنم و مي خواهم وقتي اطلا عات دانشجو از جدول دانشجو حذف شود كه در جدول ثبت نام دانشجويي با اين كد نداشته باشم.من چه كار بايد بكنم؟
بانكم پارادكس است
با سلام
میتونی جستجو کنی اگه پیدا نکردی بعد حذف کنی.
مثلا از دستور Locate میتونی استفاده کنی. موفق باشی
سلام
دوست عزیز. اول باید بگردی ببینی هست یا نه؟
با دستور فیلتر. توی انجمن سرچ کن پیدا میکنی.
اما کمی بیشتر برات توضیح بدم.
یه قسمت از برنامه بزار این اتفاقات رو که گفتی چک کنه.
چک کردن هم راحته. اگر "در جدول ثبت نام دانشجويي با اين كد نداشته باشی"
"اطلا عات دانشجو از جدول دانشجو حذف شود "
اینها رو خودت نوشته بودی توی پستت. پس خودت هم جوابش رو داری.
خوب برای دستور اولی باید سرچ کنی اگر نبود. به دستور دومی بری و حذفش کنی.
خوشبختانه تمام دستورات رو هم توی انجمن میتونی پیدا کنی.
چند دقیقه دیگه هم خودم کدش رو برات میزارم.
بای
سلام
خوب این هم کدش.
اما شرطش رو خودت کامل کن. و همچنین دستور فیلتر رو.
موفق باشی. بایکد:AdoDataSet.Filter:='فیلد= '''+نوشته ای که دنبالش میگردی+'''';
AdoDataSet.Filtered:=True;
if AdoDataSet.FieldValues['فیلد'] = '' then
AdoDataSet.DeleteRecords;
من از كدي كه شما نوشته ايد استفاده كردم ولي نميدونم كجاي اين كد مشكل داره كه ارور table3:field st not found را مي دهدو اسم فيلد من در بانكم st-id استنقل قول:
Table3.Filter:= 'st-id= '''+edit1.Text+'''';
table3.Filtered:=True;
if table3.FieldValues['st-id'] = '' then
table1.Delete;
خوب اول از همه براي كمك كردن به شما بايد بدونيم كه شما چه اطلاعاتي رو در چه Tableي ذخيره كرديد. اصلا آيا شما Table3 رو داريد؟نقل قول:
سلام
کد رو کمی تغییر دادم.
اما یه چیز بگم. اون دستور if هست بجای code بر اثاث این چیزی که خودتون گفتید
کاملش کنید. چون من دیگه این تیکه رو نمیتونم بنویسم.
اگر "در جدول ثبت نام دانشجويي با اين كد نداشته باشی"
سعی کن اسم فیلد ها و Table ها رو اشتباه نکنی.کد:Table3.Filtered := True;
Table3.Filter:= 'st-id='''+Edit1.Text+'''';
if Table3.FieldValues['st-id'] <> 'code' then
Table1.DeleteRecords;
توی این چیزایی که بهت گفتیم. خیلی دقت کن.
اگر باز هم درست نشد بگو. بای
سلامنقل قول:
من دو تا جدول دارم كه اسم جدول هام جدول دانشجو ( table1 )و ثبت نام(table3) است و موقع سيو كردن كد دانشجو را در تيبل 1و3 ذخيره مي كنم و اطلاعات دانشجو را در جدول دانشجو ذخيره مي كنم . فيلدجدول دانشجو: كد دانشجو ونام ونام خانوادگي و...
فيلد جدول ثبت نام : كد دانشجو و كد كلاس و كد استاد وكد درسي كه دانشجو اتخاب كرده است. در جدول 3 فيلد st-id هست ولي روري كه مي دهد مي گويد st not found
یعنی فيلد جدول ثبت نام : كد دانشجو و كد كلاس و كد استاد وكد درسي كه دانشجو اتخاب كرده = جدول 3 فيلد st-id هست.
کلی خوندم. کلی گیج شدم. اما انگاری فهمیدم.
خوب شما که کد ثبت نام رو نوشتید. کار کرده؟ مشکلی نداشته؟
اگر کار کرده لطفآ کد ثبت نام رو بزارید.
فقط کافیه اون کد رو بزاری. تا سه سوت حله.
منتظرم طولش ندی.اما اگر پستتون رو ندیدم بیشتر سه سوت طول میکشه:D
بای
اين قسمتي از كد مريوط به سيو كردن:نقل قول:
if table1.Locate('st-id',edit1.Text,[])=false then begin
;table1.Insert
table1.Fields[1].AsString:= edit2.Text;
table1.Fields[2].AsString:= edit3.Text
table1.Fields[5].AsString:= edit4.Text;
table1.Fields[4].AsString:= edit5.Text;
table1.Fields[6].AsString:= edit6.Text;
table1.Fields[3].AsString:= edit7.Text;
table1.Fields[8].AsString:= edit8.Text;
table1.Fields[7].AsString:= edit15.Text;
table1.Post;
end;
ret:=messagedlg('ÇíÇ ÔãÇ ãØãíä åÓÊíÏ ßå Çíä ÏÇäÔÌæ ÐÎíÑå ÔæÏ',mtinformation,mbyesnocancel,0);
if (ret=idyes) then begin
table3.Insert;
table3.Fields[1].AsString:= edit1.Text;
table3.Fields[2].AsString:= edit16.Text;
table3.Fields[3].AsString:= edit14.Text;
table3.Fields[4].AsString:= edit11.Text;
table3.Post;
messagedlg('ÏÇäÔÌæ ÐÎíÑå ÔÏ',mtinformation,[mbok],0);
از if تا table1.post مربوط به دانشجوي جديداشت كه اطلاعاتش در جدول دانشجو ثبت مي شود.
از ret تا اخر مربوط به دانشجوياني كه قبلا ثبت نام كرده اند و در يك كلاس ديگر مي خواهند ثبت نام كنند.
ممنون.