📄 frmpaichange.frm
字号:
_StyleDefs(33) = "Splits(0).Columns(0).HeadingStyle:id=29,.parent=14"
_StyleDefs(34) = "Splits(0).Columns(0).FooterStyle:id=30,.parent=15"
_StyleDefs(35) = "Splits(0).Columns(0).EditorStyle:id=31,.parent=17"
_StyleDefs(36) = "Splits(0).Columns(1).Style:id=46,.parent=13,.locked=-1"
_StyleDefs(37) = "Splits(0).Columns(1).HeadingStyle:id=43,.parent=14"
_StyleDefs(38) = "Splits(0).Columns(1).FooterStyle:id=44,.parent=15"
_StyleDefs(39) = "Splits(0).Columns(1).EditorStyle:id=45,.parent=17"
_StyleDefs(40) = "Splits(0).Columns(2).Style:id=50,.parent=13,.locked=-1"
_StyleDefs(41) = "Splits(0).Columns(2).HeadingStyle:id=47,.parent=14"
_StyleDefs(42) = "Splits(0).Columns(2).FooterStyle:id=48,.parent=15"
_StyleDefs(43) = "Splits(0).Columns(2).EditorStyle:id=49,.parent=17"
_StyleDefs(44) = "Splits(0).Columns(3).Style:id=54,.parent=13,.locked=-1"
_StyleDefs(45) = "Splits(0).Columns(3).HeadingStyle:id=51,.parent=14"
_StyleDefs(46) = "Splits(0).Columns(3).FooterStyle:id=52,.parent=15"
_StyleDefs(47) = "Splits(0).Columns(3).EditorStyle:id=53,.parent=17"
_StyleDefs(48) = "Splits(0).Columns(4).Style:id=58,.parent=13,.locked=-1"
_StyleDefs(49) = "Splits(0).Columns(4).HeadingStyle:id=55,.parent=14"
_StyleDefs(50) = "Splits(0).Columns(4).FooterStyle:id=56,.parent=15"
_StyleDefs(51) = "Splits(0).Columns(4).EditorStyle:id=57,.parent=17"
_StyleDefs(52) = "Splits(0).Columns(5).Style:id=82,.parent=13"
_StyleDefs(53) = "Splits(0).Columns(5).HeadingStyle:id=79,.parent=14"
_StyleDefs(54) = "Splits(0).Columns(5).FooterStyle:id=80,.parent=15"
_StyleDefs(55) = "Splits(0).Columns(5).EditorStyle:id=81,.parent=17"
_StyleDefs(56) = "Splits(0).Columns(6).Style:id=62,.parent=13,.locked=0"
_StyleDefs(57) = "Splits(0).Columns(6).HeadingStyle:id=59,.parent=14"
_StyleDefs(58) = "Splits(0).Columns(6).FooterStyle:id=60,.parent=15"
_StyleDefs(59) = "Splits(0).Columns(6).EditorStyle:id=61,.parent=17"
_StyleDefs(60) = "Splits(0).Columns(7).Style:id=86,.parent=13"
_StyleDefs(61) = "Splits(0).Columns(7).HeadingStyle:id=83,.parent=14"
_StyleDefs(62) = "Splits(0).Columns(7).FooterStyle:id=84,.parent=15"
_StyleDefs(63) = "Splits(0).Columns(7).EditorStyle:id=85,.parent=17"
_StyleDefs(64) = "Splits(0).Columns(8).Style:id=90,.parent=13"
_StyleDefs(65) = "Splits(0).Columns(8).HeadingStyle:id=87,.parent=14"
_StyleDefs(66) = "Splits(0).Columns(8).FooterStyle:id=88,.parent=15"
_StyleDefs(67) = "Splits(0).Columns(8).EditorStyle:id=89,.parent=17"
_StyleDefs(68) = "Splits(0).Columns(9).Style:id=28,.parent=13"
_StyleDefs(69) = "Splits(0).Columns(9).HeadingStyle:id=25,.parent=14"
_StyleDefs(70) = "Splits(0).Columns(9).FooterStyle:id=26,.parent=15"
_StyleDefs(71) = "Splits(0).Columns(9).EditorStyle:id=27,.parent=17"
_StyleDefs(72) = "Splits(0).Columns(10).Style:id=66,.parent=13,.locked=-1"
_StyleDefs(73) = "Splits(0).Columns(10).HeadingStyle:id=63,.parent=14"
_StyleDefs(74) = "Splits(0).Columns(10).FooterStyle:id=64,.parent=15"
_StyleDefs(75) = "Splits(0).Columns(10).EditorStyle:id=65,.parent=17"
_StyleDefs(76) = "Splits(0).Columns(11).Style:id=70,.parent=13,.locked=-1"
_StyleDefs(77) = "Splits(0).Columns(11).HeadingStyle:id=67,.parent=14"
_StyleDefs(78) = "Splits(0).Columns(11).FooterStyle:id=68,.parent=15"
_StyleDefs(79) = "Splits(0).Columns(11).EditorStyle:id=69,.parent=17"
_StyleDefs(80) = "Splits(0).Columns(12).Style:id=74,.parent=13,.locked=-1"
_StyleDefs(81) = "Splits(0).Columns(12).HeadingStyle:id=71,.parent=14"
_StyleDefs(82) = "Splits(0).Columns(12).FooterStyle:id=72,.parent=15"
_StyleDefs(83) = "Splits(0).Columns(12).EditorStyle:id=73,.parent=17"
_StyleDefs(84) = "Named:id=33:Normal"
_StyleDefs(85) = ":id=33,.parent=0"
_StyleDefs(86) = "Named:id=34:Heading"
_StyleDefs(87) = ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(88) = ":id=34,.wraptext=-1"
_StyleDefs(89) = "Named:id=35:Footing"
_StyleDefs(90) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(91) = "Named:id=36:Selected"
_StyleDefs(92) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(93) = "Named:id=37:Caption"
_StyleDefs(94) = ":id=37,.parent=34,.alignment=2"
_StyleDefs(95) = "Named:id=38:HighlightRow"
_StyleDefs(96) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(97) = "Named:id=39:EvenRow"
_StyleDefs(98) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
_StyleDefs(99) = "Named:id=40:OddRow"
_StyleDefs(100) = ":id=40,.parent=33"
_StyleDefs(101) = "Named:id=41:RecordSelector"
_StyleDefs(102) = ":id=41,.parent=34"
_StyleDefs(103) = "Named:id=42:FilterBar"
_StyleDefs(104) = ":id=42,.parent=33"
End
Begin MSAdodcLib.Adodc DatprimaryRs
Height = 375
Left = 1440
Top = 6120
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Attribute VB_Name = "FrmPai"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sql As String
Dim RsCone As Recordset
Dim PSql As String
Public xd1 As New XArrayDB
Public xd2 As New XArrayDB
Public xd3 As New XArrayDB
Sub LoadX()
xd1.ReDim 0, 6, 0, 0
xd1(0, 0) = "早上"
xd1(1, 0) = "上午"
xd1(2, 0) = "中午"
xd1(3, 0) = "下午"
xd1(4, 0) = "晚上"
xd1(5, 0) = "交货"
xd1(6, 0) = "暂停"
Set DropDown.Array = xd1
xd2.ReDim 0, 2, 0, 0
xd2(0, 0) = "其它"
xd2(1, 0) = "十点之前"
xd2(2, 0) = "十点之后"
Set TimeDown.Array = xd2
xd3.ReDim 0, 4, 0, 0
xd3(0, 0) = "样品"
xd3(1, 0) = "大货"
xd3(2, 0) = "急单"
xd3(3, 0) = "开发"
xd3(4, 0) = "重做"
Set Type1.Array = xd3
End Sub
Private Sub Bar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Unload Me
End Select
End Sub
Private Sub cmdfind_Click()
Call Find
End Sub
Private Sub DatPrimaryRS_Validate(Action As Integer, Save As Integer)
Select Case DatPrimaryRS.Recordset!times
Case "早上"
DatPrimaryRS.Recordset!torder = "A"
Case "上午"
DatPrimaryRS.Recordset!torder = "B"
Case "中午"
DatPrimaryRS.Recordset!torder = "C"
Case "下午"
DatPrimaryRS.Recordset!torder = "D"
Case "晚上"
DatPrimaryRS.Recordset!torder = "E"
Case "交货"
DatPrimaryRS.Recordset!torder = "F"
Case "暂停"
DatPrimaryRS.Recordset!torder = "G"
Case Else
DatPrimaryRS.Recordset!torder = "H"
End Select
DatPrimaryRS.Recordset.Update
End Sub
Private Sub DBGrid_UnboundColumnFetch(Bookmark As Variant, ByVal Col As Integer, value As Variant)
On Error GoTo err
RsCone.Bookmark = Bookmark
If Col = 3 Then value = RsCone!total_qty & RsCone!unit
Exit Sub
err:
Exit Sub
End Sub
Private Sub DBGrid2_Click()
End Sub
Private Sub Form_Activate()
TxtSearch.SetFocus
End Sub
Private Sub Form_Load()
Me.Move 0, 0
Me.Height = 7350
Me.Width = 11690
DTP1.value = Date - 5
DTP2.value = Date
Me.Caption = Me.Caption & " 在要修改的地方进行修改"
dbgrid.EvenRowStyle.BackColor = &H80000018
dbgrid.OddRowStyle.BackColor = &HEBEBEB
For i = 10 To 12
dbgrid.Columns(i).BackColor = &HFF9D9D
Next
dbgrid.AlternatingRowStyle = True
PSql = " order by finish_date desc,torder asc"
Call Find
Call LoadX
End Sub
Private Sub Find()
TxtSearch.Text = Trim(TxtSearch.Text)
If Len(TxtSearch.Text) = 0 Then
sql = "select * from Din where miflag=0 and type<>'作废' and finish_date>=" & "'" & DTP1.value & "'" & _
" and finish_date<=" & "'" & DTP2.value & "'"
Else
sql = "select * from Din where (dinno like '%" & TxtSearch.Text & "%'" & _
" or model like '%" & TxtSearch.Text & "%'" & _
" or model_shape like '%" & TxtSearch.Text & "%')" & _
" and type<>'作废' and (finish_date>=" & "'" & DTP1.value & "'" & _
" and finish_date<=" & "'" & DTP2.value & "')"
End If
If op(0).value = True Then
sql = sql
End If
If op(1).value = True Then
sql = sql & " and type='样品'"
End If
If op(2).value = True Then
sql = sql & " and type='大货'"
End If
If op(3).value = True Then
sql = sql & " and type='急单'"
End If
sql = sql & PSql
DatPrimaryRS.ConnectionString = SqlConn
DatPrimaryRS.RecordSource = sql
DatPrimaryRS.Refresh
Set RsCone = DatPrimaryRS.Recordset.Clone()
dbgrid.Refresh
End Sub
Private Sub Form_Resize()
On Error Resume Next
Me.Top = 0
Me.Left = 50
End Sub
Private Sub op_Click(Index As Integer)
Call Find
End Sub
Private Sub TxtSearch_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(Trim(TxtSearch.Text)) = 0 Then Exit Sub
If KeyCode = 13 Then Call Find
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -