Printable View
من روی فرم اصلی برنامه دو دکمه دارم که یکی برای اضافه کردن و انجام تغییرات در table مورد استفاده قرار می گیرد و دکمه دیگری لیست رکورد های همان جدول را نشان می دهد مشکل اینجاست که وقتی تغییرات انجام می شود تغییرات اعمال شده در لیست نمایش داده نمی شود وباید یک بار برنامه را بسته و دوباره اجرا کنم تا تغییرات نمایش داده شوند چگونه بدون بستن برنامه می توان جدول راrefresh کرد؟
پیشاپیش از کمکتون ممنونم.
برای این کار باید از دستور Refresh استفاده کنی مثلا میتونی تو اون دکمه ای که کار ذخیره کردن رو انجام میده در انتهای کدش کد زیر رو بنویسی و یا تو زدن دکمه ای که اطلاعات رو نشون می ده .
کد:Table Name . Refresh
منظور از Table Name نام اون تیبلی هست که شما انتخاب کردی.
برای این کار باید از دستور Refresh استفاده کنی مثلا تو اون دکمه ای که کار ذخیره کردن رو انجام میده تو خط آخرش کد زیر را بنویسی و یا تو خط اول دکمه ای که اطلاعات رو نشون میده .
منظور از Table Name اسم تیبل شماست.کد:Table Name . Refresh
من این کار رو انجام دادم اما فایده ای نداشت درضمن من از AccessوADOTableاستفاده می کنمنقل قول:
کد:ADOTable1.Requery()
شما اگر از یک بانک برای نمایش و حذف و اضافه کردن استفاده نمایید دیگر چنین مشکلی ندارید
ولی در غیر این صورت بانک را پس از اضافه و یا تغییرات می توانییدبانک را active:=false و سپس active:=true کنید
من موقع خروج در onclose فرم adotableرا close وموقع ورود open می کنم تمام کارهایی که گفتید مثل active:=false وrequery را انجام دادم اما مشکل به قوت خود باقی است چه کنم؟:42:
كدي كه براي ليست كردن ركوردهاي جدول نوشتيد رو بنويسيدنقل قول:
برای لیست کردن از DBGridاستفاده کردم ودر formcreate اینا رو نوشتماینم کدی که موقع اضافه کردن نوشتمکد:ADOConnection1.Open;
ADODataSet1.Open;
ADODataSet1.Open;
کد:ADOConnection1.Connected:=true;
ADOTable1.Active:=true;
ADOTable2.Active:=true; with ADOTable1 do begin
Insert;
FieldByName('Type').Value:=EditType1.Text;
FieldByName('model').Value:=EditModel1.Text;
FieldByName('num').Value:=strToint(EditNum1.Text);
FieldByName('pr_n').Value:=strToint(EditPr_n1.Text);
FieldByName('pr_s').Value:=strToint(EditPr_s1.Text);
FieldByName('name').Value:=EditName.Text;
FieldByName('date').Value:=lblDate.Caption;
Post;
end;ADOTable1.Requery();
ADOTable2.Requery();
من نمی دونم برنامه رو چکار کردید ولی اگر بخواین براتون می تونم مثالی بسازم و بفرستم و هم برنامتونو بزارین براتون رفع اشکال کنم
اگه بتونی یه مثال بزاری خیلی بهتره
نقل قول:نقل قول:براي رفع مشكل شما به اين كد نيازي نيست. كد جمله اي رو كه با رنگ قرمز مشخص كردم بنويسيدنقل قول:
برای لیست کردن کد خاصی ننوشتم همون DBGrid لیست رکورد ها رونشون میدهنقل قول:
اما شما در پست اول چيز ديگري گفتيد:نقل قول:
پس بنويسيد كه خصوصيات مختلف datasource,adotable1,adotable2,dbgrid رو چطور تنظيم كرديد.نقل قول:
من روی فرم اصلی برنامه دو دکمه دارم که یکی برای اضافه کردن و انجام تغییرات در table مورد استفاده قرار می گیرد و دکمه دیگری لیست رکورد های همان جدول را نشان می دهد
از توجهت ممنونم.نقل قول:
من روی فرم اصلی برنامه دو دکمه دارم که یکی برای اضافه کردن و انجام تغییرات در table مورد استفاده قرار می گیرد و دکمه دیگری لیست رکورد های همان جدول را نشان می دهد
دکمه دوم یک فرم رو باز می کنه که داخلش DBGrid هست همین.
اینم خصوصیات
کد:object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'sell'
Left = 376
Top = 8
end
کد:object ADOTable2: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'product'
Left = 272
Top = 16
end
کد:object DBGrid1: TDBGrid
Left = 16
Top = 72
Width = 553
Height = 120
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = ARABIC_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
کد:object ADODataSet1: TADODataSet
Connection = ADOConnection1
CursorType = ctStatic
CommandText =
'SELECT type as äæÚ,model as ãÏá,num as ÊÚÏÇÏ,pr_n as æÇÍÏ ,pr_s ' +
'as ÌãÚ,name as ÎÑíÏÇÑ,date as ÊÇÑíÎ FROM sell'
Parameters = <>
Left = 40
end
کد:
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 72
end
خصوصيات datasource1 را هم بنويسيد
چرا ويرايش كرديد؟ اتفاقي متوجه شدم كه خصوصيات رو اضافه كرديد. اما باز هم چيزي كه خواستم رو انجام نداديد. منظورم خواص DataSource:TDataSource در تب data access هست...
خصوصیات Datasource فکر کنم همین باشه -اگه یه مثال کوچیک در این باره بزاری زودتر به جواب می رسم
توضيحات شما باز هم كامل نيست. لطفا به جاي ويرايش پست قبلي اطلاعات تكميلي رو در پست جديد اضافه كنيد تا روال عادي سوال و جواب براي ديگر دوستان هم مشخص باشه
با توجه به توضيحات شما احتمالا اگر DataSet شيء datasource1 رو بر روي adotable1 تنظيم كنيد مشكل حل خواهد شد
براي دكمه دوم كه اطلاعات را نشان مي دهد در رويداد Button2Click اين دستوررات را بنويس ببين كارت راه مي افتد يا نه
شما مرتب داريد جدول را Refresh مي كنيد در صورتي كه مي خواهد اطلاعاتتان را در DBGrid ببينيد پس بايد DBGrid را هم به قول معروف آپديت كنيدکد:form1.ADOTable1.Close;
form1.ADOTable1.Open;
form1.DBGrid1.Refresh;
از کمک همه تشکر می کنم در قسمت FormActiveفرمی که لیست را نشان می داد کدهای بالا را نوشتم حل شد.