📄 frmm_tj.frm
字号:
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 3
Left = 4785
TabIndex = 9
Top = 945
Width = 1050
End
Begin VB.Label Label2
AutoSize = -1 'True
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 = 210
Index = 2
Left = 2445
TabIndex = 7
Top = 945
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
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 = 210
Index = 1
Left = 165
TabIndex = 5
Top = 945
Width = 840
End
Begin VB.Shape Shape1
BorderWidth = 2
Height = 855
Index = 0
Left = 75
Top = 840
Width = 11715
End
Begin VB.Label Label2
AutoSize = -1 'True
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 = 210
Index = 0
Left = 105
TabIndex = 3
Top = 510
Width = 1995
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "成品出货验货汇总表"
BeginProperty Font
Name = "隶书"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 480
Index = 1
Left = 3855
TabIndex = 2
Top = -30
Width = 4320
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "成品出货验货汇总表"
BeginProperty Font
Name = "隶书"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 480
Index = 0
Left = 3840
TabIndex = 1
Top = -45
Width = 4320
End
End
Attribute VB_Name = "FrmM_Tj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim cn As New ADODB.Connection
Dim Rec As New ADODB.Recordset
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 2 '刷新
Call Text1_KeyPress(Index, vbKeyReturn)
Case 0 '打印
On Error Resume Next
cn.Execute "update maindb set xh='" & Trim(Text2(2).Text) & _
"',bf='" & Trim(Text2(6).Text) & "',ys='" & Trim(Text2(7).Text) & _
"',zhsh='" & Trim(Text2(8).Text) & "',bch='" & Text2(9).Text & _
"' where orderid='" & Trim(Text2(0).Text) & "'"
Dim PntCn As New ADODB.Connection
Dim PntRec As New ADODB.Recordset
PntCn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & _
SysDbPath & "\report97.mdb;jet oledb:database password=tony;"
PntCn.Open
PntCn.Execute "delete * from maindb"
PntRec.CursorLocation = adUseClient
PntRec.Open "select * from maindb", PntCn, adOpenDynamic, adLockOptimistic
PntCn.BeginTrans
With PntRec
For i = 1 To ListView1.ListItems.Count
.AddNew
.Fields("startid").Value = Text1(0).Text
.Fields("endid").Value = Text1(1).Text
.Fields("orderid").Value = Text2(0).Text
.Fields("ph").Value = Text2(1).Text
.Fields("xh").Value = Text2(2).Text
.Fields("year").Value = Text2(3).Text
.Fields("month").Value = Text2(4).Text
.Fields("day").Value = Text2(5).Text
.Fields("bf").Value = Text2(6).Text
.Fields("ys").Value = Text2(7).Text
.Fields("zhsh").Value = Text2(8).Text
.Fields("bch").Value = Text2(9).Text
.Fields("demo").Value = Text5.Text
.Fields("tmsh").Value = Text4(0).Text
.Fields("tpjbf").Value = Text4(1).Text
.Fields("tshjf").Value = Text4(2).Text
.Fields("tzhm").Value = Text4(3).Text
.Fields("tpfm").Value = Text4(4).Text
.Fields("dj1").Value = Text4(5).Text
.Fields("pdj1").Value = IIf(Val(Text4(6).Text) = 0, 0, Text4(6).Text)
.Fields("dj2").Value = Text4(7).Text
.Fields("pdj2").Value = IIf(Val(Text4(8).Text) = 0, 0, Text4(8).Text)
.Fields("dj3").Value = Text4(9).Text
.Fields("pdj3").Value = IIf(Val(Text4(10).Text) = 0, 0, Text4(10).Text)
.Fields("dj4").Value = Text4(11).Text
.Fields("pdj4").Value = IIf(Val(Text4(12).Text) = 0, 0, Text4(12).Text)
.Fields("pid").Value = Val(ListView1.ListItems(i).Text)
.Fields("shjm").Value = ListView1.ListItems(i).SubItems(1)
.Fields("shjf").Value = ListView1.ListItems(i).SubItems(2)
.Fields("zhm").Value = ListView1.ListItems(i).SubItems(3)
.Fields("pfm").Value = ListView1.ListItems(i).SubItems(4)
.Fields("pjbf").Value = ListView1.ListItems(i).SubItems(5)
.Fields("lx").Value = Right(ListView1.ColumnHeaders(7).Text, 1)
.Fields("lxzh1").Value = ListView1.ListItems(i).SubItems(6)
.Fields("dj").Value = ListView1.ListItems(i).SubItems(7)
.Fields("rq").Value = ListView1.ListItems(i).SubItems(8)
.Fields("pd").Value = ListView1.ListItems(i).SubItems(9)
If Option3(0).Value = True Then
.Fields("pd1").Value = "√"
ElseIf Option3(1).Value = True Then
.Fields("pd2").Value = "√"
End If
.Fields("a").Value = ListView1.ListItems(i).SubItems(10)
.Fields("b").Value = ListView1.ListItems(i).SubItems(11)
.Fields("c").Value = ListView1.ListItems(i).SubItems(12)
.Fields("d").Value = ListView1.ListItems(i).SubItems(13)
.Fields("e").Value = ListView1.ListItems(i).SubItems(14)
.Fields("f").Value = ListView1.ListItems(i).SubItems(15)
.Fields("g").Value = ListView1.ListItems(i).SubItems(16)
.Fields("h").Value = ListView1.ListItems(i).SubItems(17)
.Fields("i").Value = ListView1.ListItems(i).SubItems(18)
.Fields("j").Value = ListView1.ListItems(i).SubItems(19)
.Fields("k").Value = ListView1.ListItems(i).SubItems(20)
.Fields("l").Value = ListView1.ListItems(i).SubItems(21)
.Fields("m").Value = ListView1.ListItems(i).SubItems(22)
.Fields("n").Value = ListView1.ListItems(i).SubItems(23)
.Fields("o").Value = ListView1.ListItems(i).SubItems(24)
.Fields("p").Value = ListView1.ListItems(i).SubItems(25)
.Fields("q").Value = ListView1.ListItems(i).SubItems(26)
.Fields("r").Value = ListView1.ListItems(i).SubItems(27)
.Fields("s").Value = ListView1.ListItems(i).SubItems(28)
.Fields("t").Value = ListView1.ListItems(i).SubItems(29)
.Fields("u").Value = ListView1.ListItems(i).SubItems(30)
.Fields("v").Value = ListView1.ListItems(i).SubItems(31)
.Fields("w").Value = ListView1.ListItems(i).SubItems(32)
.Fields("x").Value = ListView1.ListItems(i).SubItems(33)
.Fields("y").Value = ListView1.ListItems(i).SubItems(34)
.Fields("z").Value = ListView1.ListItems(i).SubItems(35)
.Fields("aa").Value = ListView1.ListItems(i).SubItems(36)
.Fields("ab").Value = ListView1.ListItems(i).SubItems(37)
.Fields("ac").Value = ListView1.ListItems(i).SubItems(38)
.Fields("ad").Value = ListView1.ListItems(i).SubItems(39)
.Fields("ae").Value = ListView1.ListItems(i).SubItems(40)
.Fields("af").Value = ListView1.ListItems(i).SubItems(41)
.Fields("ag").Value = ListView1.ListItems(i).SubItems(42)
.Update
Next i
End With
PntCn.CommitTrans
PntRec.Close
Set PntRec = Nothing
PntCn.Close
Set PntCn = Nothing
Call FrmMain.PrintReport("Pnt2")
Case 1
Unload Me
End Select
End Sub
Private Sub Form_Load()
Me.Width = 800 * 15
Me.Height = 600 * 14.4
Me.Left = (Screen.Width - Me.ScaleWidth) / 2
Me.Top = (Screen.Height - Me.ScaleHeight) / 2
For i = 0 To 1
Text1(i).TabIndex = i
Text1(i).Text = ""
Text1(i).Alignment = 2
Next i
For i = 0 To 9
Text2(i).TabIndex = i + 2
Text2(i).Text = ""
Text2(i).Alignment = 2
Next i
Text2(3).MaxLength = 4
Text2(4).MaxLength = 2
Text2(5).MaxLength = 2
For i = 0 To 12
Text4(i).Alignment = 2
Text4(i).TabIndex = i + 12
Text4(i).Text = ""
Next i
Text5.TabIndex = 25
Text5.Text = ""
With ListView1
.ColumnHeaders.Add , "h1", "疋号", 600
.ColumnHeaders.Add , "h2", "码数", 600
.ColumnHeaders.Add , "h3", "实际分", 750
.ColumnHeaders.Add , "h4", "(100)直码", 1000
.ColumnHeaders.Add , "h5", "(100)平方码", 1200
.ColumnHeaders.Add , "h6", "平均布幅", 900
.ColumnHeaders.Add , "h7", "拉斜", 800
.ColumnHeaders.Add , "h8", "等级", 600
.ColumnHeaders.Add , "h9", "评定", 750
.ColumnHeaders.Add , "h10", "日期", 700
.ColumnHeaders.Add , "h11", "A", 300
.ColumnHeaders.Add , "h12", "B", 300
.ColumnHeaders.Add , "h13", "C", 300
.ColumnHeaders.Add , "h14", "D", 300
.ColumnHeaders.Add , "h15", "E", 300
.ColumnHeaders.Add , "h16", "F", 300
.ColumnHeaders.Add , "h17", "G", 300
.ColumnHeaders.Add , "h18", "H", 300
.ColumnHeaders.Add , "h19", "J", 300
.ColumnHeaders.Add , "h20", "I", 300
.ColumnHeaders.Add , "h21", "K", 300
.ColumnHeaders.Add , "h22", "L", 300
.ColumnHeaders.Add , "h23", "M", 300
.ColumnHeaders.Add , "h24", "N", 300
.ColumnHeaders.Add , "h25", "O", 300
.ColumnHeaders.Add , "h26", "P", 300
.ColumnHeaders.Add , "h27", "Q", 300
.ColumnHeaders.Add , "h28", "R", 300
.ColumnHeaders.Add , "h29", "S", 300
.ColumnHeaders.Add , "h30", "T", 300
.ColumnHeaders.Add , "h31", "U", 300
.ColumnHeaders.Add , "h32", "V", 300
.ColumnHeaders.Add , "h33", "W", 300
.ColumnHeaders.Add , "h34", "X", 300
.ColumnHeaders.Add , "h35", "Y", 300
.ColumnHeaders.Add , "h36", "Z", 300
.ColumnHeaders.Add , "h37", "AA", 400
.ColumnHeaders.Add , "h38", "AB", 400
.ColumnHeaders.Add , "h39", "AC", 400
.ColumnHeaders.Add , "h40", "AD", 400
.ColumnHeaders.Add , "h41", "AE", 400
.ColumnHeaders.Add , "h42", "AF", 400
.ColumnHeaders.Add , "h43", "AG", 400
End With
Me.Caption = "成品出货验货汇总表（当前用户：" & MdlMain.LoginUser & "）"
cn.Open DbConnectSql
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Rec.Close: Set Rec = Nothing
cn.Close: Set cn = Nothing
FrmMain.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -