这里有 自己看吧 begin query1.SQL.Add('Insert Into UserInfo(myUser,myPWD,myIP,myPort,myRequestID,Zt,Ispa,IsAlarm)'); query1.SQL.Add(' values(:myUser,:myPWD,:myIP,:myPort,:myRequestID,:Zt,:Ispa,:IsAlarm)'); query1.Params[0].AsString := Edit1.Text; query1.Params[1].AsString := Edit2.Text; query1.Params[2].AsString :=''; query1.Params[3].AsInteger:=0; query1.Params[4].AsInteger:=0; if checkbox3.Checked =true then begin query1.Params[5].AsBoolean:=true; end else begin query1.Params[5].AsBoolean:=false; end; if checkbox1.Checked =true then begin query1.Params[6].AsBoolean :=true; end else begin query1.Params[6].AsBoolean :=false; end; if checkbox2.Checked =true then begin query1.Params[7].AsBoolean :=true; end else begin query1.Params[7].AsBoolean :=false; end; iQuestion:=application.messagebox('你确定插入记录吗?','插入操作提示信息',mb_yesno); if iQuestion=6 then begin query1.ExecSQL ; end;
选择完成后用一个循环,把TCheckListBox里要显示的列串起来
自己看吧
begin
query1.SQL.Add('Insert Into UserInfo(myUser,myPWD,myIP,myPort,myRequestID,Zt,Ispa,IsAlarm)');
query1.SQL.Add(' values(:myUser,:myPWD,:myIP,:myPort,:myRequestID,:Zt,:Ispa,:IsAlarm)');
query1.Params[0].AsString := Edit1.Text;
query1.Params[1].AsString := Edit2.Text;
query1.Params[2].AsString :='';
query1.Params[3].AsInteger:=0;
query1.Params[4].AsInteger:=0;
if checkbox3.Checked =true then
begin
query1.Params[5].AsBoolean:=true;
end
else
begin
query1.Params[5].AsBoolean:=false;
end;
if checkbox1.Checked =true then
begin
query1.Params[6].AsBoolean :=true;
end
else
begin
query1.Params[6].AsBoolean :=false;
end;
if checkbox2.Checked =true then
begin
query1.Params[7].AsBoolean :=true;
end
else
begin
query1.Params[7].AsBoolean :=false;
end;
iQuestion:=application.messagebox('你确定插入记录吗?','插入操作提示信息',mb_yesno);
if iQuestion=6 then
begin
query1.ExecSQL ;
end;
自己下载看看