frmsysyb.frm

广翔税务代理版打印,能制作非常复杂的报表.

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmsysyb 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "商品流通企业会计报表（损益表）"
   ClientHeight    =   6330
   ClientLeft      =   1830
   ClientTop       =   1350
   ClientWidth     =   9180
   ControlBox      =   0   'False
   Icon            =   "frmsysyb.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6330
   ScaleWidth      =   9180
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "保存累计数"
      Height          =   375
      Left            =   4875
      TabIndex        =   10
      Top             =   5880
      Width           =   1335
   End
   Begin MSComCtl2.DTPicker DTPicker1 
      Height          =   270
      Left            =   5940
      TabIndex        =   9
      Top             =   120
      Width           =   1695
      _ExtentX        =   2990
      _ExtentY        =   476
      _Version        =   393216
      Format          =   23658496
      CurrentDate     =   37215
   End
   Begin VB.TextBox Text2 
      Height          =   270
      Left            =   1365
      TabIndex        =   8
      Top             =   120
      Width           =   3135
   End
   Begin VB.CommandButton cmdclose 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   7590
      TabIndex        =   7
      Top             =   5880
      Width           =   1095
   End
   Begin VB.CommandButton cmdprint 
      Caption         =   "打印(&P)"
      Height          =   375
      Left            =   6300
      TabIndex        =   6
      Top             =   5880
      Width           =   1185
   End
   Begin VB.TextBox Text1 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0.00"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   270
      IMEMode         =   2  'OFF
      Left            =   -15
      TabIndex        =   5
      Top             =   -255
      Visible         =   0   'False
      Width           =   1455
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   5295
      Left            =   90
      TabIndex        =   4
      Top             =   495
      Width           =   9015
      _ExtentX        =   15901
      _ExtentY        =   9340
      _Version        =   393216
      Rows            =   23
      Cols            =   4
      FixedCols       =   2
      TextStyleFixed  =   4
      FocusRect       =   0
      HighLight       =   0
      ScrollBars      =   0
      MergeCells      =   1
      FormatString    =   ""
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "单位：元"
      Height          =   180
      Left            =   8250
      TabIndex        =   3
      Top             =   255
      Width           =   720
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "会商02表"
      Height          =   180
      Left            =   8250
      TabIndex        =   2
      Top             =   15
      Width           =   720
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "制表日期："
      Height          =   180
      Left            =   4980
      TabIndex        =   1
      Top             =   180
      Width           =   900
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "编制单位："
      Height          =   180
      Left            =   420
      TabIndex        =   0
      Top             =   180
      Width           =   900
   End
End
Attribute VB_Name = "frmsysyb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer
Dim zsbexcel As Excel.Application
Dim Col3(40) As Variant


Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdprint_Click()
'On Error GoTo errorhandler
Dim t As Integer
Dim j As Integer
Set zsbexcel = New Excel.Application
 zsbexcel.Visible = True
' Set zsbexcel = Nothing
 zsbexcel.SheetsInNewWorkbook = 1
      Set zsbworkbook = zsbexcel.Workbooks.Open(App.Path + "\" + "sheet\shang02.xlt")
   With zsbexcel.ActiveSheet
.Range("C5").Value = Text2
.Range("E6").Value = DTPicker1.Year 'Format(DTPicker1.Value) 'Year + "-" + DTPicker1.Month + "-" + DTPicker1.Day
.Range("G6").Value = DTPicker1.Month
.Range("J6").Value = DTPicker1.Day
For t = 9 To 30
Grid1.Row = t - 8
'For j = 2 To 3
Grid1.Col = 2
a = "E" + CStr(t)
'If IsNull(Grid1.Text) = False Then
.Range(a) = Grid1.Text
'End If
'Next j
Next t

For j = 9 To 30
Grid1.Row = j - 8
'For j = 2 To 3
Grid1.Col = 3
b = "M" + CStr(j)
.Range(b) = Grid1.Text
'If IsNull(Grid1.Text) = False Then
'End If
'Next j
Next j

End With
  'dd = MsgBox("yes or no", vbYesNo + vbSystemModal)
  'If dd = vbNo Then Exit Sub
 ' zsbexcel.ActiveSheet.PageSetup.Orientation = xlPortrait       'xlLandscape
  'zsbexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4
 zsbexcel.Caption = "打印预览"
 zsbexcel.ActiveWindow.SelectedSheets.PrintPreview
  'zsbexcel.ActiveSheet.PrintOut
  zsbexcel.DisplayAlerts = False
  zsbexcel.Quit
  zsbexcel.DisplayAlerts = True
  Set zsbexcel = Nothing
  Exit Sub
'errorhandler:
    'MsgBox "请正确安装EXCEL！", vbOKOnly + vbCritical
   'Exit Sub
End Sub



Private Sub Command1_Click()
 On Error Resume Next
'校对数据库是否已经存在该企业累计数
Dim db As Database, EF As Recordset, Saveyn As String, ShangValue As String
Set db = OpenDatabase(Con, False, False, ConStr)
Set EF = db.OpenRecordset("shangleijishu", dbOpenTable)
Set EF = db.OpenRecordset("Select * From shangleijishu where  qybm='" & frmqy.qybm & "'", dbOpenDynaset)
If EF.EOF = False Then
Saveyn = MsgBox("该企业累计数已经存在!覆盖吗?", vbQuestion + vbYesNo, "保存")
If Saveyn = vbNo Then Exit Sub
Else
End If
EF.Close

'删除原来的记录
DBEngine.BeginTrans
  Set db = OpenDatabase(Con, False, False, ConStr)
      db.Execute "Delete * From shangleijishu where  qybm='" & frmqy.qybm & "'"
      db.Close
DBEngine.CommitTrans

 '保存记录
 '保存Grid1
For i = 1 To Grid1.Rows
 Grid1.Col = 3
 Grid1.Row = i
 ShangValue = Grid1.Text
 DBEngine.BeginTrans
  Set db = OpenDatabase(Con, False, False, ConStr)
      RecStr = "Insert into shangleijishu (leijishu,qybm) values('" & Trim(ShangValue) & "','" & Trim(frmqy.qybm) & "')"
      db.Execute RecStr
      db.Close
DBEngine.CommitTrans