📄 frminorout.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmInorOut
BorderStyle = 1 'Fixed Single
Caption = "导入导出"
ClientHeight = 3915
ClientLeft = 45
ClientTop = 330
ClientWidth = 5340
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3915
ScaleWidth = 5340
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdOKCancelFilter
Caption = "邮件接收(&A)"
Height = 350
Index = 3
Left = 4020
TabIndex = 8
Top = 1470
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox pctLine
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 2160
Index = 1
Left = 0
ScaleHeight = 2160
ScaleWidth = 15
TabIndex = 10
Top = 0
Width = 15
End
Begin MSComDlg.CommonDialog cdgFilePath
Left = 1800
Top = 3240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdFindPath
Height = 285
Left = 3600
Style = 1 'Graphical
TabIndex = 2
Tag = "1017"
Top = 345
UseMaskColor = -1 'True
Width = 285
End
Begin VB.TextBox txtPath
Height = 270
Left = 90
TabIndex = 1
Top = 345
Width = 3495
End
Begin VB.PictureBox pctLine
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 2160
Index = 0
Left = 1110
ScaleHeight = 2160
ScaleWidth = 15
TabIndex = 9
Top = 1050
Width = 15
End
Begin MSFlexGridLib.MSFlexGrid msgPutItem
Height = 2685
Left = 90
TabIndex = 4
Top = 1020
Width = 3765
_ExtentX = 6641
_ExtentY = 4736
_Version = 393216
Cols = 3
FixedCols = 0
BackColorBkg = -2147483643
GridColorFixed = 16777215
AllowBigSelection= 0 'False
GridLines = 0
ScrollBars = 2
SelectionMode = 1
End
Begin VB.CommandButton cmdOKCancelFilter
Caption = "筛选(&F)"
Height = 350
Index = 2
Left = 4020
TabIndex = 7
Top = 1080
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancelFilter
Cancel = -1 'True
Height = 350
Index = 1
Left = 4020
Style = 1 'Graphical
TabIndex = 6
Top = 690
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancelFilter
Height = 350
Index = 0
Left = 4020
Style = 1 'Graphical
TabIndex = 5
Top = 300
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Label lblImPortTable
AutoSize = -1 'True
Caption = "数据文件夹(&P)"
Height = 180
Index = 1
Left = 90
TabIndex = 0
Top = 75
Width = 1170
End
Begin VB.Label lblImPortTable
AutoSize = -1 'True
Caption = "导出项目(&T)"
Height = 180
Index = 0
Left = 90
TabIndex = 3
Top = 765
Width = 990
End
End
Attribute VB_Name = "frmInorOut"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const strConStr = ",科目,科目期初,财务预算,货币,凭证类别,单位类别,单位,应收应付期初,部门,职员类别," _
& "职员,统计核算,项目核算,商品性质,商品类别,商品,商品单位,固资方式,固资类别,凭证,销售发票," _
& "应收借项,应收贷项,应收计息,采购发票,应付贷项,应付借项,收款单,付款单,银行对帐单,银行帐期初," _
& "固资变动,单据模板,"
Const strUnConStr = ",科目,科目期初,财务预算,货币,凭证类别,单位类别,单位,应收应付期初,部门,职员类别," _
& "职员,统计核算,项目核算,固资方式,固资类别,凭证,银行对帐单,银行帐期初,固资变动,单据模板,"
Private mstrWhere(10) As String
Private mintViewId(8) As Integer
Private mListset As ListSet
Private mstrPath As String
Private mblnImport As Boolean
Private mintYear As Integer
Private mintStartPeriod As Integer
Private mintEndPeriod As Integer
Private Sub cmdFindPath_Click()
With cdgFilePath
If mblnImport Then
.DialogTitle = "导入格式文件"
.InitDir = GetFilePath(txtPath.Text)
#If conWan <> 1 Then
.Filter = "金算盘数据导入格式文件(*.ini)|*.ini"
#Else
.Filter = "数据导入格式文件(*.ini)|*.ini"
#End If
.ShowOpen
If .FileName <> "" Then txtPath.Text = .FileName
InitByInorOut txtPath.Text
Else
.DialogTitle = "导出格式文件"
.FileName = "Format.ini"
#If conWan <> 1 Then
.Filter = "金算盘数据导出格式文件(*.ini)|*.ini"
#Else
.Filter = "数据导出格式文件(*.ini)|*.ini"
#End If
.ShowSave
txtPath.Text = GetFilePath(.FileName)
End If
End With
End Sub
Private Sub cmdOKCancelFilter_Click(Index As Integer)
Dim blnFlage As Boolean
Dim blnItem(110) As Boolean
Dim intCount As Integer
Dim intShowType As Integer
Dim blnResult(110) As Boolean
Dim strTemp(2) As String
On Error Resume Next
Select Case Index
Case 0 '确认
If Not mblnImport Then
MsgForm.PleaseWait
' If txtPath.Text = "" Or Dir(txtPath.Text, vbDirectory) = "" Then
' ShowMsg Me.hwnd, "你所选择的路径不存在，请重新选择！", vbInformation, Me.Caption
' txtPath.SetFocus
' Exit Sub
' End If
' If CoordinateArray(blnItem) Then
' intShowType = AccountExport(txtPath.Text, blnItem, mstrWhere, blnResult, mintYear, mintStartPeriod, mintEndPeriod)
' For intCount = 0 To 8
' If blnItem(intCount) Then
' If blnResult(intCount) Then
' strTemp(0) = strTemp(0) & msgPutItem.TextMatrix(intCount + 1, 2) & " "
' Else
' strTemp(1) = strTemp(1) & msgPutItem.TextMatrix(intCount + 1, 2) & " "
' End If
' End If
' Next
' If strTemp(0) <> "" Then
' strTemp(2) = strTemp(0) & "导出成功"
' End If
' If strTemp(1) <> "" Then
' If strTemp(2) = "" Then
' strTemp(2) = strTemp(1) & "导出失败"
' Else
' strTemp(2) = strTemp(2) & "，" & strTemp(1) & "导出失败"
' End If
' End If
' If strTemp(2) <> "" Then
' ShowMsg Me.hwnd, strTemp(2) & "！", vbExclamation + MB_TASKMODAL, "导出卡片"
' End If
' End If
Else
If Dir(GetFilePath(txtPath.Text), vbDirectory) = "" Then
ShowMsg Me.hwnd, "你所选择的路径不存在，请重新选择！", vbInformation, Me.Caption
txtPath.SetFocus
Unload MsgForm
Exit Sub
End If
If CoordinateArray(blnItem) Then
intShowType = AccountImport(txtPath.Text, blnItem)
End If
End If
Unload MsgForm
Unload Me
Case 1 '取消
Unload Me
Case 2 '筛选
' Select Case msgPutItem.Row
' Case 1 To 8
' Set mListset = New ListSet
' mListset.ViewId = mintViewId(getID)
' If mListset.ListID < 1 Then mListset.SaveList
' mstrWhere(getID) = Filter.ShowFilter(mListset.ListID, 1, , , , , blnFlage)
' Case 9
frmBalFilter.ShowCard mintYear, mintStartPeriod, mintEndPeriod
' End Select
Case 3
frmReceiveMail.Show vbModal
End Select
End Sub
Private Sub Form_Activate()
SetHelpID Me.HelpContextID
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -