📄 frmphyewuin.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 frmPHYeWuIn
BorderStyle = 0 'None
Caption = "喷绘业务情况"
ClientHeight = 6120
ClientLeft = 0
ClientTop = 0
ClientWidth = 6435
LinkTopic = "Form1"
Picture = "frmPHYeWuIn.frx":0000
ScaleHeight = 6120
ScaleWidth = 6435
StartUpPosition = 2 '屏幕中心
Begin MSMask.MaskEdBox Maskl1
Height = 225
Left = 2040
TabIndex = 26
Top = 1890
Visible = 0 'False
Width = 885
_ExtentX = 1561
_ExtentY = 397
_Version = 393216
Appearance = 0
PromptChar = "_"
End
Begin VB.PictureBox Picture2
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 3780
Picture = "frmPHYeWuIn.frx":8157A
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 80
TabIndex = 25
Top = 5100
Width = 1200
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 1500
Picture = "frmPHYeWuIn.frx":82B4C
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 80
TabIndex = 12
Top = 5100
Width = 1200
End
Begin MSMask.MaskEdBox Mask1
Height = 285
Left = 3900
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 VB.ComboBox Combo4
Height = 300
Left = 1980
TabIndex = 11
Top = 4050
Width = 1125
End
Begin VB.ComboBox Combo3
Height = 300
Left = 3900
TabIndex = 10
Top = 3690
Width = 1485
End
Begin VB.ComboBox Combo2
Height = 300
Left = 1980
TabIndex = 9
Top = 3690
Width = 1125
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
Height = 285
Left = 3900
TabIndex = 7
Top = 3300
Width = 1485
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
Height = 285
Left = 1980
TabIndex = 6
Top = 3300
Width = 1005
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
Height = 285
Left = 3900
TabIndex = 5
Top = 2910
Width = 1485
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
Height = 285
Left = 1980
TabIndex = 4
Top = 2910
Width = 1005
End
Begin MSFlexGridLib.MSFlexGrid MSFlex1
Height = 1095
Left = 1110
TabIndex = 3
Top = 1650
Width = 4245
_ExtentX = 7488
_ExtentY = 1931
_Version = 393216
FixedCols = 0
BackColorBkg = 12632256
Appearance = 0
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 285
Left = 1980
TabIndex = 1
Top = 1260
Width = 1005
End
Begin VB.ComboBox Combo1
Height = 300
Left = 3900
TabIndex = 0
Top = 930
Width = 1485
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 285
Left = 1980
TabIndex = 8
Top = 930
Width = 1005
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 = 3030
TabIndex = 24
Top = 1320
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 = 9
Left = 1110
TabIndex = 23
Top = 4110
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 = 8
Left = 3210
TabIndex = 22
Top = 3720
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 = 1110
TabIndex = 21
Top = 3720
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 = 3030
TabIndex = 20
Top = 3330
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 = 1110
TabIndex = 19
Top = 3330
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 = 4
Left = 3030
TabIndex = 18
Top = 2940
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 = 1110
TabIndex = 17
Top = 2940
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 = 1110
TabIndex = 16
Top = 1320
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 = 1
Left = 3030
TabIndex = 15
Top = 960
Width = 915
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 = 1110
TabIndex = 14
Top = 960
Width = 885
End
Begin VB.Image Image1
Height = 330
Left = 5880
Picture = "frmPHYeWuIn.frx":8411E
Top = 210
Width = 330
End
Begin VB.Image Image2
Height = 375
Left = 5460
Picture = "frmPHYeWuIn.frx":84738
Top = 210
Width = 390
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "喷绘业务情况录入"
ForeColor = &H0000FFFF&
Height = 255
Left = 900
TabIndex = 13
Top = 300
Width = 1515
End
End
Attribute VB_Name = "frmPHYeWuIn"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -