farpoint v5, v13 통합
This commit is contained in:
chi
256
SpreadNet.v5/Epole/Common.vb
Normal file
256
SpreadNet.v5/Epole/Common.vb
Normal file
@@ -0,0 +1,256 @@
|
||||
Imports System.Net
|
||||
Imports System.Net.Dns
|
||||
|
||||
Module Common
|
||||
Enum ESorted
|
||||
No = 1
|
||||
YES = 2
|
||||
NULL = 0
|
||||
End Enum
|
||||
Enum E_AuthType
|
||||
Dev = 1
|
||||
Normal = 0
|
||||
adm = 2
|
||||
Demo = -9
|
||||
End Enum
|
||||
Structure S_AuthInfo
|
||||
Dim Type As E_AuthType '//인증형태
|
||||
Dim Cnt As Short '//무료사용횟수(데모모드시)
|
||||
Dim ExpireDate As String
|
||||
Dim Id As String '//사용자Id
|
||||
Dim Name As String '//사용자명
|
||||
Dim authmsg As String
|
||||
Dim Permission() As Char '//권한
|
||||
End Structure
|
||||
|
||||
Structure Cfont
|
||||
Dim FontName As String
|
||||
Dim FontSize As Int16
|
||||
End Structure
|
||||
|
||||
Structure Str_Alllabels '레이블들을 저장한다.
|
||||
Dim ctl As CEpole.C_label
|
||||
Dim desc As String
|
||||
End Structure
|
||||
|
||||
Structure SStyle
|
||||
Dim Desc As String
|
||||
Dim File As String
|
||||
Dim Backimg As String
|
||||
Dim MarginX As Integer
|
||||
Dim MarginY As Integer
|
||||
Dim ScaleX As Single
|
||||
Dim ScaleY As Single
|
||||
Dim PrintFontOffset As Integer
|
||||
Dim Viewimage As Boolean
|
||||
Dim LandScape As Boolean
|
||||
Dim Dummy As Boolean
|
||||
Dim Dummytype As Short
|
||||
Dim dummmyx As Short
|
||||
Dim dummmyy As Short
|
||||
Dim picstyle As Short
|
||||
Dim CanvasX As Integer
|
||||
Dim CanvasY As Integer
|
||||
Dim Filter As String
|
||||
Dim PATTERNTABLE As DataTable
|
||||
End Structure
|
||||
|
||||
Public StyleList() As SStyle
|
||||
|
||||
Public RunCnt As Integer = 0
|
||||
Public RunDate As Date = Date.Now
|
||||
Public Admin As Boolean = False
|
||||
|
||||
|
||||
Public DataBaseFile As String = My.Application.Info.DirectoryPath & "\database\irea.mdb"
|
||||
Public ini As New ACC.MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
|
||||
'Public ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFile
|
||||
Public Arin As New ACC.ARINCLASS
|
||||
Public ArinPath As New ACC.MyPath
|
||||
Public Auto_Log As Boolean = False '//디비나 각종 로그파일을 쌓을지 여부
|
||||
Public PICmanFile As String = vbNullString '//그림관리프로그램의 파일명을 적는다.
|
||||
Public MakeState As String = vbNullString
|
||||
Public PoleState As String = vbNullString
|
||||
Public PoleEtcState As String = vbNullString
|
||||
Public PicState As String = vbNullString '/그림파일연결관리다.
|
||||
Public HelpWebSite As String = vbNullString '//웹페이지주소 일단은 도움말을 얻기위해쓴다.
|
||||
Public HomePage As String = vbNullString
|
||||
Public SORTNULL As Boolean = True '//전주세부-정렬이 번호가 비어잇을경우 가장위에표시할지 아닐지!
|
||||
Public NUMCOLOR As Boolean '//가공번호찰에서 번호에 색상을 지정할지
|
||||
'Public Admin As Boolean = False '//개발자모드로 접속햇을때
|
||||
|
||||
Public ViewFont As Cfont '//뷰의 글자
|
||||
Public MenuFont As Cfont '//메뉴의 글자
|
||||
Public FormFont As Cfont '//폼의 글자
|
||||
|
||||
' Public UserInfo As S_AuthInfo '//사용자정보
|
||||
|
||||
Public Enum Work_Type
|
||||
kakong = 0
|
||||
jijung = 1
|
||||
suyong = 2
|
||||
tongsin = 3
|
||||
karodung = 4
|
||||
jongakdung = 5
|
||||
boandung = 6
|
||||
Sknetworks = 7
|
||||
Lcable = 8
|
||||
End Enum
|
||||
Public Sub Work_Form(ByVal T As String)
|
||||
Form_Work.Show()
|
||||
Form_Work.Msg(T)
|
||||
End Sub
|
||||
Public Function Get_SavePatternString(ByVal 저장대상 As String, ByVal pc As Boolean, ByVal cp As String, ByVal pl As Boolean, ByVal pstr As String, ByVal plen As Short, _
|
||||
ByVal pchr As String) As System.Text.StringBuilder
|
||||
|
||||
If pc Then cp = "[문자패턴]"
|
||||
If pl Then cp &= "[길이패턴]"
|
||||
If cp = "" Then cp = "[패턴없음]"
|
||||
|
||||
Dim Msg As New System.Text.StringBuilder("(" & 저장대상 & ")" & " 패턴을 저장합니다")
|
||||
'//문자패턴이 적용되어있다면 문자패턴으로 적용할 것을 궎장하며 그렇지 않은 경우에는 길이패턴이나 문자패턴을 적절히 권장한다.
|
||||
'//길이가 5자리이하이고 특수문자(-,;)등이 없는경우에 길이패턴 적용을 권유한다.
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine("패턴 저장방법에는 길이,문자가 있습니다")
|
||||
Msg.AppendLine("패턴우선순위 : 문자패턴 -> 길이패턴")
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine("현재적용된 패턴 : " & cp)
|
||||
|
||||
If pc Then
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine(">> 현재 문자패턴이 적용되어있습니다" & vbCrLf & ">> 문자패턴은 가장우선되는 패턴방식입니다")
|
||||
Msg.AppendLine(">> 저장시에는 [문자패턴]으로 저장하시기 바랍니다.")
|
||||
Msg.AppendLine(">> [길이패턴]으로 저장하는것은 의미가 없습니다")
|
||||
ElseIf pl Then
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine(">> 현재 길이패턴이 적용되어있습니다" & vbCrLf & ">> 패턴은 길이,문자 둘다 저장이 가능합니다")
|
||||
Else
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine(">> 적용된 패턴이없습니다")
|
||||
Msg.AppendLine(">> 문자수(길이)가 적은 문자의경우 [길이패턴] 저장을 권장합니다")
|
||||
End If
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine("길이패턴이란? (문자의 길이가 같을떄 적용)")
|
||||
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 길이는 = " & plen & " 입니다")
|
||||
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 길이가 " & plen & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
|
||||
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine("문자패턴이란? (같은 형태의 문자일때 적용)")
|
||||
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 형태는 = " & pchr & " 입니다")
|
||||
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 형태가 " & pchr & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
|
||||
Msg.AppendLine(" * 1=숫자,0=알파벳문자,H=한글문자,;=특수문자(;),-=특수문자(-)")
|
||||
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine("패턴우선순위란? (패턴이 중복적용되었을때 높은우선순위가 적용)")
|
||||
Msg.AppendLine(" 길이,문자 패턴이 둘다 적용되어있을경우 우선순위가 높은")
|
||||
Msg.AppendLine(" 문자패턴이 최종적으로 적용이 됩니다.(길이패턴은 무시됨)")
|
||||
|
||||
Msg.AppendLine()
|
||||
Msg.AppendLine("# 길이패턴으로 저장하시겠습니까?")
|
||||
Msg.AppendLine("# 예) 길이저장 , 아니오) 문자저장 , 취소) 취소")
|
||||
If pc Then Msg.AppendLine("# 문자패턴이 적용되었으므로 [길이패턴] 저장은 의미가 없습니다")
|
||||
|
||||
Return Msg
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Check_auth() As Boolean
|
||||
'If UserInfo.Type = E_AuthType.Demo Then
|
||||
' MsgBox("현재권한으로는 이기능을 사용할 수 없습니다", MsgBoxStyle.Critical, "임시사용자권한")
|
||||
' Return False
|
||||
'End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub NOTICE(ByVal MSG As String, ByVal Src As Object)
|
||||
On Error Resume Next
|
||||
If Src.GetType.Name.ToUpper = "TOOLSTRIPSTATUSLABEL" Then
|
||||
CType(Src, ToolStripStatusLabel).Text = "▶ " & MSG & Space(1)
|
||||
CType(Src, ToolStripStatusLabel).ForeColor = Color.Black
|
||||
ElseIf Src.GetType.Name.ToUpper = "LABEL" Then
|
||||
CType(Src, Label).Text = "▶ " & MSG & Space(1)
|
||||
CType(Src, Label).ForeColor = Color.Black
|
||||
End If
|
||||
' My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
|
||||
End Sub
|
||||
Public Sub NOTICE(ByVal MSG As String, ByVal FCOLOR As Color, ByVal Src As Windows.Forms.ToolStripStatusLabel)
|
||||
Src.Text = "▶ " & MSG & Space(1)
|
||||
Src.ForeColor = FCOLOR
|
||||
' My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
|
||||
End Sub
|
||||
|
||||
Public Sub ReNum(ByVal Srcspread As NewFp, ByVal NumColumnindex As Integer, Optional ByVal PBar As ProgressBar = Nothing)
|
||||
If Not PBar Is Nothing Then
|
||||
PBar.Minimum = 0
|
||||
PBar.Maximum = Srcspread.ActiveSheet.RowCount
|
||||
PBar.Value = 0
|
||||
End If
|
||||
|
||||
For Each SR As FarPoint.Win.Spread.Row In Srcspread.ActiveSheet.Rows
|
||||
If Not PBar Is Nothing Then PBar.Value += 1
|
||||
Srcspread.ActiveSheet.Cells(SR.Index, NumColumnindex).Value = SR.Index + 1
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Sub AddLog(ByVal t1 As Boolean, ByVal txt As String, Optional ByVal t2fn As String = "")
|
||||
' If UserInfo.Type = E_AuthType.Dev Then Log.RichTextBox1.AppendText(txt & vbCrLf)
|
||||
End Sub
|
||||
Public Sub showlog()
|
||||
Log.Show()
|
||||
End Sub
|
||||
Public Sub hidelog()
|
||||
Log.Close()
|
||||
End Sub
|
||||
Public Sub resetLog()
|
||||
Log.RichTextBox1.Text = ""
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub ReNum(ByRef SrcTable As DataTable, ByVal ColumnName As String, Optional ByVal PBar As ProgressBar = Nothing)
|
||||
|
||||
|
||||
If Not SrcTable.GetChanges Is Nothing Then
|
||||
MsgBox("변경된 내용이 있습니다" & vbCrLf & vbCrLf & "먼저 저장을 하세요", MsgBoxStyle.Information, "확인")
|
||||
Return
|
||||
End If
|
||||
|
||||
If MsgBox("모든번호가 새로 갱신됩니다" & vbCrLf & vbCrLf & "계속하시겠습니까?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then
|
||||
Return
|
||||
End If
|
||||
If Not PBar Is Nothing Then
|
||||
PBar.Minimum = 0
|
||||
PBar.Maximum = SrcTable.Rows.Count
|
||||
PBar.Value = 0
|
||||
End If
|
||||
|
||||
Dim i As Integer = 0
|
||||
Dim DV As New DataView(SrcTable, "", "정렬번호,번호", DataViewRowState.CurrentRows)
|
||||
Dim DT As DataTable = DV.ToTable
|
||||
|
||||
For Each dr As DataRow In DT.Rows
|
||||
i += 1
|
||||
dr(ColumnName) = i
|
||||
If Not PBar Is Nothing Then PBar.Value += 1
|
||||
Next
|
||||
SrcTable.Merge(DT)
|
||||
MsgBox("번호 정렬이 완료되었습니다", MsgBoxStyle.Information, "확인")
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function GetFirstIP() As String '//ip주소보기
|
||||
Dim objAddress() As Net.IPAddress
|
||||
'Dim IA As Net.IPAddress
|
||||
Dim B(15) As Byte
|
||||
Dim sAns As String = vbNullString
|
||||
|
||||
objAddress = Dns.GetHostEntry(GetHostName).AddressList
|
||||
Try
|
||||
Return objAddress(0).ToString
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Module
|
||||
Reference in New Issue
Block a user