frmtongji.frm

大家看看,次文件非常好,适合大学生做毕业设计

      Begin VB.TextBox TxtYear 
         Height          =   375
         Left            =   720
         TabIndex        =   0
         Top             =   360
         Width           =   1695
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "日"
         Height          =   180
         Left            =   6600
         TabIndex        =   10
         Top             =   480
         Width           =   180
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "月"
         Height          =   180
         Left            =   4560
         TabIndex        =   9
         Top             =   480
         Width           =   180
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "年"
         Height          =   180
         Left            =   2520
         TabIndex        =   8
         Top             =   480
         Width           =   180
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "说明：进行年度统计请填写年份；进行月统计请填写年和月；进行日统计请填写年、月、日。"
         Height          =   180
         Left            =   720
         TabIndex        =   7
         Top             =   960
         Width           =   7380
      End
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "盈利总额："
      Height          =   180
      Left            =   5640
      TabIndex        =   16
      Top             =   6960
      Width           =   900
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "销售总金额："
      Height          =   180
      Left            =   2880
      TabIndex        =   14
      Top             =   6960
      Width           =   1080
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "交易总数量："
      Height          =   180
      Left            =   120
      TabIndex        =   12
      Top             =   6960
      Width           =   1080
   End
End
Attribute VB_Name = "FrmTongJi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdClose_Click()
Unload Me
End Sub

Private Sub CmdNew_Click()
On Error GoTo errEnd

Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "基本统计"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select sum([数量]) as [总数量],sum([实收金额]) as [总金额],sum([实收金额]-[进价]*[数量]) as [总盈利] from [基本统计]"
Adodc2.Refresh

If Adodc2.Recordset.RecordCount > 0 Then
    Adodc2.Recordset.MoveFirst
    TxtNUM.Text = Adodc2.Recordset!总数量 & ""
    TxtMoney.Text = Adodc2.Recordset!总金额 & ""
    TxtYingLi.Text = Adodc2.Recordset!总盈利 & ""
Else
    TxtNUM.Text = "0"
    TxtYingLi.Text = "0"
    TxtMoney.Text = "0"
End If

Exit Sub

errEnd:
    MsgBox "统计失败，" & Err.Description, vbOKOnly + vbExclamation, "检索数据库出错"
End Sub

Private Sub CmdTJ_Click()
On Error GoTo errEnd
Dim strSQL As String

If TxtYear.Text = "" Then
    MsgBox "请填写统计年份！", vbOKOnly + vbExclamation, "统计分析"
    TxtYear.SetFocus
    Exit Sub
ElseIf TxtYear.Text <> "" And TxtMonth.Text = "" And TxtDay.Text = "" Then
    strSQL = TxtYear.Text & "-" & "%"
ElseIf TxtYear.Text <> "" And TxtMonth.Text <> "" And TxtDay.Text = "" Then
    strSQL = TxtYear.Text & "-" & TxtMonth.Text & "-" & "%"
ElseIf TxtYear.Text <> "" And TxtMonth.Text <> "" And TxtDay.Text <> "" Then
    strSQL = TxtYear.Text & "-" & TxtMonth.Text & "-" & TxtDay.Text & "."
Else
    MsgBox "统计时段填写错误，无法进行统计！", vbOKOnly + vbExclamation, "统计分析"
    TxtYear.SetFocus
    Exit Sub
End If

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from [基本统计] where [日期] like """ & strSQL & """"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

If Not Adodc1.Recordset.RecordCount > 0 Then
    MsgBox "该时段没有销售记录，或日期填写错误！", vbOKOnly + vbInformation, "没有记录"
    TxtYear.SetFocus
End If

Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select sum([数量]) as [总数量],sum([实收金额]) as [总金额],sum([实收金额]-[进价]*[数量]) as [总盈利] from [基本统计] where [日期] like """ & strSQL & """"
Adodc2.Refresh

If Adodc2.Recordset.RecordCount > 0 Then
    Adodc2.Recordset.MoveFirst
    TxtNUM.Text = Adodc2.Recordset!总数量 & ""
    TxtMoney.Text = Adodc2.Recordset!总金额 & ""
    TxtYingLi.Text = Adodc2.Recordset!总盈利 & ""
Else
    TxtNUM.Text = "0"
    TxtYingLi.Text = "0"
    TxtMoney.Text = "0"
End If

Exit Sub

errEnd:
    MsgBox "统计失败，" & Err.Description, vbOKOnly + vbExclamation, "检索数据库出错"

End Sub

Private Sub Form_Activate()
Call CmdNew_Click

End Sub

Private Sub Form_Load()
Dim dbName As String
Dim connSTR As String

On Error GoTo errEnd

dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName + "\"
dbName = dbName + "DataBase\WFSSDataBase.mdb"

connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False"
Adodc1.ConnectionString = connSTR
Adodc2.ConnectionString = connSTR

Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "打开数据库出错"
End Sub

Private Sub TxtDay_KeyUp(KeyCode As Integer, Shift As Integer)
If Not (KeyCode >= 48 And KeyCode <= 57) Then
    If Not (KeyCode >= 96 And KeyCode <= 105) Then
        If KeyCode <> 13 And KeyCode <> 8 And KeyCode <> 46 Then
            MsgBox "统计日期填写错误!", vbOKOnly + vbExclamation, "填写错误"
            TxtDay.Text = ""
            TxtDay.SetFocus
        End If
    End If
End If
End Sub

Private Sub TxtMonth_KeyUp(KeyCode As Integer, Shift As Integer)
If Not (KeyCode >= 48 And KeyCode <= 57) Then
    If Not (KeyCode >= 96 And KeyCode <= 105) Then
        If KeyCode <> 13 And KeyCode <> 8 And KeyCode <> 46 Then
            MsgBox "统计月份填写错误!", vbOKOnly + vbExclamation, "填写错误"
            TxtMonth.Text = ""
            TxtMonth.SetFocus
        End If
    End If
End If
End Sub

Private Sub TxtYear_KeyUp(KeyCode As Integer, Shift As Integer)
If Not (KeyCode >= 48 And KeyCode <= 57) Then
    If Not (KeyCode >= 96 And KeyCode <= 105) Then
        If KeyCode <> 13 And KeyCode <> 8 And KeyCode <> 46 Then
            MsgBox "统计年份填写错误!", vbOKOnly + vbExclamation, "填写错误"
            TxtYear.Text = ""
            TxtYear.SetFocus
        End If
    End If
End If
End Sub


'此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
'╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
'╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
',︶︶︶︶,''︶~~ ,''~︶︶　 ,''
'╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
'╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
'╬　　　　　　　http://www.5ivb.net ╬
'╬　 ╭○╮●　                   　╬
'╬　　/■\/■\　　                  ╬
'╬　　 <|　||　   有希望,就有成功！ ╬
'╬　　　　　　　　　　　　　　　　　╬
'╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
'
'说明：
'专业提供VB、．NET、Delphi、ASP、PB源码下载
'包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档