📄 frmfp.frm
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "ssdw3b32.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmFP
BorderStyle = 3 'Fixed Dialog
Caption = "设置开发票信息"
ClientHeight = 5100
ClientLeft = 45
ClientTop = 330
ClientWidth = 7230
Icon = "frmFP.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5100
ScaleWidth = 7230
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
Caption = "条件"
Height = 1080
Left = 45
TabIndex = 5
Top = 630
Width = 6960
Begin MSComCtl2.DTPicker dtpEnd
Height = 300
Left = 5040
TabIndex = 9
Top = 375
Width = 1710
_ExtentX = 3016
_ExtentY = 529
_Version = 393216
Format = 50921472
CurrentDate = 37005
End
Begin MSComCtl2.DTPicker dtpBegin
Height = 285
Left = 2700
TabIndex = 8
Top = 375
Width = 1620
_ExtentX = 2858
_ExtentY = 503
_Version = 393216
Format = 50921472
CurrentDate = 37005
End
Begin VB.OptionButton optWK
Caption = "未开发票"
Height = 195
Left = 225
TabIndex = 7
Top = 660
Width = 1020
End
Begin VB.OptionButton optYK
Caption = "已开发票"
Height = 180
Left = 225
TabIndex = 6
Top = 315
Value = -1 'True
Width = 1185
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "时间止"
Height = 180
Left = 4410
TabIndex = 11
Top = 450
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "时间起"
Height = 180
Left = 1770
TabIndex = 10
Top = 450
Width = 540
End
End
Begin Threed.SSPanel SSPanel1
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 0
Top = 0
Width = 7230
_ExtentX = 12753
_ExtentY = 979
_Version = 131073
BorderWidth = 0
BevelInner = 1
Begin Threed.SSCommand cmdToolExit
CausesValidation= 0 'False
Height = 465
Left = 1920
TabIndex = 3
Tag = "退出"
ToolTipText = "退出"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "退出[&X]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolQuery
CausesValidation= 0 'False
Height = 465
Left = 975
TabIndex = 2
Tag = "查询"
ToolTipText = "查询表单数据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "查询[&Q]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolSave
Height = 465
Left = 30
TabIndex = 1
Tag = "保存"
ToolTipText = "保存进货单"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "保存[&S]"
ButtonStyle = 3
BevelWidth = 0
End
End
Begin SSDataWidgets_B.SSDBGrid grdDET
Align = 2 'Align Bottom
Height = 3330
Left = 0
TabIndex = 4
Top = 1770
Width = 7230
_Version = 196617
DataMode = 2
Col.Count = 3
BevelColorFrame = 4210752
BevelColorHighlight= 16777215
BevelColorShadow= 16777215
BevelColorFace = 12648384
AllowAddNew = -1 'True
AllowDelete = -1 'True
MultiLine = 0 'False
AllowColumnMoving= 2
AllowColumnSwapping= 0
SelectTypeRow = 1
ForeColorEven = 4210752
BackColorOdd = 16777215
RowHeight = 450
Columns.Count = 3
Columns(0).Width= 3200
Columns(0).Caption= "配送单单号"
Columns(0).Name = "配送单单号"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
Columns(1).Width= 3200
Columns(1).Caption= "发票日期"
Columns(1).Name = "发票日期"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 7
Columns(1).NumberFormat= "yyyy-mm-dd"
Columns(1).FieldLen= 256
Columns(2).Width= 3200
Columns(2).Caption= "开发票状态"
Columns(2).Name = "开发票状态"
Columns(2).CaptionAlignment= 2
Columns(2).DataField= "Column 2"
Columns(2).DataType= 8
Columns(2).FieldLen= 256
Columns(2).Style= 2
_ExtentX = 12753
_ExtentY = 5874
_StockProps = 79
BackColor = -2147483624
End
End
Attribute VB_Name = "frmFP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private RsTemp As New ADODB.Recordset
Private Sub cmdToolExit_Click()
Unload Me
End Sub
Private Sub cmdToolQuery_Click()
On Error Resume Next
Dim s
If optYK.Value Then
s = "开发票标志=1"
ElseIf optWK.Value Then
s = "开发票标志=0"
End If
sSQL = "select distinct 表单号,开发票日期,开发票标志 from PSD where " & s & " and 配送日期 between '" & _
Format(dtpBegin.Value, "yyyy-mm-dd") & "' and '" & Format(dtpEnd.Value, "yyyy-mm-dd") & "'and 确认状态=1"
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
grdDET.RemoveAll
While Not RsTemp.EOF
grdDET.AddItem RsTemp("表单号") & vbTab & Format(Now, "yyyy-mm-dd") & vbTab & RsTemp("开发票标志")
RsTemp.MoveNext
Wend
End Sub
Private Sub cmdToolSave_Click()
On Error GoTo SaveErr
Dim i
grdDET.MoveFirst
For i = 0 To grdDET.Rows - 1
sSQL = "update psd set 开发票日期='" & Format(grdDET.Columns("发票日期").Value, "yyyy-mm-dd") & "' , 开发票标志=" & Str(Val(grdDET.Columns("开发票状态").Value)) & " where 表单号='" & Trim(grdDET.Columns("配送单单号").Text) & "'"
Cmd.ActiveConnection = Conn
Cmd.CommandText = sSQL
Cmd.Execute
grdDET.MoveNext
Next i
Exit Sub
SaveErr:
MsgBox "保存开发票标志时发生错误！", vbInformation, "信息窗口"
End Sub
Private Sub Form_Load()
dtpBegin.Value = Now
dtpEnd.Value = Now
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -