query4.close;
query4.parambyname('name').value:=dbedit1.text;
query4.open;
if query4.recordcount=1 then
begin
query4.Edit;
query4.FieldByName('qx').asstring:='';
query4.Post;
end;
qxs:='';
for i:=0 to CheckListBox2.Items.Count-1 do
if CheckListBox1.Checked[i] then
qxs:='1'+qxs
else
qxs:='0'+qxs;
data.tbl_pass.edit;
data.tbl_pass.fieldbyname('qx').asstring:=qxs;
data.tbl_pass.Post;
query4.parambyname('name').value:=dbedit1.text;
query4.open;
if query4.recordcount=1 then
begin
query4.Edit;
query4.FieldByName('qx').asstring:='';
query4.Post;
end;
qxs:='';
for i:=0 to CheckListBox2.Items.Count-1 do
if CheckListBox1.Checked[i] then
qxs:='1'+qxs
else
qxs:='0'+qxs;
data.tbl_pass.edit;
data.tbl_pass.fieldbyname('qx').asstring:=qxs;
data.tbl_pass.Post;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货