分类目录归档:技术

npm 学习笔记

npm[1] 是 JavaScript 包管理工具,它类似 Java 中的 Maven , Gradle , Python 中的 pip 。

npm 随着 Node.js 一起发布,在安装 Node.js 的时候,npm 也会随着 Node.js 的安装一起安装到电脑上。 npm 作为一个包管理工具,其自身更新比较频繁,它的最新版本也可以独立进行更新。

# 在终端执行下面的命令即可更新到 npm 的最新版本
npm install npm@latest -g

npm 安装一个包都命令是 npm install package_name , 执行此命令后,会在当前目录安装 package_name 包,并创建一个 node_modules 的目录,下载要安装的包到这个目录中。

npm 是通过 package.json 这个文件管理包到,通过这个文件对包的信息进行定义,以便在团队协作的时候对包的使用上统一一致。使用 npm install 命令安装的是包的最新版本,我们日常在进行的项目实际上不一定总是使用最新的版本,这时候同样可以通过对 package.json 文件进行配置获取指定版本的包。

一个 package.json 至少要包括包名和版本信息。

{
    "name" : "package_name",
    "version" : "1.0.0"
}

如何创建一个 package.json 文件呢? 答案是使用 npm init 命令,然后逐一回答问题即可完成创建。如果不想回答问题,可以使用 npm init –yes 命令创建默认的 package.json ,然后再修改之。

{
    "name" : "npm",
    "version" : "1.0.0",
    "description" : "",
    "main" : "index.js",
    "scripts" : {
        "test" : "echo \\"Error: no test specified\\" && exit 1"
    },
    "keywords" : [],
    "author" : "",
    "license" : "ISC"
}

以上就是默认创建的文件。要安装包,就要有下载的地址,同样也可以在 package.json 中用字段 repository 指定。

{
    "type" : "git",
    "url" : "https://github.com/example/package_name.git"
}

还有一些其他的字段可供设置,比如主页地址,作者邮件等等。一个包的 name 命名有一定的规范,包名需要使用小写字母,不允许有空格,可以使用下划线和横线。对于常用不太变化的字段值,可进行初始化设置,这样就不用每次都输入这些信息了。

# 初始化设定作者 email
npm set init.author.email "author@example.com"
# 初始化设定作者姓名
npm set init.author.name "Eric"
# 初始化设定许可协议
npm set init.license "MIT"

在使用 npm install 命令安装包的时候,会读取 package.json 文件来安装模块。模块在有时候有两种类型,一种是面向生产环境的,另一种是面向开发环境的,这时候可通过在命令后面添加 --save--save-dev 参数指定安装。

如果要更新包,使用 npm update 命令,卸载包用 npm uninstall package_name ,如果卸载的同时想要一并删除 package.json 文件,添加参数 --save

# 卸载 package_name 包,并删除 package.json 文件
npm uninstall --save package_name

上面说了,在默认情况下,包安装命令会将包安装在当前目录下,这只能在当前目录下使用。如果要使用一些全局的包,在安装的时候可以添加 -g 参数来安装,同理更新也是如此,卸载一个全局包也是如此。

# 安装 package_name 包为全局包
npm install -g package_name
# 更新全局包
npm update -g
# 卸载全局包
npm uninstall -g package_name

如果想知道当前都有哪些包需要更新,可以使用下面的命令查看。

# 查看哪些全局包需要更新
npm outdated -g --depth=0

包(package)是一个被 package.json 文件描述的文件或目录。模块(modules)是可以被 Node.js 引用的文件或目录。一个 Node.js 模块就是一个可以发布到 npm ,供其他开发者使用的模块。

如何创建一个 Node.js 模块呢?

  • 创建一个 package.json 文件,将模块信息添加到文件中;
  • 创建一个模块被引入就加载的文件,即 main 字段中指定的文件,默认为 index.js ,在此文件中将一个函数值赋给 exports 模块。
exports.printMsg = function() {
    console.log("This is a message from the first package.")
}

npm 的配置文件是 npmrc,项目级别的在项目所在目录下 .npmrc , 用户级别的在 ~/.npmrc , 全局的在 /etc/npmrc , 内置的配置文件在 npm 安装目录下。配置信息的优先级别为命令行参数级别最高,其次是环境变量 PATH ,再次是这些配置文件,要查看 npm 的配置信息,执行如下命令即可。

npm config list -l

默认下载包的源来自 npm 官网,如果感觉下载速度不理想,我们可以配置一些国内的镜像站点来加快下载速度。

我们可以在安装包的时候指定镜像源,也可以写到配置文件中。

# 在安装的时候指定「淘宝镜像」
npm install express --registr=https://registry.npmmirror.com
# 写到配置文件中
npm config set registry <https://registry.npmmirror.com>

# 查看配置是否成功
npm config get registry # npm info express 也可以

对于 npm 的学习暂时先告一段落,可能很长一段时间只是处于使用 npm 的阶段,了解以上的内容基本上应该可以开始使用了,使用中遇到问题随时查阅帮助解决即可。我看还涉及到发布自己的包等内容,这就是 long long after 以后的事情了。


本文中引用的资源
1:npm 的官方网站是:https://www.npmjs.com/

在 Ubuntu 20.04 LTS 上安装 SSL 证书

今天抽时间给自己的几个网站加上了 SSL 证书,SSL 证书是从腾讯云上申请的免费 SSL 证书,有效期为一年,从申请到配置比较顺利。

申请&下载

登录到腾讯云[1]上,搜索产品 SSL,找到 SSL 证书产品[2],进入该产品首页,也就是你的 SSL 证书概览,在这里左边是导航菜单,中间的内容区会显示证书申请状态和监控状态等概览信息,右边则是一些帮助信息,如下图所示。

在左边导航菜单中选择「我的证书」,会显示当前你申请的所有的证书,在中间功能按钮区选择「申请免费证书」按钮,如下图中红色箭头所指的按钮,即可开始进行免费证书的申请。

首先在弹出的页面上选择证书类型,免费版的目前只有一个,可以看到有效期只有一年,直接确定就行。

接下来是第一步提交材料,需要填写一些信息,要提交的资料主要是证书要绑定的域名以及申请邮箱,填写对应的信息即可,然后进入第二步「选择验证方式」。

第二步选择验证方式主要是验证你之前填写的绑定证书的域名是你的,使用推荐的「DNS验证」即可,选择下一步按钮进入第三步「验证域名」。

第三步验证域名需要你在你的域名中添加一条解析记录,在你的域名托管平台中找到你要绑定证书的域名,然后在域名解析中添加一条 CNAME 的解析记录,在解析记录中对应填写下图中的「主机记录」和「记录值」,解析记录添加完毕后,选择「查看域名验证状态」看看是否完成验证,如果完成验证,剩下就是等待证书的签发,基本上不到 1 分钟就能拿到发放的证书了。

这时候通过左边导航菜单回到「我的证书」菜单,如果上面操作无误,就能看到自己的证书了,在「我的证书」中签发下来的证书上选择「下载」,弹出如下图所示的页面。证书下来后我们需要安装到服务器上,所以我们可以先按照我们的服务器类型把证书下载下来,到这里我们的证书就已经申请完毕了,剩下的就是把下载的证书安装到服务器上。

上传&安装

我的服务器系统是 Ubuntu 20.04 ,Web 服务器软件使用的是 Apache ,所以在下载证书的时候选择服务器类型为 Apache 类型的下载,下载后解压缩,有四个文件,我们以申请证书的域名是 example.com 举例来说(在实际使用时将域名替换为自己到域名即可),那这四个文件分别是:

  • root_bundle.crt 证书文件
  • example.com.crt 证书文件
  • example.com.key 私钥文件
  • example.com.csr 系统在线生产文件,这个安装的时候不用

将证书文件和私钥文件拷贝到服务器上一个目录中,我是拷贝到了 /etc/apache2/ssl/example.com/ 这个目录下面,可以使用 scp 命令进行拷贝,也可以使用 scp 工具拷贝。

拷贝完成后,用 SSH 远程登录服务器,在虚拟主机配置文件中添加证书信息,比如在 /etc/apache2/sites-available 目录中,找到要配置 SSL 站点的配置文件,例如:example.com ,则对应到该目录下的 example.com.conf 文件,将配置信息修改为如下信息即可。

<VirtualHost *:443> 
	ServerAdmin admin@example.com 
	ServerName example.com 
	ServerAlias www.example.com 
	DocumentRoot /var/www/html/example.com/public_html/ 
	DirectoryIndex index.html 
	
	# SSL configuration 
	SSLEngine On 
	SSLCertificateFile /etc/apache2/ssl/example.com/example.com.crt 
	SSLCertificateKeyFile /etc/apache2/ssl/example.com/example.com.key
	SSLCACertificateFile /etc/apache2/ssl/example.com/root_bundle.crt 
	
	# Log files 
	ErrorLog /var/www/html/example.com/log/error.log 
	CustomLog /var/www/html/example.com/log/access.log combined 
</VirtualHost>

<VirtualHost *:80> 
	ServerName example.com 
	ServerAlias www.example.com 
	Redirect permanent / https://example.com/ 
</VirtualHost>

完成站点配置文件修改后, 在命令行运行 a2enmod ssla2ensite example.com 启用这个修改后的配置,紧接着 service apache2 restart 重启 Apache 服务器,这样证书就安装完了,再访问网站时域名前就能看见小锁了。


本文中引用的资源:

1: 腾讯云:https://cloud.tencent.com/
2: 腾讯云 SSL 证书产品:https://console.cloud.tencent.com/certoverview

– EOF –

Delphi 7 操作 MySQL 数据库一例

Delphi 7 在现在生产环境中的开发基本已经绝迹,所剩不多的人员也主要用于旧系统的维护与小功能的升级,还有很少的一部分人沿用旧有的技能线升级到 XE 等后续版本继续完成日常的开发工作。更多的系统要么升级到了 .NET 体系 ,要么就是用了 Java 体系。但不可否认的是在 Windows 桌面软件的开发的某些场合中,其实用它还是蛮快的。

一个项目最初的需求跟数据库毫无关系,在考虑需求的基础上选择了 Delphi 7 ,这样发布一个独立的可执行程序,依赖很少,使用比较方便,但需求总是变化的,有了使用数据库的需求,把单机的应用变成了一个网络的应用,以往在 Windows 系统上一般用微软自家的 SQL Server 多一些,但现在机器上没有,MySQL 倒是现成的,于是决定用它了。

Delphi 7 开发的快速性在于其基于组件的丰富性,在早期好像用过 MySQL,用的是基于 ODBC 的 MySQL 驱动,但相当不好用,具体不好用的细节倒是忘记了,想着这么些年过去了,有没有与时俱进的组件呢,搜了一下还真发现了一个,名称是 ZeosLib ,看介绍挺强大,几乎支持所有的数据库,用了一下除了有一点通常都会出现的编码的坑之外还不错,把基本的使用做个记录归档以便以后使用。

具体的操作系统是 Windows 10 家庭中文版,版本号是 20H2,操作系统内部版本是 19042.928,用的数据库是 MySQL Community Server 8.0.17 for Win64 on x86_64 。

我用的是 ZeosLib 是 7.2.10,可通过网址 https://sourceforge.net/projects/zeoslib/ 下载获得。

1. 组件的安装

这里只说 Delphi 7 的安装,下载组件压缩文件后解压缩 zeosdbo-7.2.10-stable.zip ,解压缩后的目录下有三个文件夹和两个文件,在其中的找到 packages 文件夹,进入该文件夹后找到 delphi7 文件夹进入,鼠标左键双击 ZeosDbo.bpg 文件,在 Delphi 7 打开后选择菜单栏 Project 中的 Compile All Projects 菜单项,编译完成后选择 OK 按钮。在 Library Path 中增加该组件的路径,路径指向 delphi7 文件夹下的 build 文件夹。在 delphi7 文件夹中找到 ZComponentDesign.dpk 文件,鼠标双击打开,选择 install ,这样组件就会安装好了。

2. 数据库的访问与操作

MySQL 数据库的安装就不再详述了,在 Windows 系统上安装也比较简单,通常一路「下一步」即可安装完毕。我们这里写一个简单的登录示例,成功登录后记录一条登录信息,大概梳理一下流程。

1. 用户打开程序;
  1.1. 如果发现没有数据库配置信息,启动数据库配置界面;
  1.2 如果有数据库配置信息,启动用户登录界面;
2. 用户完成数据库连接配置
	……
3. 用户完成登录
	……
4. 记录登录信息

数据库的准备工作

# 数据库脚本

# 创建 examples 数据库
CREATE DATABASE IF NOT EXISTS `examples` 
DEFAULT CHARACTER SET utf8mb4 COLLATE utf8mb4_general_ci;

# 创建用户数据表
CREATE TABLE `users` (
  `id` int(11) UNSIGNED NOT NULL AUTO_INCREMENT,
  `loginname` varchar(50) COLLATE utf8mb4_general_ci NOT NULL,
  `pwd` varchar(255) COLLATE utf8mb4_general_ci NOT NULL,
  `isadmin` tinyint(1) NOT NULL DEFAuLT '0',
  PRIMARY KEY(`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_general_ci;

# 创建用户登录信息表
CREATE TABLE `user_logins` (
  `id` int(11) UNSIGNED NOT NULL AUTO_INCREMENT,
  `user_id` int(11) NOT NULL,
  `login_desc` varchar(150) COLLATE utf8mb4_general_ci NOT NULL,
  `login_time` datetime NOT NULL,
  PRIMARY KEY(`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_general_ci;

在 Delphi 7 中新建一个 Application ,再添加一个 Data Module 和两个 Form,将 Data Module 命名为 DataBox,将 Application 自带的 Form 和添加的两个 Form 分别命名为 frm_main 、 frm_login 、frm_dbset,保存工程文件为 LoginExample ,代码如下。

LoginExample.dpr 工程文件

program LoginExample;

uses
	Forms,
	u_main in 'u_main.pas' {frm_main},
	u_databox in 'u_databox.pas' {DataBox : TDataModule},
	u_login in 'u_login.pas' {frm_login},
	u_dbset in 'u_dbset.pas' {frm_dbset};

{$R *.res}

begin
	Application.Initialize;
	Application.CreateForm(TDataBox, DataBox);
	if show_FormLogin then
	begin
		Application.CreateForm(Tfrm_main, frm_main);
	end;
	Application.Run;
end.

u_databox.pas 单元文件

unit u_databox;

interface

uses
	Windows,SysUtils, Classes, ZAbstractConnection, ZConnection, DB,
  ZAbstractRODataset, ZAbstractDataset, ZDataset,Registry,
  Forms, DCPcrypt2, DCPsha256,Dialogs;

type
  TDataBox = class(TDataModule)
    ZQOper: TZQuery;
    ZC: TZConnection;
    ZQLogs: TZQuery;
    DCP_sha2561: TDCP_sha256;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    FDBHost : String;
    FDBPort : Integer;
    FDBName : String;
    FDBConUser : String;
    FDBConPwd : String;
  public
    { Public declarations }
    procedure GetDBConStr;
    function GetSha256(s:String):String;
  end;

var
  DataBox: TDataBox;
  OperID: Integer;
  Operator: string;
  LogsID:string;
  CurDir:string;
  isAdmin:Boolean;

procedure WriteLogs(sOper:Integer;funid:Integer;funName:string);


implementation

uses u_dbset, DateUtils;

{$R *.dfm}

procedure WriteLogs(sOper:Integer;login_desc:string);
begin
  with DataBox.ZQLogs do
  begin

    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO user_logins(user_id,login_desc,log_time) VALUES(:uid,:desc,:logtime)');
    ParamByName('uid').Value:=sOper;
    ParamByName('desc').Value:=funName;
    ParamByName('logtime').Value:=Now;
    ExecSQL;
  end;
end;


procedure TDataBox.GetDBConStr;
var
  myReg : TRegistry;
begin
  myReg := TRegistry.Create;
  with myReg do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('SOFTWARE\ExampleProg\DBConParam\', False) then
    begin
      FDBHost := ReadString('DBIP');
      FDBPort := StrToInt(ReadString('DBPort'));
      FDBName := ReadString('DBName');
      FDBConUser := ReadString('DBUser');
      FDBConPwd := ReadString('DBPwd');
    end;
  finally
    myReg.CloseKey;
    myReg.Free;
  end;
end;

procedure TDataBox.DataModuleCreate(Sender: TObject);
begin
  GetDBConStr;
  if FDBHost = '' then
  begin
    Application.CreateForm(TfrmDbSet, frmDbSet);
    frmDbSet.ShowModal;
  end;
  GetDBConStr;
  with ZC do
  begin
    Disconnect;
    Protocol := 'mysql';
    LibraryLocation := ExtractFilePath(Application.ExeName)+'libmysql.dll';
    HostName := FDBHost;
    Port := FDBPort;
    User := FDBConUser;
    Password := FDBConPwd;
    Database := FDBName;
    Connect;
  end;
  with ZQOper do
  begin
    Close;
    SQL.Text := 'SELECT Count(*) as OperCount FROM users';
    Open;
    if FieldByName('OperCount').Value = 0 then
    begin
      Close;
      SQL.Text := 'INSERT INTO users(loginname,name,pwd,isAdmin) VALUES(:loginname,:name,:pwd,:isAdmin)';
      ParamByName('loginname').Value := 'admin';
      ParamByName('name').Value := 'admin';
      ParamByName('pwd').Value := GetSha256('admin'); //sha256 admin
      ParamByName('isAdmin').Value := 1;
      try
        ExecSQL;
      finally
        Close;
      end;
    end;
  end;
end;

function TDataBox.GetSha256(s: String): String;
var
  Hash : TDCP_sha256;
  Digest : array[0..31] of byte;  
  Source : String;
  i : Integer;
  str1 : String;
begin
  Source := s;  //get s string sha256

  if Source <> '' then
  begin
    Hash := TDCP_sha256.Create(nil);  //create the hash
    Hash.Init;
    Hash.UpdateStr(Source);
    Hash.Final(Digest);
    str1 := '';
    for i:=0 to 31 do
      str1 := str1 + IntToHex(Digest[i],2);
  end;
  Result := str1;
end;

end.

u_dbset.pas 单元文件

unit u_dbset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, Registry,ZAbstractConnection, ZConnection;

type
  TfrmDbSet = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    Label6: TLabel;
    lblStatus: TLabel;
    edt_ServerName: TEdit;
    edt_DBName: TEdit;
    edt_ConnUser: TEdit;
    edt_Pwd: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    edt_Port: TEdit;
    ZC: TZConnection;
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure ZCAfterConnect(Sender: TObject);
    procedure ZCAfterDisconnect(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    DBConStr: string;
    FMacineName: string;
    FDBName: string;
    FPwd: string;
    FConnUser: string;
    procedure SetDBConStr;
  public
    { Public declarations }
  end;

var
  frmDbSet: TfrmDbSet;

implementation

uses u_databox,comobj;

{$R *.dfm}

{ TfrmDbSet }



procedure TfrmDbSet.SetDBConStr;
var
  myReg:TRegistry;
begin
  myReg:=TRegistry.Create;
  with myReg do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('SOFTWARE\ExampleProg\DBConParam\',True) then
    begin
      WriteString('DBIP',edt_ServerName.Text);
      WriteString('DBPort',edt_Port.Text);
      WriteString('DBName',edt_DBName.Text);
      WriteString('DBUser',edt_ConnUser.Text);
      WriteString('DBPwd', edt_Pwd.Text);
    end;
  finally
    myReg.CloseKey;
    myReg.Free;
  end;
end;

procedure TfrmDbSet.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F8) and (ssCtrl in Shift) then
  begin
    edt_ConnUser.Color := clWhite;
    edt_ConnUser.Enabled := True;
    edt_ConnUser.SetFocus;
  end;
end;

procedure TfrmDbSet.BitBtn3Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmDbSet.FormShow(Sender: TObject);
begin
  edt_ServerName.SetFocus;
end;

procedure TfrmDbSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZC.Disconnect;
  Action:=caFree;
  frmDbSet:=nil;
end;

procedure TfrmDbSet.BitBtn1Click(Sender: TObject);
begin
  with ZC do
  begin
    Disconnect;
    Protocol := 'mysql';
    LibraryLocation := ExtractFilePath(Application.ExeName)+'libmysql.dll';
    HostName := edt_ServerName.Text;
    Port := StrToInt(edt_Port.Text);
    User := edt_ConnUser.Text;
    Password := edt_Pwd.Text;
    Database := edt_DBName.Text;
    Connect;
    RzBitBtn2.Enabled := True;
  end;
  lblStatus.Caption := '连接状态:测试连接成功,已连接!';
end;

procedure TfrmDbSet.ZCAfterConnect(Sender: TObject);
begin
  lblStatus.Caption := '连接状态:已连接!';
end;

procedure TfrmDbSet.ZCAfterDisconnect(Sender: TObject);
begin
  lblStatus.Caption := '连接状态:未连接!';
end;

procedure TfrmDbSet.BitBtn2Click(Sender: TObject);
begin
  SetDBConStr;
  Close;
end;

end.

u_login.pas 单元文件

unit u_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset;

type
  Tfrm_login = class(TForm)
    Label1: TLabel;
    edt_pwd: TEdit;
    cbo_username: TComboBox;
    Label2: TLabel;
    btnLogin: TButton;
    ZQUser: TZQuery;
    procedure FormCreate(Sender: TObject);
    procedure btnLoginClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cbo_usernameKeyPress(Sender: TObject; var Key: Char);
    procedure edt_pwdKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ZQUserAfterOpen(DataSet: TDataSet);
    procedure edt_pwdEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function Show_FormLogin:Boolean;

implementation

uses u_databox;

var
  PasswordOK : Boolean;

{$R *.dfm}

function Show_FormLogin:Boolean;
var
  frm_login : Tfrm_login;
begin
  PasswordOK := False;
  frm_login := Tfrm_login.Create(Application);
  try
    frm_login.ShowModal;
  finally
    frm_login.Free;
  end;
  Result := PasswordOK;
end;

procedure Tfrm_login.FormCreate(Sender: TObject);
begin
  ZQUser.Close;
  ZQUser.Open;
end;

procedure Tfrm_login.btnLoginClick(Sender: TObject);
begin
  if ZQUser.Locate('loginname;pwd', 
	VarArrayOf([cbo_username.Text, DataBox.GetSha256(edt_pwd.Text)]), [loCaseInsensitive]) then
  begin
    OperID := ZQUser.FieldByName('id').AsInteger;
    Operator := cbo_username.Text;
    isAdmin := (ZQUser.FieldByName('isAdmin').AsInteger=1);
    Application.MessageBox(PChar(Operator + '登录成功'), '登录提示', MB_OK+MB_ICONINFORMATION);
    PasswordOK := True;
    WriteLogs(OperID,'登录');  
    if PasswordOK then
      Close;
  end
  else
    Application.MessageBox('用户名或密码不正确,登录失败,如忘记密码,请联系管理员!', '错误提示', MB_OK+MB_ICONWARNING);
end;

procedure Tfrm_login.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if not PasswordOK then
  begin
    CanClose := Application.MessageBox('你真的要退出该软件吗?', '信息提示', MB_YESNO+MB_ICONQUESTION)=IDYES;
    WriteLogs(OperID, '退出系统');
  end;
end;

procedure Tfrm_login.cbo_usernameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    edt_pwd.Text := '';
    edt_pwd.SetFocus;
  end;
end;

procedure Tfrm_login.edt_pwdKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    btnLoginClick(Self);
  end;
end;

procedure Tfrm_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tfrm_login.ZQUserAfterOpen(DataSet: TDataSet);
begin
  cbo_username.Items.Clear;
  with ZQUser do
  begin
    First;
    while not Eof do
    begin
      cbo_username.Items.Add(FieldByName('loginname').AsString);
      Next;
    end;
  end;
end;

procedure Tfrm_login.edt_pwdEnter(Sender: TObject);
begin
  edt_pwd.Text := '';
end;

end.

完成上述的步骤,这个小的 Demo 就算完成了,有三个地方需要注意一下:

第一,我看我的 IED 中安装了 DCPcrypt2 加密解密组件,随手引用了对密码做哈希处理,这部分如果用于练习的时候可以去掉。

第二,访问 MySQL 数据库需要动态链接库 libmysql.dll ,这个需要注意一下,不管你用 32 位的操作系统还是 64 位的操作系统,同时它也跟你安装的 MySQL 是 32 位的还是 64 位的也没有关系,在 Delphi 7 中使用 MySQL 的时候只能使用这个动态链接库的 32 位版本。

第三,编码问题,Delphi 7 会碰到编码问题,比如向 MySQL 数据库中写入中文会显示乱码,此时在 TZConnectionProperties 中添加 codepage=gbk 。另一种处理方式是在使用 TZQuery 等时,在运行 SQL 插入数据语句前,要先运行 set names gbk

begin
{这里的 zq1 是一个 TZQuery 控件}
	with zq1 do
	begin
		Close;
		SQL.Text := 'set names gbk';
		ExecSQL;
		SQL.Text := 'INSERT INTO Test(UName) VALUES("张三")';
		ExecSQL;
	end;
end;

因为是直接在项目中使用后,手工直接在 Notion 中码出来的,并没有写这个 Demo ,所以无法附上 Demo 的源码,对于现在还使用 Delphi 的人来说应该是比较简单的,我其实更多的是给自己做个笔记。但如果有任何问题,可直接通过「关于我」中提供的联系方式与我联系。

– EOF –

Trello 从使用到放弃

我比较喜欢尝试通过各种途径发现的各种软件工具,这也算是计算机软件使用这个范畴中「差生文具多」的一种表现,Trello 就是其中一个软件工具。我在维基百科上查了一下,Trello 初始版本在 2011 年 9 月 13 日发布,在 2014 年 7 月将 Trello 独立为单独的公司,2017 年 1 月被 Atlassian 收购。

从现在的记忆中回顾,最初我对它的了解是它是一款看板软件,是由比较有名的「Joel Spolsky」创建的,就是写了《软件随想录》 这本书的那个被称为「程序员部落酋长 Joel 」的那位,当然他也写博客,而且开设博客的时间还相当的早,他还是在程序员中被广为使用的 Stack Overflow 这个问答 「拷贝粘贴代码库」 社区的创建者之一,更多的关于他的信息可以去他的网站 Joel On Software 上寻找。

我很早就注册了 Trello 这个工具的账号,应该在 2015 年或更早些时候,但真的开始用的时候就比较晚了,大概在 2020 年初的时候,我准备尝试用一下,一边摸索一边将数据迁移到 Trello 中,一直用到 2021 年 10 月份,就放弃了,现在来看,放弃主要有如下的几个原因。

  • 在其自身账号跟 Atlassian 整合后使用它越来越慢了,常常在正常情况下打不开;
  • 几个移动设备上的 App 在升级后就不太能好好用了;
  • 整合账号后在需要重新验证身份的时候需要输入两次密码;
  • 有新的在尝试的工具,比如 Notion.

截张图,做个纪念,并简单记录一下自己的日常使用。

尽管对它的最初认识是一款看板软件,但我在尝试的过程中却打算用它把自己的内容也管理起来,然后针对一部分内容建立行动过程,也即看板,再然后还可以试试协作。

当时为什么想要试试 Trello ,现在实在是想不起来,很大可能是当时看到了某些有关它的信息,然后想着自己也有账号,接下来由于喜欢尝试的毛病发作,就试起来了,官方和使用者多把这个软件产品定位为项目协作与目标管理工具,我用它主要想试试看能否将内容管理起来,在此基础上对于手头上要做的项目进行一些任务分解与跟踪。

我是通过具体的看板进行分类,有了类别之后,在此基础上进行按类别的管理,这种想法根植于从小到大的经验与不断的练习,在日常中我们总是用类别来归纳一些事,以便简化我们应对和认知事物。

而对应到 Trello 中,不同的看板可以看作不同的类别,而看板中的卡片可以看作不同内容的承载容器,可以进一步在卡片上记录对应的内容,在看板和卡片之间可以建立列表进行进一步的分类,以「阅读」看板为例,如下图。

这里在「阅读」看板中建立了 4 个列表,分别是书库、待读、阅读中以及读完,而列表下的每张卡片则代表了每本书以及每本书在不同状态下的不同内容。

在书库这个列表中,每张卡片代表一本书,我在每张卡片中记录了书的一些概要信息,并使用标签来标注书的介质和来源,比如电子书的微信读书,Kindle , PDF , iBook 以及纸质书。然后将计划阅读的放到待读这个列表中,在阅读中列表中放入当前正在读的书,并伴随阅读记录阅读笔记,最后读完一本书整理到读完列表中。

其实 Trello 提供的看板及其卡片还是蛮不错的,卡片的内容支持 MarkDown 以及待办清单,可以通过建立不同的标签进行标注,进一步的分类与组织内容。在卡片的每次操作,都会以讨论的方式进行记录,这样也就留下了针对这张卡片的历史操作记录,当然作为一个协作工具,还可以邀请朋友来共建内容「将看板设置为公开的,并邀请朋友共同参与」,总体下来用的过程中还是比较简单的,而且使用也挺流畅。唯一美中不足的是每个卡片在不同的状态下基本上是基于状态隔离的,但实际上这些卡片中的内容存在一定的连接性,这就需要进一步的整理加工,然后增加新的卡片或者归档到另外一个工具中,当然在 Trello 中也可以通过附件来做到卡片之间的链接,这算是在内容上一层级的链接,略微有些欠缺,不知道现在的版本是否有新的改变,从软件的出发点及整体架构上来说,这样的变更比较困难。

由于其协作性,在进行项目管理时,有关这些看板和卡片都可以通过 关注和 @某人 连接相关的参与者,以得以使得成员协作开展工作,我在这部分没有使用多人模式,仅仅是把我自己独立完成的项目管理了起来,包括任务分解、描述以及人员的指派等都是我自己,由于没有多人的实际尝试,这部分就不多说了,但这部分内容是团队使用 Trello 的精髓所在,毕竟它是一款团队协作工具。特别要注意的是如果团队本来在使用看板,比如在很显眼的地方放一大块白板,上面贴满一个项目各个成员的任务进度,那么可以试试这个工具,而如果你的团队没有使用过这种管理方式,那么这个工具实际上并不一定就能让你的团队适应看板这种项目管理方式,当然可以尝试。

以上大概就是我使用 Trello 的一些回顾,有两个计划,其一是打算丰富一下书库的内容,然后邀请朋友共同探索一下内容的共建与协作;其二是在我自己做的项目中,准备把甲方相关人员拉进来,试试项目过程中的协作,包括项目的整体进度、需求讨论、原型及反馈等,但随着使用越来越慢而且几番更新后手机上经常无法使用,这个想法也就不了了之了,最终就彻底放弃。

最后说说对 Trello 的理解。

基本上 Trello 可以整理生活与工作中的任何资料,可以把它看作是一大块白板,使用它的人可以在这块白板上建立无数个列表,要整理什么资料或者要开展某项工作,都可以在这块白板上创建,当然可以对这块白板进行升级,比如变成好多块白板。在这些白板上使用者可以自由书画,拖拽排序,列表可以按照阶段建立,可以按照流程建立,也可以按照使用者的分类建立,当然自由建立也是完全可以的。

承载内容的是列表中的一个个卡片,卡片同样可以是一个任务,一本书,一份资料,一个想法,一个问题与讨论或一个投票等等,这些卡片可以是动态的(比如按照阶段划分的任务随着任务完成的状态游走在列表中),也可以是静态的(它就是一份资料)。一眼望去是你自己熟悉的分类,展现种种的内容,一览无余。卡片为不同的内容提供多样性的属性,链接、文字图片、待办清单、附件、起始日期、标签、颜色等等,不但丰富卡片的内容,而且提供了进一步的管理。

整体操作比较简单,大量的拖拽操作就跟在板板上移动便利签一样,这大大减低了团队使用的门槛,支持多端多系统,即时同步,多人协作,在多人协作时,每个进入到能进入的看板时,能一眼就看出每个人都在做什么,做的怎么样,以及我该做什么。

搜索功能也还算可以,能够检索到你搜索的内容,Trello 还提供了一些类似于插件的功能,比如投票、日历等等。

整体上来看,Trello 对于本身就使用看板的团队开展工作还是不错的,而且免费的功能足以应付日常大部分的工作,当然其还提供付费的版本,比如对于附件大于 10M 的支持就需要付费。当然对于个人来说,如果把自己的日常生活的琐事用它管理起来也能让事情井然有序,如果感兴趣可以试试。不太理想的地方是随着它被收购越来越重了,而且越来越慢了,慢这个事情也不太好说,Notion 也存在慢的问题,这既跟网络相关,也跟内容存储主体与服务所在地有关,这部分不可言说。类似这样慢的或者访问不友好的产品或服务,要看它们提供的价值是否要大于解决网络访问的成本以及你的兴趣。

本文首发于我的微信公众账号「时间易逝」,欢迎订阅我的微信公众账号
在微信中搜索「doevents」或用微信扫描页面右上方二维码可订阅我的微信公众账号

MacBook Pro 自行更换鼓包电池及升级存储小记

我的这台 MacBook Pro (Retina, 15-inch, Mid 2014) 是在 2015 年上半年买的,它是 2014 款,继上次屏幕涂层脱落(花屏)免费给更换屏幕后,又用了 4 年。对我来说,如果它不出问题应该可以一直用到我不想用为止,因为它基本上还能继续满足我编写程序及日常工作的需要。

可是它就出了问题,最近发现电池鼓包,而且鼓包应该已经有段时间。我是发现上盖合不严,没有以前合上时吸附的那股急于挣脱你手的力量,我从支架上拿下来放到平面时,四个立足点已经不能在桌面保持平衡了。在手机上进行了维修预约,然后在网上进行一番搜索,搜到的电池鼓包解决方案还不少,电池鼓包现象同样也是苹果电脑比较常见的现象,我决定还是先去苹果店看看再说,因为在第一时间我更愿意先看看专业人士的意见是什么。

在等待预约的期间我先把数据做了一下整体的备份,然后把自力更生解决问题相关的文档都看了个遍,我其实比较倾向自己进行更换,然后顺道更换一下存储(由于穷,在购买的时候买了 256G 的存储),存储空间在日常使用中实在是捉襟见肘,所以顺道搜索了一番,把更换存储以及存储选用的文档也浏览了一遍,关于这些解决方案文档在这里就不做具体的推荐了,只要上网一搜都能搜到,在最后我会放上我看的一些文章链接。

在约定的时间去店里,完成签到后在等待的区域,发现来处理鼓包的朋友算上我有 4 个,我的电脑时间最老,苹果售后效率还是挺高的,略微的等待之后过来一个美女,她负责这次的售后服务,完成信息的核对后开始检查电脑,对我的电脑的检查其实挺简单,电池鼓包这事一眼望去就很明了了,美女直接给我说解决方案,大概意思是电脑比较老,没有现成的备件,需要下新订购单,大概需要 7 天到半个月,还不一定能有货,并告诉我更换电池会连键盘和触摸板整体一起换掉,费用大概不到 1500 ,当然这费用仅仅是电池的费用,其他不收费「键盘、触摸板」,并说很大可能是没有货,电脑时间有些太长了,2014 年的电脑都 7 年了,并建议应该考虑换电脑了。之后问我的意见如何,需要不需要让她下单订购。在听取了专业人员的建议后,综合了之前我浏览的各种自力更生方案,我决定自己试试,感谢了美女之后,我拿起电脑返回家中,开始订购需要更换的物件。

  • 电池
  • 1T SSD 存储
  • 存储转接(卡)头

以上就是需要采购的物件。

电池我是在京东采购的,根据电脑背后的型号先咨询卖家客服,然后下单订购,电池产品中包括更换的工具以及更换说明书,客服也会给你一个如何更换的视频,服务其实挺到位的,价格也比较便宜,电池适配型号,选择上只是选择品牌,这个没什么太多要说的,选择一个经营年限长一些的品牌即可,我在更换后使用良好,截止到目前并没有发现问题。

SSD 存储这个让我有些选择困难,内心是比较倾向于选择三星的,笔记本本身的 SSD 就是三星生产的,可是能用在 2014 年生产的苹果电脑上的三星 SSD 目前没货「停产」,几经考虑最终选择了西数的,主要是我用西数的移动硬盘比较多,也是大厂。选择移动 SSD 要根据电脑,以及参考有过往经验人的推荐,这个可以在购买转接头的时候向客服咨询一下,看看他们的具体推荐,毕竟他们的推荐都是有案例支持的。最终在京东采购了西数的 SN550。

苹果笔记本的 SSD 接口和通常的 SSD 接口不同,需要加装一个转接头「卡」才行,转接头在淘宝搜一下「苹果转接头」,选择买一个就可以,这个比较便宜,选择一个销量多评价不错的即可。

京东的快递效率一如既往的高效,第二天电池和存储就到了,转接头多用了一天,等货到齐之后准备更换,下面是到货后的图片。

一定要注意的是在更换之前要备份数据、备份数据、备份数据,重要的事情说三遍,可使用「时间机器」进行备份,需要准备一个移动硬盘来接纳备份数据。在备份数据这方面多说两句,别忘了在使用时间机器备份的同时,将数据库「比如 MySQL」备份一下,否则数据库就需要从数据文件目录中恢复,这要远比用备份文件恢复复杂和耗时。

电池和 SSD 更换只要胆大心细,千万不能有大力出奇迹的想法,防止静电「电池中有防静电手套」,一般按照操作步骤都是没有问题,我在更换中没有出现问题,顺利完成更换。在更换电池的时候,在拿出老电池的时候要有些耐心,要等溶胶剂充分跟胶接触,不要猛拽,也要小心扎破鼓包的电池。SSD 和 转接头都要推到底,一般会有「咔」的微小声响。

剩下的就是恢复系统了,我没有按照网上说的要用一个 U 盘做一个系统,而是直接使用联网的方式来恢复。同时按住「电源+command+option+R」这四个键等待屏幕上出现一个黑白的地球图标后松手,然后在过程中选择 Wi-Fi,并输入密码,系统就会进行联网恢复,这个过程需要一段等待时间,直到出现「macOS 实用工具」界面。

从实用工具界面选择「磁盘工具」,继续后在磁盘工具左边栏中选择新换的 SSD 硬盘,把它先格式化了,选择 APFS 格式,名称建议跟以前的一样,如果没改就是 Macintosh HD ,分区选择 GUID ,完成后关闭磁盘工具,选择「从时间机器恢复」,在网上的各种说法中有能从这里恢复的,有不能的,不能的居多,一般碰到不能的都是采用 U 盘的方法,我同样也碰到了不能通过「从时间机器恢复」的提示,可是我并没有做 U 盘,我选择「重新安装 macOS Big Sur」完成了从网上的安装,从这点看时间机器在向新硬盘上恢复系统可能多少还有些问题。

安装完毕系统后,然后再用「迁移助理」完成备份的恢复,按照提示并经过等待以后,整个系统顺利完成了恢复,我这里除了 MySQL 数据库和一些服务器的配置之外其他的一切都跟以前一模一样,包括之前所有打开的应用,所不同的是硬盘足够用了,并且速度要比之前快很多,电池也不鼓包了,那久违的上盖吸附力又回来了,也没有碰到网上说的硬盘休眠的问题,又能再战不少年了。

这次更换整体上比较顺利,也有一些失误,总结一下:

  • 应该在采购的物件中增加两项「压缩空气」和毛刷,用于清除灰尘,用的时间长以后多少还是有些灰尘的,我用气筒吹了吹,清理的不是很干净。
  • 数据库要提前备份一下,要不恢复比较耗时,远比从备份中恢复花的时间要长。

最后列一下我在发现电池鼓包以后在网上阅读的一些文档:

  • 换个SSD再战3年,15款MacBook Pro升级1TB SSD,附13-17款升级指南https://post.smzdm.com/p/a783vk9g/
  • Macbook pro 15’ late 2013(A1398型)硬盘升级https://zhuanlan.zhihu.com/p/144419054
  • 15款 MacBook Pro 更换硬盘https://zhuanlan.zhihu.com/p/79265981
  • MacBook 升级 SSD 硬盘指北https://juejin.cn/post/6901549087221514247
  • 从“时间机器”备份恢复 macOS 服务器https://support.apple.com/zh-cn/HT202406

另外 ifixit.com 是个不错的网站,各种拆修可谓之详细至极,可惜不太能友好的访问,除此之外关于换电池的文章主要是在 B 站的视频和油管(访问亦不友好)的视频,这里就不多列了,其实买电池的客服给的视频和电池中的操作说明已经非常详细了,你只是需要确定好自己的电脑型号就行。

在高度集成模块化,并且设备越来越小的现在,动手比起之前越来越少了,于是觉得在为数不多的动手之余应该做个记录,做个留念,这篇记录写完很久了(去年九月中旬),没有放出来是想看看是否运行稳定,是否会出现网上所说的更换后的种种小毛病,比较幸运的是均没有出现,如今差不多换完有半年了,运行良好。

在这期间同学有一台 HP 的笔记本在我的建议下也把机械硬盘更换为 SSD,并且把内存扩至 16 G,按照他的日常使用范畴,继续用个几年是不成问题的,同时也锻炼了他自己的动手能力。这让我想起了很早以前的事情,那时会时不时的去市场转转,然后给台式机升个级,现在想来也是蛮有趣的事情。如今越来越集成的笔记本等电子设备可能不再能很容易的升级了,这可能也少了一些乐趣,不过更多的给人动手锻炼的开发板套件倒是比以前多了很多,也挺好玩,喜欢这方面的朋友可以试试。

本文首发于我的微信公众账号「时间易逝」,欢迎订阅我的微信公众账号
在微信中搜索「doevents」或用微信扫描页面右上方二维码可订阅我的微信公众账号