📄 mfontshow.bas
字号:
Attribute VB_Name = "mFontShow"
Option Explicit
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As Long
Private Const SW_SHOWNORMAL As Long = 1&
'打開WEB站點
Public Function ShowWebSite(ByRef frmParent As Form, _
ByVal strURL As String) As Long
Screen.MousePointer = vbHourglass
ShowWebSite = ShellExecute(frmParent.hwnd, _
"OPEN", strURL, vbNullString, vbNullString, SW_SHOWNORMAL)
Screen.MousePointer = vbDefault
End Function
Public Sub frmLogin_CharacterShow()
With frmLogin
.Caption = "用户登陆"
.lblNote.Caption = "请在下面输入用户名和密码登陆数据库！" & vbCrLf & _
"注意：用户名和密码不能为空且必须区分大小写。"
.Label1.Caption = "用户名："
.Label2.Caption = "密 码："
.cmdLogin.Caption = "登陆[&L]"
.cmdCancel.Caption = "取消[&C]"
End With
End Sub
Public Sub frmBomList_CharacterShow()
With frmBomList
.Label1(0).Caption = "订 单 管 理 系 统"
.Label1(1).Caption = "http://tqw1215.kki.cn/"
.cmdMaterielInput.Caption = "订单录入&M]"
.cmdMaterielUpdate.Caption = "订单修改[&U]"
.cmdMaterielQuery.Caption = "订单查询[&Q]"
.cmdMaterielPrint.Caption = "订单打印[&P]"
.cmdUserAdministrator.Caption = "用户管理[&A]"
.cmdExitSystem.Caption = "退出系统[&E]"
.Label3(20).Caption = "备注："
.Label3(19).Caption = "修改日期："
.Label3(18).Caption = "修改次数："
.Label3(17).Caption = "物料来源："
.Label3(16).Caption = "采购单号："
.Label3(15).Caption = "收货日期："
.Label3(14).Caption = "订货日期："
.Label3(13).Caption = "总计价格："
.Label3(12).Caption = "物料单价："
.Label3(11).Caption = "所需数量："
.Label3(10).Caption = "物料用量："
.Label3(9).Caption = "物料损耗："
.Label3(8).Caption = "物料名称："
.Label3(7).Caption = "海关编号："
.Label3(6).Caption = "交货日期："
.Label3(5).Caption = "制品名称："
.Label3(4).Caption = "订单日期："
.Label3(3).Caption = "制品数量："
.Label3(2).Caption = "订单编号："
.Label3(1).Caption = "制品款号："
.Label3(0).Caption = "售货单号："
.cmdOrderformInput.Caption = "录入数据[&I]"
.Label2(18).Caption = "备注："
.Label2(17).Caption = "物料來源："
.Label2(16).Caption = "采购单号："
.Label2(15).Caption = "收货日期："
.Label2(14).Caption = "订货日期："
.Label2(13).Caption = "总计价格："
.Label2(12).Caption = "物料单价："
.Label2(11).Caption = "所需数量："
.Label2(10).Caption = "物料用量："
.Label2(9).Caption = "物料损耗："
.Label2(8).Caption = "物料名称："
.Label2(7).Caption = "海关编号："
.Label2(6).Caption = "交货日期："
.Label2(5).Caption = "制品名称："
.Label2(4).Caption = "订单日期："
.Label2(3).Caption = "制品数量："
.Label2(2).Caption = "订单编号："
.Label2(1).Caption = "制品款号："
.Label2(0).Caption = "售货单号："
.cmduAddMateriel.Caption = "添加[&A]"
.cmduUpdate.Caption = "修改[&U]"
.cmduDelete.Caption = "刪除[&D]"
.cmduFirst.Caption = "第一条[&F]"
.cmduPreview.Caption = "上一条[&P]"
.cmduNext.Caption = "下一条[&N]"
.cmduLast.Caption = "最后一条[&L]"
.optUserAdminB.Caption = "【用户管理设置】"
.optUserAdminA.Caption = "【用戶密码修改】"
.Label4(0).Caption = "用户名："
.Label4(1).Caption = "旧密码："
.Label4(2).Caption = "新密码："
.Label4(3).Caption = "再次输入："
.cmdUpdatePassword.Caption = "更改密码"
.Label5(0).Caption = "订单录入"
.Label5(1).Caption = "订单修改"
.Label5(2).Caption = "订单查询"
.Label5(3).Caption = "订单打印"
.Label5(4).Caption = "用户管理"
.optQueryA.Caption = "查询所有："
.optQueryB.Caption = "指定查询："
.optQueryC.Caption = "组合查询："
.cmdQueryA.Caption = "查询.."
.cmdQueryB.Caption = "查询.."
.cmdQueryC.Caption = "查询.."
.cmbQueryFieldA.Clear
.cmbQueryFieldA.AddItem "售货单号"
.cmbQueryFieldA.AddItem "订单编号"
.cmbQueryFieldA.AddItem "制品款号"
.cmbQueryFieldA.AddItem "制品数量"
.cmbQueryFieldA.AddItem "制品名称"
.cmbQueryFieldA.AddItem "订单日期"
.cmbQueryFieldA.AddItem "交货日期"
.cmbQueryFieldA.Text = "售货单号"
.cmbQueryFieldB.Clear
.cmbQueryFieldB.AddItem "售货单号"
.cmbQueryFieldB.AddItem "订单编号"
.cmbQueryFieldB.AddItem "制品款号"
.cmbQueryFieldB.AddItem "制品数量"
.cmbQueryFieldB.AddItem "制品名称"
.cmbQueryFieldB.AddItem "订单日期"
.cmbQueryFieldB.AddItem "交货日期"
.cmbQueryFieldB.Text = "售货单号"
.cmbQueryFieldC.Clear
.cmbQueryFieldC.AddItem "制品款号"
.cmbQueryFieldC.AddItem "售货单号"
.cmbQueryFieldC.AddItem "订单编号"
.cmbQueryFieldC.AddItem "制品数量"
.cmbQueryFieldC.AddItem "制品名称"
.cmbQueryFieldC.AddItem "订单日期"
.cmbQueryFieldC.AddItem "交货日期"
.cmbQueryFieldC.Text = "制品款号"
.cmbPQUnits.Clear
.cmbPQUnits.AddItem "件"
.cmbPQUnits.AddItem "打"
.cmbPQUnits.AddItem "箱"
.cmbPQUnits.AddItem "套"
.cmbPQUnits.Text = "件"
.cmbQUUnits.Clear
.cmbQUUnits.AddItem "碼"
.cmbQUUnits.AddItem "個"
.cmbQUUnits.AddItem "件"
.cmbQUUnits.AddItem "包"
.cmbQUUnits.AddItem "打"
.cmbQUUnits.AddItem "套"
.cmbQUUnits.AddItem "粒"
.cmbQUUnits.AddItem "箱"
.cmbQUUnits.AddItem "寸"
.cmbQUUnits.AddItem "尺"
.cmbQUUnits.AddItem "克"
.cmbQUUnits.AddItem "千克"
.cmbQUUnits.AddItem "英寸"
.cmbQUUnits.AddItem "英尺"
.cmbQUUnits.AddItem "平方尺"
.cmbQUUnits.AddItem "朵"
.cmbQUUnits.AddItem "支"
.cmbQUUnits.AddItem "部"
.cmbQUUnits.AddItem "卷"
.cmbQUUnits.AddItem "罐"
.cmbQUUnits.AddItem "磅"
.cmbQUUnits.AddItem "只"
.cmbQUUnits.AddItem "條"
.cmbQUUnits.AddItem "米"
.cmbQUUnits.AddItem "扎"
.cmbQUUnits.AddItem "盒"
.cmbQUUnits.AddItem "瓶"
.cmbQUUnits.AddItem "把"
.cmbQUUnits.AddItem "本"
.cmbQUUnits.AddItem "雙"
.cmbQUUnits.AddItem "桶"
.cmbQUUnits.AddItem "筒"
.cmbQUUnits.AddItem "對"
.cmbQUUnits.AddItem "台"
.cmbQUUnits.AddItem "片"
.cmbQUUnits.AddItem "付"
.cmbQUUnits.AddItem "斤"
.cmbQUUnits.Text = "碼"
.cmbQSUnits.Clear
.cmbQSUnits.AddItem "碼"
.cmbQSUnits.AddItem "個"
.cmbQSUnits.AddItem "件"
.cmbQSUnits.AddItem "包"
.cmbQSUnits.AddItem "打"
.cmbQSUnits.AddItem "套"
.cmbQSUnits.AddItem "粒"
.cmbQSUnits.AddItem "箱"
.cmbQSUnits.AddItem "寸"
.cmbQSUnits.AddItem "尺"
.cmbQSUnits.AddItem "克"
.cmbQSUnits.AddItem "千克"
.cmbQSUnits.AddItem "英寸"
.cmbQSUnits.AddItem "英尺"
.cmbQSUnits.AddItem "平方尺"
.cmbQSUnits.AddItem "朵"
.cmbQSUnits.AddItem "支"
.cmbQSUnits.AddItem "部"
.cmbQSUnits.AddItem "卷"
.cmbQSUnits.AddItem "罐"
.cmbQSUnits.AddItem "磅"
.cmbQSUnits.AddItem "只"
.cmbQSUnits.AddItem "條"
.cmbQSUnits.AddItem "米"
.cmbQSUnits.AddItem "扎"
.cmbQSUnits.AddItem "盒"
.cmbQSUnits.AddItem "瓶"
.cmbQSUnits.AddItem "把"
.cmbQSUnits.AddItem "本"
.cmbQSUnits.AddItem "雙"
.cmbQSUnits.AddItem "桶"
.cmbQSUnits.AddItem "筒"
.cmbQSUnits.AddItem "對"
.cmbQSUnits.AddItem "台"
.cmbQSUnits.AddItem "片"
.cmbQSUnits.AddItem "付"
.cmbQSUnits.AddItem "斤"
.cmbQSUnits.Text = "碼"
.cmbuPQUnits.Clear
.cmbuPQUnits.AddItem "件"
.cmbuPQUnits.AddItem "打"
.cmbuPQUnits.AddItem "箱"
.cmbuPQUnits.AddItem "套"
.cmbuPQUnits.Text = "件"
.cmbuQUUnits.Clear
.cmbuQUUnits.AddItem "碼"
.cmbuQUUnits.AddItem "個"
.cmbuQUUnits.AddItem "件"
.cmbuQUUnits.AddItem "包"
.cmbuQUUnits.AddItem "打"
.cmbuQUUnits.AddItem "套"
.cmbuQUUnits.AddItem "粒"
.cmbuQUUnits.AddItem "箱"
.cmbuQUUnits.AddItem "寸"
.cmbuQUUnits.AddItem "尺"
.cmbuQUUnits.AddItem "克"
.cmbuQUUnits.AddItem "千克"
.cmbuQUUnits.AddItem "英寸"
.cmbuQUUnits.AddItem "英尺"
.cmbuQUUnits.AddItem "平方尺"
.cmbuQUUnits.AddItem "朵"
.cmbuQUUnits.AddItem "支"
.cmbuQUUnits.AddItem "部"
.cmbuQUUnits.AddItem "卷"
.cmbuQUUnits.AddItem "罐"
.cmbuQUUnits.AddItem "磅"
.cmbuQUUnits.AddItem "只"
.cmbuQUUnits.AddItem "條"
.cmbuQUUnits.AddItem "米"
.cmbuQUUnits.AddItem "扎"
.cmbuQUUnits.AddItem "盒"
.cmbuQUUnits.AddItem "瓶"
.cmbuQUUnits.AddItem "把"
.cmbuQUUnits.AddItem "本"
.cmbuQUUnits.AddItem "雙"
.cmbuQUUnits.AddItem "桶"
.cmbuQUUnits.AddItem "筒"
.cmbuQUUnits.AddItem "對"
.cmbuQUUnits.AddItem "台"
.cmbuQUUnits.AddItem "片"
.cmbuQUUnits.AddItem "付"
.cmbuQUUnits.AddItem "斤"
.cmbuQUUnits.Text = "碼"
.cmbuQSUnits.Clear
.cmbuQSUnits.AddItem "碼"
.cmbuQSUnits.AddItem "個"
.cmbuQSUnits.AddItem "件"
.cmbuQSUnits.AddItem "包"
.cmbuQSUnits.AddItem "打"
.cmbuQSUnits.AddItem "套"
.cmbuQSUnits.AddItem "粒"
.cmbuQSUnits.AddItem "箱"
.cmbuQSUnits.AddItem "寸"
.cmbuQSUnits.AddItem "尺"
.cmbuQSUnits.AddItem "克"
.cmbuQSUnits.AddItem "千克"
.cmbuQSUnits.AddItem "英寸"
.cmbuQSUnits.AddItem "英尺"
.cmbuQSUnits.AddItem "平方尺"
.cmbuQSUnits.AddItem "朵"
.cmbuQSUnits.AddItem "支"
.cmbuQSUnits.AddItem "部"
.cmbuQSUnits.AddItem "卷"
.cmbuQSUnits.AddItem "罐"
.cmbuQSUnits.AddItem "磅"
.cmbuQSUnits.AddItem "只"
.cmbuQSUnits.AddItem "條"
.cmbuQSUnits.AddItem "米"
.cmbuQSUnits.AddItem "扎"
.cmbuQSUnits.AddItem "盒"
.cmbuQSUnits.AddItem "瓶"
.cmbuQSUnits.AddItem "把"
.cmbuQSUnits.AddItem "本"
.cmbuQSUnits.AddItem "雙"
.cmbuQSUnits.AddItem "桶"
.cmbuQSUnits.AddItem "筒"
.cmbuQSUnits.AddItem "對"
.cmbuQSUnits.AddItem "台"
.cmbuQSUnits.AddItem "片"
.cmbuQSUnits.AddItem "付"
.cmbuQSUnits.AddItem "斤"
.cmbuQSUnits.Text = "碼"
.cmbMPUnits.Clear
.cmbMPUnits.AddItem "￥"
.cmbMPUnits.AddItem "＄"
.cmbMPUnits.AddItem "HK"
.cmbMPUnits.Text = "￥"
.cmbMAUnits.Clear
.cmbMAUnits.AddItem "￥"
.cmbMAUnits.AddItem "＄"
.cmbMAUnits.AddItem "HK"
.cmbMAUnits.Text = "￥"
.cmbuMPUnits.Clear
.cmbuMPUnits.AddItem "￥"
.cmbuMPUnits.AddItem "＄"
.cmbuMPUnits.AddItem "HK"
.cmbuMPUnits.Text = "￥"
.cmbuMAUnits.Clear
.cmbuMAUnits.AddItem "￥"
.cmbuMAUnits.AddItem "＄"
.cmbuMAUnits.AddItem "HK"
.cmbuMAUnits.Text = "￥"
.Label3(22).Caption = "制品款号："
.Label3(21).Caption = "售货单号："
.cmduPrint.Caption = " 查询打印..."
End With
End Sub
Public Sub frmUserAdmin_CharacterShow()
With frmUserAdmin
.Caption = "用户管理"
.optUserAdminA.Caption = "【用户权限设置】"
.optUserAdminB.Caption = "【添加新的用户】"
.Label1.Caption = "用户名称："
.Label2.Caption = "密码："
.Label3.Caption = "再次输入："
.Label4.Caption = "用户权限："
.optUserAuthorityA1.Caption = "普通用戶"
.optUserAuthorityA2.Caption = "管理员"
.cmdUpdateUserAuthority.Caption = "更改权限[&U]"
.Label5.Caption = "新用戶名："
.Label6.Caption = "密码："
.Label7.Caption = "再次输入："
.Label8.Caption = "用戶权限："
.optUserAuthorityB1.Caption = "普通用戶"
.optUserAuthorityB2.Caption = "管理员"
.cmdCreateUser.Caption = "创建用户[&C]"
.optUserAdminC.Caption = "【刪除当前用戶】"
.Label9.Caption = "用户名称："
.cmdDeleteUser.Caption = "删除用户[&D]"
.cmdExit.Caption = "退出系统[&E]"
End With
End Sub
Public Sub frmConfigDataSource_CharacterShow()
With frmConfigDataSource
.Caption = " 系统数据库配置"
.Label1(0).Caption = "数据库路径："
.Label1(1).Caption = "数据库名称："
.cmdBrowseA.Caption = "选择[&S]..."
.cmdBrowseB.Caption = "选择[&L]..."
.cmdConfigure.Caption = "配置[&C]"
.cmdExit.Caption = "退出[&E]"
End With
End Sub
Public Sub frmUpdateAllRelationshipRecords_CharacterShow()
On Error Resume Next
Dim obj
With frmUpdateAllRelationshipRecords
.Caption = "订单更改"
.lblWarning.Caption = "提醒！下面的任一修改操作都会影响到数据库中其它与之相关联的数据记录，请谨慎修改！"
.optSalesSlipNo.Caption = "[售货单号]"
.optDesignStyleNo.Caption = "[制品款号]"
.optOrderformID.Caption = "[订单编号]"
.optProductQuantity.Caption = "[制品数量]"
.optProductName.Caption = "[制品名称]"
.optOrderformDate.Caption = "[订单日期]"
.optDeliveryDate.Caption = "[交货日期]"
.cmdSalesSlipNo.Caption = "修改[&U]"
.cmdDesignStyleNo.Caption = "修改[&U]"
.cmdOrderformID.Caption = "修改[&U]"
.cmdProductQuantity.Caption = "修改[&U]"
.cmdProductName.Caption = "修改[&U]"
.cmdOrderformDate.Caption = "修改[&U]"
.cmdDeliveryDate.Caption = "修改[&U]"
.cmdComplete.Caption = "完成[&C]"
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -