📄 frmbus.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Begin VB.Form frmBus
Caption = "Business Unit Master Unit Maitenance"
ClientHeight = 7500
ClientLeft = 60
ClientTop = 345
ClientWidth = 9600
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7500
ScaleWidth = 9600
WindowState = 2 'Maximized
Begin VB.CommandButton Cmd_no
Caption = "Cancel"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7320
TabIndex = 11
Top = 6600
Width = 1095
End
Begin VB.CommandButton Cmd_ok
Caption = "Ok"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5880
TabIndex = 10
Top = 6600
Width = 1215
End
Begin MSComctlLib.ProgressBar PrBar1
Height = 255
Left = 960
TabIndex = 9
Top = 6600
Width = 4455
_ExtentX = 7858
_ExtentY = 450
_Version = 393216
Appearance = 1
End
Begin VB.Frame frminput
Height = 2535
Left = 120
TabIndex = 1
Top = 3840
Width = 9015
Begin VB.ComboBox cblstatus
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmBus.frx":0000
Left = 2520
List = "frmBus.frx":0002
Style = 2 'Dropdown List
TabIndex = 12
Top = 2040
Width = 855
End
Begin VB.TextBox txtbusd
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2520
MaxLength = 40
TabIndex = 7
Top = 1470
Width = 5775
End
Begin VB.TextBox txtbusc
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2520
MaxLength = 12
TabIndex = 6
Top = 885
Width = 1695
End
Begin VB.TextBox txtentc
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2520
MaxLength = 5
TabIndex = 5
Top = 360
Width = 855
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "Active Status:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 8
Top = 2040
Width = 1575
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "Bussiness Unit Description:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 720
TabIndex = 4
Top = 1320
Width = 1575
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Bussiness Unit Code:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 3
Top = 840
Width = 2175
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "Entity Code:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 960
TabIndex = 2
Top = 360
Width = 1335
End
End
Begin PrjLDS.UserControl1 UserControl1
Height = 615
Left = 0
TabIndex = 0
Top = 0
Width = 9720
_ExtentX = 17145
_ExtentY = 1085
End
Begin FPSpread.vaSpread vasbus
Height = 3075
Left = 120
TabIndex = 13
Top = 720
Width = 9000
_Version = 131077
_ExtentX = 15875
_ExtentY = 5424
_StockProps = 64
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaxCols = 1
MaxRows = 1
SpreadDesigner = "frmBus.frx":0004
End
Begin VB.Label lblstatus
Height = 375
Left = 6840
TabIndex = 14
Top = 3360
Width = 975
End
End
Attribute VB_Name = "frmBus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Option Base 1
Dim mkey As String
Dim lCurRow As Integer
Dim lCurCol As Integer
Private Type BusiC
Buscode As String
Busdesc As String
End Type
Private BusiRc() As BusiC
Private Sub Form_Load()
frmBus.Height = 7000
frmBus.Width = 9000
lCurRow = 1
lCurCol = 1
PrBar1.Visible = False
Cmd_ok.Visible = False
Cmd_no.Visible = False
Call setcombobox
Call InitToolBar
Call initspread
Call vasshow
End Sub
Private Sub initspread()
With vasbus
.MaxRows = 0
.MaxCols = 4 'enuDetailCols.MaxCols
.ShadowColor = genuBACKCOLOR.CST_Grid_LostFocus
.Row = -1: .Col = -1
.BackColor = genuBACKCOLOR.CST_Grid_LostFocus
.GridColor = vbBlack
End With
Call SetSpreadHead
lockspread vasbus, True
End Sub
Private Sub SetSpreadHead()
SetColHead vasbus, 1, "Entity Code", 18
SetColHead vasbus, 2, "Bussiness Unit Code", 20
SetColHead vasbus, 3, "Bussiness Unit Description ", 24
SetColHead vasbus, 4, "Active Status", 14
End Sub
Private Sub setcombobox()
cblstatus.AddItem ("N")
cblstatus.AddItem ("Y")
End Sub
Private Sub vasshow()
Dim rstbus As Recordset
Dim sSQL As String
Dim lrow As Integer
sSQL = "select * from appbus order by entcode"
Set rstbus = Acs_cnt.Execute(sSQL)
lrow = 0
vasbus.MaxRows = 0
Do While Not rstbus.EOF
vasbus.MaxRows = vasbus.MaxRows + 1
lrow = lrow + 1
SetValue vasbus, lrow, 1, gsEntCode
SetValue vasbus, lrow, 2, rstbus!Buscode
SetValue vasbus, lrow, 3, "" & rstbus!Busdesc
SetValue vasbus, lrow, 4, "" & rstbus!Astatus
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -