📄 i-
字号:
Top = 0
Width = 11580
_ExtentX = 20426
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
Key = "ymsz"
ImageKey = "sz"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "dy"
ImageKey = "dy"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "yl"
ImageKey = "yl"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "cx"
ImageKey = "cx"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "明细"
Key = "mx"
ImageKey = "mx"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "fg"
Style = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "bz"
ImageKey = "bz"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "fh"
ImageKey = "tc"
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageList ImageList1
Left = 6990
Top = 30
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 38
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":A052
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":A3EC
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":A786
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":AB20
Key = "xg"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":AEBA
Key = "zh"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":B254
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":B5EE
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":B988
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":BD22
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":C0BC
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":C456
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":C7F0
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":CB8A
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":CF24
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":D2BE
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":D658
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":D9F2
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":DD8C
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":E126
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":E4C0
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":E85A
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":EBF4
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":EF8E
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":F328
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":F6C2
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":FA5C
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":FDF6
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":10190
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":1052A
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":108C4
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":10C5E
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":10FF8
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":11392
Key = "mx"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":1172C
Key = "jz"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":11AC6
Key = "hz"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":11E60
Key = "dj"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":121FA
Key = "cy"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "帐簿分析_总帐.frx":12594
Key = "zhh"
EndProperty
EndProperty
End
End
Begin VB.PictureBox Pic_Title
BackColor = &H00FFFFFF&
Height = 1245
Left = 0
Picture = "帐簿分析_总帐.frx":1292E
ScaleHeight = 1185
ScaleWidth = 11715
TabIndex = 4
Top = 570
Width = 11775
Begin VB.Label Lab_Title
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "总帐"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 0
Left = 480
TabIndex = 10
Top = 210
Width = 510
End
Begin VB.Label Lbl_TitleMess
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "规格型号:"
Height = 195
Index = 1
Left = 5010
TabIndex = 9
Top = 840
Width = 765
End
Begin VB.Label Lbl_TitleMess
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "存货:"
Height = 195
Index = 0
Left = 570
TabIndex = 8
Top = 840
Width = 405
End
Begin VB.Label Lbl_TitleText
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "仓库"
ForeColor = &H00000000&
Height = 195
Index = 0
Left = 5850
TabIndex = 7
Top = 840
Width = 360
End
Begin VB.Label Lbl_TitleText
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "仓库"
ForeColor = &H00000000&
Height = 195
Index = 1
Left = 8970
TabIndex = 6
Top = 840
Width = 360
End
Begin VB.Label Lbl_TitleMess
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "仓库:"
Height = 180
Index = 2
Left = 8430
TabIndex = 5
Top = 840
Width = 450
End
End
End
Attribute VB_Name = "Zbfx_Mate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'* 模 块 名 称 :总帐
'* 功 能 描 述 :
'* 程序员姓名 :白凤英
'* 最后修改人 :白凤英
'* 最后修改时间:2001/12/14
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'**************************************************************************
Dim mMnumber As String '存货编码
Dim ReportTitle As String '报表主标题
Dim Str_QueryCondi As String '用户录入查询条件
Dim Rec_BillID As New ADODB.Recordset '用户查询单据ID动态集
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Tsxx As String '系统提示信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -