+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات (/showthread.php?tid=4826)
كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات - Anter2010 - 30-12-2012
السلام عليكم و رحمة الله تعالى و بركاته
كيف يتم نقل محتوي ال Checklistbox الى قاعدة البيانات وحفظ اعدادات Adminstrator
PHP كود :
procedure TForm1.BtnvalidateClick(Sender: TObject);
var x,t : Integer;
r:string;
begin
if MatchPass(Users,ComboBox1.Text,UserEdt.Text) then
begin
For x:=0 To (CheckListBox1.Items.Count-1) do
if CheckListBox1.Selected[x] then
begin
r:=r+CheckListBox1.items[x];
Allow.Last;
t:= AllowN_form.AsInteger + 1;
Allow.Insert;
AllowN_form.AsInteger:=t;
Allow.FieldByName('Name').AsString:= r;
Allow.FieldByName('Active').AsBoolean:= true;
Allow.Next;
Allow.Post;
Use_Form.Insert;
Use_Form.FieldByName('Authorization').AsBoolean:= true;
Use_Form.Next;
Use_Form.Post;
//******************************************************//
end
else
Use_Form.FieldByName('Authorization').AsBoolean:= false;
Allow.FieldByName('Active').AsBoolean:= false;
end;
Btnvalidate.Enabled:=False;ClientWidth:=355;ClientHeight:=473 ;
Position:=poScreenCenter;Btnlicensed.Enabled:=True;
end;
لكل من لديه فكرة المحاولة في المرفق
كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات - S.FATEH - 30-12-2012
السلام عليكم
لديك مجموعة من CheckBox تريد ان تنقل قيمها البولينية الى قاعدة البيانات
PHP كود :
begin
for i := 0 to CheckListBox1.Count - 1
begin
Allow.FieldByName('Name').AsString:= CheckListBox1.Items[i];
Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
end;
end;
PHP كود :
r:=r+CheckListBox1.items[x];
الاصح
PHP كود :
r := CheckListBox1.Items[x]
PHP كود :
Allow.FieldByName('Active').AsBoolean:= true;
الاصح
PHP كود :
Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
و الله اعلم
سلامي
كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات - S.FATEH - 30-12-2012
ربما هذا يساعدك اكثر
PHP كود :
procedure TForm1.BtnvalidateClick(Sender: TObject);
var i : integer;
begin
if MatchPass(Users, ComboBox1.Text, UserEdt.Text) then
begin
for i := 0 to CheckListBox1.Count - 1 do
if CheckListBox1.Selected[i] then
begin
Allow.Last;
Allow.Insert;
AllowN_form.AsInteger := (AllowN_form.AsInteger) + 1;;
Allow.FieldByName('Name').AsString:= CheckListBox1.Items[i];
Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
Allow.Next;
Allow.Post;
Use_Form.Insert;
Use_Form.FieldByName('Authorization').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
Use_Form.Next;
Use_Form.Post;
end;
Btnvalidate.Enabled := False;
ClientWidth := 355;
ClientHeight := 473 ;
Position := poScreenCenter;
Btnlicensed.Enabled := True;
end;
كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات - Anter2010 - 05-01-2013
السلام عليكم و رحمة الله تعالى و بركاته
تم ايجاد الحل باذن الله
PHP كود :
procedure TForm1.BtnvalidateClick(Sender: TObject);
var x : integer;
begin
for x:=0 to CheckListBox1.Items.Count -1 do
begin
Allow1.insert;
Allow1.FieldByName('N_Form').AsInteger:=
Allow1.RecordCount + 1;
Allow1.FieldByName('Name').AsString:= CheckListBox1.Items.Strings[x];
Allow1.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[x];
end;
end;
كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات - Anter2010 - 16-01-2013
السلام عليكم و رحمة الله تعالى و بركاته
الكود التالي يتمثل في تحميل سجل من قاعدة بيانات هناك خلل لم اجد له الحل هو الخانة التي تحتوي على القيمة المنطقية نعم ام لا كيف نحملها في Checklistbox ؟
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
qx.Items.BeginUpdate;
try
while not Use_Form.Eof do
begin
qx.Items.Add(Use_Form.FieldByName('Name').AsString);
Use_Form.Next;
end;
finally
qx.Items.EndUpdate;
end;
end;
end.
كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات - Anter2010 - 22-01-2013
السلام عليكم و رحمة الله تعالى و بركاته
تم ايجاد الحل باذن الله و هذا الكود لنقل البيانات من قاعدة البينات الى Checklistbox
PHP كود :
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
qx.Items.BeginUpdate;
try
while not Use_Form.Eof
do begin
i := qx.Items.Add(Use_Form.FieldByName('Name_').AsString);
qx.Checked[i] := Use_Form.FieldByName('Authorization').AsBoolean;
Use_Form.Next;
end;
finally
qx.Items.EndUpdate;
end;
end;