qq_42678477的博客

1. 新建目录 ui2. go mod init ui3. 新建 main.gopackage mainimport ( . "github.com/lxn/walk/declarative")func main() { mw := MainWindow{ Title: "测试窗口", Size: Size{500, 500}, Layout: VBox{MarginsZero: true}, Children: []Widget{ TextLabe.

1. 创建目录xcel_test2. go evn 查询是否开启module管理set GO111MODULE=onset GOPROXY=https://goproxy.cn,direct3. 初始化项目go mod init excel_test4. 创建main.gopackage mainimport "github.com/360EntSecGroup-Skylar/excelize"func main() { f := excelize.NewFile(.

import winregimport osdef get_desktop(): subkey = r'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders' key = winreg.OpenKey(winreg.HKEY_CURRENT_USER, subkey) (value, _) = winreg.QueryValueEx(key, 'Desktop') return value.

import winregkey = winreg.CreateKey(winreg.HKEY_CLASSES_ROOT, 'pyfile')winreg.SetValueEx(key, '', 0, winreg.REG_SZ, 'Python文件')key = winreg.CreateKey(winreg.HKEY_CLASSES_ROOT, '.py')winreg.SetValueEx(key, '', 0, winreg.REG_SZ, 'pyfile')key = winre.

# 测试环境：32位python access database engine 32位# pyodbc文档 https://github.com/mkleehammer/pyodbc/wiki import pyodbc# 驱动程序for x in [x for x in pyodbc.drivers()]: if 'Access' in x and 'accdb' in x: print(x)# 连接Access2013数据库path = r'C:\Users\.

import sysimport osimport tkinter as tkimport tkinter.filedialog as tkfimport xlwings as xwdef getbillfiles(path): list =os.listdir(path) result = [] for i in range(0,len(list)): temp = os.path.join(path,list[i]) if os.pa.

import osimport shutilimport datetimefrom string import Templateimport xlwings as xw# 整个流程测试# 1. 打开报表 (目前仅考虑单工作表）reportSheetdef getreportfilename(reportpath): # 如果模板文件不存在,如何抛出异常 if not os.path.exists(reportpath): raise '报表模板不存在' .

Option ExplicitSub main() Dim xmlfiles, i xmlfiles = GetXmlFiles(ThisWorkbook.path & "\Data\*.xml") If IsEmpty(xmlfiles) Then Exit Sub For i = LBound(xmlfiles) To UBound(xmlfiles) FillBlock xmlfiles(i) Next End Su.

USE DhwcMainGOIF EXISTS (SELECT name from sys.indexes WHERE name = N'SHENG_IDX') DROP INDEX SHENG_IDX ON dbo.SHENG; GO CREATE UNIQUE INDEX SHENG_IDX ON dbo.SHENG(PROVINCE); GO IF EXISTS (SELECT name from sys.indexes .

/// <summary> /// 单Sqlserver数据库配置器 /// </summary> public class SingleSqlServerConfiguration { public SingleSqlServerConfiguration(string appid, string prjid = null,string dbName = null) { //首字母大...

private void button1_Click(object sender, EventArgs e) { if (string.IsNullOrEmpty(txtA.Text) || string.IsNullOrEmpty(txtB.Text)) return; rA.Text = GetDiff(GenDict(txtA.Text), GenDict(txtB.Text)); ...

const http = require('http')const path = require('path')const fs = require('fs')const dir = 'D:/kb'const server = http.createServer()server.on('request', (req, res) => { let url = req.url let filePath = path.join(dir,'index.html') i.

Option ExplicitSub test1() Dim sht Set sht = ActiveSheet Debug.Print GetDataXz(sht)End SubFunction GetDataXz(sht) Dim arr(1 To 8, 1 To 2), i, j, temp1, temp2, content '小组 For i = 1 To 8 arr(i, 1) = "'" & sht.Cells.

Option ExplicitType cwType xh As Integer xz As String cw As String sl As IntegerEnd TypeSub test() Debug.Print GetChaoShiTable(ActiveSheet)End SubFunction GetChaoShiTable(sht) Dim i, cwArr() As cwType, count, j, tableConte.

Option Compare DatabaseOption ExplicitSub Open_Ado_RS_Recordset() Dim rs As ADODB.Recordset, kfml, kfrq Set rs = New ADODB.Recordset rs.ActiveConnection = CurrentProject.Connection rs.CursorType = adOpenKeyset rs.LockType = adL.

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range) Excel.Application.EnableEvents = False Dim sht As Worksheet Set sht = Target.Parent If Target.Row = 1 And Target.Column = 10 Then If Target <> "" Then .

Option Explicit'输出Sub export() Dim sht As Worksheet, sql As String, sht1 As Worksheet, i, shtname, rng Set sht = ThisWorkbook.Worksheets("HZ") sql = "SELECT DISTINCT YF,SP,'' TB FROM CG order by yf,sp" exportdata sht, sql .

Sub Test() Dim sht As Worksheet, scr, content As String, i, arr_acsp_xz(1 To 8), arr_acsp_xz_data(1 To 8), arr_wemzs(1 To 13), arr_wemzs_data(1 To 13), temp Set sht = ThisWorkbook.Worksheets("小组") scr = "<script>" + vbCrLf scr =.

Option ExplicitSub exportdata() Dim sht As Worksheet, conn, rs, i Set sht = ActiveSheet Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset") conn.Open "Provider=sqloledb;server=127.0.0.1,1433\sqlexpres.

private void m2(string fname, string sheetName, DataTable dt, Func<DataTable, DataTable> dealer = null) { if (null != dealer) dt = dealer(dt); //string sheetName = "Data1"; using (...