Excel・Access・桐 muramoto1041

## menu_form.html
<!DOCTYPE html>
<html lang="ja">
<head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>補助処理メニュー</title>
    <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css" rel="stylesheet">
    <style>
        body {
            background-color: #f8f9fa;

## Bari桐Start_v101.kex
名札    メイン
変数削除 共通
ライブラリ "C_共通処理.cmx"
手続き実行 p_共通変数宣言()
＊

手続き定義開始　フォーム::フォーム開始(長整数　&表番号)

手続き定義終了

## Bari桐Start_v100.kex
名札    メイン
ライブラリ "C_共通処理.cmx"
手続き実行 p_共通変数宣言()
＊

手続き定義開始　フォーム::フォーム開始(長整数　&表番号)

手続き定義終了

手続き定義開始　フォーム::フォーム終了()

## RasPi_Pico_LED.py
from machine import Pin # 入出力モジュールを準備
import utime  			# タイマーモジュールを準備

led = machine.Pin("LED", machine.Pin.OUT)  # LED端子をLedとして出力に設定
while True:  # ずっと繰り返し
    led.value(1)      	# LEDを点灯
    utime.sleep(0.5)  	# 0.5秒待つ
    led.value(0)      	# LEDを消灯
    utime.sleep(0.5)  	# 0.5秒待つ

## ランチャー_v100.vbs
'Ver 1.00 2021/07/24 デスクトップに置いて、サクサク使えるメニューを作成する。
'
'[処理]
' ファイル名/Exeファイル/URL/ショートカットを開く
'
'[使い方]
' このファイル(ランチャー.vbs)をデスクトップに置く
'
'[注意]
' エンコードは、ANSI(Shift JIS)で保存すること。

## 画面設定.vba
Sub メニュー()
  On Error GoTo subError
  Dim wMenu  As String

  wMenu = "項目の追加,項目位置を保存,フォーム画面表示"

  n = f_メニュー("タイトル", wMenu, "選択してください", 0)
  If n = 0 Then Exit Sub
  '--- Exit ---


## Get_NewID.aspx.vb
Protected Sub S_GetID(qTBL As String)
        'Azure
        Dim strSQL As String
        Dim cnnStr As String = ConfigurationManager.AppSettings("apps_BariSpDT_Kava")
        Dim cnn As SqlConnection = New SqlConnection(cnnStr)
        Dim sqlcmdSelect As SqlCommand = New SqlCommand()
        Dim adpt As SqlDataAdapter = New SqlDataAdapter()
        Dim dsDataSet As DataSet = New DataSet

        sIDNew = 0

## f_Menu.vba
'****************************************************************
'作成日：2020/06/01
'                             Fy_メニュー
'作成者：村本俊和
'****************************************************************
Option Explicit
'System
Dim sMsg   As Integer
Dim sWhere As String
'Procedure

## Excel_LowCode_YUGE.vba
'
' 日本語ローコードYUGE Ver1.19
' (注意)変更しないでください。
' https://excel-databace.hatenablog.com/entry/yuge-help
'
'Ver 1.17  2020/11/16  タイマー機能追加
'    1.18  2020/11/25  ユーザーマクロに説明追加/年月範囲追加/印刷ダイアログ
'    1.19  2020/12/25  テーブル作成/解除
'
Option Explicit

## excel_2.vba
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _


ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _

ByVal nDEvent As Long) As Long
	<!DOCTYPE html>
	<html lang="ja">
	<head>
	<meta charset="UTF-8">
	<meta name="viewport" content="width=device-width, initial-scale=1.0">
	<title>補助処理メニュー</title>
	<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css" rel="stylesheet">
	<style>
	body {
	background-color: #f8f9fa;
	名札メイン
	変数削除共通
	ライブラリ "C_共通処理.cmx"
	手続き実行 p_共通変数宣言()
	＊

	手続き定義開始　フォーム::フォーム開始(長整数　&表番号)

	手続き定義終了
	from machine import Pin # 入出力モジュールを準備
	import utime # タイマーモジュールを準備

	led = machine.Pin("LED", machine.Pin.OUT) # LED端子をLedとして出力に設定
	while True: # ずっと繰り返し
	led.value(1) # LEDを点灯
	utime.sleep(0.5) # 0.5秒待つ
	led.value(0) # LEDを消灯
	utime.sleep(0.5) # 0.5秒待つ
	'Ver 1.00 2021/07/24 デスクトップに置いて、サクサク使えるメニューを作成する。
	'
	'[処理]
	' ファイル名/Exeファイル/URL/ショートカットを開く
	'
	'[使い方]
	' このファイル(ランチャー.vbs)をデスクトップに置く
	'
	'[注意]
	' エンコードは、ANSI(Shift JIS)で保存すること。
	Sub メニュー()
	On Error GoTo subError
	Dim wMenu As String

	wMenu = "項目の追加,項目位置を保存,フォーム画面表示"

	n = f_メニュー("タイトル", wMenu, "選択してください", 0)
	If n = 0 Then Exit Sub
	'--- Exit ---
	Protected Sub S_GetID(qTBL As String)
	'Azure
	Dim strSQL As String
	Dim cnnStr As String = ConfigurationManager.AppSettings("apps_BariSpDT_Kava")
	Dim cnn As SqlConnection = New SqlConnection(cnnStr)
	Dim sqlcmdSelect As SqlCommand = New SqlCommand()
	Dim adpt As SqlDataAdapter = New SqlDataAdapter()
	Dim dsDataSet As DataSet = New DataSet

	sIDNew = 0
	'****************************************************************
	'作成日：2020/06/01
	' Fy_メニュー
	'作成者：村本俊和
	'****************************************************************
	Option Explicit
	'System
	Dim sMsg As Integer
	Dim sWhere As String
	'Procedure
	'
	' 日本語ローコードYUGE Ver1.19
	' (注意)変更しないでください。
	' https://excel-databace.hatenablog.com/entry/yuge-help
	'
	'Ver 1.17 2020/11/16 タイマー機能追加
	' 1.18 2020/11/25 ユーザーマクロに説明追加/年月範囲追加/印刷ダイアログ
	' 1.19 2020/12/25 テーブル作成/解除
	'
	Option Explicit
	Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _


	ByVal nIDEvent As Long, _
	ByVal uElapse As Long, _
	ByVal lpTimerFunc As LongPtr) As Long

	Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _

	ByVal nDEvent As Long) As Long