English
+
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：7k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
- Begin VB.Form Bank_FrmItemGuide
- BorderStyle = 3 'Fixed Dialog
- Caption = "导入银行代发栏目"
- ClientHeight = 3345
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 4680
- Icon = "基础设置_导入银行代发栏目.frx":0000
- LinkTopic = "Form1"
- LockControls = -1 'True
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3345
- ScaleWidth = 4680
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin VB.CommandButton Cmd_Cancel
- Caption = "取消(&C)"
- Height = 300
- Left = 3450
- TabIndex = 2
- Top = 2955
- Width = 1120
- End
- Begin VB.CommandButton Cmd_Ok
- Caption = "确定(&O)"
- Height = 300
- Left = 2250
- TabIndex = 1
- Top = 2955
- Width = 1120
- End
- Begin VSFlex8Ctl.VSFlexGrid CzxsGrid
- Height = 2715
- Left = 90
- TabIndex = 0
- Top = 120
- Width = 4485
- _ExtentX = 7911
- _ExtentY = 4789
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- BackColor = -2147483643
- ForeColor = -2147483640
- BackColorFixed = -2147483633
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= -2147483643
- GridColor = -2147483633
- GridColorFixed = -2147483632
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 1
- SelectionMode = 0
- GridLines = 1
- GridLinesFixed = 2
- GridLineWidth = 1
- Rows = 50
- Cols = 10
- FixedRows = 1
- FixedCols = 1
- RowHeightMin = 0
- RowHeightMax = 0
- ColWidthMin = 0
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 0
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- MultiTotals = -1 'True
- SubtotalPosition= 1
- OutlineBar = 0
- OutlineCol = 0
- Ellipsis = 0
- ExplorerBar = 0
- PicturesOver = 0 'False
- FillStyle = 0
- RightToLeft = 0 'False
- PictureType = 0
- TabBehavior = 0
- OwnerDraw = 0
- Editable = 0 'False
- ShowComboButton = -1 'True
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- End
- End
- Attribute VB_Name = "Bank_FrmItemGuide"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '*******************************************************
- '* 模 块 名 称 :导入银行代发栏目
- '* 功 能 描 述 :因为代发栏目是按工资类别、银行设置的，
- '* 如果有相同的栏目，则可导入，而不必每次设置。
- '* 程序员姓名 :田建秀
- '* 最后修改人 :田建秀
- '* 最后修改时间:2002/01/04
- '* 备 注:
- '*******************************************************
- Option Explicit
- Dim Rsc As New ADODB.Recordset
- Dim Sql As String
- Dim I As Long
- Private Sub Cmd_Cancel_Click()
- Unload Me
- End Sub
- Private Sub Cmd_Ok_Click()
- With CzxsGrid
- If Trim(.TextMatrix(.Row, 0)) = Trim(Bank_FrmColSet.SortId) And _
- Trim(.TextMatrix(.Row, 1)) = Trim(Bank_FrmColSet.BankCode) Then
- Exit Sub
- Else
- Sql = "insert pm_BankItem(SortID,BankCode,ColumnName,DataType," & _
- " DataLen,DotLen,DataContent,Single,OrderNO,BkRoundType,AutoAdd1,SourceField)" & _
- " select '" & Trim(Bank_FrmColSet.SortId) & "'" & _
- ",'" & Trim(Bank_FrmColSet.BankCode) & "'," & _
- " ColumnName,DataType,DataLen,DotLen,DataContent,Single,OrderNO, " & _
- " BkRoundType,AutoAdd1,SourceField from PM_BankItem where SortID='" & _
- .TextMatrix(.Row, 0) & "' and BankCode='" & _
- .TextMatrix(.Row, 1) & "' and not (DataType=5 and Single=1)"
- On Error GoTo Err1
- With Cw_DataEnvi.DataConnect
- .BeginTrans
- .Execute Sql
- .CommitTrans
- End With
- End If
- End With
- Unload Me
- Exit Sub
- Err1:
- Cw_DataEnvi.DataConnect.RollbackTrans
- End Sub
- Private Sub CzxsGrid_DblClick()
- Call Cmd_Ok_Click
- End Sub
- Private Sub Form_Load()
- With CzxsGrid
- .Cols = 4
- .Rows = 1
- .FixedRows = 1
- .ColHidden(0) = True
- .ColHidden(1) = True
- .TextMatrix(0, 0) = "工资类别号"
- .TextMatrix(0, 1) = "银行编号"
- .TextMatrix(0, 2) = "工资类别名称"
- .TextMatrix(0, 3) = "银行名称"
- .RowHeight(0) = 450
- .SelectionMode = flexSelectionByRow
- .AutoResize = True
- .ColWidth(2) = 1800
- .ColWidth(3) = 1800
- For I = 0 To .Cols - 1
- .ColAlignment(I) = flexAlignCenterCenter
- Next
- End With
- Sql = "select distinct b.SortId,b.BankCode,SortName,BankName from " & _
- " pm_bankitem b,pm_sort s ,pm_bank p where b.BankCode=p.BankCode " & _
- " and s.SortID=b.SortID and not (datatype=5 and single=1)"
- Set Rsc = Cw_DataEnvi.DataConnect.Execute(Sql)
- With CzxsGrid
- Do While Not Rsc.EOF
- .Rows = .Rows + 1
- .Row = .Rows - 1
- .RowHeight(.Row) = 270
- .TextMatrix(.Row, 0) = Trim(Rsc!SortId)
- .TextMatrix(.Row, 1) = Trim(Rsc!BankCode)
- .TextMatrix(.Row, 2) = Trim(Rsc!SortName)
- .TextMatrix(.Row, 3) = Trim(Rsc!BankName)
- Rsc.MoveNext
- Loop
- If .Rows <> .FixedRows Then
- .Row = .FixedRows
- End If
- End With
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Set Rsc = Nothing
- End Sub
