?? 開戶日期.frm
字號:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmOpenDate
BorderStyle = 3 'Fixed Dialog
Caption = "開戶日期"
ClientHeight = 1800
ClientLeft = 2310
ClientTop = 3255
ClientWidth = 3285
ControlBox = 0 'False
Icon = "開戶日期.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1800
ScaleWidth = 3285
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdcancel
Cancel = -1 'True
Height = 365
Left = 1975
Style = 1 'Graphical
TabIndex = 5
Top = 1245
Width = 1080
End
Begin VB.CommandButton cmdfind
Default = -1 'True
Height = 365
Left = 765
Style = 1 'Graphical
TabIndex = 4
Top = 1245
Width = 1080
End
Begin VB.Frame Frame1
Height = 990
Left = 225
TabIndex = 0
Top = 105
Width = 2835
Begin VB.CommandButton cmdQxcz
Height = 270
Left = 2220
Style = 1 'Graphical
TabIndex = 3
TabStop = 0 'False
Top = 420
Width = 270
End
Begin EDITLib.Edit txtDate
Height = 270
Left = 1080
TabIndex = 2
Top = 420
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "開戶日期"
Height = 180
Left = 180
TabIndex = 1
Top = 465
Width = 720
End
End
End
Attribute VB_Name = "frmOpenDate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'軟件著作權: 北京用友軟件集團有限公司
'系統(tǒng)名稱: 資金管理8.0
'功能說明: 賬戶開戶日期
'作者: 魏小黎
Option Explicit
Private Sub cmdcancel_Click()
View_Tref = ""
Unload Me
End Sub
Private Sub cmdfind_Click()
If txtDate.Text = "" Then
Beep
MsgBox "開戶日期不能為空,請檢查!", vbCritical, zjGl_Name
txtDate.SetFocus
Exit Sub
Else
txtDate.Text = ForDate(txtDate.Text)
If Not IsDate(txtDate.Text) Then
Beep
MsgBox "日期非法,請檢查!", vbCritical, zjGl_Name
SetTxtFocus txtDate
Exit Sub
End If
If CDate(txtDate.Text) > zjLogInfo.curDate Or CDate(txtDate.Text) < ZjAccInfo.zjStartdate Then
Beep
MsgBox "開戶日期不能大于登錄日期或小于系統(tǒng)啟用日期!", vbCritical, zjGl_Name
SetTxtFocus txtDate
Exit Sub
End If
If Pd_lldmer(View_Tref, txtDate.Text, True) Then
SetTxtFocus txtDate
Exit Sub
End If
View_Tref = txtDate.Text
Unload Me
End If
End Sub
Private Sub cmdQxcz_Click()
DisplayCalendar Me.txtDate, Me.hWnd, Frame1.Left, Frame1.Top
txtDate.SetFocus
End Sub
Private Sub Form_Load()
CenterForm Me
Me.Icon = LoadResPicture(109, vbResIcon)
cmdQxcz.Picture = LoadResPicture(1108, vbResBitmap)
txtDate.Text = Format(zjLogInfo.curDate, "yyyy-mm-dd")
cmdfind.Picture = LoadResPicture(103, vbResBitmap)
cmdCancel.Picture = LoadResPicture(104, vbResBitmap)
SetEdtTxtFocus txtDate
End Sub
Private Sub txtDate_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then 'F2
DisplayCalendar Me.txtDate, Me.hWnd, Frame1.Left, Frame1.Top
txtDate.SetFocus
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -