📄 frmdetail.frm
字号:
Height = 255
Index = 21
Left = 4680
TabIndex = 25
Top = 3360
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "21号"
Height = 255
Index = 20
Left = 3240
TabIndex = 24
Top = 3360
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "20号"
Height = 255
Index = 19
Left = 1800
TabIndex = 23
Top = 3360
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "19号"
Height = 255
Index = 18
Left = 360
TabIndex = 22
Top = 3360
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "18号"
Height = 255
Index = 17
Left = 7560
TabIndex = 21
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "17号"
Height = 255
Index = 16
Left = 6120
TabIndex = 20
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "16号"
Height = 255
Index = 15
Left = 4680
TabIndex = 19
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "15号"
Height = 255
Index = 14
Left = 3240
TabIndex = 18
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "14号"
Height = 255
Index = 13
Left = 1800
TabIndex = 17
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "13号"
Height = 255
Index = 12
Left = 360
TabIndex = 16
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "12号"
Height = 255
Index = 11
Left = 7560
TabIndex = 15
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "11号"
Height = 255
Index = 10
Left = 6120
TabIndex = 14
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "10号"
Height = 255
Index = 9
Left = 4680
TabIndex = 13
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "9号"
Height = 255
Index = 8
Left = 3240
TabIndex = 12
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "8号"
Height = 255
Index = 7
Left = 1800
TabIndex = 11
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "7号"
Height = 255
Index = 6
Left = 360
TabIndex = 10
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "6号"
Height = 255
Index = 5
Left = 7560
TabIndex = 9
Top = 480
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "5号"
Height = 255
Index = 4
Left = 6120
TabIndex = 8
Top = 480
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "4号"
Height = 255
Index = 3
Left = 4680
TabIndex = 7
Top = 480
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "3号"
Height = 255
Index = 2
Left = 3240
TabIndex = 6
Top = 480
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "2号"
Height = 255
Index = 1
Left = 1800
TabIndex = 5
Top = 480
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
Caption = "1号"
Height = 255
Index = 0
Left = 360
TabIndex = 4
Top = 480
Width = 1215
End
End
Begin VB.CommandButton Command1
Caption = "保存(&S)"
Height = 450
Index = 0
Left = 3240
TabIndex = 2
Top = 6720
Width = 1170
End
Begin VB.CommandButton Command1
Caption = "返回(&R)"
Height = 450
Index = 1
Left = 5160
TabIndex = 1
Top = 6720
Width = 1170
End
Begin VB.Line Line2
X1 = 120
X2 = 9240
Y1 = 1920
Y2 = 1920
End
Begin VB.Label lblTitle
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "排班情况"
ForeColor = &H000040C0&
Height = 240
Left = 3840
TabIndex = 0
Top = 210
Width = 1680
End
End
Attribute VB_Name = "frmDetail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public rspb As New ADODB.Recordset
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Dim i As Integer
For i = 1 To 62
If (Trim(Text1(i - 1).Text) < 100 And Trim(Text1(i - 1).Text) > 0) Or Trim(Text1(i - 1).Text) = "" Then
Else
MsgBox ("班次不符合！")
Exit Sub
End If
i = i + 1
Next
Dim cxtj As String
If StrName = "集体" Then
cxtj = "where 部门='" & StrBumen & "'"
Else
cxtj = "where 姓名='" & StrName & "'"
End If
Sql = "update 排班 set a1='" & Text1(0).Text & "', a2='" & Text1(1).Text & "', a3='" & Text1(2).Text & "', a4='" & Text1(3).Text & "',a5='" & Text1(4).Text & "', a6='" & Text1(5).Text & "', a7='" & Text1(6).Text & "',a8='" & Text1(7).Text & "', a9='" & Text1(8).Text & "', a10='" & Text1(9).Text & "', a11='" & Text1(10).Text & "', a12='" & Text1(11).Text & "', a13='" & Text1(12).Text & "'" & cxtj & ""
conn.Execute Sql
Sql = "update 排班 set a14='" & Text1(13).Text & "', a15='" & Text1(14).Text & "', a16='" & Text1(15).Text & "', a17='" & Text1(16).Text & "',a18='" & Text1(17).Text & "',a19='" & Text1(18).Text & "',a20='" & Text1(19).Text & "',a21='" & Text1(20).Text & "',a22='" & Text1(21).Text & "', a23='" & Text1(22).Text & "', a24='" & Text1(23).Text & "',a25='" & Text1(24).Text & "',a26='" & Text1(25).Text & "',a27='" & Text1(26).Text & "',a28='" & Text1(27).Text & "',a29='" & Text1(28).Text & "', a30='" & Text1(29).Text & "', a31='" & Text1(30).Text & "' " & cxtj & ""
conn.Execute Sql
Sql = "update 排班 set p11='" & Text1(51).Text & "', p12='" & Text1(50).Text & "', p13='" & Text1(49).Text & "', p14='" & Text1(48).Text & "', p15='" & Text1(47).Text & "', p16='" & Text1(46).Text & "', p17='" & Text1(45).Text & "',p18='" & Text1(44).Text & "',p19='" & Text1(43).Text & "', p20='" & Text1(42).Text & "', p21='" & Text1(41).Text & "', p22='" & Text1(40).Text & "', p23='" & Text1(39).Text & "', p24='" & Text1(38).Text & "',p25='" & Text1(37).Text & "',p26='" & Text1(36).Text & "',p27='" & Text1(35).Text & "',p28='" & Text1(34).Text & "',p29='" & Text1(33).Text & "', p30='" & Text1(32).Text & "', p31='" & Text1(31).Text & "' " & cxtj & ""
conn.Execute Sql
Sql = "update 排班 set p1='" & Text1(61).Text & "', p2='" & Text1(60).Text & "', p3='" & Text1(59).Text & "', p4='" & Text1(58).Text & "', p5='" & Text1(57).Text & "', p6='" & Text1(56).Text & "', p7='" & Text1(55).Text & "', p8='" & Text1(54).Text & "', p9='" & Text1(53).Text & "', p10='" & Text1(52).Text & "' " & cxtj & ""
conn.Execute Sql
MsgBox ("保存成功！")
Case 1
Unload Me
End Select
End Sub
Private Sub Form_Load()
lblTitle.Caption = StrName & "排班"
If rspb.State Then
rspb.Close
End If
If StrName = "集体" Then
Else
Sql = "select * from 排班 where 姓名='" & StrName & "'"
rspb.Open Sql, conn
Dim i As Integer
j = 3
For i = 0 To 61
If IsNull(rspb.Fields(j)) Then
Text1(i).Text = ""
Else
Text1(i).Text = Trim(rspb.Fields(j))
End If
If i < 31 Then
j = j + 2
Else
j = j - 2
End If
If i = 30 Then
j = 64
End If
Next
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -