📄 frmphjitaiin.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmPHJiTaiIn
BorderStyle = 0 'None
Caption = "喷绘机台业务日志输入"
ClientHeight = 7050
ClientLeft = 0
ClientTop = 0
ClientWidth = 6405
LinkTopic = "Form1"
Picture = "frmPHJiTaiIn.frx":0000
ScaleHeight = 7050
ScaleWidth = 6405
StartUpPosition = 2 '屏幕中心
Begin VB.ComboBox Combo2
Height = 300
Left = 4170
TabIndex = 24
Top = 4230
Width = 1545
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 1560
Picture = "frmPHJiTaiIn.frx":976C2
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 80
TabIndex = 23
Top = 5550
Width = 1200
End
Begin VB.PictureBox Picture2
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 3810
Picture = "frmPHJiTaiIn.frx":98C94
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 80
TabIndex = 22
Top = 5550
Width = 1200
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
Height = 285
Left = 2040
TabIndex = 8
Top = 4230
Width = 1245
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
Height = 285
Left = 4170
TabIndex = 7
Top = 3810
Width = 1515
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
Height = 285
Left = 2040
TabIndex = 6
Top = 3810
Width = 1245
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
Height = 285
Left = 4170
TabIndex = 10
Top = 3390
Width = 1515
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
Height = 285
Left = 2040
TabIndex = 9
Top = 3390
Width = 1245
End
Begin VB.ComboBox Combo1
Height = 300
Left = 4170
TabIndex = 5
Top = 2970
Width = 1515
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 285
Left = 2040
TabIndex = 4
Top = 2970
Width = 1245
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 285
Left = 2010
TabIndex = 1
Top = 1260
Width = 1245
End
Begin MSMask.MaskEdBox Mask1
Height = 285
Left = 4170
TabIndex = 2
Top = 1260
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
Appearance = 0
PromptInclude = 0 'False
MaxLength = 11
Mask = "9999年99月99日"
PromptChar = "_"
End
Begin MSMask.MaskEdBox Maskl1
Height = 225
Left = 2070
TabIndex = 13
Top = 1950
Visible = 0 'False
Width = 885
_ExtentX = 1561
_ExtentY = 397
_Version = 393216
Appearance = 0
PromptChar = "_"
End
Begin MSFlexGridLib.MSFlexGrid MSFlex1
Height = 1095
Left = 1140
TabIndex = 3
Top = 1710
Width = 4515
_ExtentX = 7964
_ExtentY = 1931
_Version = 393216
Cols = 4
FixedCols = 0
BackColorBkg = 12632256
Appearance = 0
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "操 作 员"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 8
Left = 3330
TabIndex = 21
Top = 4260
Width = 885
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "剩余长度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 7
Left = 1140
TabIndex = 20
Top = 4260
Width = 885
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "用布面积"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 6
Left = 3330
TabIndex = 19
Top = 3840
Width = 885
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "实际用布长度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 5
Left = 720
TabIndex = 18
Top = 3840
Width = 1305
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "原有长度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 4
Left = 3330
TabIndex = 17
Top = 3420
Width = 885
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "幅 宽"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 1140
TabIndex = 16
Top = 3420
Width = 885
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "布 料 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 2
Left = 3330
TabIndex = 15
Top = 3000
Width = 885
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "总 面 积"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 1140
TabIndex = 14
Top = 3000
Width = 885
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "日 期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 10
Left = 3300
TabIndex = 12
Top = 1290
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "喷绘序列"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 1140
TabIndex = 11
Top = 1290
Width = 885
End
Begin VB.Image Image2
Height = 375
Left = 5460
Picture = "frmPHJiTaiIn.frx":9A266
Top = 210
Width = 390
End
Begin VB.Image Image1
Height = 330
Left = 5880
Picture = "frmPHJiTaiIn.frx":9AA78
Top = 210
Width = 330
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "喷绘机台业务日志输入"
ForeColor = &H0000FFFF&
Height = 225
Left = 840
TabIndex = 0
Top = 300
Width = 1875
End
End
Attribute VB_Name = "frmPHJiTaiIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim n As Integer
Dim jframe As New dframe
Dim env As rdoEnvironment
Dim cn As rdoConnection
Dim result As rdoResultset
Dim result1 As rdoResultset
Dim sql As String
Dim sql1 As String
Dim d_conn As String
Dim i As Integer
Dim hrecord As Integer
Dim Alpha As String
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
End If
End Sub
Private Sub Combo1_LostFocus()
sql = "select * from clothtable where 布料编号='" & Trim(Combo1.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
Text3.Text = result("幅宽")
Text4.Text = result("布料原长度")
End If
End Sub
Private Sub Form_Load()
rgn1 = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -