插入记录,说参数ckbSysMng.Checked 没有默认值,是哪里有错?

                            
procedure   TFrmNewRole.btnCreateClick(Sender:   TObject);   
  var  
      mm:String;  
  begin  
          with   adodsNewRole   do  
          begin  
              Connection:=   adocNewRole;  
              CommandType:=cmdText;  
              mm:=   edtRoleName.Text;  
              CommandText:='insert   into   RoleTable   (RoleName,SysMng,TopoMng,HighMng,TelMng,EquipMng,AlarmMng)   values("'+mm+'",ckbSysMng.Checked,ckbTopo.Checked,ckbHighMng.Checked,ckbTelMng.Checked,ckbEquipMng.Checked,ckbAlarmQuery.Checked)';  
              Open;  
              MessageDlg('创建角色成功',mtWarning,[mbOk],0);  
          end;  
  end;  
   
   
 

查看回复