📄 main.frm
字号:
Begin EditGridLib.EditGrid eg1
Height = 5535
Left = 240
TabIndex = 31
Top = 360
Width = 9615
_ExtentX = 16960
_ExtentY = 9763
BackColor = -2147483629
BackColorBkg = -2147483638
ForeColorSel = 0
ForeColorFixed = -2147483641
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty FontFixed {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
AllowUserResizing= 3
OverLocked = -1 'True
OverLocked = -1 'True
TextCompareMethod= 0
End
End
Begin VB.PictureBox Picture2
Height = 7455
Index = 1
Left = 2040
ScaleHeight = 7395
ScaleWidth = 10155
TabIndex = 6
Top = 1200
Width = 10215
Begin VB.ComboBox Combo1
Height = 300
Index = 1
ItemData = "main.frx":3DCA
Left = 1440
List = "main.frx":3DCC
TabIndex = 64
Text = "赵作良"
Top = 5640
Width = 2055
End
Begin VB.CheckBox Check4
Caption = "是否现结"
Height = 375
Left = 360
TabIndex = 44
Top = 6120
Width = 1815
End
Begin CSCommandSCE.CommandSCE CommandSCE1
Height = 375
Left = 8760
TabIndex = 30
Top = 6360
Width = 1095
_ExtentX = 1931
_ExtentY = 661
Icon = "main.frx":3DCE
Caption = "保存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComCtl2.DTPicker DTP2
Height = 255
Left = 1440
TabIndex = 29
Top = 5160
Width = 2055
_ExtentX = 3625
_ExtentY = 450
_Version = 393216
Format = 23461889
CurrentDate = 38180
End
Begin VB.TextBox Text1
Height = 375
Index = 6
Left = 1440
TabIndex = 28
Top = 4560
Width = 2055
End
Begin VB.TextBox Text1
Height = 375
Index = 5
Left = 1440
TabIndex = 27
Top = 3960
Width = 2055
End
Begin VB.TextBox Text1
Height = 375
Index = 4
Left = 1440
TabIndex = 26
Top = 3480
Width = 2055
End
Begin VB.TextBox Text1
Height = 375
Index = 3
Left = 1440
TabIndex = 25
Top = 3000
Width = 2055
End
Begin VB.TextBox Text1
Height = 375
Index = 2
Left = 1440
TabIndex = 24
Top = 2400
Width = 2055
End
Begin VB.TextBox Text1
Height = 375
Index = 1
Left = 1440
TabIndex = 23
Top = 1920
Width = 2055
End
Begin MSComCtl2.DTPicker DTP1
Height = 255
Left = 1440
TabIndex = 22
Top = 1560
Width = 2055
_ExtentX = 3625
_ExtentY = 450
_Version = 393216
Format = 23461889
CurrentDate = 38180
End
Begin VB.ComboBox Combo1
Height = 300
Index = 0
ItemData = "main.frx":3F28
Left = 1440
List = "main.frx":3F47
TabIndex = 21
Text = "产品"
Top = 960
Width = 2055
End
Begin VB.TextBox Text1
Height = 375
Index = 0
Left = 1440
TabIndex = 11
Top = 360
Width = 2055
End
Begin VB.Label Label1
Caption = "业务员"
Height = 255
Index = 10
Left = 360
TabIndex = 63
Top = 5760
Width = 735
End
Begin VB.Image Image3
Height = 5925
Left = 4320
Picture = "main.frx":3F81
Top = 240
Width = 5430
End
Begin VB.Label Label1
Caption = "收款日期"
Height = 255
Index = 9
Left = 360
TabIndex = 20
Top = 5160
Width = 735
End
Begin VB.Label Label1
Caption = "备注"
Height = 255
Index = 8
Left = 360
TabIndex = 19
Top = 4640
Width = 735
End
Begin VB.Label Label1
Caption = "价值"
Height = 255
Index = 7
Left = 360
TabIndex = 18
Top = 4120
Width = 735
End
Begin VB.Label Label1
Caption = "单价"
Height = 255
Index = 6
Left = 360
TabIndex = 17
Top = 3600
Width = 735
End
Begin VB.Label Label1
Caption = "数量（只）"
Height = 255
Index = 5
Left = 360
TabIndex = 16
Top = 3080
Width = 975
End
Begin VB.Label Label1
Caption = "规格型号"
Height = 255
Index = 4
Left = 360
TabIndex = 15
Top = 2560
Width = 735
End
Begin VB.Label Label1
Caption = "单位"
Height = 255
Index = 3
Left = 360
TabIndex = 14
Top = 2040
Width = 735
End
Begin VB.Label Label1
Caption = "日期"
Height = 255
Index = 2
Left = 360
TabIndex = 13
Top = 1520
Width = 735
End
Begin VB.Label Label1
Caption = "类别"
Height = 255
Index = 1
Left = 360
TabIndex = 12
Top = 1000
Width = 735
End
Begin VB.Label Label1
Caption = "单号"
Height = 255
Index = 0
Left = 360
TabIndex = 10
Top = 480
Width = 735
End
End
Begin VB.PictureBox Picture2
Height = 7455
Index = 0
Left = 2040
Picture = "main.frx":100CF
ScaleHeight = 7395
ScaleWidth = 10155
TabIndex = 5
Top = 1200
Width = 10215
End
Begin VB.PictureBox Picture1
BackColor = &H80000013&
BorderStyle = 0 'None
Height = 7455
Left = 0
ScaleHeight = 7455
ScaleWidth = 2055
TabIndex = 0
Top = 1200
Width = 2055
Begin CSCommand.Command Command5
Height = 615
Left = 480
TabIndex = 43
Top = 3720
Width = 1095
_ExtentX = 1931
_ExtentY = 1085
IconAlign = 0
Icon = "main.frx":4823D
Caption = "系统"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "main.frx":48397
End
Begin CSCommand.Command Command4
Height = 615
Left = 480
TabIndex = 4
Top = 2880
Width = 1095
_ExtentX = 1931
_ExtentY = 1085
IconAlign = 0
Icon = "main.frx":49C8F
Caption = "统计"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "main.frx":49CAB
End
Begin CSCommand.Command Command3
Height = 615
Left = 480
TabIndex = 3
Top = 2040
Width = 1095
_ExtentX = 1931
_ExtentY = 1085
IconAlign = 0
Icon = "main.frx":4B5A3
Caption = "修正"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "main.frx":4B5BF
End
Begin CSCommand.Command Command2
Height = 615
Left = 480
TabIndex = 2
Top = 1200
Width = 1095
_ExtentX = 1931
_ExtentY = 1085
IconAlign = 0
Icon = "main.frx":4CEB7
Caption = "提示"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DisabledFontColor= 255
Picture = "main.frx":4CED3
End
Begin CSCommand.Command Command1
Height = 615
Left = 480
TabIndex = 1
Top = 360
Width = 1095
_ExtentX = 1931
_ExtentY = 1085
IconAlign = 0
Icon = "main.frx":4E7CB
Caption = "录入"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "main.frx":4E7E7
End
End
Begin VB.Image Image1
Height = 1245
Left = 0
Picture = "main.frx":500DF
Top = 0
Width = 12210
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private sqltxt As String
Private msgtxt As String
Private rst As ADODB.Recordset
Private Sub Command1_Click()
Picture2(1).ZOrder 0
End Sub
Private Sub Command2_Click()
Picture2(2).ZOrder 0
'eg1.Rows = 10
'eg1.Cols = 10
'eg1.RowBackColor(1) = &HFF&
'***********************************
Dim a As Integer
Dim i As Integer
With eg1
' .CellType(1) = ctBoolean
.ColWidth(0) = 500
'.ColWidth(1) = 1000
'.ColWidth(7) = 1000
' .ColWidth(10) = 2500
' .ColWidth(12) = 1800
.Cols = 13
.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) = "备注"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -