add vba generateSQL
This commit is contained in:
updsv7
40
sql/juk_csv_item_definition.sql
Normal file
40
sql/juk_csv_item_definition.sql
Normal file
@@ -0,0 +1,40 @@
|
||||
DELETE FROM SH_CSV_ITEM_DEFINITION WHERE CODE = 'JUK';
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 1, '職員番号', '' ,TRUE, 'CHAR', 8, NULL, FALSE, FALSE, '' ,TRUE, NULL, NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 2, '事実発生年月日', '' ,TRUE, 'DATE', NULL, NULL, FALSE, TRUE, '' ,FALSE, NULL, NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 3, '提出年月日', '' ,FALSE, 'DATE', NULL, NULL, FALSE, TRUE, '' ,FALSE, NULL, NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 4, '受理年月日', '' ,FALSE, 'DATE', NULL, NULL, FALSE, TRUE, '' ,FALSE, NULL, NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 5, '届出の事由コード', '' ,TRUE, 'MASTER', 2, NULL, FALSE, FALSE, '' ,TRUE, NULL, '215', FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 6, '届出の備考', '' ,FALSE, 'VARCHAR', 20, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 7, '本人）形態区分', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{1,2}', NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 8, '本人）契約区分', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{0,1}', NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 9, '本人）契約開始日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 10, '本人）契約満了日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 11, '本人）所在地１', '' ,FALSE, 'VARCHAR', 60, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 12, '本人）所在地２', '' ,FALSE, 'VARCHAR', 40, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 13, '本人）家賃等月額', '' ,FALSE, 'NUMBER', 8, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 14, '本人）家賃区分_光熱費込', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{0,1}', NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 15, '本人）家賃区分_まかない付き', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{0,1}', NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 16, '配偶者）形態区分', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{1,2}', NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 17, '配偶者）契約区分', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{0,1}', NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 18, '配偶者）契約開始日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 19, '配偶者）契約満了日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 20, '配偶者）所在地１', '' ,FALSE, 'VARCHAR', 60, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 21, '配偶者）所在地２', '' ,FALSE, 'VARCHAR', 40, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 22, '配偶者）家賃等月額', '' ,FALSE, 'NUMBER', 8, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 23, '配偶者）家賃区分_光熱費込', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{0,1}', NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 24, '配偶者）家賃区分_まかない付き', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{0,1}', NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 25, '自宅）所有者情報', '' ,FALSE, 'ENUM', 1, NULL, TRUE, FALSE, '' ,TRUE, '{1,2,3,4}', NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 26, '自宅）所在地１', '' ,FALSE, 'VARCHAR', 60, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 27, '自宅）所在地２', '' ,FALSE, 'VARCHAR', 40, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 28, '自宅）入居日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 29, '自宅）取得理由', '' ,FALSE, 'MASTER', 1, NULL, TRUE, FALSE, '' ,TRUE, NULL, '216', TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 30, '自宅）新築・購入年月日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 31, '自宅）購入後５年経過日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 32, '該当条文１', '' ,FALSE, 'MASTER', 1, NULL, TRUE, FALSE, '' ,TRUE, NULL, '217', FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 33, '該当条文２', '' ,FALSE, 'MASTER', 1, NULL, TRUE, FALSE, '' ,TRUE, NULL, '217', FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 34, '支給の始期', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 35, '住居手当の月額', '' ,FALSE, 'NUMBER', 8, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 36, '備考', '' ,FALSE, 'VARCHAR', 40, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 37, '所属コード', '' ,FALSE, 'VARCHAR', 10, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, FALSE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 38, '認定年月日', '' ,FALSE, 'DATE', NULL, NULL, TRUE, TRUE, '' ,FALSE, NULL, NULL, TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
INSERT INTO SH_CSV_ITEM_DEFINITION VALUES ('JUK', 39, '（各庁の長）官職コード', '' ,FALSE, 'MASTER', 3, NULL, TRUE, FALSE, '' ,TRUE, NULL, '507', TRUE, FALSE, 'updsv7', CURRENT_TIMESTAMP);
|
||||
39
src/sh/juk/init_module/Import_modules.bas
Normal file
39
src/sh/juk/init_module/Import_modules.bas
Normal file
@@ -0,0 +1,39 @@
|
||||
' ============================================================
|
||||
' JUK Import - Simple Version
|
||||
' ============================================================
|
||||
Option Explicit
|
||||
|
||||
Sub ImportJukModules()
|
||||
Const MODULE_PATH As String = "D:\Project\upds7\vba\src\sh\juk\module"
|
||||
|
||||
Dim fso As Object
|
||||
Set fso = CreateObject("Scripting.FileSystemObject")
|
||||
|
||||
If Not fso.FolderExists(MODULE_PATH) Then
|
||||
MsgBox "Folder not found"
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim file As Object
|
||||
For Each file In fso.GetFolder(MODULE_PATH).Files
|
||||
If LCase(fso.GetExtensionName(file.Name)) = "bas" Then
|
||||
Dim modName As String
|
||||
modName = fso.GetBaseName(file.Name)
|
||||
|
||||
On Error Resume Next
|
||||
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(modName)
|
||||
|
||||
ThisWorkbook.VBProject.VBComponents.Import file.Path
|
||||
|
||||
If Err.Number <> 0 Then
|
||||
MsgBox "Error: " & Err.Description & " (" & Err.Number & ")"
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
On Error GoTo 0
|
||||
Debug.Print "Imported: " & modName
|
||||
End If
|
||||
Next
|
||||
|
||||
MsgBox "Done"
|
||||
End Sub
|
||||
11
src/sh/juk/module/Common_Button.bas
Normal file
11
src/sh/juk/module/Common_Button.bas
Normal file
@@ -0,0 +1,11 @@
|
||||
Attribute VB_Name = "Common_Button"
|
||||
Option Explicit
|
||||
' ============================================================
|
||||
' Module Name: Common_Button
|
||||
' Module Desc: Common_Button
|
||||
' Module Methods:
|
||||
' - CSV_Import_Button
|
||||
' ============================================================
|
||||
Sub DDL_Generate_Button()
|
||||
GenerateJukCsvItemDefinition ActiveSheet
|
||||
End Sub
|
||||
230
src/sh/juk/module/SQL_Generate.bas
Normal file
230
src/sh/juk/module/SQL_Generate.bas
Normal file
@@ -0,0 +1,230 @@
|
||||
Attribute VB_Name = "SQL_Generate"
|
||||
Option Explicit
|
||||
' ============================================================
|
||||
' JUK SQL Generator
|
||||
' ============================================================
|
||||
|
||||
Public Sub GenerateJukCsvItemDefinition(ws As Worksheet)
|
||||
Dim codePrefix As String: codePrefix = ws.CodeName
|
||||
Dim outputFileName As String: outputFileName = LCase(codePrefix) & "_csv_item_definition.sql"
|
||||
Dim csvFileName As String: csvFileName = LCase(codePrefix) & "_csv_item_definition.csv"
|
||||
|
||||
Dim lastRow As Long: lastRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row
|
||||
If lastRow < 9 Then
|
||||
MsgBox "No data found."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim expectedSeq As Long: expectedSeq = 1
|
||||
Dim i As Long
|
||||
For i = 9 To lastRow
|
||||
Dim itemSeq As Long
|
||||
itemSeq = Val(Trim(CStr(ws.Cells(i, 3).Value)))
|
||||
If itemSeq = 0 Then
|
||||
lastRow = i - 1
|
||||
Exit For
|
||||
End If
|
||||
If itemSeq <> expectedSeq Then
|
||||
MsgBox "Seq error. Expected: " & expectedSeq & ", Actual: " & itemSeq & " (Row " & i & ")"
|
||||
Exit Sub
|
||||
End If
|
||||
expectedSeq = expectedSeq + 1
|
||||
Next
|
||||
|
||||
For i = 9 To lastRow
|
||||
If Not ValidateRow(ws, i) Then Exit Sub
|
||||
Next
|
||||
|
||||
Dim sqlHeader As String: sqlHeader = "DELETE FROM sh_csv_item_definition WHERE CODE = '" & UCase(codePrefix) & "';" & vbCrLf
|
||||
Dim sqlLines As String: sqlLines = sqlHeader
|
||||
For i = 9 To lastRow
|
||||
sqlLines = sqlLines & GenerateSqlForRow(ws, i, codePrefix) & vbCrLf
|
||||
Next
|
||||
|
||||
If sqlLines = "" Then
|
||||
MsgBox "No data to output."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim outputPath As String: outputPath = ThisWorkbook.Path & "\" & outputFileName
|
||||
Dim fileNum As Long: fileNum = FreeFile
|
||||
Open outputPath For Output As #fileNum
|
||||
Print #fileNum, sqlLines;
|
||||
Close #fileNum
|
||||
|
||||
' Generate CSV (columns matching INSERT INTO order)
|
||||
Dim csvHeader As String: csvHeader = "CODE,ITEM_SEQ,ITEM_TITLE,ITEM_NAME,IS_DUPLICATE_CHECK_KEY,DATA_TYPE,PRECISION,SCALE,NULLABLE,ENABLE_FORMAT_CHECK,FORMAT_REGEX,ENABLE_EXIST_CHECK,ALLOWED_VALUES,MASTER_SYBT,ENABLE_RELATION_CHECK,JSON_IGNORE,CMNUSER"
|
||||
Dim csvLines As String: csvLines = csvHeader & vbCrLf
|
||||
For i = 9 To lastRow
|
||||
csvLines = csvLines & GenerateCsvRow(ws, i, codePrefix) & vbCrLf
|
||||
Next
|
||||
|
||||
Dim csvPath As String: csvPath = ThisWorkbook.Path & "\" & csvFileName
|
||||
fileNum = FreeFile
|
||||
Open csvPath For Output As #fileNum
|
||||
Print #fileNum, csvLines;
|
||||
Close #fileNum
|
||||
|
||||
MsgBox "Files generated:" & vbCrLf & outputPath & vbCrLf & csvPath
|
||||
End Sub
|
||||
|
||||
Private Function ValidateRow(ws As Worksheet, rowNum As Long) As Boolean
|
||||
ValidateRow = True
|
||||
|
||||
Dim itemTitle As String: itemTitle = Trim(CStr(ws.Cells(rowNum, 4).Value))
|
||||
Dim dataType As String: dataType = Trim(CStr(ws.Cells(rowNum, 16).Value))
|
||||
Dim jsonIgnore As String: jsonIgnore = Trim(CStr(ws.Cells(rowNum, 61).Value))
|
||||
|
||||
If itemTitle = "" Then
|
||||
MsgBox "item_title is empty. (Row " & rowNum & ")"
|
||||
ValidateRow = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
If dataType = "" Then
|
||||
MsgBox "data_type is empty. (Row " & rowNum & " - " & itemTitle & ")"
|
||||
ValidateRow = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
If jsonIgnore = "" Then
|
||||
MsgBox "json_ignore is empty. (Row " & rowNum & " - " & itemTitle & ")"
|
||||
ValidateRow = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
Dim allowedValues As String: allowedValues = Trim(CStr(ws.Cells(rowNum, "AA").Value))
|
||||
Dim isFormatCheck As String: isFormatCheck = Trim(CStr(ws.Cells(rowNum, "X").Value))
|
||||
|
||||
Select Case UCase(dataType)
|
||||
Case "ENUM"
|
||||
If allowedValues = "" Then
|
||||
MsgBox "ENUM type must have allowed_values. (Row " & rowNum & " - " & itemTitle & ")"
|
||||
ValidateRow = False
|
||||
Exit Function
|
||||
End If
|
||||
If Not ValidateEnumFormat(allowedValues) Then
|
||||
MsgBox "ENUM format error. (Row " & rowNum & " - " & itemTitle & ")"
|
||||
ValidateRow = False
|
||||
Exit Function
|
||||
End If
|
||||
Case "MASTER"
|
||||
If Len(allowedValues) <> 3 Or Not IsNumeric(allowedValues) Then
|
||||
MsgBox "MASTER type must be 3-digit number. (Row " & rowNum & " - " & itemTitle & ")"
|
||||
ValidateRow = False
|
||||
Exit Function
|
||||
End If
|
||||
Case "DATE", "VARCHAR", "NUMBER"
|
||||
If isFormatCheck = "" Then
|
||||
MsgBox dataType & " type must have required. (Row " & rowNum & " - " & itemTitle & ")"
|
||||
ValidateRow = False
|
||||
Exit Function
|
||||
End If
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Private Function ValidateEnumFormat(s As String) As Boolean
|
||||
ValidateEnumFormat = False
|
||||
Dim items As Variant: items = Split(s, ", ")
|
||||
Dim i As Long
|
||||
For i = LBound(items) To UBound(items)
|
||||
Dim item As String: item = Trim(items(i))
|
||||
If item = "" Then Exit Function
|
||||
Dim parts As Variant: parts = Split(item, ":")
|
||||
If UBound(parts) <> 1 Then Exit Function
|
||||
If Not IsNumeric(parts(0)) Then Exit Function
|
||||
Next
|
||||
ValidateEnumFormat = True
|
||||
End Function
|
||||
|
||||
Private Function GenerateSqlForRow(ws As Worksheet, rowNum As Long, codePrefix As String) As String
|
||||
Dim itemTitle As String: itemTitle = Trim(CStr(ws.Cells(rowNum, 4).Value))
|
||||
If itemTitle = "" Then
|
||||
GenerateSqlForRow = ""
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
Dim itemSeq As Long: itemSeq = Val(Trim(CStr(ws.Cells(rowNum, 3).Value)))
|
||||
Dim dataType As String: dataType = Trim(CStr(ws.Cells(rowNum, 16).Value))
|
||||
Dim allowedValues As String: allowedValues = Trim(CStr(ws.Cells(rowNum, 27).Value))
|
||||
|
||||
' Parse data_type (e.g. VARCHAR(60) -> dataType='VARCHAR', precision=60)
|
||||
Dim precision As String: precision = "NULL"
|
||||
Dim vScale As String: vScale = "NULL"
|
||||
Dim dtType As String: dtType = dataType
|
||||
Dim pos As Long
|
||||
Dim nums As String
|
||||
|
||||
If InStr(dataType, "(") > 0 Then
|
||||
pos = InStr(dataType, "(")
|
||||
dtType = Trim(Left(dataType, pos - 1))
|
||||
nums = Mid(dataType, pos + 1)
|
||||
nums = Trim(Left(nums, InStr(nums, ")") - 1))
|
||||
precision = nums
|
||||
If InStr(UCase(dataType), "NUMBER") > 0 And InStr(nums, ", ") > 0 Then
|
||||
vScale = Trim(Mid(nums, InStr(nums, ", ") + 1))
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim isPk As String: isPk = SqlBool(GetIsChecked(ws, rowNum, "V"))
|
||||
Dim isRequired As String: isRequired = SqlBool(GetIsChecked(ws, rowNum, "W"))
|
||||
Dim isFormatCheck As String: isFormatCheck = SqlBool(GetIsChecked(ws, rowNum, "X"))
|
||||
Dim isExistCheck As String: isExistCheck = SqlBool(GetIsChecked(ws, rowNum, "Y"))
|
||||
Dim isRelationCheck As String: isRelationCheck = SqlBool(GetIsChecked(ws, rowNum, "Z"))
|
||||
Dim isJsonIgnore As String: isJsonIgnore = SqlBool(GetIsChecked(ws, rowNum, "BI"))
|
||||
|
||||
Dim code As String: code = "'" & UCase(codePrefix) & "'"
|
||||
Dim itemTitleStr As String: itemTitleStr = SqlString(itemTitle)
|
||||
Dim dataTypeStr As String: dataTypeStr = SqlString(dtType)
|
||||
|
||||
' For MASTER type, store in MASTER_SYBT; for others, store in ALLOWED_VALUES
|
||||
Dim allowedValuesStr As String
|
||||
Dim masterSybt As String
|
||||
If UCase(dtType) = "MASTER" Then
|
||||
masterSybt = "'" & allowedValues & "'"
|
||||
allowedValuesStr = "NULL"
|
||||
Else
|
||||
masterSybt = "NULL"
|
||||
If allowedValues = "" Then
|
||||
allowedValuesStr = "NULL"
|
||||
Else
|
||||
allowedValuesStr = "'{" & allowedValues & "}'"
|
||||
End If
|
||||
End If
|
||||
Dim cmnuser As String: cmnuser = "'updsv7'"
|
||||
Dim dmndate As String: dmndate = "CURRENT_TIMESTAMP"
|
||||
|
||||
Dim nullable As String: nullable = IIf(isRequired = "TRUE", "FALSE", "TRUE")
|
||||
|
||||
GenerateSqlForRow = "INSERT INTO SH_CSV_ITEM_DEFINITION VALUES (" & _
|
||||
code & ", " & itemSeq & ", " & itemTitleStr & ", '' ," & isPk & ", " & dataTypeStr & ", " & _
|
||||
precision & ", " & vScale & ", " & nullable & ", " & isFormatCheck & ", '' ," & isExistCheck & ", " & _
|
||||
allowedValuesStr & ", " & masterSybt & ", " & isRelationCheck & ", " & isJsonIgnore & ", " & cmnuser & ", " & dmndate & ");"
|
||||
End Function
|
||||
|
||||
Private Function SqlBool(b As Boolean) As String
|
||||
SqlBool = IIf(b, "TRUE", "FALSE")
|
||||
End Function
|
||||
|
||||
Private Function GetIsChecked(ws As Worksheet, rowNum As Long, colNumOrLetter As Variant) As Boolean
|
||||
Dim colNum As Long
|
||||
If VarType(colNumOrLetter) = vbString Then
|
||||
colNum = ws.Range(colNumOrLetter & "1").Column
|
||||
Else
|
||||
colNum = CLng(colNumOrLetter)
|
||||
End If
|
||||
Dim val As String: val = Trim(CStr(ws.Cells(rowNum, colNum).Value))
|
||||
If val = "" Or val = "FALSE" Then
|
||||
GetIsChecked = False
|
||||
Else
|
||||
GetIsChecked = True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function SqlString(s As String) As String
|
||||
If s = "" Then
|
||||
SqlString = "NULL"
|
||||
Else
|
||||
SqlString = "'" & Replace(s, "'", "''") & "'"
|
||||
End If
|
||||
End Function
|
||||
@@ -1,292 +0,0 @@
|
||||
' ============================================================
|
||||
' JUK CSV Item Definition Generator
|
||||
'
|
||||
' Description:
|
||||
' Excel の CSV 項目定義シートから sh_csv_item_definition テーブル用の
|
||||
' DML INSERT 文を生成する
|
||||
'
|
||||
' Usage:
|
||||
' 1. 「CSV項目定義」シートを開く
|
||||
' 2. VBAエディタで J1.cls をインポート
|
||||
' 3. GenerateJukCsvItemDefinition マクロを実行
|
||||
' 4. 同じフォルダに juk_csv_item_definition.sql が生成される
|
||||
'
|
||||
' Column Mapping:
|
||||
' C - 順序号 (item_seq)
|
||||
' D - 項目名 (item_title)
|
||||
' P - データ型 (data_type)
|
||||
' V - PK (is_duplicate_check_key)
|
||||
' W - 必须入力 (nullable) - 反転
|
||||
' X - 定義チェック (enable_format_check)
|
||||
' Y - 存在チェック (enable_exist_check)
|
||||
' Z - 関連チェック (enable_relation_check)
|
||||
' AA -許可値 (allowed_values)
|
||||
' BI - JsonIgnore (json_ignore)
|
||||
'
|
||||
' Output Sample:
|
||||
' INSERT INTO sh_csv_item_definition (CODE, ITEM_SEQ, ITEM_TITLE, ITEM_NAME, IS_DUPLICATE_CHECK_KEY, DATA_TYPE, PRECISION, SCALE, NULLABLE, ENABLE_FORMAT_CHECK, FORMAT_REGEX, ENABLE_EXIST_CHECK, ALLOWED_VALUES, MASTER_SYBT, ENABLE_RELATION_CHECK, JSON_IGNORE, CMNUSER) VALUES ('JUK', 1, '職員番号', '', TRUE, 'CHAR', 8, NULL, FALSE, FALSE, '', TRUE, NULL, '', FALSE, FALSE, 'updsv7');
|
||||
' ============================================================
|
||||
|
||||
Option Explicit
|
||||
|
||||
' --- 設定 ---
|
||||
Private Const TARGET_SHEET_NAME As String = "CSV項目定義"
|
||||
Private Const OUTPUT_FILE_NAME As String = "juk_csv_item_definition.sql"
|
||||
Private Const DATA_START_ROW As Long = 9
|
||||
Private Const CODE_PREFIX As String = "JUK"
|
||||
Private Const DEFAULT_CMNUSER As String = "updsv7"
|
||||
|
||||
' --- カラム位置 (Excel 列番号) ---
|
||||
Private Const COL_ITEM_SEQ As Long = 3
|
||||
Private Const COL_ITEM_TITLE As Long = 4
|
||||
Private Const COL_DATA_TYPE As Long = 16
|
||||
Private Const COL_PK As Long = 22
|
||||
Private Const COL_REQUIRED As Long = 23
|
||||
Private Const COL_FORMAT_CHECK As Long = 24
|
||||
Private Const COL_EXIST_CHECK As Long = 25
|
||||
Private Const COL_RELATION_CHECK As Long = 26
|
||||
Private Const COL_ALLOWED_VALUES As Long = 27
|
||||
Private Const COL_JSON_IGNORE As Long = 61
|
||||
|
||||
' --- フィールド名 (DDLフィールド名→大写) ---
|
||||
Private Const CODE = "CODE"
|
||||
Private Const ITEM_SEQ = "ITEM_SEQ"
|
||||
Private Const ITEM_TITLE = "ITEM_TITLE"
|
||||
Private Const ITEM_NAME = "ITEM_NAME"
|
||||
Private Const IS_DUPLICATE_CHECK_KEY = "IS_DUPLICATE_CHECK_KEY"
|
||||
Private Const DATA_TYPE = "DATA_TYPE"
|
||||
Private Const PRECISION = "PRECISION"
|
||||
Private Const SCALE = "SCALE"
|
||||
Private Const NULLABLE = "NULLABLE"
|
||||
Private Const ENABLE_FORMAT_CHECK = "ENABLE_FORMAT_CHECK"
|
||||
Private Const FORMAT_REGEX = "FORMAT_REGEX"
|
||||
Private Const ENABLE_EXIST_CHECK = "ENABLE_EXIST_CHECK"
|
||||
Private Const ALLOWED_VALUES = "ALLOWED_VALUES"
|
||||
Private Const MASTER_SYBT = "MASTER_SYBT"
|
||||
Private Const ENABLE_RELATION_CHECK = "ENABLE_RELATION_CHECK"
|
||||
Private Const JSON_IGNORE = "JSON_IGNORE"
|
||||
Private Const CMNUSER = "CMNUSER"
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Main: GenerateJukCsvItemDefinition
|
||||
' ============================================================
|
||||
Public Sub GenerateJukCsvItemDefinition()
|
||||
Dim ws As Worksheet
|
||||
Dim outputPath As String
|
||||
Dim sqlLines As String
|
||||
Dim lastRow As Long
|
||||
Dim i As Long
|
||||
Dim sql As String
|
||||
|
||||
On Error Resume Next
|
||||
Set ws = ThisWorkbook.Worksheets(TARGET_SHEET_NAME)
|
||||
On Error GoTo 0
|
||||
|
||||
If ws Is Nothing Then
|
||||
MsgBox "シート [" & TARGET_SHEET_NAME & "] が見つかりません。", vbExclamation
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
lastRow = ws.Cells(ws.Rows.Count, COL_ITEM_TITLE).End(xlUp).Row
|
||||
|
||||
If lastRow < DATA_START_ROW Then
|
||||
MsgBox "データが見つかりません。", vbExclamation
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
sqlLines = ""
|
||||
|
||||
For i = DATA_START_ROW To lastRow
|
||||
sql = GenerateSqlForRow(ws, i)
|
||||
If sql <> "" Then
|
||||
sqlLines = sqlLines & sql & vbCrLf
|
||||
End If
|
||||
Next i
|
||||
|
||||
If sqlLines = "" Then
|
||||
MsgBox "出力するデータがありませんでした。", vbInformation
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
outputPath = ThisWorkbook.Path & "\" & OUTPUT_FILE_NAME
|
||||
|
||||
Call WriteTextFile(outputPath, FormatSql(sqlLines))
|
||||
|
||||
MsgBox "SQLファイルを生成しました:" & vbCrLf & outputPath, vbInformation
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Generate SQL for a single row
|
||||
' IDE表示用: 只需要对value做注释
|
||||
' ============================================================
|
||||
Private Function GenerateSqlForRow(ws As Worksheet, rowNum As Long) As String
|
||||
Dim itemTitle As String
|
||||
Dim itemSeq As Long
|
||||
Dim sqlParts As Variant
|
||||
|
||||
itemTitle = GetCellValue(ws, rowNum, COL_ITEM_TITLE)
|
||||
If itemTitle = "" Then
|
||||
GenerateSqlForRow = ""
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
itemSeq = CLng(GetCellValue(ws, rowNum, COL_ITEM_SEQ))
|
||||
|
||||
sqlParts = Array( _
|
||||
"INSERT INTO sh_csv_item_definition (", _ ' INSERT INTO
|
||||
CODE & ",", _ ' code
|
||||
ITEM_SEQ & ",", _ ' item_seq
|
||||
ITEM_TITLE & ",", _ ' item_title
|
||||
ITEM_NAME & ",", _ ' item_name
|
||||
IS_DUPLICATE_CHECK_KEY & ",", _ ' is_duplicate_check_key
|
||||
DATA_TYPE & ",", _ ' data_type
|
||||
PRECISION & ",", _ ' precision
|
||||
SCALE & ",", _ ' scale
|
||||
NULLABLE & ",", _ ' nullable
|
||||
ENABLE_FORMAT_CHECK & ",", _ ' enable_format_check
|
||||
FORMAT_REGEX & ",", _ ' format_regex
|
||||
ENABLE_EXIST_CHECK & ",", _ ' enable_exist_check
|
||||
ALLOWED_VALUES & ",", _ ' allowed_values
|
||||
MASTER_SYBT & ",", _ ' master_sybt
|
||||
ENABLE_RELATION_CHECK & ",", _ ' enable_relation_check
|
||||
JSON_IGNORE & ",", _ ' json_ignore
|
||||
CMNUSER & ")", _ ' cmnuser
|
||||
") VALUES (", _ ' VALUES
|
||||
GetCode(), _ ' code
|
||||
GetItemSeq(itemSeq), _ ' item_seq
|
||||
SqlString(itemTitle), _ ' item_title
|
||||
GetIsChecked(ws, rowNum, COL_PK), _ ' is_duplicate_check_key
|
||||
SqlString(GetCellValue(ws, rowNum, COL_DATA_TYPE)), _ ' data_type
|
||||
GetNull(), _ ' precision
|
||||
GetNull(), _ ' scale
|
||||
Not GetIsChecked(ws, rowNum, COL_REQUIRED), _ ' nullable
|
||||
GetIsChecked(ws, rowNum, COL_FORMAT_CHECK), _ ' enable_format_check
|
||||
GetEmptyStr(), _ ' format_regex
|
||||
GetIsChecked(ws, rowNum, COL_EXIST_CHECK), _ ' enable_exist_check
|
||||
SqlArrayOrNull(GetCellValue(ws, rowNum, COL_ALLOWED_VALUES)), _ ' allowed_values
|
||||
GetEmptyStr(), _ ' master_sybt
|
||||
GetIsChecked(ws, rowNum, COL_RELATION_CHECK), _ ' enable_relation_check
|
||||
GetIsChecked(ws, rowNum, COL_JSON_IGNORE, True), _ ' json_ignore
|
||||
GetCmnuser()) ' cmnuser
|
||||
|
||||
GenerateSqlForRow = Join(sqlParts, "")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Get code value
|
||||
' ============================================================
|
||||
Private Function GetCode() As String
|
||||
GetCode = "'" & CODE_PREFIX & "', "
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Get item_seq value
|
||||
' ============================================================
|
||||
Private Function GetItemSeq(seq As Long) As String
|
||||
GetItemSeq = seq & ", "
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Get cmnuser value
|
||||
' ============================================================
|
||||
Private Function GetCmnuser() As String
|
||||
GetCmnuser = "'" & DEFAULT_CMNUSER & "'"
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Get NULL value
|
||||
' ============================================================
|
||||
Private Function GetNull() As String
|
||||
GetNull = "NULL, "
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Get empty string value
|
||||
' ============================================================
|
||||
Private Function GetEmptyStr() As String
|
||||
GetEmptyStr = "'', "
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Format: 去掉IDE的换行和缩进，输出1行
|
||||
' ============================================================
|
||||
Private Function FormatSql(sql As String) As String
|
||||
Dim lines As Variant
|
||||
Dim i As Long
|
||||
Dim result As String
|
||||
|
||||
lines = Split(sql, vbCrLf)
|
||||
result = ""
|
||||
|
||||
For i = LBound(lines) To UBound(lines)
|
||||
If Trim(lines(i)) <> "" Then
|
||||
result = result & Trim(lines(i))
|
||||
End If
|
||||
Next i
|
||||
|
||||
FormatSql = result
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Get cell value as string (trimmed)
|
||||
' ============================================================
|
||||
Private Function GetCellValue(ws As Worksheet, rowNum As Long, colNum As Long) As String
|
||||
GetCellValue = Trim(CStr(ws.Cells(rowNum, colNum).Value))
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Check if cell contains "○"
|
||||
' ============================================================
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Boolean to SQL string
|
||||
' ============================================================
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: String to SQL (quoted and escaped)
|
||||
' ============================================================
|
||||
Private Function SqlString(s As String) As String
|
||||
If s = "" Then
|
||||
SqlString = "NULL, "
|
||||
Else
|
||||
SqlString = "'" & Replace(s, "'", "''") & "', "
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Array string to SQL or NULL
|
||||
' ============================================================
|
||||
Private Function SqlArrayOrNull(s As String) As String
|
||||
If s = "" Then
|
||||
SqlArrayOrNull = "NULL, "
|
||||
Else
|
||||
SqlArrayOrNull = "'{" & s & "}', "
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
' ============================================================
|
||||
' Helper: Write text file
|
||||
' ============================================================
|
||||
Private Sub WriteTextFile(filePath As String, content As String)
|
||||
Dim fileNum As Long
|
||||
fileNum = FreeFile
|
||||
Open filePath For Output As #fileNum
|
||||
Print #fileNum, content;
|
||||
Close #fileNum
|
||||
End Sub
|
||||
Reference in New Issue
Block a user