Haegwang/Hanjeon
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

메인목록 dock 설정

Browse Source
This commit is contained in:
chi
2020-06-08 01:38:13 +09:00
parent 32ebea03fb
commit fc66714f53
12 changed files with 167 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Epole.fp13/Frm_Main.Designer.vb generated
View File

@@ -96,7 +96,7 @@ Partial Class Frm_Main
Me.bt_aa = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.bt_howto = New System.Windows.Forms.ToolStripMenuItem()
Me.view1 = New NewFp()
Me.view1 = New EpoleNet.NewFp()
Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView()
Me.TA_Main = New EpoleNet.ireaDataSetTableAdapters.MainTableTableAdapter()
Me.TA_JUNJU = New EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter()
@@ -175,6 +175,7 @@ Partial Class Frm_Main
Me.BindingNavigatorPositionItem.AccessibleName = "위치"
Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Enabled = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("맑은 고딕", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(25, 21)
Me.BindingNavigatorPositionItem.Text = "0"
@@ -337,6 +338,7 @@ Partial Class Frm_Main
'
Me.ToolStripTextBox1.AccessibleName = "위치"
Me.ToolStripTextBox1.AutoSize = False
Me.ToolStripTextBox1.Font = New System.Drawing.Font("맑은 고딕", 9.0!)
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(25, 21)
Me.ToolStripTextBox1.Text = "0"
@@ -631,26 +633,24 @@ Partial Class Frm_Main
Me.view1.AllowDragFill = True
Me.view1.AllowUserFormulas = True
Me.view1.AMessageLabel = Nothing
Me.view1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.view1.ANextRow_ColIndex = -1
Me.view1.ASameRowheight = True
Me.view1.BackColor = System.Drawing.Color.Transparent
Me.view1.ButtonDrawMode = FarPoint.Win.Spread.ButtonDrawModes.CurrentCell
Me.view1.ContextMenuStrip = Me.ContextMenuStrip1
Me.view1.Dock = System.Windows.Forms.DockStyle.Fill
Me.view1.EditModeReplace = True
Me.view1.EnableCrossSheetReference = False
Me.view1.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded
Me.view1.Location = New System.Drawing.Point(1, 73)
Me.view1.Location = New System.Drawing.Point(0, 71)
Me.view1.Name = "view1"
Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1})
Me.view1.Size = New System.Drawing.Size(1277, 464)
Me.view1.Size = New System.Drawing.Size(1277, 470)
Me.view1.TabIndex = 18
Me.view1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded
Me.view1.SetActiveViewport(0, -1, -1)
Me.view1.SetActiveViewport(0, 1, 0)
'
'view1_Sheet1
'
@@ -658,11 +658,17 @@ Partial Class Frm_Main
Me.view1_Sheet1.SheetName = "Sheet1"
'Formulas and custom names must be loaded with R1C1 reference style
Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
view1_Sheet1.ColumnCount = 16
Me.view1_Sheet1.ColumnCount = 16
Me.view1_Sheet1.ActiveColumnIndex = -1
Me.view1_Sheet1.ActiveRowIndex = -1
Me.view1_Sheet1.AllowNoteEdit = False
Me.view1_Sheet1.AutoGenerateColumns = False
Me.view1_Sheet1.ColumnFooter.DefaultStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.ColumnFooter.DefaultStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.ColumnFooter.DefaultStyle.Locked = False
Me.view1_Sheet1.ColumnFooterSheetCornerStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.ColumnFooterSheetCornerStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.ColumnFooterSheetCornerStyle.Locked = False
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "제작ID"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "선택"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "보기"
@@ -679,6 +685,9 @@ Partial Class Frm_Main
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 13).Value = "관리"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 14).Value = "관리1"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 15).Value = "관리2"
Me.view1_Sheet1.ColumnHeader.DefaultStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.ColumnHeader.DefaultStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.ColumnHeader.DefaultStyle.Locked = False
Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 37.0!
Me.view1_Sheet1.ColumnHeader.VerticalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Raised, System.Drawing.Color.LightGray, System.Drawing.SystemColors.ControlLightLight, System.Drawing.SystemColors.ControlDark, 3)
Me.view1_Sheet1.Columns.Get(0).BackColor = System.Drawing.Color.Silver
@@ -707,7 +716,7 @@ Partial Class Frm_Main
Me.view1_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(3).Width = 39.0!
Me.view1_Sheet1.Columns.Get(4).AllowAutoSort = True
DateTimeCellType1.Calendar = CType(resources.GetObject("DateTimeCellType1.Calendar"), System.Globalization.Calendar)
DateTimeCellType1.Calendar = New System.Globalization.GregorianCalendar(System.Globalization.GregorianCalendarTypes.Localized)
DateTimeCellType1.CalendarDayFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DateTimeCellType1.CalendarSurroundingDaysColor = System.Drawing.SystemColors.GrayText
DateTimeCellType1.DateDefault = New Date(2007, 7, 15, 11, 18, 31, 0)
@@ -765,6 +774,7 @@ Partial Class Frm_Main
Me.view1_Sheet1.Columns.Get(9).Locked = True
Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(9).Width = 39.0!
ComboBoxCellType1.AllowEditorVerticalAlign = True
ComboBoxCellType1.ButtonAlign = FarPoint.Win.ButtonAlign.Right
ComboBoxCellType1.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
ComboBoxCellType1.ItemData = New String() {"0", "9", "1", "2", "3", "4", "6", "7", "8"}
@@ -807,12 +817,28 @@ Partial Class Frm_Main
Me.view1_Sheet1.DataAutoHeadings = False
Me.view1_Sheet1.DataAutoSizeColumns = False
Me.view1_Sheet1.DataSource = Me.bs
Me.view1_Sheet1.DefaultStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.DefaultStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.DefaultStyle.Locked = False
Me.view1_Sheet1.FilterBar.DefaultStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.FilterBar.DefaultStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.FilterBar.DefaultStyle.Locked = False
Me.view1_Sheet1.FilterBarHeaderStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.FilterBarHeaderStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.FilterBarHeaderStyle.Locked = False
Me.view1_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode
Me.view1_Sheet1.Protect = False
Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = False
Me.view1_Sheet1.RowHeader.Columns.Get(0).Width = 42.0!
Me.view1_Sheet1.RowHeader.DefaultStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.RowHeader.DefaultStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.RowHeader.DefaultStyle.Locked = False
Me.view1_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent
Me.view1_Sheet1.SelectionForeColor = System.Drawing.Color.Black
Me.view1_Sheet1.SheetCornerStyle.BackColor = System.Drawing.Color.Empty
Me.view1_Sheet1.SheetCornerStyle.ForeColor = System.Drawing.Color.Empty
Me.view1_Sheet1.SheetCornerStyle.Locked = False
Me.view1_Sheet1.SheetCornerStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
'
'TA_Main
@@ -859,8 +885,8 @@ Partial Class Frm_Main
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(1277, 602)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.view1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.bn)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.MenuStrip1)

4
Epole.fp13/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' 지정되도록 할 수 있습니다.
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("20.05.24.1600")>
<Assembly: AssemblyFileVersion("20.05.24.1600")>
<Assembly: AssemblyVersion("20.06.08.0100")>
<Assembly: AssemblyFileVersion("20.06.08.0100")>

3
Epole.fp13/ReadMe.txt
View File

@@ -1,4 +1,5 @@
190505 * 인증방법변경 및 인증키와 연동 작업 (일자만 인증한다)
200608 메인화면 dock 설정
190505 * 인증방법변경 및 인증키와 연동 작업 (일자만 인증한다)
190502 * 기존 QR이 존재하는 화면에 배경색 전경색을 추가함
170715 * 가공-선로화살표를 비고 앞에 놓이도록 수정
* 엑셀불러오기에 선로화살표 기능추가

40
Epole.fp13/SplashScreen.vb
View File

@@ -32,26 +32,26 @@ Public NotInheritable Class SplashScreen
If Not LoadINI() Then End
'//인증사용안함 191125 -
'If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
' '//사용횟수가 10번ㅇ르 초과했는지 확인
' Runcnt = Me.ReadAuthcount
' Dim f As New fAuth()
' If (f.ShowDialog <> System.Windows.Forms.DialogResult.OK) Then
' End
' End If
' 'If Runcnt >= 10 Then
' ' Dim NewKey As String = InputBox("인증번호를 입력하세요 (인증번호는 숫자로만 이루어져 있습니다)")
' ' If IsNumeric(NewKey) = False Then
' ' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' ' End
' ' End If
' ' auth.SetAuth(NewKey, My.Application.Info.DirectoryPath & "\epole.ini")
' ' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' ' End
' 'Else
' ' MsgBox(CStr(10 - Runcnt) & "번의 사용횟수가 남았습니다", MsgBoxStyle.Critical, "실행확인")
' 'End If
'End If
If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
'//사용횟수가 10번ㅇ르 초과했는지 확인
Runcnt = Me.ReadAuthcount
Dim f As New fAuth()
If (f.ShowDialog <> System.Windows.Forms.DialogResult.OK) Then
End
End If
'If Runcnt >= 10 Then
' Dim NewKey As String = InputBox("인증번호를 입력하세요 (인증번호는 숫자로만 이루어져 있습니다)")
' If IsNumeric(NewKey) = False Then
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
' End If
' auth.SetAuth(NewKey, My.Application.Info.DirectoryPath & "\epole.ini")
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
'Else
' MsgBox(CStr(10 - Runcnt) & "번의 사용횟수가 남았습니다", MsgBoxStyle.Critical, "실행확인")
'End If
End If
If Not LoadReg() Then End
If Not Connect() Then End
Me.lb_msg.Text = ""