📄 form63.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"
Begin VB.Form Form63
BorderStyle = 0 'None
Caption = "Form63"
ClientHeight = 8010
ClientLeft = 0
ClientTop = 0
ClientWidth = 12045
LinkTopic = "Form63"
Picture = "Form63.frx":0000
ScaleHeight = 8010
ScaleWidth = 12045
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "编辑"
ForeColor = &H00FF0000&
Height = 7995
Left = 0
TabIndex = 0
Top = 0
Width = 1215
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form63.frx":2C55
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 4
Top = 3120
Width = 495
End
Begin VB.PictureBox Picture4
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form63.frx":351F
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 3
Top = 4320
Width = 495
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form63.frx":39BC
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 2
Top = 1920
Width = 495
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form63.frx":4286
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 1
Top = 720
Width = 495
End
Begin VB.Label Label4
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "保存"
ForeColor = &H00FF0000&
Height = 255
Left = 465
TabIndex = 8
Top = 2880
Width = 495
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "关闭"
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 7
Top = 4080
Width = 495
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "修改"
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 6
Top = 480
Width = 495
End
Begin VB.Label Label5
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "删除"
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 5
Top = 1680
Width = 495
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 10560
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ListView ListView1
Height = 7575
Left = 1200
TabIndex = 9
Top = 0
Width = 10815
_ExtentX = 19076
_ExtentY = 13361
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = 0
BackColor = 16777215
BorderStyle = 1
Appearance = 0
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = " 序号"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "姓名"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "工程编号"
Object.Width = 4657
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "工程名称"
Object.Width = 5292
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "结算员"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 5
Text = "结算时间"
Object.Width = 3353
EndProperty
Picture = "Form63.frx":4B50
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 375
Left = 1200
TabIndex = 10
Top = 7680
Width = 11175
End
End
Attribute VB_Name = "Form63"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim normalstring(30) As String
Dim mm As Integer
Dim string1, string2 As String
Option Explicit
Dim rn As ADODB.Connection
Private Sub Form_Load()
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
End Sub
Private Sub Picture1_Click()
Dim i, m, j, n, k, p, l, d, z, e, f As Integer
Dim c, MyPos, MyPos1 As Integer
Dim c1, c2, c3, c4, c5, SearchString, SearchChar As String
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59, a60, a61, a62, a63, a64, a65, a66, a67, a68, a69, a70, a71, a72, a73, a74, a75, a76, a77, a78, a79, a80, a81, a82, a83, a84, a85, a86, a87, a88, a89, a90, a91, a92, a93, a94, a95, a96, a97, a98, a99, a100, a101, a102, a103, a104, a105, a106, a107, a108, a109, a110, a111, a112, a113, a114, a115, a116, a117, a118, a119, a120, a121, a122, a123, a124, a125, a126, a127, a128, a129, a130, a131
Dim da As Date
da = Date
For i = 1 To Form63.ListView1.ListItems.Count
If Form63.ListView1.ListItems.Item(i).Checked = True Then
m = m + 1
End If
Next
If m <> 1 Then
MsgBox "修改一条记录！", vbInformation, "提示"
Exit Sub
End If
l = 0
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 经营人员结算单", hzconn, adOpenKeyset, adLockPessimistic
For j = 1 To Form63.ListView1.ListItems.Count
If Form63.ListView1.ListItems.Item(j).Checked = True Then
For n = 1 To hzrs.RecordCount
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -