?? frm月庫打開.frm
字號:
VERSION 5.00
Begin VB.Form Frm月庫打開
Caption = "打開月庫"
ClientHeight = 2730
ClientLeft = 60
ClientTop = 345
ClientWidth = 4410
LinkTopic = "Form1"
ScaleHeight = 2730
ScaleWidth = 4410
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "放棄(&Q)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2520
TabIndex = 3
Top = 2220
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "確定(&E)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 540
TabIndex = 2
Top = 2220
Width = 1245
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1620
Left = 570
Style = 1 'Simple Combo
TabIndex = 1
Top = 450
Width = 3495
End
Begin VB.Label Label1
Caption = "請選擇存在的月工資庫:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 90
TabIndex = 0
Top = 30
Width = 2655
End
End
Attribute VB_Name = "Frm月庫打開"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Combo1_DblClick()
If Len(Combo1.Text) > 0 Then
hxfyear = Left(Combo1.Text, 4)
hxfmath = Right(Left(Combo1.Text, 7), 2)
dqklj = xtlj & "data\" & hxfyear & hxfmath & ".mdb"
hxfdbdk = True
frmMAIN.StatusBar1.Panels(1).Text = " 注意:現(xiàn)在打開和處理的是" & hxfyear & "年" & hxfmath & "月的工資庫"
Unload Me
Else
hxfyn = MsgBox("未選擇工資庫,請選擇!", 48)
End If
End Sub
Private Sub Command1_Click()
If Len(Combo1.Text) > 0 Then
hxfyear = Left(Combo1.Text, 4)
hxfmath = Right(Left(Combo1.Text, 7), 2)
dqklj = xtlj & "data\" & hxfyear & hxfmath & ".mdb"
hxfdbdk = True
frmMAIN.StatusBar1.Panels(1).Text = " 注意:現(xiàn)在打開和處理的是" & hxfyear & "年" & hxfmath & "月的工資庫"
Unload Me
Else
hxfyn = MsgBox("未選擇工資庫,請選擇!", 48)
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set wdb = wws.OpenDatabase(xtlj + "dwxx.mdb")
Set wtb1 = wdb.OpenRecordset("月庫登記", dbOpenTable)
Combo1.Clear
If wtb1.RecordCount > 0 Then
wtb1.MoveFirst
Do While Not wtb1.EOF
Combo1.AddItem wtb1("年") & "年" & wtb1("月") & "月"
wtb1.MoveNext
Loop
End If
wdb.Close
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -