📄 主台帐查询.frm
字号:
ImageIndex = 5
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "fh"
ImageIndex = 6
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageList ImageList1
Left = 5040
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1DF82
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1E31C
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1E6B6
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1EA50
Key = "cx"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1EDEA
Key = "bz"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1F184
Key = "tc"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1F51E
Key = "bcgs"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1F8B8
Key = "mrlk"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1FC52
Key = "xsxm"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":1FFEC
Key = "sx"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":20386
Key = "bj"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主台帐查询.frx":20720
Key = "gl"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar GsToolbar
Height = 540
Left = 11010
TabIndex = 4
Top = 0
Width = 840
_ExtentX = 1482
_ExtentY = 953
ButtonWidth = 1455
ButtonHeight = 953
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存格式"
Key = "bcgs"
ImageIndex = 7
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "默认列宽"
Key = "hfmrgs"
ImageIndex = 8
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Caption = "显示项目"
Key = "szxsxm"
ImageIndex = 9
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "Dev_ItemQInfoForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim ReportTitle As String '报表主标题
Private Sub Command1_Click()
If vsFlexGrid1.Row > 0 Then
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
StrTemp = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
Dev_ListMalfunctionForm.Show 1
End If
Else
End If
End Sub
Private Sub Command2_Click()
If vsFlexGrid1.Row > 0 Then
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
StrTemp = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
Dev_ListCheckForm.Show 1
End If
Else
End If
End Sub
Private Sub Command3_Click()
If vsFlexGrid1.Row > 0 Then
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
StrTemp = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
Dev_ListRepairForm.Show 1
End If
Else
End If
End Sub
Private Sub Command4_Click()
If vsFlexGrid1.Row > 0 Then
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
StrTemp = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
Dev_ListLubricateForm.Show 1
End If
Else
End If
End Sub
Private Sub Form_Load()
XtReportCode = "DEV_main"
Load Dyymctbl
ReportTitle = "设备台帐列表"
End Sub
Private Sub Form_Resize()
On Error Resume Next
With vsFlexGrid1
If Me.Width < 10455 Then Me.Width = 10455
If Me.Height < 6375 Then Me.Height = 6375
.Width = Me.Width - 120
.Height = Me.Height - .Top - 400
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
'卸载条件窗体
Dev_ItemQFilt.UnloadCheck.Value = 1
Unload Dev_ItemQFilt
'卸载打印页面设置窗体
Unload Dyymctbl
End Sub
Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "bcgs"
Dim i As Integer
With vsFlexGrid1
For i = 1 To .Cols - 1
Cw_DataEnvi.DataConnect.Execute "update dev_Item set width=" & .ColWidth(i) & " where ItemChineseName='" & .TextMatrix(0, i) & "'"
Next i
MsgBox "表格格式保存完毕! ", vbInformation, "新世纪/ERP设备管理系统"
End With
End Select
End Sub
Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "ymsz" '页面设置
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
Dyymctbl.Show 1
End If
Case "yl" '预 览
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
Call bbyl(True)
End If
Case "dy" '打 印
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
Call bbyl(False)
End If
Case "Filt"
Dev_ItemQFilt.Caption = "台帐---过滤"
Dev_ItemQFilt.Show 1
Case "sx"
Dev_ItemQFilt.Enployeeinfo_Query P_Ssql
Case "Edit"
vsFlexGrid1_DblClick
Case "bz" '帮 助
Call F1bz
Case "fh"
Unload Me
End Select
End Sub
Private Sub bbyl(bbylte As Boolean) '报表打印预览
Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
Bbxbtgs = 1 '报 表 小 标 题 行 数
Bbbwhgs = 0 '报 表 表 尾 行 数
ReDim Bbxbt(1 To Bbxbtgs)
ReDim bbxbtzzxs(1 To Bbxbtgs)
If Bbbwhgs <> 0 Then
ReDim Bbbwh(1 To Bbbwhgs)
ReDim Bbbwhzzxs(1 To Bbbwhgs)
End If
Bbzbt = ReportTitle
Bbxbt(1) = " "
bbxbtzzxs(1) = 0 '报表行组织形式(0-居左 1-居中 2-居右)
Call Scyxsjb(vsFlexGrid1) '生成报表数据
Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
If Not bbylte Then
Unload DY_Tybbyldy
End If
End Sub
Private Sub vsFlexGrid1_DblClick()
If vsFlexGrid1.Row > 0 Then
If vsFlexGrid1.TextMatrix(0, 0) <> "" Then
AddExit_TF = False
With Dev_ItemInfoForm
.Caption = "设备档案修改"
.Text1.Text = Dev_ItemQInfoForm.vsFlexGrid1.Tag
.Command1.Tag = Me.Tag
.Form_Load
.Text_t(1).Text = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
.Text_T_KeyDown 1, 13, 0
.Show 1
End With
End If
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -