📄 frmoption.frm
字号:
VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmoption1
BorderStyle = 1 'Fixed Single
Caption = "选项"
ClientHeight = 2505
ClientLeft = 45
ClientTop = 300
ClientWidth = 5940
HelpContextID = 88000017
Icon = "frmoption.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2505
ScaleWidth = 5940
Begin VB.CommandButton cmdcancel
Height = 365
Left = 4710
Style = 1 'Graphical
TabIndex = 15
Top = 1050
Width = 1080
End
Begin VB.CommandButton cmdfind
Default = -1 'True
Height = 365
Left = 4710
Style = 1 'Graphical
TabIndex = 14
Top = 495
Width = 1080
End
Begin VB.Frame Frame1
Height = 645
Index = 1
Left = 135
TabIndex = 8
Top = 1695
Width = 4440
Begin ComCtl2.UpDown UpDown1
Height = 240
Index = 1
Left = 3390
TabIndex = 9
TabStop = 0 'False
Top = 270
Width = 240
_ExtentX = 423
_ExtentY = 423
_Version = 327681
Max = 999
Enabled = -1 'True
End
Begin EDITLib.Edit Editday
Height = 270
Index = 1
Left = 2925
TabIndex = 2
Top = 255
Width = 405
_Version = 65536
_ExtentX = 714
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 3
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 2
Left = 180
TabIndex = 12
Top = 300
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 3
Left = 2475
TabIndex = 11
Top = 300
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 4
Left = 3720
TabIndex = 10
Top = 300
Width = 90
End
End
Begin VB.Frame Frame1
Height = 1125
Index = 0
Left = 135
TabIndex = 4
Top = 410
Width = 4455
Begin VB.CommandButton Cmd_AlarmAdvan
Cancel = -1 'True
Caption = "高级(&A)..."
Height = 365
Left = 150
Style = 1 'Graphical
TabIndex = 16
Top = 660
Width = 1140
End
Begin ComCtl2.UpDown UpDown1
Height = 240
Index = 0
Left = 3390
TabIndex = 7
TabStop = 0 'False
Top = 270
Width = 240
_ExtentX = 423
_ExtentY = 423
_Version = 327681
Max = 999
Enabled = -1 'True
End
Begin EDITLib.Edit Editday
Height = 270
Index = 0
Left = 2925
TabIndex = 1
Top = 255
Width = 405
_Version = 65536
_ExtentX = 714
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 3
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 345
Left = 150
TabIndex = 0
Top = 218
Width = 225
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 3720
TabIndex = 6
Top = 300
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 2475
TabIndex = 5
Top = 300
Width = 90
End
Begin VB.Label Label0
AutoSize = -1 'True
Height = 180
Left = 420
TabIndex = 3
Top = 300
Width = 90
End
End
Begin VB.Label Label2
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 225
TabIndex = 13
Top = 150
Width = 135
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
BorderStyle = 6 'Inside Solid
BorderWidth = 2
X1 = 165
X2 = 4560
Y1 = 1665
Y2 = 1665
End
End
Attribute VB_Name = "frmoption1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件（集团）有限公司
'系统名称: 资金管理8.0
'功能说明: 资金管理选项
'作者: 魏小黎
Option Explicit
Private rsTemp As New UfRecordset
Private Sub Check1_Click()
Editday(0).Enabled = Check1.Value
UpDown1(0).Enabled = Check1.Value
Cmd_AlarmAdvan.Enabled = Check1.Value 'cuidong A.A 2001.09.11
End Sub
Private Sub Cmd_AlarmAdvan_Click()
FrmAlarmAdvan.Show vbModal
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub cmdfind_Click()
On Error Resume Next
If Check1.Value = 1 Then
If Editday(0).Text = "" Then
Beep
MsgBox "提前报警天数不能为空！", vbCritical, zjGl_Name
SetTxtFocus Editday(0)
Exit Sub
End If
If Val(Editday(0).Text) = 0 Then
Beep
MsgBox "提前报警天数不能为0！", vbCritical, zjGl_Name
SetTxtFocus Editday(0)
Exit Sub
End If
End If
If Editday(1).Text = "" Then
Beep
MsgBox "对账单每页打印行数不能为空！", vbCritical, zjGl_Name
SetTxtFocus Editday(1)
Exit Sub
End If
If Val(Editday(1).Text) = 0 Then
Beep
MsgBox "对账单每页打印行数不能为0！", vbCritical, zjGl_Name
SetTxtFocus Editday(1)
Exit Sub
End If
With rsTemp
.Edit
![Alarm] = IIf(Check1.Value = 0, False, True)
![Aldays] = IIf(Check1.Value = 0, 3, Editday(0).Text)
![DzdRows] = Editday(1).Text
.Update
End With
Unload Me
End Sub
Private Sub Editday_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 45 Then
KeyAscii = 0
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Screen.MousePointer = vbHourglass
CenterForm Me
Me.Icon = LoadResPicture(109, vbResIcon)
Label2.Caption = "选项设置"
Label0.Caption = "采用自动报警方式"
label1(0).Caption = "提前"
label1(1).Caption = "天报警"
label1(2).Caption = "对账单满页笔数"
label1(3).Caption = "每页"
label1(4).Caption = "笔"
Set rsTemp = dbsZJ.OpenRecordset("select * from FD_Option", dbOpenDynaset)
With rsTemp
Check1.Value = IIf(![Alarm], 1, 0)
Editday(0).Text = IIf(Check1.Value = 0, 3, ![Aldays])
Editday(1).Text = ![DzdRows]
End With
Editday(0).Enabled = Check1.Value
UpDown1(0).Enabled = Check1.Value
Cmd_AlarmAdvan.Enabled = Check1.Value 'cuidong A.A 2001.09.18
cmdfind.Picture = LoadResPicture(103, vbResBitmap)
cmdCancel.Picture = LoadResPicture(104, vbResBitmap)
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Unload(Cancel As Integer)
rsTemp.oClose
End Sub
Private Sub Label0_Click()
Check1.Value = 1 - Check1.Value
End Sub
Private Sub UpDown1_DownClick(Index As Integer)
Dim mon As Integer
If IsNumeric(Editday(Index).Text) Then
mon = CInt(Editday(Index).Text)
Else
mon = 0
End If
If 1 + mon > 2 Then
Editday(Index).Text = mon - 1
End If
End Sub
Private Sub UpDown1_UpClick(Index As Integer)
Dim mon As Integer
If IsNumeric(Editday(Index).Text) Then
mon = CInt(Editday(Index).Text)
Else
mon = 0
End If
If mon < 999 Then
Editday(Index).Text = mon + 1
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -