fahimi
جمعه 10 خرداد 1392, 21:14 عصر
با سلام
در برنامه نویسی مواقعی پیش می آید که از بین یک لیست چند فیلد را انتخاب کنیم و در یک تیبل دیگر ذخیره کنیم برای مثال هم زمان با ثبت نامه در اتو ماسیون اداری در همان فرم به چند کاربر دیگر ارجاع دهیم در این حالت بایستی از لیست کاربران ، کابرهای مورد نظر را انتحاب و در تیبل ارجاعات ذخیره کنیم(این روش آیا صحیح است یا نه مورد بحث نیست فقط خواستم سناریو را طرح کنم)
در جستجو اینترنت به cxDBCheckComboBox از DevExpress رسیدم
برای اضافه کردن فیلد ها به لیست انتخاب از کد زیر استفاده می شود
while not MSTable1.Eof do
begin
cxDBCheckComboBox1.Properties.Items.Add;
cxDBCheckComboBox1.Properties.Items.Items[cxDBCheckComboBox1.Properties.Items.Count-1].ShortDescription := MSTable1.FieldByName('Name').AsString;
cxDBCheckComboBox1.Properties.Items.Items[cxDBCheckComboBox1.Properties.Items.Count-1].Description := MSTable1.FieldByName('Name').AsString;
MSTable1.Next;
end;
در ضمن نام فیلد و دیتاسورس در پروپرتی مشخص می کنیم
برای ذخیره در تیبل مورد نظر از کد استفاده می کنیم
var
i:integer;
begin
with cxDBCheckComboBox1.Properties do
for I := 0 to Items.Count - 1 do
if cxDBCheckComboBox1.States[I] = cbsChecked then
MSTable2.FindField('Name').AsString:=
cxDBCheckComboBox1.Properties.Items[I].Description
end;
با روش زیر هم میشود مقدار هی کرد
cxDBCheckComboBox1.Properties.BeginUpdate;
cxDBCheckComboBox1.SetItemState(1, cbsChecked);
cxDBCheckComboBox1.Properties.EndUpdate();
ولی اثر در چک باکس آن ندارد
اگر دوستان عزیر در مورد تجربه دارند لطف کند راهنمایی کند
در برنامه نویسی مواقعی پیش می آید که از بین یک لیست چند فیلد را انتخاب کنیم و در یک تیبل دیگر ذخیره کنیم برای مثال هم زمان با ثبت نامه در اتو ماسیون اداری در همان فرم به چند کاربر دیگر ارجاع دهیم در این حالت بایستی از لیست کاربران ، کابرهای مورد نظر را انتحاب و در تیبل ارجاعات ذخیره کنیم(این روش آیا صحیح است یا نه مورد بحث نیست فقط خواستم سناریو را طرح کنم)
در جستجو اینترنت به cxDBCheckComboBox از DevExpress رسیدم
برای اضافه کردن فیلد ها به لیست انتخاب از کد زیر استفاده می شود
while not MSTable1.Eof do
begin
cxDBCheckComboBox1.Properties.Items.Add;
cxDBCheckComboBox1.Properties.Items.Items[cxDBCheckComboBox1.Properties.Items.Count-1].ShortDescription := MSTable1.FieldByName('Name').AsString;
cxDBCheckComboBox1.Properties.Items.Items[cxDBCheckComboBox1.Properties.Items.Count-1].Description := MSTable1.FieldByName('Name').AsString;
MSTable1.Next;
end;
در ضمن نام فیلد و دیتاسورس در پروپرتی مشخص می کنیم
برای ذخیره در تیبل مورد نظر از کد استفاده می کنیم
var
i:integer;
begin
with cxDBCheckComboBox1.Properties do
for I := 0 to Items.Count - 1 do
if cxDBCheckComboBox1.States[I] = cbsChecked then
MSTable2.FindField('Name').AsString:=
cxDBCheckComboBox1.Properties.Items[I].Description
end;
با روش زیر هم میشود مقدار هی کرد
cxDBCheckComboBox1.Properties.BeginUpdate;
cxDBCheckComboBox1.SetItemState(1, cbsChecked);
cxDBCheckComboBox1.Properties.EndUpdate();
ولی اثر در چک باکس آن ندارد
اگر دوستان عزیر در مورد تجربه دارند لطف کند راهنمایی کند