?? 打印項目.frm
字號:
VERSION 5.00
Begin VB.Form XT_PrintTItem
BorderStyle = 1 'Fixed Single
Caption = "打印表頭項目"
ClientHeight = 3660
ClientLeft = 4455
ClientTop = 1500
ClientWidth = 3165
Icon = "打印項目.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3660
ScaleWidth = 3165
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
Caption = "取消(&C)"
Height = 300
Left = 2010
TabIndex = 2
Top = 3315
Width = 1120
End
Begin VB.CommandButton Command1
Caption = "確定(&O)"
Height = 300
Left = 795
TabIndex = 1
Top = 3315
Width = 1120
End
Begin VB.ListBox List_Item
Height = 3210
Left = 15
Style = 1 'Checkbox
TabIndex = 0
Top = 60
Width = 3135
End
End
Attribute VB_Name = "XT_PrintTItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim add_item As New Recordset
Dim Item_TF()
Private Sub Command1_Click()
'On Error Resume Next
Dim i As Integer: Dim CH As Integer
For i = 0 To List_Item.ListCount - 1
If List_Item.Selected(i) = True Then
CH = 1
Else
CH = 0
End If
Cw_DataEnvi.DataConnect.Execute "update Xt_BillTextPrint set YNPrint=" & CH & " where ID=" & Val(List_Item.ItemData(i))
Next i
XT_BillPrintDesign.Command1_Click
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
'On Error Resume Next
Dim i As Integer
i = 0
Set add_item = Cw_DataEnvi.DataConnect.Execute("select * from Xt_v_BillTextPrint where text_group_code='" & XT_BillPrintDesign.Command1.Tag & "' and PrintTextCode='" & Trim(XT_BillPrintDesign.PrintType.Text) & "'")
Do While Not add_item.EOF
List_Item.AddItem add_item!Text_Name
'--------------
List_Item.Selected(i) = add_item!YnPrint
List_Item.ItemData(i) = add_item!Id
'---------------
add_item.MoveNext
i = i + 1
Loop
add_item.Close
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -