📄 frmsetup.frm
字号:
Begin VB.PictureBox ButtonContainer
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 975
Left = 240
ScaleHeight = 975
ScaleWidth = 8775
TabIndex = 17
TabStop = 0 'False
Top = 5040
Width = 8775
Begin VB.PictureBox cmdPicture
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 600
MouseIcon = "frmSetup.frx":091E
MousePointer = 99 'Custom
ScaleHeight = 450
ScaleWidth = 2355
TabIndex = 41
TabStop = 0 'False
Top = 300
Width = 2355
End
Begin VB.PictureBox cmdExit
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Left = 7080
MouseIcon = "frmSetup.frx":0C28
MousePointer = 99 'Custom
ScaleHeight = 570
ScaleWidth = 1095
TabIndex = 21
TabStop = 0 'False
Top = 240
Width = 1100
End
Begin VB.PictureBox cmdEdit
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Left = 3480
MouseIcon = "frmSetup.frx":0F32
MousePointer = 99 'Custom
ScaleHeight = 570
ScaleWidth = 1095
TabIndex = 20
TabStop = 0 'False
Top = 240
Width = 1100
End
Begin VB.PictureBox cmdSave
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Left = 4680
MouseIcon = "frmSetup.frx":123C
MousePointer = 99 'Custom
ScaleHeight = 570
ScaleWidth = 1095
TabIndex = 19
TabStop = 0 'False
Top = 240
Width = 1100
End
Begin VB.PictureBox cmdUndo
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Left = 5880
MouseIcon = "frmSetup.frx":1546
MousePointer = 99 'Custom
ScaleHeight = 570
ScaleWidth = 1095
TabIndex = 18
TabStop = 0 'False
Top = 240
Width = 1100
End
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "标志"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 12
Left = 7080
TabIndex = 43
Top = 720
Width = 360
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "地址"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 7
Left = 1950
TabIndex = 28
Top = 1080
Width = 360
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "注册企业名"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 1410
TabIndex = 27
Top = 720
Width = 900
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "电话号码"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 8
Left = 1590
TabIndex = 26
Top = 1440
Width = 720
End
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Height = 6360
Left = 15
Top = 15
Width = 9300
End
End
Attribute VB_Name = "frmSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dummy As adodb.Recordset
Dim datprimary As adodb.Recordset
Dim rec_Isnew As Boolean
Dim p_add, p_edit, p_save, p_undo, p_top, p_prev, p_next, p_last, p_del
Dim p_isadding, p_isediting, p_isnavigate
Private Sub cmdEdit_Click()
' On Error GoTo ErrorEdit
EditMode = True
Press_Buttons ("Edit")
txtField(0).SetFocus
'ErrorEdit:
' Call MessageBox("frmSetup", Err.Description, 0)
End Sub
Private Sub cmdEdit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Edit", frmSetup.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdEdit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Edit", frmSetup.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdExit_Click()
EditMode = False
Unload Me
End Sub
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Exit", frmSetup.cmdExit, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Exit", frmSetup.cmdExit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdPicture_Click()
On Error GoTo CancelLoad
cdlPicture.ShowOpen
On Error GoTo BadLoad
'Logo = LoadPicture(cdlPicture.filename)
On Error GoTo 0
On Error GoTo 0
Exit Sub
CancelLoad:
If Err.Number <> cdlCancel Then
Call MessageBox("frmSetup", Err.Description, 0)
frmMessageBox.Show
Else
Exit Sub
End If
BadLoad:
Call MessageBox("frmSetup", Err.Description, 0)
frmMessageBox.Show
Exit Sub
End Sub
Private Sub cmdPicture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Change Logo", frmSetup.cmdPicture, 0, 0, 170, 30, frmLogin.Source, 182, 30, 2)
End Sub
Private Sub cmdPicture_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Change Logo", frmSetup.cmdPicture, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
End Sub
Private Sub cmdSave_Click()
On Error Resume Next
Call MacButton(" Edit", frmSetup.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
Press_Buttons ("Save")
Call MacButton(" Save", frmSetup.cmdSave, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdSave_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Save", frmSetup.cmdSave, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdSave_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Save", frmSetup.cmdSave, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdUndo_Click()
Call MacButton(" Edit", frmSetup.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
Press_Buttons ("Undo")
Call MacButton(" Undo", frmSetup.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdUndo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Undo", frmSetup.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdUndo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Undo", frmSetup.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub Form_Activate()
On Error Resume Next
If EditMode = False Then
strs = "select * from SETUP order by COMPANY_NAME"
Set datprimary = New adodb.Recordset
datprimary.Open strs, myDB, 1, 3
'Set datprimary = frmLogin.db.OpenRecordset(strs)
If Not datprimary.BOF Then
Display_Fields
End If
Enable_Fields (True)
Object_Tab_Trigger (False)
Enable_Buttons
Enable_Buttons
rec_Isnew = False
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Call ColForm(BoxContainer, 217, 211, 213, 125)
Call ColForm(ButtonContainer, 217, 211, 213, 125)
Call ColForm(CheckContainer, 217, 211, 213, 125)
Call CreateMacOSTitleBar(titleBar, " 系统设置 ")
Call BitBlt(frmSetup.Closed.hDC, 0, 0, 73, 50, frmLogin.Source.hDC, 0, 107, SRCCOPY)
frmSetup.Closed.Refresh
Call BitBlt(frmSetup.Maximized.hDC, 0, 0, 73, 50, frmLogin.Source.hDC, 0, 72, SRCCOPY)
frmSetup.Maximized.Refresh
Call BitBlt(frmSetup.Minimized.hDC, 0, 0, 73, 50, frmLogin.Source.hDC, 0, 124, SRCCOPY)
frmSetup.Minimized.Refresh
KeyPreview = True
Call MacButton(" 更改标志", frmSetup.cmdPicture, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
Call MacButton(" Edit", frmSetup.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
Call MacButton(" Save", frmSetup.cmdSave, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
Call MacButton(" Undo", frmSetup.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
Call MacButton(" Exit", frmSetup.cmdExit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -