Set & Get CheckListBox From SQL Query

[FirstLine]

با سلام
یک بانک اطلاعاتی با سه فیلد دارم که با نامهای Tel_ID, Tel_Code, Tel_Name هستند که Tel_ID کلید است.
حالا من میخوام :
1- اطلاعات Tel_Code و Tel_Name را که با یک AdoQuery خوانده ام را در یک CheckListBox نشان بدهم بصورتی که Tel_Name را نمایش داده و مقدار Tel_Code را بعنوان Value نگه دارد.
2- چجوری بفهمم که کاربر کدام یک از CheckBox های CheckListBox را انتخاب کرده است؟ و گزینه های انتخاب شده را در یک بانک دیگر بریزم.
مشکل بیشتر در قسمت 2 است.
با تشکر

[Mohsen_4194]

من با CheckListBox کار نکردهام ولی کلاْ در مورد ListBox ها باید کل List رو Trace کنی .

[hr110]

از یک stringlist برای نگهداری کدها استفاده کن

[FirstLine]

با سلام
چجوری میتونم Tel_Name را نمایش داده و مقدار Tel_Code را بعنوان Value نگهداری و دریافت کنم؟
در دات نت این کار امکان پذیر است اما اینجا چطور
با تشکر

[hr110]

با یک ارتباط یک به یک این کار ممکن است، یعنی شما به ازای درج یک ایتم در چک لیست باکس یا کمبوباکس یک مقدار (که همان کد است) در یک stringlist درج میکنید ، به این صورت وقتی کاربر یک مقدار را در لیست انتخاب میکند (ItemIndex) معادلش در stringlist را میتوانید گرفته و ادامه دهید ...

[Mohsen_4194]

type

  PMyRec = ^TMyRec;

  TMyRec = record

    ID: integer;

end;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var

  MyRecPtr: PMyRec;

begin

  CheckListBox1.Items.Clear;



  New(MyRecPtr);

  MyRecPtr^.ID :=100;

  CheckListBox1.Items.AddObject('Item1',TObject&  #40;MyRecPtr));



  New(MyRecPtr);

  MyRecPtr^.ID :=200;

  CheckListBox1.Items.AddObject('Item2',TObject&  #40;MyRecPtr));

end;



procedure TForm1.CheckListBox1Click(Sender: TObject);

begin

  ShowMessage(IntToStr(PMyRec(CheckListB  ox1.Items.Objects[CheckListBox1.ItemIndex]  )^.ID));

end;

[vcldeveloper]

چجوری میتونم Tel_Name را نمایش داده و مقدار Tel_Code را بعنوان Value نگهداری و دریافت کنم؟

با استفاده از فیلدهای LookUp هم می تونید این کار رو بکنید

[FirstLine]

با سلام
با تشکر از راهنمایی شما دوستان عزیز :flower:
من نمیخوام از LookUp استفاده کنم و بنا به دلایلی باید از CheckListBox استفاده کنم.
با تشکر

[_alish_]

البته این طور هم میشه

procedure TForm1.FormShow(Sender: TObject);

var

 Value :String;

begin

Value := 'ASD';

CheckListBox1.Items.AddObject('222',TObject&#4  0;Value));



Value := 'Ali';

CheckListBox1.Items.AddObject('333',TObject&#4  0;Value));



end;



procedure TForm1.BitBtn1Click(Sender: TObject);

begin

showmessage(string (CheckListBox1.Items.Objects[CheckListBox1  .ItemIndex]));

end;

[FirstLine]

با سلام
از راهنمایی همه عزیزان متشکرم
با این کد مشکل من حل شد

<span dir=ltr>
For i_Temp:=1 to DM_Main.ADOQuery_Temp.RecordCount do
begin
CheckListBox_Organ.Items.AddObject(DM_Main.ADOQuer y_Temp.FieldByName('Organ_Name').AsString , TObject(DM_Main.ADOQuery_Temp.FieldByName('Organ_C ode').AsInteger));

If DM_Main.ADOQuery_Temp_2.Locate('Organ_Law_OrganCod e', Integer(CheckListBox_Organ.Items.Objects[i_Temp-1]), []) then
CheckListBox_Organ.Checked[i_Temp-1] := True
else
CheckListBox_Organ.Checked[i_Temp-1] := False;

DM_Main.ADOQuery_Temp.Next;
end;

</span>
با تشکر