guestghuo.frm
来自「一套VB完整的灯具销售管理系统设计」· FRM 代码 · 共 745 行 · 第 1/2 页
FRM
745 行
DataSource = "Data2"
Enabled = 0 'False
Height = 270
Left = 3480
TabIndex = 13
Top = 4755
Width = 1185
End
Begin VB.TextBox Text2
DataField = "日期"
DataSource = "Data2"
Enabled = 0 'False
Height = 270
Left = 1170
TabIndex = 11
Top = 4785
Width = 1185
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 3615
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6270
Width = 1770
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "GuestGHuo.frx":0442
Height = 2910
Left = 120
OleObjectBlob = "GuestGHuo.frx":0452
TabIndex = 7
Top = 1680
Width = 4560
End
Begin VB.Frame Frame2
Caption = "客户姓名显示处"
ForeColor = &H00800000&
Height = 975
Left = 255
TabIndex = 3
Top = 135
Width = 3075
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Left = 1350
MaxLength = 8
TabIndex = 5
Top = 450
Width = 1290
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "客户姓名："
Height = 180
Left = 420
TabIndex = 4
Top = 495
Width = 900
End
End
Begin VB.Frame Frame1
Caption = "请选择客户姓名"
ForeColor = &H00404080&
Height = 975
Left = 3450
TabIndex = 0
Top = 135
Width = 3075
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 3090
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 255
Width = 1140
End
Begin MSDBCtls.DBCombo DBCombo1
Bindings = "GuestGHuo.frx":0FA8
Height = 330
Left = 1380
TabIndex = 1
Top = 405
Width = 1305
_ExtentX = 2302
_ExtentY = 582
_Version = 327680
Style = 2
ListField = "姓名"
Text = "DBCombo1"
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "客户姓名："
Height = 180
Left = 375
TabIndex = 2
Top = 450
Width = 900
End
End
Begin MSDBCtls.DBCombo DBCombo2
Bindings = "GuestGHuo.frx":0FB8
Height = 330
Left = 5250
TabIndex = 8
Top = 1665
Width = 2145
_ExtentX = 3784
_ExtentY = 582
_Version = 327680
Style = 2
ListField = "发票号"
Text = ""
End
Begin VB.Line Line8
BorderColor = &H00FFFFFF&
X1 = 4755
X2 = 7785
Y1 = 3750
Y2 = 3750
End
Begin VB.Line Line7
X1 = 4755
X2 = 7770
Y1 = 3735
Y2 = 3735
End
Begin VB.Line Line6
BorderColor = &H00FFFFFF&
X1 = 4755
X2 = 4755
Y1 = 1170
Y2 = 5625
End
Begin VB.Line Line5
X1 = 4740
X2 = 4740
Y1 = 1170
Y2 = 5625
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "欠款金额："
Height = 180
Left = 2565
TabIndex = 16
Top = 5145
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "实付金额："
Height = 180
Left = 240
TabIndex = 14
Top = 5145
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "发票金额："
Height = 180
Left = 2580
TabIndex = 12
Top = 4800
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "发票日期："
Height = 180
Left = 255
TabIndex = 10
Top = 4815
Width = 900
End
Begin VB.Label Label4
Caption = "请选择发票号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 255
Left = 5745
TabIndex = 9
Top = 1320
Width = 1215
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 60
X2 = 7650
Y1 = 1170
Y2 = 1170
End
Begin VB.Line Line1
X1 = 60
X2 = 7650
Y1 = 1155
Y2 = 1155
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "购货情况"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 240
Left = 120
TabIndex = 6
Top = 1305
Width = 4515
End
End
Attribute VB_Name = "GuestGHuo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CallGuestfind_Click()
GuestGHuo.MousePointer = 11
Load GuestFind
GuestGHuo.MousePointer = 0
GuestFind.Show 1
End Sub
Private Sub CloseForm_Click()
Unload Me
End Sub
Private Sub DBCombo1_Click(Area As Integer)
Text1.Text = DBCombo1.Text
Call Text1_Change
End Sub
Private Sub DBCombo2_Click(Area As Integer)
'显示所购产品
If DBCombo2.Text = "" Then Exit Sub
Picture1.Visible = False
Label3.Caption = DBCombo2.Text + " 号发票购物情况"
Dim RecordStr
RecordStr = "select * from fpk where "
RecordStr = RecordStr & "购货人='" & Trim(Text1.Text) & "' and 发票号='" & Trim(DBCombo2.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(Text1.Text) & "' and 发票号='" & Trim(DBCombo2.Text) & "'"
db.Execute RecordStr
db.Close
End Sub
Private Sub Form_Load()
'发票库，客户库，发票选择库，客户总记库
Data1.DatabaseName = appData
Data1.RecordSource = "guestk"
Data2.DatabaseName = appData
Data2.RecordSource = "fpk"
Data3.DatabaseName = appData
Data4.DatabaseName = appData
Data5.DatabaseName = appData
Data5.RecordSource = "select sum(合计) as Hj,sum(实付款) as Sfk,sum(欠款) as Qk from guestfindk"
Data5.Refresh
If IsNull(Data5.Recordset.Fields(0)) Then
Text9.Text = 0
Else
Text9.Text = Data5.Recordset.Fields(0)
End If
If IsNull(Data5.Recordset.Fields(1)) Then
Text10.Text = 0
Else
Text10.Text = Data5.Recordset.Fields(1)
End If
If IsNull(Data5.Recordset.Fields(2)) Then
Text11.Text = 0
Else
Text11.Text = Data5.Recordset.Fields(2)
End If
End Sub
Private Sub PrintGuestFp_Click()
'打印发票内容
PrintGuest.ReportFileName = Browser + "report\printFp.rpt"
'PrintGuest.ReportFileName = "c:\dj\printfp.rpt"
PrintGuest.PrintReport
End Sub
Private Sub Text1_Change()
If Trim(Text1.Text) = "" Then Exit Sub
DBCombo2.Text = ""
Picture1.Visible = True
Picture2.Visible = True
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
RecordStr = "select distinct 发票号 from fpk where "
RecordStr = RecordStr & "购货人='" & Trim(Text1.Text) & "'"
Data3.RecordSource = RecordStr
Data3.Refresh
'统计客户欠款总数，实付款总数，合计总数
Dim qkNum As Currency, sfkNum As Currency, hjNum As Currency, CountNum As Integer
RecordStr = "select sum(欠款) as qkc,sum(实付款) as sfkc,sum(合计) as hjc from guestfindk where "
RecordStr = RecordStr & "购货人='" & Trim(Text1.Text) & "'"
Data4.RecordSource = RecordStr
Data4.Refresh
If IsNull(Data4.Recordset.Fields(0)) Then
qkNum = 0
Else
qkNum = Data4.Recordset.Fields(0)
End If
If IsNull(Data4.Recordset.Fields(1)) Then
sfkNum = 0
Else
sfkNum = Data4.Recordset.Fields(1)
End If
If IsNull(Data4.Recordset.Fields(2)) Then
hjNum = 0
Else
hjNum = Data4.Recordset.Fields(2)
End If
'显示欠款，实付款，合计总数
Text6.Text = qkNum
Text7.Text = sfkNum
Text8.Text = hjNum
If Text6.Text = 0 And Text7.Text = 0 And Text8.Text = 0 Then
Picture2.Visible = True
Else
Picture2.Visible = False
End If
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?