tjxianxi.frm

一套VB完整的灯具销售管理系统设计

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form TjXianxi 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   6825
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9510
   Icon            =   "TjXianxi.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6825
   ScaleWidth      =   9510
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   360
      Left            =   1170
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   2820
      Visible         =   0   'False
      Width           =   1755
   End
   Begin VB.PictureBox Picture1 
      Height          =   525
      Left            =   2415
      ScaleHeight     =   465
      ScaleWidth      =   6960
      TabIndex        =   1
      Top             =   6090
      Width           =   7020
      Begin VB.Label XSQK 
         ForeColor       =   &H000000FF&
         Height          =   240
         Left            =   4620
         TabIndex        =   8
         Top             =   165
         Width           =   2280
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "欠款金额："
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   3705
         TabIndex        =   7
         Top             =   150
         Width           =   900
      End
      Begin VB.Label XSHJ 
         ForeColor       =   &H000000FF&
         Height          =   225
         Left            =   1230
         TabIndex        =   6
         Top             =   165
         Width           =   2265
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "总营业额："
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   330
         TabIndex        =   5
         Top             =   165
         Width           =   900
      End
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   945
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3645
      Visible         =   0   'False
      Width           =   2850
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "TjXianxi.frx":0442
      Height          =   5925
      Left            =   45
      OleObjectBlob   =   "TjXianxi.frx":0452
      TabIndex        =   0
      Top             =   -90
      Width           =   9465
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "资金情况"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   315
      Index           =   2
      Left            =   600
      TabIndex        =   4
      Top             =   6180
      Width           =   1260
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "资金情况"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Index           =   1
      Left            =   615
      TabIndex        =   3
      Top             =   6195
      Width           =   1260
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "资金情况"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Index           =   0
      Left            =   570
      TabIndex        =   2
      Top             =   6180
      Width           =   1260
   End
End
Attribute VB_Name = "TjXianxi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub DBGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
   Unload Me
   End If
End Sub

Private Sub Form_Load()
On Error GoTo xxx
Data1.DatabaseName = appData
Data2.DatabaseName = appData
Dim Str1 As String, Str2 As String
Str1 = TjXiaoshou.RqHide
Str2 = TjXiaoshou.RQHide2
If TjXiaoshou.Option1.Value = True Then
     TjXianxi.Caption = Str1 & " 日销售详细记录!"
     RecordStr = "select * from fpk where "
     RecordStr = RecordStr & " 日期=#" & Str1 & "#"
     Data1.RecordSource = RecordStr
     Data1.Refresh
     RecordStr = "select sum(合计) as HHj,sum(欠款) as QQK from guestfindk where "
     RecordStr = RecordStr & "日期=#" & Str1 & "#"
     Data2.RecordSource = RecordStr
     Data2.Refresh
       Else
     TjXianxi.Caption = "自 " & Str1 & " 至 " & Str2 & "日销售详细记录!"
     RecordStr = "select * from fpk where "
     RecordStr = RecordStr & "  日期 BETWEEN #" & Str1 & "# and #" & Str2 & "#"
     Data1.RecordSource = RecordStr
     Data1.Refresh
     RecordStr = "select sum(合计) as HHJ,sum(欠款) as QQk from guestfindk where "
     RecordStr = RecordStr & "日期 BETWEEN #" & Str1 & "# and #" & Str2 & "#"
     Data2.RecordSource = RecordStr
     Data2.Refresh
End If
  If IsNull(Data2.Recordset.Fields(0)) Then
     XSHJ.Caption = 0
     Else
     XSHJ.Caption = Data2.Recordset.Fields(0)
     End If
 If IsNull(Data2.Recordset.Fields(1)) Then
     XSQK.Caption = 0
     Else
     XSQK.Caption = Data2.Recordset.Fields(1)
     End If
  
Exit Sub
xxx:
   MsgBox "日期格式有错误（或）起始日期与结束日期颠倒！", vbOKOnly + 32, "日期错"
   Exit Sub
End Sub