📄 frmdrv.frm
字号:
VERSION 5.00
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Begin VB.Form frmDrv
Caption = "Driver Master Maintenance"
ClientHeight = 7245
ClientLeft = 60
ClientTop = 345
ClientWidth = 9465
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7245
ScaleWidth = 9465
WindowState = 2 'Maximized
Begin VB.Frame frminput
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2655
Left = 120
TabIndex = 1
Top = 3960
Width = 9015
Begin VB.CheckBox Check1
Caption = " Available"
Height = 375
Left = 3600
TabIndex = 12
Top = 840
Width = 1335
End
Begin VB.TextBox txtqual
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1800
TabIndex = 11
Top = 1920
Width = 3135
End
Begin VB.TextBox txtname
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1800
MaxLength = 30
TabIndex = 4
Top = 1380
Width = 3135
End
Begin VB.TextBox txtdrv
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1800
MaxLength = 10
TabIndex = 3
Top = 855
Width = 1095
End
Begin VB.TextBox txtent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1800
MaxLength = 5
TabIndex = 2
Top = 360
Width = 615
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Qualify:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 840
TabIndex = 10
Top = 1920
Width = 855
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "Driver Name:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 360
TabIndex = 7
Top = 1395
Width = 1335
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "Driver Code:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 360
TabIndex = 6
Top = 885
Width = 1335
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
Index = 0
Left = 360
TabIndex = 5
Top = 360
Width = 1335
End
End
Begin PrjLDS.UserControl1 UserControl1
Height = 615
Left = 0
TabIndex = 0
Top = 0
Width = 9585
_ExtentX = 16907
_ExtentY = 1085
End
Begin FPSpread.vaSpread vasdrv
Height = 3075
Left = 120
TabIndex = 8
Top = 840
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 = "frmDrv.frx":0000
End
Begin VB.Label lblstatus
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7800
TabIndex = 9
Top = 4440
Width = 855
End
End
Attribute VB_Name = "frmDrv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mkey As String
Private Sub Form_Load()
vasdrv.Width = SpreadW
vasdrv.Height = SpreadH
Call InitToolBar
With vasdrv
.ShadowColor = genuBACKCOLOR.CST_Grid_LostFocus
.Row = -1: .Col = -1
.BackColor = genuBACKCOLOR.CST_Grid_LostFocus
.GridColor = vbBlack
End With
With vasdrv
.MaxCols = 5
.Row = 0
.ColWidth(1) = 20
.Col = 1
.Text = "Entity Code"
.ColWidth(2) = 20
.Col = .Col + 1
.Text = "Driver Code"
.ColWidth(3) = 20
.Col = .Col + 1
.Text = "Driver Name"
.Col = .Col + 1
.Text = "Qualify"
.Col = .Col + 1
.Text = "Available"
End With
Call vasshow
frminput.Enabled = False
End Sub
Private Sub vasshow()
Dim rstdrv As Recordset
Dim sSQL As String
sSQL = "select * from appdrv order by drvcode"
Set rstdrv = Acs_cnt.Execute(sSQL)
With vasdrv
.Row = 0
.MaxRows = 0
Do While Not rstdrv.EOF
.Row = .Row + 1
.MaxRows = .MaxRows + 1
With vasdrv
.Col = 1
.Text = gsEntCode
.Col = .Col + 1
.Text = rstdrv!drvcode
.Col = .Col + 1
.Text = rstdrv!drvname
.Col = .Col + 1
.Text = "" & rstdrv!qualify
.Col = .Col + 1
.Text = IIf(rstdrv!availab > 0, 1, 0)
End With
rstdrv.MoveNext
Loop
End With
rstdrv.Close
Set rstdrv = Nothing
Call vasdrv_Click(1, 1)
End Sub
Private Sub InitToolBar()
With UserControl1
.DisplayButton "New", "New", True, , "New"
.DisplayButton "Save", "Save", False, , "Save"
.DisplayButton "Cancel", "Cancel", False, , "Cancel"
.DisplayButton "Find", "Find", True, , "Find"
.DisplayButton "Modify", "Modify", True, , "Modify"
.DisplayButton "Find", "Find", True, , "Find"
.DisplayButton "Close", "Close", True, , "Close"
End With
End Sub
Private Sub txtdrv_KeyDown(KeyCode As Integer, Shift As Integer)
Dim rstdrv As Recordset
Dim sSQL As String
Dim sent, sdrv As String
If KeyCode = vbKeyReturn Then
If lblstatus.Caption = "search" Then
If txtdrv.Text = "" Then
MsgBox "The drver code is not input", vbOKOnly, "Information"
txtdrv.SetFocus
ElseIf lblstatus.Caption = "search" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -