达梦数据库报错:The configuration area at ‘路径‘ isnot writable.配置不可写,请使用‘configuration‘命令行选项选择一个可写的位置

 达梦数据库打开就报错:

翻译过来是:

配置区域"路径"不可写。请使用'configuration'命令行选项选择一个可写的位置。

说是要重新配置,在网上找了好多帖子,越看越迷糊,然后尝试用管理员权限启动DM管理工具就成功了。。。。。。

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 8
    评论
可以通过在listbox中存储时间段的起始时间和结束时间,以及一个标志位来实现该功能。具体步骤如下: 1. 在listbox中添加时间段,每个时间段需要存储起始时间、结束时间和标志位。可以使用自定义类来封装这些信息,也可以使用字符串来存储,多个信息之间用分隔符隔开。 2. 当用户选中一个时间段时,遍历listbox中所有时间段,找到与选中的时间段重合的时间段,将其标志位置不可选。 3. 当用户取消选中一个时间段时,遍历listbox中所有时间段,找到与取消选中的时间段重合的时间段,将其标志位置为可选。 4. 在listbox的SelectedIndexChanged事件中执上述操作即可。 下面是一个示例代码: ``` '自定义时间段类 Public Class TimeSlot Private _startTime As DateTime Private _endTime As DateTime Private _selected As Boolean Public Property StartTime() As DateTime Get Return _startTime End Get Set(ByVal value As DateTime) _startTime = value End Set End Property Public Property EndTime() As DateTime Get Return _endTime End Get Set(ByVal value As DateTime) _endTime = value End Set End Property Public Property Selected() As Boolean Get Return _selected End Get Set(ByVal value As Boolean) _selected = value End Set End Property Public Sub New(ByVal startTime As DateTime, ByVal endTime As DateTime) _startTime = startTime _endTime = endTime _selected = False End Sub Public Overrides Function ToString() As String Return String.Format("{0}-{1}", _startTime.ToString("HH:mm"), _endTime.ToString("HH:mm")) End Function End Class '添加时间段到listbox Private Sub AddTimeSlots() Dim timeSlots As New List(Of TimeSlot)() timeSlots.Add(New TimeSlot(DateTime.Parse("08:00"), DateTime.Parse("10:00"))) timeSlots.Add(New TimeSlot(DateTime.Parse("10:00"), DateTime.Parse("12:00"))) timeSlots.Add(New TimeSlot(DateTime.Parse("13:00"), DateTime.Parse("15:00"))) timeSlots.Add(New TimeSlot(DateTime.Parse("15:00"), DateTime.Parse("17:00"))) For Each ts As TimeSlot In timeSlots lstTimeSlots.Items.Add(ts) Next End Sub '标记已选中的时间段为不可选 Private Sub MarkSelectedTimeSlots() Dim selectedTimeSlot As TimeSlot = TryCast(lstTimeSlots.SelectedItem, TimeSlot) If selectedTimeSlot IsNot Nothing Then For Each ts As TimeSlot In lstTimeSlots.Items If ts IsNot selectedTimeSlot AndAlso ts.StartTime <= selectedTimeSlot.EndTime AndAlso ts.EndTime >= selectedTimeSlot.StartTime Then ts.Selected = True End If Next End If End Sub '标记取消选中的时间段为可选 Private Sub UnmarkSelectedTimeSlots() Dim unselectedTimeSlot As TimeSlot = TryCast(lstTimeSlots.SelectedItem, TimeSlot) If unselectedTimeSlot IsNot Nothing Then For Each ts As TimeSlot In lstTimeSlots.Items If ts IsNot unselectedTimeSlot AndAlso ts.StartTime <= unselectedTimeSlot.EndTime AndAlso ts.EndTime >= unselectedTimeSlot.StartTime Then ts.Selected = False End If Next End If End Sub '处理listbox的SelectedIndexChanged事件 Private Sub lstTimeSlots_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lstTimeSlots.SelectedIndexChanged UnmarkSelectedTimeSlots() MarkSelectedTimeSlots() End Sub ```
评论 8
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值