98 lines
4.6 KiB
VB.net
98 lines
4.6 KiB
VB.net
Imports BLV_Studio
|
|
|
|
Public Class frm_ProjectSync
|
|
Public _project As ProjectInfo
|
|
Private Enum EnumGridCols
|
|
No
|
|
RoomType_ID
|
|
RoomType_Name
|
|
Site
|
|
FileName
|
|
FileSize
|
|
FileModifiedDateTime
|
|
SyncDirection
|
|
MAX
|
|
End Enum
|
|
|
|
Private Sub frm_ProjectSync_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
lab_CurrentHotelGroup.Text = _project.VerdorName
|
|
lab_CurrentHotel.Text = _project.HotelCode & " - " & _project.HotelName
|
|
Grd_init()
|
|
End Sub
|
|
|
|
Private Sub Grd_init()
|
|
grd_Project_Sync.AutoRedraw = False
|
|
|
|
'序号 房型ID 房型名称 配置文件 文件大小 修改日期 修改方向 本地文件修改日期 文件大小 备注
|
|
|
|
Dim roomCount As Integer
|
|
If _project.RoomType Is Nothing Then
|
|
roomCount = 0
|
|
Else
|
|
roomCount = _project.RoomType.Length
|
|
End If
|
|
|
|
With grd_Project_Sync
|
|
.Rows = roomCount * 2 + 1
|
|
.Cols = EnumGridCols.MAX
|
|
.DefaultRowHeight = 18
|
|
.DefaultRowHeight = 30
|
|
.Column(EnumGridCols.No).Width = 30
|
|
.Column(EnumGridCols.RoomType_ID).Width = 40
|
|
.Column(EnumGridCols.RoomType_Name).Width = 80
|
|
.Column(EnumGridCols.Site).Width = 40
|
|
.Column(EnumGridCols.FileName).Width = 400
|
|
.Column(EnumGridCols.FileSize).Width = 60
|
|
.Column(EnumGridCols.FileModifiedDateTime).Width = 80
|
|
.Column(EnumGridCols.SyncDirection).Width = 20
|
|
|
|
.Cell(0, EnumGridCols.No).Text = "No."
|
|
.Cell(0, EnumGridCols.RoomType_ID).Text = "ID"
|
|
.Cell(0, EnumGridCols.RoomType_Name).Text = "房型"
|
|
.Cell(0, EnumGridCols.FileName).Text = "文件名"
|
|
.Cell(0, EnumGridCols.FileSize).Text = "文件大小"
|
|
.Cell(0, EnumGridCols.FileModifiedDateTime).Text = "修改日期"
|
|
.Cell(0, EnumGridCols.SyncDirection).Text = "同步方向"
|
|
|
|
.Column(EnumGridCols.No).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
.Column(EnumGridCols.RoomType_ID).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
.Column(EnumGridCols.RoomType_Name).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
.Column(EnumGridCols.Site).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
.Column(EnumGridCols.FileName).Alignment = FlexCell.AlignmentEnum.LeftCenter
|
|
.Column(EnumGridCols.FileSize).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
.Column(EnumGridCols.FileModifiedDateTime).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
.Column(EnumGridCols.SyncDirection).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
.Cell(0, EnumGridCols.FileName).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|
|
|
.Range(0, 0, .Rows - 1, .Cols - 1).WrapText = True '自动换行
|
|
.Font = New Font("Arial", 9, FontStyle.Bold) '字体’
|
|
.AllowUserResizing = FlexCell.ResizeEnum.None '用户不可调节单元格大小’
|
|
.ExtendLastCol = True
|
|
End With
|
|
|
|
For i = 0 To roomCount - 1
|
|
Dim tmpRowIdx As Integer = i * 2 + 1
|
|
grd_Project_Sync.Range(tmpRowIdx, EnumGridCols.No, tmpRowIdx + 1, EnumGridCols.No).Merge()
|
|
grd_Project_Sync.Range(tmpRowIdx, EnumGridCols.RoomType_ID, tmpRowIdx + 1, EnumGridCols.RoomType_ID).Merge()
|
|
grd_Project_Sync.Range(tmpRowIdx, EnumGridCols.RoomType_Name, tmpRowIdx + 1, EnumGridCols.RoomType_Name).Merge()
|
|
grd_Project_Sync.Range(tmpRowIdx, EnumGridCols.SyncDirection, tmpRowIdx + 1, EnumGridCols.SyncDirection).Merge()
|
|
|
|
grd_Project_Sync.Cell(tmpRowIdx, EnumGridCols.Site).Text = "云端"
|
|
grd_Project_Sync.Cell(tmpRowIdx + 1, EnumGridCols.Site).Text = "本地"
|
|
|
|
grd_Project_Sync.Cell(tmpRowIdx, EnumGridCols.No).Text = i + 1
|
|
grd_Project_Sync.Cell(tmpRowIdx, EnumGridCols.RoomType_ID).Text = _project.RoomType(i).structRoomType_ID
|
|
grd_Project_Sync.Cell(tmpRowIdx, EnumGridCols.RoomType_Name).Text = _project.RoomType(i).structRoomType_Name
|
|
grd_Project_Sync.Cell(tmpRowIdx, EnumGridCols.FileName).Text = _project.RoomType(i).structRoomType_XML_Filename
|
|
|
|
grd_Project_Sync.Range(tmpRowIdx, EnumGridCols.Site, tmpRowIdx, EnumGridCols.FileModifiedDateTime).ForeColor = Color.ForestGreen
|
|
grd_Project_Sync.Range(tmpRowIdx + 1, EnumGridCols.Site, tmpRowIdx + 1, EnumGridCols.FileModifiedDateTime).ForeColor = Color.Blue
|
|
|
|
Next
|
|
|
|
grd_Project_Sync.Refresh()
|
|
grd_Project_Sync.AutoRedraw = True
|
|
End Sub
|
|
|
|
|
|
End Class |