📄 frmtest.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"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form Frmtest
Caption = "test"
ClientHeight = 8235
ClientLeft = 60
ClientTop = 345
ClientWidth = 9735
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 8235
ScaleWidth = 9735
Begin MSChart20Lib.MSChart MSChart1
Height = 3495
Left = 3240
OleObjectBlob = "frmtest.frx":0000
TabIndex = 11
Top = 1440
Width = 3375
End
Begin VB.ComboBox Combo2
Height = 300
Left = 3900
TabIndex = 10
Text = "Combo2"
Top = 450
Width = 1590
End
Begin ComCtl3.CoolBar CoolBar1
Height = 5625
Left = 225
TabIndex = 5
Top = 0
Width = 600
_ExtentX = 1058
_ExtentY = 9922
Orientation = 1
EmbossPicture = -1 'True
_CBWidth = 600
_CBHeight = 5625
_Version = "6.0.8169"
Child1 = "Toolbar1"
MinWidth1 = 900
MinHeight1 = 390
Width1 = 2370
NewRow1 = 0 'False
Child2 = "Combo1"
MinWidth2 = 105
MinHeight2 = 390
Width2 = 870
NewRow2 = 0 'False
Child3 = "Command5"
MinWidth3 = 105
MinHeight3 = 540
Width3 = 525
NewRow3 = 0 'False
Begin MSComctlLib.Toolbar Toolbar1
Height = 2370
Left = 105
TabIndex = 9
Top = 165
Width = 390
_ExtentX = 688
_ExtentY = 4180
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "a"
ImageIndex = 1
Style = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "b"
ImageIndex = 2
Style = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "c"
ImageIndex = 5
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "d"
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "e"
ImageIndex = 6
Style = 1
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "f"
ImageIndex = 7
Style = 1
EndProperty
EndProperty
End
Begin VB.ComboBox Combo1
Height = 300
Left = 105
TabIndex = 8
Text = "Combo1"
Top = 4305
Width = 390
End
Begin VB.CommandButton Command5
Caption = "Command5"
Height = 390
Left = 30
TabIndex = 7
Top = 5205
Width = 540
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 615
Left = -75
TabIndex = 6
ToolTipText = "未归于任何带区的控件，漂浮于COOLBAR之上"
Top = 150
Width = 765
End
End
Begin VB.TextBox rtxt
Height = 1815
Left = 1200
TabIndex = 4
Text = "Text1"
Top = 4440
Width = 4950
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3075
Top = 675
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 465
Left = 6300
TabIndex = 1
Top = 1650
Width = 1215
End
Begin MSComctlLib.ListView ListView1
Height = 3150
Left = 750
TabIndex = 0
Top = 1050
Width = 5010
_ExtentX = 8837
_ExtentY = 5556
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ImageList ImageList1
Left = 1800
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":234D
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":2692
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":2735
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":27DD
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":2887
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":29E0
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":30F4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":32AD
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmtest.frx":3353
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label2
Caption = "Label2"
Height = 465
Left = 6240
TabIndex = 3
Top = 3240
Width = 1440
End
Begin VB.Label Label1
Caption = "Label1"
Height = 540
Left = 1725
TabIndex = 2
Top = 2025
Width = 1965
End
End
Attribute VB_Name = "Frmtest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim conn1 As New ADODB.Connection
Dim conn2 As New ADODB.Connection
Option Base 1
Sub myChart()
Dim arrData(3, 1 To 3)
arrData(1, 1) = "Jan" ' 在第一列设置标签。
arrData(2, 1) = "Feb"
arrData(3, 1) = "Mar"
arrData(1, 2) = 8
arrData(2, 2) = 4
arrData(3, 2) = 0.3
arrData(1, 3) = 0.2
arrData(2, 3) = 3
arrData(3, 3) = 6.3
MSChart1.ChartData = arrData
End Sub
Sub mmm()
Dim arr(3, 4)
arr(1, 1) = "jan"
arr(1, 2) = 1
arr(1, 3) = 5
arr(1, 4) = 6.4
MSChart1.ChartData = arr
End Sub
'
Sub test()
Dim clmX As ColumnHeader
Dim itmX As ListItem
Dim i As Integer
ListView1.View = lvwReport
For i = 1 To 3
Set clmX = ListView1.ColumnHeaders.Add()
clmX.Text = "Col" & i
Next i
'添加 10 个具有相同图标的项目到列表中
For i = 1 To 10
Set itmX = ListView1.ListItems.Add()
itmX.Icon = 1
itmX.Text = "ListItem " & i
itmX.SubItems(1) = "Subitem 1"
itmX.SubItems(2) = "Subitem 2"
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
'Call update_subpmreference
'Call update_bom
'Call update_machine
'Call upd_subpmreference
'Call readdata simpleform0
'Call SimpleForm simpleform1
'For j = 0 To 16
' i = contrast(4)
'Next j
'Call update_bom
'Call getprocessplan
Call mmm
i = 0
End Sub
Private Sub Form_Load()
'Me.WindowState = 2
conn2.Open gConnstr, "scl"
conn1.Open "大机车"
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Set rs = Nothing
'Set conn = Nothing
Unload Me
End Sub
Sub set_subpmreference()
Dim mrs_r As New ADODB.Recordset
Dim mrs_w As New ADODB.Recordset
Dim mStrsqlr As String, mStrsqlw As String
mrs_r.Open "t_subprocessplan", conn, adOpenKeyset, adLockPessimistic
mrs_w.Open "t_subpmreference", conn, adOpenKeyset, adLockPessimistic
mrs_r.MoveFirst
While Not mrs_r.EOF
mrs_w.AddNew
mrs_w("drawingnumber") = mrs_r("drawingnumber")
mrs_w("processnumber") = mrs_r("processnumber")
mrs_w("referencepartno") = mrs_r("addpartdrawingno")
mrs_w("machinemodel") = "empty"
Dim MyValue
MyValue = Int((6 * Rnd) + 1)
mrs_w("elapsetime") = MyValue
mrs_w("workeramount") = 1
mrs_w.Update
mrs_r.MoveNext
Wend
mrs_r.Close
mrs_w.Close
End Sub
Sub update_subpmreference()
Dim mrs_r As New ADODB.Recordset, rs1 As New ADODB.Recordset
Dim mStrsqlr As String, mStrsqlw As String, i As Integer
i = 0
mrs_r.CursorLocation = adUseClient
mrs_r.Open "t_subpmreference", conn, adOpenKeyset, adLockPessimistic
mrs_r.MoveFirst
While Not mrs_r.EOF
mStrsqlr = "select distinct partname from t_spbillofmaterial where pardrawingnumber='"
mStrsqlr = mStrsqlr & mrs_r("drawingnumber") & "'"
rs1.CursorLocation = adUseClient
rs1.Open mStrsqlr, conn, adOpenKeyset, adLockPessimistic
If rs1.RecordCount = 0 Then
mrs_r("partname") = "empty"
Else
mrs_r("partname") = rs1(0)
End If
rs1.Close
'mrs_r("partname") = mrs_r("drawingnumber")
mrs_r("processname") = mrs_r("processnumber")
mStrsqlr = "select distinct partname from t_spbillofmaterial where pardrawingnumber='"
mStrsqlr = mStrsqlr & mrs_r("referencepartno") & "'"
rs1.CursorLocation = adUseClient
rs1.Open mStrsqlr, conn, adOpenKeyset, adLockPessimistic
If rs1.RecordCount = 0 Then
mrs_r("rpartname") = "empty"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -