📄 frmyh_dwrjzqc.frm
字号:
Object.ToolTipText = "帮助"
ImageIndex = 8
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
Object.ToolTipText = "退出"
ImageIndex = 9
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.Label lblDwtzqye
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "调整前余额："
Height = 180
Left = 7755
TabIndex = 1
Top = 690
Width = 1080
End
Begin VB.Label lblKmmc
AutoSize = -1 'True
Caption = "科目："
Height = 180
Left = 120
TabIndex = 0
Top = 690
Width = 540
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuPrint
Caption = "打印"
Shortcut = ^P
End
Begin VB.Menu mnuPreview
Caption = "预览(&V)"
End
Begin VB.Menu mnuLine1
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu mnuNew
Caption = "增加"
Shortcut = ^N
End
Begin VB.Menu mnuSave
Caption = "保存"
Shortcut = ^S
End
Begin VB.Menu mnuCancel
Caption = "取消"
Shortcut = ^C
End
Begin VB.Menu mnuDelete
Caption = "删除"
Shortcut = ^D
End
Begin VB.Menu mnuLine2
Caption = "-"
End
Begin VB.Menu mnuFilter
Caption = "筛选"
Shortcut = ^L
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
End
End
Attribute VB_Name = "frmYH_Dwrjzqc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'2001.01.22肖兆芹修改
Option Explicit
'以下一段常量用于窗体frm_print的CELL打印
'-------------------------------------------------------------
'Cell单元格对齐方式: 33 = 左对齐, 34 = 右对齐, 36 = 居中对齐;
Const ROWS_PAGE = 28 '每页行数
Const COL_START = 1 '开始列
Const COL_PZRQ = 1 '凭证日期
Const COL_PZZL = 2 '凭证种类
Const COL_PZBH = 3 '凭证编号
Const COL_JSFS = 4 '结算方式
Const COL_BILL_NUMBER = 5 '票号
Const COL_DEBIT_MONEY = 6 '借方金额
Const COL_CREDIT_MONEY = 7 '贷方金额
Const COL_BILL_DATE = 8 '票据日期
Const COL_PZZY = 9 '凭证摘要
Const COL_END = 9
Const ROW_TITLE = 1 '标题
Const ROW_BLANK = 2 '空白行
Const ROW_SUBJNAME = 3 '页眉
Const ROW_HEAD1 = 4 '页标头行
Const ROW_GRID_START = 5 '表格开始行
Const CRB_LINE = vbBlack '表格线颜色
'缺省列宽
'CELL 1单元长度 = 3.8mm
Const ColWidth = "85,80,80,80,100,150,150,85,220"
Dim sEnterName As String '单位名称
Dim IsChangeCurrentTable As Boolean '是否改变当前表格中的内容
Dim frmP As frmPrint '通用打印窗体(CELL)
'-------------------------------------------------------------
Dim Myfrmcx As frmYH_Yhcxtj
Dim rstTemp As ADODB.Recordset
Dim adoCmd As ADODB.Command
Dim sSQLTemp As String
Dim sSQL As String
Dim i As Integer
Dim j As Integer
Dim PzlbArray() As String '存放凭证类别
Dim JsfsArray() As String '存放结算方式
Dim OldPzzl As String '存放当前行的凭证种类
Dim OldPzbh As String '存放当前行的凭证编号
Dim OldRow As Integer '当前获得焦点的单元格所在行数
Dim ErrorCol As Integer '存放出错列
Dim NewRow As Integer '表格移动到下一个获得焦点的单元格的行数
Dim NewCol As Integer '表格移动到下一个获得焦点的单元格的列数
Dim CurrentRowNum As Integer '存放新增表格行的行数
Dim IsModify As Boolean '判断当前行的内容是否被修改
Dim IsDateModify As Boolean '判断当前行的日期是否被修改, 用于表格自动按日期排序
Dim IsRefresh As Boolean '当移动单元格时判断当前是否在刷新表格
Dim IsDelete As Boolean '判断当前是否在删除状态
Dim frmH_Summ As New frmIN_Summary
Private Sub dtpEdit_Change()
mfgDwrjzqc.TextMatrix(mfgDwrjzqc.Row, 2) = dtpEdit.value
End Sub
Private Sub form_load()
OldPzzl = ""
OldPzbh = ""
OldRow = 0
NewRow = 0
NewCol = 0
CurrentRowNum = 0
IsModify = False
IsDateModify = False
IsRefresh = False
IsDelete = False
IsChangeCurrentTable = True
Set Myfrmcx = New frmYH_Yhcxtj
Set adoCmd = New ADODB.Command
IsDelete = False
adoCmd.ActiveConnection = glo.cnnMain
lblKmmc.Caption = frmYH_Yetjbqc.lblKmmc
lblDwtzqye.Caption = "调整前余额：" & Format(frmYH_Yetjbqc.txtDwtzqye, "##,##0.00")
Set rstTemp = New ADODB.Recordset
rstTemp.CursorLocation = adUseClient
sSQLTemp = "SELECT sign,signtext FROM tZW_type" & glo.sOperateYear + " order by SignID"
rstTemp.Open sSQLTemp, glo.cnnMain, adOpenStatic, adLockReadOnly
With rstTemp
If .RecordCount <> 0 Then
ReDim PzlbArray(1 To .RecordCount)
i = 0
.MoveFirst
Do Until .EOF
i = i + 1
PzlbArray(i) = Trim$("" & .Fields("sign").value) '& " " & Trim$("" & .Fields("signtext").Value)
.MoveNext
Loop
End If
End With
Set rstTemp = New ADODB.Recordset
rstTemp.CursorLocation = adUseClient
sSQLTemp = "SELECT cCode,cName FROM tZW_jsfs" & glo.sOperateYear & " WHERE bEnd = -1 order by cCode"
rstTemp.Open sSQLTemp, glo.cnnMain, adOpenStatic, adLockReadOnly
With rstTemp
If .RecordCount <> 0 Then
ReDim JsfsArray(1 To .RecordCount)
JsfsArray(1) = " "
i = 1
.MoveFirst
Do Until .EOF
JsfsArray(i) = Trim$("" & .Fields("cCode").value) & " " & _
Trim$("" & .Fields("cName").value)
i = i + 1
.MoveNext
Loop
End If
End With
tbr.Buttons("save").Enabled = False
tbr.Buttons("cancel").Enabled = False
mnuSave.Enabled = False
mnuCancel.Enabled = False
Call SetHead
Select Case g_FLAT
Case "SQL"
sSQL = "SELECT kjqj,jlhm,pzzl,pzbh,pzrq,pzzy,fx,je," & _
"yhdz_jsfscode,yhdz_jsfs,yhdz_bill,yhdz_date,yhdz_lqbz" & _
" FROM tZW_pzsj" & glo.sOperateYear & _
" WHERE kmdm = '" & frmYH_Yhkmxz.kmdm & _
"' AND kjqj = 21 and yhdz_hxbz = 0 AND pzrq < '" & _
Format(frmYH_Yetjbqc.dtpQyrq.value, "yyyy-mm-dd") & _
"' ORDER BY pzrq"
Case "ORACLE"
sSQL = "SELECT kjqj,jlhm,pzzl,pzbh,pzrq,pzzy,fx,je," & _
"yhdz_jsfscode,yhdz_jsfs,yhdz_bill,yhdz_date,yhdz_lqbz" & _
" FROM tZW_pzsj" & glo.sOperateYear & _
" WHERE kmdm = '" & frmYH_Yhkmxz.kmdm & _
"' AND kjqj = 21 and (yhdz_hxbz = 0 or yhdz_hxbz is null )AND pzrq < TO_DATE('" & _
Format(frmYH_Yetjbqc.dtpQyrq.value, "yyyy-mm-dd") & _
"','YYYY-MM-DD') ORDER BY pzrq"
End Select
Call FillGrid(sSQL)
'------------------------------
'得到当前账套的单位名称
sEnterName = GetDWMC
If sEnterName = "" Then
MsgBox "缺少单位名称！", vbInformation
Exit Sub
End If
'根据当前MSFLEXGRID表格生成CELL表格
If IsChangeCurrentTable Then
IsChangeCurrentTable = False
Call DrawCellTable
End If
'------------------------------
Load Myfrmcx
End Sub
'设置表头
Private Sub SetHead()
With mfgDwrjzqc
'将表格的第一、二列隐藏, 第一列用于存放凭证的会计期间, 第二列用于存放凭证的记录号码
.ColWidth(0) = 0
.ColWidth(1) = 0
.ColWidth(2) = 1300
.ColWidth(3) = 1200
.ColWidth(4) = 1200
.ColWidth(5) = 1200
.ColWidth(6) = 1200
.ColWidth(7) = 1800
.ColWidth(8) = 1800
.ColWidth(9) = 1200
.ColWidth(10) = 3000
.ColAlignment(0) = 4
.ColAlignment(1) = 4
.ColAlignment(2) = 4
.ColAlignment(3) = 4
.ColAlignment(4) = 4
.ColAlignment(5) = 4
.ColAlignment(6) = 4
.ColAlignment(7) = 7
.ColAlignment(8) = 7
.ColAlignment(9) = 4
.ColAlignment(10) = 1
.Row = 0
.RowHeight(0) = 400
For j = 0 To .Cols - 1
.Col = j
.CellFontSize = 11
.CellAlignment = 4
Next j
End With
cmdHelp.Height = 300
cmdHelp.Width = 320
dtpEdit.value = Date
End Sub
'从银行对账单表中取出期初对账单, 然后填充表格;
Private Sub FillGrid(ByVal sSQL As String)
mfgDwrjzqc.Redraw = False
IsRefresh = True
Set rstTemp = New ADODB.Recordset
rstTemp.CursorLocation = adUseClient
With rstTemp
.Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
mfgDwrjzqc.Rows = 1
If .RecordCount = 0 Then
tbr.Buttons("delete").Enabled = False
mnuDelete.Enabled = False
Else
.MoveFirst
For i = 1 To .RecordCount
If .Fields("fx").value = "借" Then
mfgDwrjzqc.AddItem .Fields("kjqj").value & vbTab & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -