📄 frmcrkdrhz.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{CCF682E3-14F1-11D7-80E2-10E08C102140}#1.0#0"; "ZPROGBAR.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmZhCx
BackColor = &H80000004&
Caption = "固定资产台帐查询"
ClientHeight = 3855
ClientLeft = 60
ClientTop = 450
ClientWidth = 11760
Icon = "FrmCrkDrHz.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3855
ScaleWidth = 11760
WindowState = 2 'Maximized
Begin VB.Data Data_SyDw
Connect = "Access"
DatabaseName = "ZcTz97.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 8550
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "使用单位"
Top = 3210
Visible = 0 'False
Width = 1140
End
Begin VB.TextBox SbMc
Alignment = 2 'Center
Height = 270
Left = 915
TabIndex = 15
Top = 1005
Width = 1545
End
Begin VB.Data DataSum
BackColor = &H00FF00FF&
Caption = "Sum"
Connect = "Access"
DatabaseName = "ZcTz97.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 6495
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3420
Visible = 0 'False
Width = 1740
End
Begin VB.Data Data9
BackColor = &H00FF00FF&
Caption = "Zctz"
Connect = "Access"
DatabaseName = "ZcTz97.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 6465
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3045
Visible = 0 'False
Width = 1800
End
Begin VB.ComboBox ComSyDw
Height = 300
ItemData = "FrmCrkDrHz.frx":F84A
Left = 7650
List = "FrmCrkDrHz.frx":F857
TabIndex = 8
Top = 975
Width = 2175
End
Begin VB.PictureBox Picture
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 810
Left = -15
Picture = "FrmCrkDrHz.frx":F87F
ScaleHeight = 810
ScaleWidth = 17460
TabIndex = 0
Top = 0
Width = 17460
Begin ZealProgressBar.ProgressBar Bar1
Height = 210
Left = 3915
TabIndex = 13
Top = 555
Visible = 0 'False
Width = 6180
_ExtentX = 10901
_ExtentY = 370
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton ComJs
Caption = "计算"
Height = 570
Left = 585
Picture = "FrmCrkDrHz.frx":2C7BF
Style = 1 'Graphical
TabIndex = 11
Top = 90
Width = 525
End
Begin VB.CommandButton Command1
Caption = "退出"
Height = 570
Left = 1485
Picture = "FrmCrkDrHz.frx":2CB49
Style = 1 'Graphical
TabIndex = 10
Top = 90
Width = 525
End
Begin VB.CommandButton ComToExcl
Caption = "导出"
Height = 570
Left = 105
Picture = "FrmCrkDrHz.frx":2CED3
Style = 1 'Graphical
TabIndex = 9
Top = 90
Width = 480
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5640
TabIndex = 2
Top = 120
Width = 135
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "固定资产台帐查询"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 5295
TabIndex = 1
Top = 135
Width = 2520
End
End
Begin MSComCtl2.DTPicker dtpEnd
Height = 315
Left = 5325
TabIndex = 3
Top = 975
Width = 1410
_ExtentX = 2487
_ExtentY = 556
_Version = 393216
Format = 25296897
CurrentDate = 38225
End
Begin MSComCtl2.DTPicker dtpBegin
Height = 315
Left = 3630
TabIndex = 4
Top = 975
Width = 1350
_ExtentX = 2381
_ExtentY = 556
_Version = 393216
Format = 25296897
CurrentDate = 38215
End
Begin MSFlexGridLib.MSFlexGrid Grdlist
Height = 1155
Left = 210
TabIndex = 12
ToolTipText = "双击查看明细"
Top = 1545
Width = 10305
_ExtentX = 18177
_ExtentY = 2037
_Version = 393216
FixedCols = 0
BackColor = -2147483634
ForeColor = -2147483641
BackColorFixed = 16763594
BackColorBkg = 16777215
ScrollTrack = -1 'True
SelectionMode = 1
AllowUserResizing= 3
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "设备名称"
Height = 180
Left = 105
TabIndex = 14
Top = 1005
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "使用单位:"
Height = 180
Left = 6855
TabIndex = 7
Top = 1035
Width = 810
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "到"
Height = 180
Left = 5070
TabIndex = 6
Top = 1005
Width = 180
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "录入日期 从: "
Height = 180
Left = 2550
TabIndex = 5
Top = 1035
Width = 1170
End
End
Attribute VB_Name = "FrmZhCx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Xj As Currency
Public ChangSe As Boolean
Public Jlbh As String
Private Sub ComJs_Click()
MyWindowsBT
DataAdd
' Grdlistini
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Move 0, 0, Main.ScaleWidth, Main.ScaleHeight
dtpBegin.Value = Date
dtpEnd.Value = Date
ComSyDw.Text = "割绒车间"
Data_SyDw.RecordSource = "select * from 使用单位"
Data_SyDw.Refresh
With Data_SyDw
ComSyDw.Clear
Do While Not .Recordset.EOF
ComSyDw.AddItem .Recordset.Fields(1)
.Recordset.MoveNext
Loop
End With
DataAdd '加载数据
MyWindowsBT '定义标题
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Or Main.WindowState = 1 Then Exit Sub
Grdlist.Move 100, SbMc.Top + SbMc.Height + 50, Me.ScaleWidth - 200, Me.ScaleHeight - 1500
End Sub
Private Sub Grdlistini()
Dim i%, j%, Sl(18) As Currency
Dim tzdh As String, HTdj As Currency, JeHj As Currency
With Grdlist
.Cols = 12
.TextMatrix(0, 0) = "记录编号"
.TextMatrix(0, 1) = "页 码"
.TextMatrix(0, 2) = "使用单位"
.TextMatrix(0, 3) = "设备名称"
.TextMatrix(0, 4) = "型 号"
.TextMatrix(0, 5) = "制造厂名"
.TextMatrix(0, 6) = "出厂编号"
.TextMatrix(0, 7) = "出厂年月"
.TextMatrix(0, 8) = "安装年月"
.TextMatrix(0, 9) = "单 位"
.TextMatrix(0, 10) = "安装数量"
.TextMatrix(0, 11) = "备 注"
.ColWidth(0) = 0
.ColWidth(1) = 1000
.ColWidth(2) = 1500
.ColWidth(3) = 1500
.ColWidth(4) = 1500
.ColWidth(5) = 2000
.ColWidth(6) = 1200
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -