📄 main.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form mainForm
BorderStyle = 1 'Fixed Single
Caption = "贵州省气象局国有资产管理软件"
ClientHeight = 6465
ClientLeft = 150
ClientTop = 720
ClientWidth = 8235
Icon = "main.frx":0000
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 6465
ScaleWidth = 8235
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1020
Top = 4035
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DefaultExt = "Bmp"
Filter = "Bmp"
FilterIndex = 1
End
Begin MSComctlLib.StatusBar Bar1
Align = 2 'Align Bottom
Height = 465
Left = 0
TabIndex = 0
Top = 6000
Width = 8235
_ExtentX = 14526
_ExtentY = 820
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 2205
Top = 4215
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":0562
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":0AA6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":0EFA
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":143E
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":1982
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":1F76
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":2088
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":28F0
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":2A02
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 1
Top = 0
Width = 8235
_ExtentX = 14526
_ExtentY = 1111
ButtonWidth = 820
ButtonHeight = 953
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
Key = "Add"
ImageIndex = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
ImageIndex = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Edit"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "Delete"
ImageIndex = 1
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "Find"
ImageIndex = 7
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "转移"
Key = "Goto"
ImageIndex = 8
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "减少"
Key = "Less"
ImageIndex = 9
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取消"
Key = "NotLess"
ImageIndex = 10
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Cancel"
ImageIndex = 6
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.Image Image1
Height = 2985
Left = 1680
Picture = "main.frx":2B14
Stretch = -1 'True
Top = 720
Width = 3870
End
Begin VB.Menu MenuSZ
Caption = "设置"
Begin VB.Menu MenuGyzcKpKd
Caption = "国有资产卡片宽度"
End
Begin VB.Menu MenuGyzcFl
Caption = "国有资产卡片分类"
End
Begin VB.Menu m1
Caption = "-"
End
Begin VB.Menu MenuBmKd
Caption = "单位级数设置"
End
Begin VB.Menu GyzcBmFl
Caption = "单位设置"
End
Begin VB.Menu m2
Caption = "-"
End
Begin VB.Menu MenuAddMode
Caption = "增加方式 "
End
Begin VB.Menu MenuLessMode
Caption = "减少方式 "
End
Begin VB.Menu A1
Caption = "-"
End
Begin VB.Menu Menujldw
Caption = "计量单位"
End
Begin VB.Menu MenuUseState
Caption = "使用情况设置 "
End
End
Begin VB.Menu MenuZCCZ
Caption = "日常操作"
Begin VB.Menu MenuKpZj
Caption = "卡片增加"
End
Begin VB.Menu MenuKpXg
Caption = "卡片修改"
End
Begin VB.Menu m3
Caption = "-"
End
Begin VB.Menu MenuKpSc
Caption = "卡片删除"
End
Begin VB.Menu MenuKpJs
Caption = "卡片减少"
End
Begin VB.Menu m4
Caption = "-"
End
Begin VB.Menu menuQxJs
Caption = "取消减少"
End
Begin VB.Menu MenuKpZy
Caption = "卡片转移"
End
End
Begin VB.Menu Menuqtcz
Caption = "其他操作"
Begin VB.Menu Menukpfz
Caption = "卡片复制"
End
Begin VB.Menu Menukpcf
Caption = "卡片折分"
End
End
Begin VB.Menu Menuym
Caption = "月末处理"
Begin VB.Menu Menuymcl
Caption = "月结"
End
Begin VB.Menu menucmonth
Caption = "反月结"
End
Begin VB.Menu s
Caption = "-"
End
Begin VB.Menu Menuyear
Caption = "年结"
End
Begin VB.Menu menucyear
Caption = "反年结"
End
End
Begin VB.Menu Menubb
Caption = "报表"
Begin VB.Menu Menubb1
Caption = "卡片列表（简单）"
End
Begin VB.Menu Menubb5
Caption = "卡片列表（复杂）"
End
Begin VB.Menu m5
Caption = "-"
End
Begin VB.Menu Menubb2
Caption = "卡片转移记录"
End
Begin VB.Menu Menubb3
Caption = "所属单位汇总表"
End
Begin VB.Menu Menubb4
Caption = "卡片类别汇总表"
End
End
Begin VB.Menu MenuXt
Caption = "系统管理"
Begin VB.Menu MenuCjzt
Caption = "新建帐套"
End
Begin VB.Menu MenuSjHf
Caption = "数据恢复"
End
Begin VB.Menu m6
Caption = "-"
End
Begin VB.Menu MenuSjbf
Caption = "数据备份"
End
Begin VB.Menu MentCzygl
Caption = "操作员管理"
End
Begin VB.Menu A5
Caption = "-"
End
Begin VB.Menu Mdelete
Caption = "删除帐套"
End
Begin VB.Menu MenuCxjc
Caption = "重新注册"
End
Begin VB.Menu A8
Caption = "-"
End
Begin VB.Menu ZC
Caption = "更换墙纸"
End
End
End
Attribute VB_Name = "mainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
Bar1.Panels(1).Width = Me.Width / 2
Bar1.Panels(1).Text = "帐 套 : " & Zt & " 操 作 员 : " & User
Bar1.Panels(2).Width = Me.Width / 2
Bar1.Panels(2).Text = "年度 : " & JZYEAR & "年" & " 月份 : " & Jzmonth & "月"
Image1.Top = 0
Image1.Left = 0
Image1.Width = Me.Width
Image1.Height = Me.Height
End Sub
Private Sub GyzcBmFl_Click()
FlMain.strtable = "DwBmCode"
FlMain.Caption = "单位设置"
FlMain.Show 1
End Sub
Private Sub MDIForm_Load()
End Sub
Private Sub Image2_Click()
End Sub
Private Sub MentCzygl_Click()
Zygl.Show 1
End Sub
Private Sub MenuAddMode_Click()
mode.strtable = "AddMode"
mode.Caption = "增加方式"
mode.Show 1
End Sub
Private Sub Menubb1_Click()
Bbcx2.Show 1
End Sub
Private Sub Menubb2_Click()
Dim myclass As New Bb
Dim str As String
str = "SELECT dbo.GyzcCare.BH AS 卡片编号, dbo.GyzcCare.Name AS 名称," & _
"dbo.GyzcCare.Je AS 金额, dbo.DbRecord.OutBm AS 转出单位," & _
"dbo.DbRecord.INBm AS 转入单位, dbo.DbRecord.Sj AS 转出时间 FROM dbo.DbRecord INNER JOIN " & _
" dbo.GyzcCare ON dbo.DbRecord.CareId = dbo.GyzcCare.BH"
Call myclass.AddGrid(str, Bb1.MSHFlexGrid1)
Bb1.Btlab = "卡片转移记录"
Bb1.Show 1
End Sub
Private Sub Menubb3_Click()
Bb2.strtable = "DwBmCode"
Bb2.Label1 = "所属单位汇总表"
Bb2.Show 1
End Sub
Private Sub Menubb4_Click()
Bb2.strtable = "GyzcCode"
Bb2.Label1 = "类别汇总表"
Bb2.Show 1
End Sub
Private Sub Menubb5_Click()
Bbcx1.Show 1
End Sub
Private Sub MenuBmKd_Click()
CodeMode.CodeMame = "DwBm"
CodeMode.Caption = "部门代码宽设置"
CodeMode.Show (1)
End Sub
Private Sub MenuCjzt_Click()
JZ.Show 1
End Sub
Private Sub menucmonth_Click()
Jzy.state = 2
Jzy.Show 1
End Sub
Private Sub MenuCxjc_Click()
Unload Me
DlForm.Show 1
End Sub
Private Sub MenuGyzcFl_Click()
FlMain.strtable = "GyzcCode"
FlMain.Caption = "资产分类"
FlMain.Show 1
End Sub
Private Sub MenuGyzcKpKd_Click()
Dim myform As New CodeMode
myform.CodeMame = "Gyzc"
myform.Caption = "国有资产代码宽设置"
myform.Show (1)
End Sub
Private Sub MenuZcJs_Click()
CareFind.Show 1
End Sub
Private Sub Menujldw_Click()
mode.strtable = "Jldw"
mode.Caption = "计量单位设置"
mode.Show 1
End Sub
Private Sub MenuKpJs_Click()
Gare.state = "Less"
CareFind.Show 1
End Sub
Private Sub MenuKpSc_Click()
Gare.state = "Delete"
CareFind.Show 1
End Sub
Private Sub MenuKpXg_Click()
Gare.state = "Edit"
CareFind.Show 1
End Sub
Private Sub MenuKpZj_Click()
Gare.state = "Add"
Gare.Show 1
End Sub
Private Sub MenuKpZy_Click()
Gare.state = "Goto"
CareFind.Show 1
End Sub
Private Sub MenuLessMode_Click()
mode.strtable = "LessMode"
mode.Caption = "减少方式"
mode.Show 1
End Sub
Private Sub menuQxJs_Click()
Gare.state = "NotLess"
CareFind.Show 1
End Sub
Private Sub MenuSjbf_Click()
BfHf.state = "Bf"
BfHf.Caption = "备份"
BfHf.Show 1
End Sub
Private Sub MenuSjHf_Click()
BfHf.state = "Hy"
BfHf.Caption = "恢复"
BfHf.Show 1
End Sub
Private Sub MenuUseState_Click()
mode.strtable = "UseState"
mode.Caption = "使用情况设置"
mode.Show 1
End Sub
Private Sub Menuymcl_Click()
Jzy.state = 1
Jzy.Show 1
End Sub
Private Sub ZC_Click()
On Error GoTo err:
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
mainForm.Image1.Picture = LoadPicture(CommonDialog1.FileName)
mainForm.Image1.Refresh
End If
Exit Sub
err:
MsgBox "无效的文件", vbInformation, "提示"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -