HF软件技术园
Markdown简明教程 写文章赚钱 关于本站 登录 注册
首页 > 计算机技术 > 后端开发 > Nim

POS-ERP零售系统集成安装程序的完整实现代码

原创 lihf8515 2025年02月16日 12:54
来源:本站 阅读:551

一、缘起

由于笔者所在公司的POS-ERP零售系统是第三方软件公司开发，后来由于市场环境和信息技术的更新，后期添加了很多的补丁。这种情况下，若是业务电脑系统损坏，重新安装系统，那么这个POS-ERP零售系统安装起来就非常麻烦，没有一定的计算机技术知识，还真没办法完成。

为此，笔者开发了《POS-ERP零售系统集成安装程序》和《POS-ERP零售系统配置管理器》。

二、项目简介

1、目标：开发《POS-ERP零售系统配置管理器》和《POS-ERP零售系统集成安装程序》打包集成相关补丁，方便安装维护，节省大量人力。

2、主要集成完整程序和相关补丁（POS-ERP零售系统配置管理器、.NET1.1框架、读写卡器的链接库、机构树补丁、无法创建挂勾补丁、设计器登录报system.net.dns错误补丁）。

3、《POS-ERP零售系统配置管理器》可根据需要重新配置所需要公司配置信息，方便了维护。

其中，《POS-ERP零售系统配置管理器》使用Nim语言开发实现，由此可见Nim语言的强大和快捷。《POS-ERP零售系统集成安装程序》使用Inno Setup打包实现。

三、完整实现代码

1、POS-ERP零售系统配置管理器

import wNim/[wApp, wFrame, wPanel, wImage, wStaticText, wCombobox, wButton, wPaintDc, wIcon]
import wNim/private/winimx
import std/[strutils, os]
import parseini

{.link:"res/app.res".}

const style = wAlignCentre or wAlignMiddle

let app = App(wSystemDpiAware)
const logo = staticRead(r"res/hlogo.bmp")
let image = Image(logo)
let wndSize = (image.width, 260)
let mainFrame* = Frame(title="集团POS-ERP零售系统配置管理器", size=wndSize, style=wDefaultDialogStyle or wStayOnTop)
mainFrame.icon = Icon("", 0)

let panel = Panel(mainFrame)
let textCompany = StaticText(panel, label="要登录的公司", style=style)
let textCopyright = StaticText(panel, label="宿州公司信息技术部 李** 2017-2024", style=style)
let buttonOk = Button(panel, label="确定")
let comboboxCompany = Combobox(panel, value="", choices=[], style=wCbDropDown or wCbReadOnly)

proc layout() =
  panel.layout:
    comboboxCompany:
      centerX == panel.centerX
      centerY == panel.centerY
      WEAK:
        width == panel.width / 3
        height == textCompany.height
      STRONG:
        width <= 200
        height <= 100

    textCompany:
      height == comboboxCompany.height
      top == comboboxCompany.top
      right + 8 == comboboxCompany.left

    buttonOk:
      width == 80
      height == comboboxCompany.height
      top == comboboxCompany.top
      left == comboboxCompany.right + 8

    textCopyright:
      left == textCompany.left
      right == buttonOk.right
      top == panel.bottom - textCompany.height - 10

proc initData() =
  let cfg = loadConfig(getAppDir() / "config.ini")
  let names: seq[string] = split(cfg.get("company","name"), ",")
  for index,item in names:
    comboboxCompany.append(item)

panel.wEvent_Paint do (event: wEvent):
  var dc = PaintDC(panel)
  dc.drawImage(image)

buttonOk.wEvent_Button do ():
  let selectedText = comboboxCompany.getValue()
  if selectedText=="":
    MessageBox(mainFrame.getHandle(), "请选择您所属的公司", "系统提示", MB_OK or MB_ICONWARNING)
  else:
    try:
      copyFile(getAppDir() / "connect" / $selectedText & ".xml", "C:\\Congou\\myshop\\bin\\connect.xml")
      copyFile(getAppDir() / "tnsnames" / $selectedText & ".ora", "C:\\Congou\\OracleClient\\NETWORK\\ADMIN\\tnsnames.ora")
      MessageBox(mainFrame.getHandle(), "配置成功！\n你现在可以登录" & $selectedText & "的POS-ERP零售系统了！", "系统提示", MB_OK or MB_ICONINFORMATION)
    except OSError:
      MessageBox(mainFrame.getHandle(), getCurrentExceptionMsg(), "系统提示", MB_OK or MB_ICONSTOP)

layout()
initData()
mainFrame.center()
mainFrame.show()

app.mainLoop()

2、POS-ERP零售系统集成安装程序

; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！

[Setup]
AppName=集团POS-ERP零售系统集成安装包7.0
AppVerName=集团POS-ERP零售系统集成安装包7.0
VersionInfoVersion=7.0
AppCopyright=Copyright (C) 2017-2024
AppPublisher=信息技术部 李**
AppPublisherURL=http://www.wxm.com/
AppSupportURL=http://www.wxm.com/
AppUpdatesURL=http://www.wxm.com/
DisableDirPage=yes
DefaultDirName=C:\Congou
DefaultGroupName=集团POS-ERP零售系统
DisableProgramGroupPage=yes
LicenseFile=D:\集团POS-ERP零售系统集成安装包源文件\Congou\lhf\readme.txt
OutputDir=D:\
OutputBaseFilename=集团POS-ERP零售系统集成安装包7.0
Compression=lzma
SolidCompression=yes
WizardImageFile=D:\集团POS-ERP零售系统集成安装包源文件\WizModernImage-IS.bmp
WizardSmallImageFile=D:\集团POS-ERP零售系统集成安装包源文件\wxm.bmp
;no为不重启Yes为重启
AlwaysRestart=no
ChangesEnvironment=true

[Languages]
Name: "chinese"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone
Name: modifypath; Description: &添加正常运行必须的环境变量; Flags: checkablealone

[Files]
Source: "D:\集团POS-ERP零售系统集成安装包源文件\Congou\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\集团POS-ERP零售系统集成安装包源文件\Congou\OracleClient\bin\OraOLEDB11.dll"; DestDir: "{app}\OracleClient\bin"; Flags:ignoreversion regserver
Source: "D:\集团POS-ERP零售系统集成安装包源文件\sp\*"; DestDir: "{tmp}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\集团POS-ERP零售系统集成安装包源文件\mywinsock_dns.reg"; DestDir: "{tmp}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\集团POS-ERP零售系统集成安装包源文件\mywinsock2_dns.reg"; DestDir: "{tmp}"; Flags: ignoreversion recursesubdirs createallsubdirs
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[INI]
Filename: "{app}\wxm.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.hfsoft.top/"

[Icons]
Name: "{userdesktop}\集团POS-ERP零售系统"; Filename: "{app}\myshop\bin\mySHOP.exe"; Tasks: desktopicon ;WorkingDir: "{app}"
Name: "{group}\集团POS-ERP零售系统"; Filename: "{app}\myshop\bin\mySHOP.exe" ;WorkingDir: "{app}"
Name: "{group}\集团POS-ERP零售系统配置管理器"; Filename: "{app}\lhf\congouconfig.exe" ;WorkingDir: "{app}"
Name: "{group}\{cm:ProgramOnTheWeb,访问集团官网}"; Filename: "http://www.hfsoft.top";
Name: "{group}\{cm:UninstallProgram, 集团POS-ERP零售系统}"; Filename: "{uninstallexe}";

[UninstallDelete]
Type: files; Name: "{app}\wxm.url"

[Messages]
BeveledLabel=信息技术部 李**

[Run]
;用来指定程序完成安装后、在安装程序显示最终对话框之前要执行的程序。
Filename: {tmp}\dotnetfx1.1.exe; Parameters: "/Q:U /C:""install /L /QB"""; Check:IsNeedInstall; Flags:runhidden; WorkingDir: {tmp}; StatusMsg: 正在安装 Microsoft.NET1.1运行环境 请稍候...
Filename: {tmp}\langpack.exe; Parameters: "/Q:U /C:""inst /L /QB"""; Check:IsNeedInstall; Flags:runhidden; WorkingDir: {tmp}; StatusMsg: 正在安装 Microsoft.NET1.1运行环境中文语言包 请稍候...
Filename: {tmp}\NDP1.1sp1-KB867460-X86.exe; Parameters: "/I /Q"; Flags:runhidden; WorkingDir: {tmp}; StatusMsg: 正在安装 NDP1.1sp1-KB867460-X86 请稍候...
Filename: {tmp}\ndp1.1sp1-kb925168-x86.exe; Parameters: "/I /Q"; Flags:runhidden; WorkingDir: {tmp}; StatusMsg: 正在安装 ndp1.1sp1-kb925168-x86 请稍候...
Filename: "regedit.exe"; Parameters: "/s {tmp}\mywinsock_dns.reg"; Flags:runhidden; WorkingDir: {tmp}; StatusMsg: 正在写入 winsock注册表 请稍候...
Filename: "regedit.exe"; Parameters: "/s {tmp}\mywinsock2_dns.reg"; Flags:runhidden; WorkingDir: {tmp}; StatusMsg: 正在写入 winsock2注册表 请稍候...
Filename: {app}\lhf\congouconfig.exe; Description: &运行集团POS-ERP零售系统配置管理器; Flags: postinstall;

[Registry]
Root: HKLM; SubKey: SOFTWARE\ORACLE; ValueType: string; ValueName: ORACLE_HOME; ValueData: c:\congou\oracleclient
Root: HKLM; SubKey: SOFTWARE\ORACLE\KEY_OraDb11g_home1; ValueType: string; ValueName: ORACLE_HOME; ValueData: c:\congou\oracleclient
Root: HKLM; SubKey: SOFTWARE\ORACLE\KEY_OraDb11g_home1; ValueType: string; ValueName: ORACLE_HOME_NAME; ValueData: OraDb11g_home1
Root: HKLM; SubKey: SOFTWARE\ORACLE\KEY_OraDb11g_home1; ValueType: string; ValueName: ORACLE_HOME_KEY; ValueData: SOFTWARE\ORACLE\KEY_OraDb11g_home1
Root: HKLM; SubKey: SOFTWARE\ORACLE\KEY_OraDb11g_home1; ValueType: string; ValueName: NLS_LANG; ValueData: SIMPLIFIED CHINESE_CHINA.ZHS16GBK

[Code]
//*****************************************************************************************************
//检测并安装.Net 1.1

function IsNeedInstall():Boolean;
 begin
   if RegKeyExists(HKLM, 'Software\Microsoft\.NETFramework\policy\v1.1') then
   begin
   Result := false;
   end
   else
   Result := true;
 end;
//*****************************************************************************************************
//修改环境变量
const
			ModPathName = 'modifypath';
			ModPathType = 'system';

		function ModPathDir(): TArrayOfString;
		begin
			setArrayLength(Result, 1);
			Result[0] := ExpandConstant('{app}\OracleClient\bin');
		end;

//******
procedure ModPath();
var
	oldpath:	String;
	newpath:	String;
	updatepath:	Boolean;
	pathArr:	TArrayOfString;
	aExecFile:	String;
	aExecArr:	TArrayOfString;
	i, d:		Integer;
	pathdir:	TArrayOfString;
	regroot:	Integer;
	regpath:	String;

begin
	// Get constants from main script and adjust behavior accordingly
	// ModPathType MUST be 'system' or 'user'; force 'user' if invalid
	if ModPathType = 'system' then
  begin
		regroot := HKEY_LOCAL_MACHINE;
		regpath := 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment';
	end
  else
  begin
		regroot := HKEY_CURRENT_USER;
		regpath := 'Environment';
	end;

	// Get array of new directories and act on each individually
	pathdir := ModPathDir();
	for d := 0 to GetArrayLength(pathdir)-1 do
  begin
		updatepath := true;

		// Modify WinNT path
		if UsingWinNT() = true then
    begin

			// Get current path, split into an array
			RegQueryStringValue(regroot, regpath, 'Path', oldpath);
			oldpath := oldpath + ';';
			i := 0;

			while (Pos(';', oldpath) > 0) do
      begin
				SetArrayLength(pathArr, i+1);
				pathArr[i] := Copy(oldpath, 0, Pos(';', oldpath)-1);
				oldpath := Copy(oldpath, Pos(';', oldpath)+1, Length(oldpath));
				i := i + 1;

				// Check if current directory matches app dir
				if pathdir[d] = pathArr[i-1] then
        begin
					// if uninstalling, remove dir from path
					if IsUninstaller() = true then
          begin
						continue;
					end
					// if installing, flag that dir already exists in path
          else
          begin
						updatepath := false;
					end;
				end;

				// Add current directory to new path
				if i = 1 then
        begin
          newpath := pathArr[i-1];
				end
        else
        begin
          newpath := newpath + ';' + pathArr[i-1];
				end;
			end;

			// Append app dir to path if not already included
			if (IsUninstaller() = false) AND (updatepath = true) then
				newpath := newpath + ';' + pathdir[d];

			// Write new path
			RegWriteStringValue(regroot, regpath, 'Path', newpath);

		end
    else
		// Modify Win9x path
    begin

			// Convert to shortened dirname
			pathdir[d] := GetShortName(pathdir[d]);

			// If autoexec.bat exists, check if app dir already exists in path
			aExecFile := 'C:\AUTOEXEC.BAT';
			if FileExists(aExecFile) then
      begin
				LoadStringsFromFile(aExecFile, aExecArr);
				for i := 0 to GetArrayLength(aExecArr)-1 do
        begin
					if IsUninstaller() = false then
          begin
						// If app dir already exists while installing, skip add
						if (Pos(pathdir[d], aExecArr[i]) > 0) then
							updatepath := false;
							break;
					end
          else
          begin
						// If app dir exists and = what we originally set, then delete at uninstall
						if aExecArr[i] = 'SET PATH=%PATH%;' + pathdir[d] then
							aExecArr[i] := '';
					end;
				end;
			end;

			// If app dir not found, or autoexec.bat didn't exist, then (create and) append to current path
			if (IsUninstaller() = false) AND (updatepath = true) then
      begin
				SaveStringToFile(aExecFile, #13#10 + 'SET PATH=%PATH%;' + pathdir[d], True);

			// If uninstalling, write the full autoexec out
			end
      else
      begin
				SaveStringsToFile(aExecFile, aExecArr, False);
			end;
		end;
	end;

	// Write file to flag modifypath was selected
	// Workaround since IsTaskSelected() cannot be called at uninstall and AppName and AppId cannot be "read" in Code section
	if IsUninstaller() = false then
		SaveStringToFile(ExpandConstant('{app}') + '\uninsTasks.txt', WizardSelectedTasks(False), False);
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
	taskname:	String;
begin
	taskname := ModPathName;
	if CurStep = ssPostInstall then
		if IsTaskSelected(taskname) then
			ModPath();
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
	appdir:			String;
	//aSelectedTasks:	TArrayOfString;
	aSelectedTasks:String;
	//i:				Integer;
	taskname:		String;
begin
	taskname := ModPathName;
	appdir := ExpandConstant('{app}')
	if CurUninstallStep = usUninstall then
  begin
		if LoadStringFromFile(appdir + '\uninsTasks.txt', aSelectedTasks) then
		begin
		  if ( pos(taskname,aSelectedTasks) > 0 ) then ModPath();
		end;
		DeleteFile(appdir + '\uninsTasks.txt');
		//删除 {app} 文件夹及其中所有文件
    DelTree(appdir, True, True, True);
	end;
end;

//*****************************************************************************************************
//初始化向导
procedure InitializeWizard();
begin
  WizardForm.LICENSEACCEPTEDRADIO.Checked := true;
end;
上一篇：B/S架构POS客户端开发之三-本地打印程序的实现
下一篇：Manjaro xfce官方版本更换桌面为LXQT桌面环境的方法
作者
主页：https://www.hfsoft.top/lhf
昵称：君子如兰
注册时间：2025-01-31 02:47:34
最近更新：2026-01-24 17:01:06
文章总数：94篇
原创 88篇   转载 6篇
相关文章
Nim语言标准库parsecfg对ini配置文件的读写删除操作使用方法
POS-ERP零售系统集成安装程序的完整实现代码
Nim语言原生实现微信支付SDK
Nim语言使用parseini高效读写ini文件
B/S架构POS客户端开发之三-本地打印程序的实现
Nim语言的Web全栈开发框架Prologue简单用法
B/S架构POS客户端开发之二-本地Web打印代理服务的实现
阅读排行榜
Nim语言标准库parsecfg对ini配置文件的读写删除操作使用方法
什么是Linux
轻量化代码高亮插件Prism使用方法
前端开发中的十款富文本编辑器
HTML中如何使图片和文字在同一行水平和垂直居中
js实现重复指定字符n次
论需求分析获取技术及应用-系统分析师论文
交换机trunk和access区别
计算机网络的七层模型OSI模型
开源富文本编辑器Quill的图片怎么上传到服务器
解决github无法访问的问题
PHP自定义返回给前端JSON数据的方法
PHP语言判断是否是日期、时间、周日、真值
MySQL查询今天、昨天、7天、30天、本月、上一月数据
为什么富文本编辑器Quill前端显示和后台编辑器中不一致，甚至没有效果
论信息系统开发方法及应用-系统分析师论文
vscode中的sftp插件如何配置
佳能打印机G2810 P07清零方法
highlight.js代码高亮插件的基本用法
论信息系统规划及应用-系统分析师论文
友情链接： 海峰收银系统  
Copyright © 2025 hfsoft.top All Rights Reserved.
中华人民共和国工业和信息化部ICP备案序号：皖ICP备2025073039号
皖公网安备34130202000765号