?? frm1yhsz.frm
字號:
VERSION 5.00
Begin VB.Form frm1YHSZ
BorderStyle = 1 'Fixed Single
Caption = "銀行設置"
ClientHeight = 4200
ClientLeft = 45
ClientTop = 435
ClientWidth = 3705
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4200
ScaleWidth = 3705
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 1335
Left = 120
TabIndex = 1
Top = 2760
Width = 3495
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 975
Left = 120
ScaleHeight = 975
ScaleWidth = 3255
TabIndex = 2
Top = 240
Width = 3255
Begin VB.TextBox txtYHMC
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1080
TabIndex = 5
Top = 120
Width = 2055
End
Begin VB.CommandButton cmdTJ
Caption = "添加"
Height = 375
Left = 2280
TabIndex = 4
Top = 600
Width = 855
End
Begin VB.CommandButton cmdSC
Caption = "刪除"
Height = 375
Left = 1080
TabIndex = 3
Top = 600
Width = 855
End
Begin VB.Label Label1
Caption = "銀行名稱"
Height = 255
Left = 240
TabIndex = 6
Top = 240
Width = 735
End
End
End
Begin VB.ListBox List1
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2535
Left = 120
TabIndex = 0
Top = 120
Width = 3495
End
End
Attribute VB_Name = "frm1YHSZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人為我,我為人人
'枕善居收藏整理
'發布日期:2007/12/17
'描 述:企事業單位人事管理系統 Ver 2007
'網 站:http://www.Mndsoft.com/ (VB6源碼博客)
'網 站:http://www.VbDnet.com/ (VB.NET源碼博客,主要基于.NET2005)
'e-mail :Mndsoft@163.com
'e-mail :Mndsoft@126.com
'OICQ :88382850
' 如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Private Sub cmdSC_Click()
If Me.txtYHMC.Text = "" Then
MsgBox "請先選擇記錄!", 48, "提示"
Exit Sub
End If
SQL = "select * from 銀行設置 where 銀行名稱='" & Me.txtYHMC.Text & "'"
Call OpenConn
rs.Open SQL, cn, 3, 3
If rs.RecordCount > 0 Then
rs.Delete
Me.txtYHMC.Text = ""
Else
MsgBox "沒有找到有以刪除的記錄!", 48, "提示"
End If
Call CloseConn
Call addLIST
End Sub
Private Sub cmdTJ_Click()
If Me.txtYHMC.Text = "" Then
MsgBox "銀行名稱不能為空!", 48, "提示"
Exit Sub
End If
SQL = "select * from 銀行設置"
Call OpenConn
rs.Open SQL, cn, 3, 3
rs.AddNew
rs!銀行名稱 = Me.txtYHMC.Text
rs.Update
Call CloseConn
frm1GZSZ.comKHYH.AddItem Me.txtYHMC '更新工資設置窗體
Me.txtYHMC.Text = ""
Call addLIST
End Sub
Private Sub Form_Initialize()
Call InitCommonControls 'XP效果
End Sub
Private Sub Form_Load()
Me.Icon = MDIfrm.Icon '圖標
Call addLIST
End Sub
Private Sub addLIST()
Me.List1.Clear
SQL = "select 銀行名稱 from 銀行設置"
Call OpenConn
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Me.List1.AddItem rs!銀行名稱
rs.MoveNext
Loop
Call CloseConn
End Sub
Private Sub List1_Click()
Me.txtYHMC.Text = Me.List1.Text
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -