📄 frmaddacc.frm
字号:
VERSION 5.00
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Begin VB.Form frmAddAcc
BorderStyle = 3 'Fixed Dialog
Caption = "添加账户"
ClientHeight = 5355
ClientLeft = 45
ClientTop = 330
ClientWidth = 5775
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5355
ScaleWidth = 5775
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command3
Caption = "取消"
Height = 270
Left = 4620
TabIndex = 14
Top = 450
Width = 975
End
Begin VB.CommandButton Command2
Caption = "高级>>"
Height = 270
Left = 4620
TabIndex = 12
Top = 810
Width = 975
End
Begin VB.PictureBox Picture1
Height = 4530
Left = 0
ScaleHeight = 4470
ScaleWidth = 5730
TabIndex = 11
TabStop = 0 'False
Top = 1500
Visible = 0 'False
Width = 5790
End
Begin VB.CommandButton Command1
Caption = "确认"
Height = 270
Left = 4620
TabIndex = 10
Top = 90
Width = 975
End
Begin VB.TextBox Text
Height = 270
Index = 3
Left = 1200
TabIndex = 8
Top = 1170
Width = 2715
End
Begin VB.TextBox Text
Height = 270
Index = 2
Left = 1200
TabIndex = 6
Top = 810
Width = 2715
End
Begin VB.TextBox Text
Height = 270
Index = 1
Left = 1200
TabIndex = 4
Top = 450
Width = 2715
End
Begin VB.TextBox Text
Height = 270
Index = 0
Left = 1200
TabIndex = 3
Top = 90
Width = 3015
End
Begin UsRefBut.RefCmd RefCmd1
Height = 270
Left = 3945
TabIndex = 5
Top = 450
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 2
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd RefCmd2
Height = 270
Left = 3945
TabIndex = 7
Top = 810
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 0
RefUnitMode = 0
RefAccMode = 2
Enabled = -1 'True
End
Begin UsRefBut.RefCmd RefCmd3
Height = 270
Left = 3945
TabIndex = 9
Top = 1170
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 1
RefUnitMode = 0
RefAccMode = 2
Enabled = -1 'True
End
Begin VB.Label Label1
Caption = "账户号"
Height = 180
Left = 60
TabIndex = 13
Top = 135
Width = 1095
End
Begin VB.Label Label4
Caption = "其它参数类同"
Height = 180
Left = 60
TabIndex = 2
Top = 1200
Width = 1095
End
Begin VB.Label Label3
Caption = "单位名称"
Height = 180
Left = 60
TabIndex = 1
Top = 855
Width = 1095
End
Begin VB.Label Label2
Caption = "利率代码"
Height = 180
Left = 60
TabIndex = 0
Top = 495
Width = 1095
End
End
Attribute VB_Name = "frmAddAcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'2001.10.20
'章景峰
'四川绵阳，中国工程物理研究院
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private bfrmAccDefVisible As Boolean
Private iCheck(3) As Boolean
Private WindowsState As Byte
Public bfrmAddAccVisible As Boolean
Public nwb As Boolean
Private Sub Command1_Click()
' Dim i As Long
'
' If Len(Text(0).Text) = 0 Then
' MsgBox "账户号不能为空", vbInformation, zjGl_Name
' End If
' If Not iCheck(1) Then
' MsgBox "利率不合法", vbInformation, zjGl_Name
' ElseIf Not iCheck(2) Then
' MsgBox "单位名称不合法", vbInformation, zjGl_Name
' ElseIf Not iCheck(3) Then
' MsgBox "类同账户不合法", vbInformation, zjGl_Name
' End If
'
' If Len(Text(0).Text) <> 0 And iCheck(1) And iCheck(2) And iCheck(3) Then
' If Not AddAccDef Then AddAccDef
' clsAcc.save_change
' bfrmAddAccVisible = False
' bfrmAccDefVisible = False
' 'frmAccDef.bAddAcc = True
' frmAccDef.txtAccCode.Enabled = True
' frmAccDef.txtAccName.Enabled = True
' frmAccDef.RefCmd1.Enabled = True
' frmAccDef.cmdOk.Visible = True
'
' If Not frmAccDef.Visible Then Unload frmAccDef
'
' i = SetParent(frmAccDef.Picture1.hWnd, frmAccDef.hWnd)
' frmAccDef.Picture1.Top = frmAccDef.tvAccDef.Top
' frmAccDef.Picture1.Left = frmAccDef.tvAccDef.Width + 60
' frmAccDef.Form_Resize
'
' frmyhck.Edityhmc = Text(2).Text
' frmyhck.Edityhzh = Text(0).Text
' Me.Hide
' If Ckzh_err(frmyhck.Editrq.Text, frmyhck.Edityhmc, frmyhck.Edityhzh, frmyhck.Editbh.Text, frmyhck.Textlldm, frmyhck.Textbb, False, frmyhck.djnwb, IIf(frmyhck.Option1(0).Value, 0, 1)) Then
' End If
' Unload Me
' End If
End Sub
Private Sub Command2_Click()
' If Command2.Caption = "高级>>" Then
'' If Not iCheck(1) Then
'' MsgBox "利率不合法", vbInformation, zjGl_Name
'' Exit Sub
'' ElseIf Not iCheck(2) Then
'' MsgBox "单位名称不合法", vbInformation, zjGl_Name
'' Exit Sub
'' ElseIf Not iCheck(3) Then
'' MsgBox "类同账户不合法", vbInformation, zjGl_Name
'' Exit Sub
'' End If
' Me.Width = 5895
' If Me.Height < 7365 Then
' Me.Height = 7365
' End If
' CenterForm Me
' Command2.Caption = "<<高级"
' AddAccDef
' frmAccDef.Picture1.Visible = True
' Else
' Me.Width = 5895
' Me.Height = 1890
' CenterForm Me
' Command2.Caption = "高级>>"
'
' Dim i As Integer
' bfrmAddAccVisible = False
' bfrmAccDefVisible = False
' 'frmAccDef.bAddAcc = True
' AddAccDef False
' frmAccDef.txt(1).Enabled = True
' frmAccDef.txt(3).Enabled = True
' frmAccDef.RefCmd1.Enabled = True
' frmAccDef.cmdOk.Visible = True
'
' If Not frmAccDef.Visible Then Unload frmAccDef
'
' i = SetParent(frmAccDef.Picture1.hWnd, frmAccDef.hWnd)
' frmAccDef.Picture1.Top = frmAccDef.tvAccDef.Top
' frmAccDef.Picture1.Left = frmAccDef.tvAccDef.Width + 60
' frmAccDef.Form_Resize
'
' frmAccDef.Picture1.Visible = frmAccDef.Visible
' End If
End Sub
Private Function AddAccDef(Optional Visible As Boolean = True) As Boolean
' Dim i As Long
' Dim pKey As String
' Dim txt(15) As String
'
' 'frmAccDef.bAddAcc = True
' Load frmAccDef
' If Visible Then i = SetParent(frmAccDef.Picture1.hWnd, Me.hWnd)
' frmAccDef.Picture1.Top = 1500 ' Me.Picture1.Top
' frmAccDef.Picture1.Left = 0 'Me.Picture1.Left
' frmAccDef.Picture1.Width = Me.Picture1.Width
' frmAccDef.Picture1.Height = Me.Picture1.Height
' frmAccDef.txt(1).Enabled = False
' frmAccDef.txt(3).Enabled = False
' frmAccDef.RefCmd1.Enabled = False
' frmAccDef.cmdOk.Visible = Not frmAccDef.Picture1.Visible
' bfrmAccDefVisible = frmAccDef.Picture1.Visible
'
' If iCheck(3) Then
' frmAccDef.tvAccDef.Nodes("a" & Text(3).Text).Selected = True
' ElseIf iCheck(2) Then
' Dim Rs As New UfRecordset
' Set Rs = dbsZJ.OpenRecordset("Select * From FD_AccUnit Where cUnitCode='" & Text(2).Text & "'", dbOpenDynaset)
' With Rs
' If Not (.EOF Or .BOF) Then
' frmAccDef.tvAccDef.Nodes("u" & !cUnitCode).Selected = True
' Else
' MsgBox "单位名称不存在!", vbInformation, zjGl_Name
' End If
' .oClose
' End With
' Set Rs = Nothing
' End If
' clsAcc.GenMove
'
' txt(0) = frmAccDef.txt(0).Text
' txt(1) = frmAccDef.txt(1).Text
' txt(2) = frmAccDef.txt(2).Text
' txt(8) = frmAccDef.txt(8).Text
' txt(3) = frmAccDef.txt(3).Text
' txt(4) = frmAccDef.txt(4).Text
' txt(5) = frmAccDef.txt(5).Text
' txt(6) = frmAccDef.txt(6).Text
' txt(9) = frmAccDef.txt(9).Text
' txt(7) = frmAccDef.cobSrc.ListIndex
' txt(10) = frmAccDef.Combo1.ListIndex
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -