📄 fpfind.frm
字号:
VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "CRYSTL32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form FpFind
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "查询发票"
ClientHeight = 5310
ClientLeft = 45
ClientTop = 330
ClientWidth = 8550
Icon = "FpFind.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5310
ScaleWidth = 8550
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin Crystal.CrystalReport PrintFP
Left = 390
Top = 5535
_ExtentX = 741
_ExtentY = 741
_Version = 262150
DiscardSavedData= -1 'True
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00400000&
Height = 1125
Left = 135
ScaleHeight = 1065
ScaleWidth = 2415
TabIndex = 11
Top = 990
Width = 2475
Begin VB.TextBox Text6
Enabled = 0 'False
Height = 270
Left = 810
TabIndex = 17
Top = 735
Width = 1515
End
Begin VB.TextBox Text5
Enabled = 0 'False
Height = 270
Left = 810
TabIndex = 16
Top = 420
Width = 1515
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Left = 810
TabIndex = 15
Top = 105
Width = 1515
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欠款额："
DragMode = 1 'Automatic
ForeColor = &H0000FFFF&
Height = 180
Left = 75
TabIndex = 14
Top = 765
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "实付额："
ForeColor = &H0000FFFF&
Height = 180
Left = 75
TabIndex = 13
Top = 457
Width = 720
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "销售额："
ForeColor = &H0000FFFF&
Height = 180
Left = 75
TabIndex = 12
Top = 150
Width = 720
End
End
Begin VB.TextBox Text4
DataField = "欠款"
DataSource = "Data2"
Enabled = 0 'False
Height = 270
Left = 6510
TabIndex = 10
Top = 4770
Width = 1800
End
Begin VB.TextBox Text3
DataField = "实付款"
DataSource = "Data2"
Enabled = 0 'False
Height = 270
Left = 3720
TabIndex = 8
Top = 4740
Width = 1800
End
Begin VB.TextBox Text2
DataField = "合计"
DataSource = "Data2"
Enabled = 0 'False
Height = 270
Left = 825
TabIndex = 5
Top = 4740
Width = 1800
End
Begin VB.Frame Frame1
Height = 1485
Left = 4935
TabIndex = 3
Top = 120
Width = 3405
Begin VB.CommandButton PrintSelectFp
Caption = "打印发票"
Height = 420
Left = 1815
TabIndex = 23
Top = 322
Width = 1320
End
Begin VB.CommandButton CloseForm
Cancel = -1 'True
Caption = "退出(&X)"
Height = 420
Left = 1815
TabIndex = 22
Top = 847
Width = 1320
End
Begin VB.CommandButton MUltiFind
Caption = "多项查询"
Height = 435
Left = 300
TabIndex = 21
Top = 840
Width = 1320
End
Begin VB.CommandButton Command1
Caption = "发票号查询"
Height = 435
Left = 300
TabIndex = 20
Top = 315
Width = 1320
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "FpFind.frx":0442
Height = 2265
Left = 150
OleObjectBlob = "FpFind.frx":0452
TabIndex = 2
Top = 2310
Width = 8205
End
Begin MSDBCtls.DBList DBList1
Bindings = "FpFind.frx":1638
Height = 1110
Left = 2895
TabIndex = 0
Top = 495
Width = 1935
_ExtentX = 3413
_ExtentY = 1958
_Version = 327680
ListField = "发票号"
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 8550
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2565
Visible = 0 'False
Width = 2040
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 8535
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2850
Visible = 0 'False
Width = 2040
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 8745
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3075
Visible = 0 'False
Width = 2055
End
Begin VB.Line Line6
BorderColor = &H00FFFFFF&
X1 = 2745
X2 = 2745
Y1 = 30
Y2 = 2220
End
Begin VB.Line Line5
X1 = 2820
X2 = 2820
Y1 = 30
Y2 = 2220
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "发 票 整 体 资 金 情 况"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 630
Index = 1
Left = 540
TabIndex = 19
Top = 195
Width = 1860
End
Begin VB.Label Label9
Caption = "发 票 整 体 资 金 情 况"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 630
Index = 0
Left = 525
TabIndex = 18
Top = 195
Width = 1860
End
Begin VB.Line Line4
X1 = -45
X2 = 8505
Y1 = 5310
Y2 = 5310
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = -45
X2 = 8490
Y1 = 5235
Y2 = 5235
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "欠款："
Height = 180
Left = 5925
TabIndex = 9
Top = 4815
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "实付款："
Height = 180
Left = 2985
TabIndex = 7
Top = 4785
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "合计："
Height = 180
Left = 210
TabIndex = 6
Top = 4785
Width = 540
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 2835
X2 = 8385
Y1 = 1695
Y2 = 1695
End
Begin VB.Line Line1
X1 = 2835
X2 = 8370
Y1 = 1770
Y2 = 1770
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "购货情况"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 2940
TabIndex = 4
Top = 1905
Width = 5370
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "发票列表处"
ForeColor = &H00000080&
Height = 180
Left = 3465
TabIndex = 1
Top = 165
Width = 900
End
End
Attribute VB_Name = "FpFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CloseForm_Click()
Unload Me
End Sub
Private Sub Command1_Click()
FpFind.MousePointer = 11
Load FpForm
FpFind.MousePointer = 0
FpForm.Show 1
End Sub
Private Sub DBList1_Click()
Label2.Caption = DBList1.Text & "号发票购物列表"
RecordStr = "select * from fpk where "
RecordStr = RecordStr & "发票号='" & Trim(DBList1.Text) & "'"
Data2.RecordSource = RecordStr
Data2.Refresh
Dim db As Database
Set db = OpenDatabase(appData)
RecordStr = "delete * from Fptemp"
db.Execute RecordStr
RecordStr = "insert into Fptemp select * from fpk where " & "发票号='" & Trim(DBList1.Text) & "'"
db.Execute RecordStr
db.Close
End Sub
Private Sub Form_Load()
Data1.DatabaseName = appData
Data1.RecordSource = "select distinct 发票号 from fpk"
Data2.DatabaseName = appData
Data3.DatabaseName = appData
Data3.RecordSource = "select sum(合计) as Hj,sum(实付款) as Sfk,sum(欠款) as Qk from guestfindk"
Data3.Refresh
If IsNull(Data3.Recordset.Fields(0)) Then
Text1.Text = 0
Else
Text1.Text = Data3.Recordset.Fields(0)
End If
If IsNull(Data3.Recordset.Fields(1)) Then
Text5.Text = 0
Else
Text5.Text = Data3.Recordset.Fields(1)
End If
If IsNull(Data3.Recordset.Fields(2)) Then
Text6.Text = 0
Else
Text6.Text = Data3.Recordset.Fields(2)
End If
End Sub
Private Sub MUltiFind_Click()
FpFind.MousePointer = 11
Load MultiFindForm
FpFind.MousePointer = 0
MultiFindForm.Show 1
End Sub
Private Sub PrintSelectFp_Click()
'打印发票内容
PrintFP.ReportFileName = Browser + "report\printFp.rpt"
'PrintFP.ReportFileName = "c:\dj\printfp.rpt"
PrintFP.PrintReport
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -