frm0301.frm
来自「便利店管理系统 VB+ACCESS 附上数据库和源码」· FRM 代码 · 共 296 行
FRM
296 行
VERSION 5.00
Begin VB.Form frm0301
BorderStyle = 1 'Fixed Single
Caption = "基本信息"
ClientHeight = 3525
ClientLeft = 45
ClientTop = 330
ClientWidth = 10035
Icon = "frm0301.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3525
ScaleWidth = 10035
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 435
Left = 5280
TabIndex = 12
Top = 2940
Width = 2055
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 435
Left = 2700
TabIndex = 11
Top = 2940
Width = 2055
End
Begin VB.TextBox txIntro
BackColor = &H00C0FFC0&
Height = 615
Left = 240
TabIndex = 10
Top = 2160
Width = 9615
End
Begin VB.TextBox txFax
BackColor = &H00C0FFC0&
Height = 315
Left = 7440
TabIndex = 5
Top = 540
Width = 2415
End
Begin VB.TextBox txTel
BackColor = &H00C0FFC0&
Height = 315
Left = 4440
TabIndex = 4
Top = 540
Width = 2235
End
Begin VB.TextBox txLinkMan
BackColor = &H00C0FFC0&
Height = 315
Left = 1080
TabIndex = 3
Top = 540
Width = 2535
End
Begin VB.TextBox txZip
BackColor = &H00C0FFC0&
Height = 315
Left = 8340
TabIndex = 2
Top = 120
Width = 1515
End
Begin VB.TextBox txName
BackColor = &H00C0FFC0&
Height = 315
Left = 1080
TabIndex = 0
Top = 120
Width = 2955
End
Begin VB.TextBox txAddress
BackColor = &H00C0FFC0&
Height = 315
Left = 4800
TabIndex = 1
Top = 120
Width = 2775
End
Begin VB.TextBox txHomePage
BackColor = &H00C0FFC0&
Height = 315
Left = 5760
TabIndex = 7
Top = 960
Width = 4095
End
Begin VB.TextBox txBank
BackColor = &H00C0FFC0&
Height = 315
Left = 1080
TabIndex = 8
Top = 1380
Width = 3795
End
Begin VB.TextBox txAccounts
BackColor = &H00C0FFC0&
Height = 315
Left = 5760
TabIndex = 9
Top = 1380
Width = 4095
End
Begin VB.TextBox txEmail
BackColor = &H00C0FFC0&
Height = 315
Left = 1080
TabIndex = 6
Top = 960
Width = 3795
End
Begin VB.Label lbEmail
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Email"
Height = 195
Left = 645
TabIndex = 23
Top = 1020
Width = 375
End
Begin VB.Label lbFax
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "传真"
Height = 195
Left = 7020
TabIndex = 22
Top = 600
Width = 360
End
Begin VB.Label lbTel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "电话"
Height = 195
Left = 4020
TabIndex = 21
Top = 600
Width = 360
End
Begin VB.Label lbLinkMan
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "联系人"
Height = 195
Left = 480
TabIndex = 20
Top = 600
Width = 540
End
Begin VB.Label lbZip
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "邮编"
Height = 195
Left = 7920
TabIndex = 19
Top = 180
Width = 360
End
Begin VB.Label lbName
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "名称"
Height = 195
Left = 660
TabIndex = 18
Top = 180
Width = 360
End
Begin VB.Label lbAddress
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "地址"
Height = 195
Left = 4380
TabIndex = 17
Top = 180
Width = 360
End
Begin VB.Label lbHomePage
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "主页"
Height = 195
Left = 5340
TabIndex = 16
Top = 1020
Width = 360
End
Begin VB.Label lbBank
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "银行"
Height = 195
Left = 660
TabIndex = 15
Top = 1440
Width = 360
End
Begin VB.Label lbAccounts
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "帐户"
Height = 195
Left = 5340
TabIndex = 14
Top = 1440
Width = 360
End
Begin VB.Label lbIntro
AutoSize = -1 'True
Caption = "简要介绍"
Height = 195
Left = 240
TabIndex = 13
Top = 1860
Width = 720
End
End
Attribute VB_Name = "frm0301"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub LoadFormLang()
Me.Caption = getFormCaptionResource("0301")
Me.lbName.Caption = getResource("resName")
Me.lbAddress.Caption = getResource("resAddress")
Me.lbZip.Caption = getResource("resZip")
Me.lbLinkMan.Caption = getResource("resLinkMan")
Me.lbTel.Caption = getResource("resTel")
Me.lbFax.Caption = getResource("resFax")
Me.lbEmail.Caption = getResource("resEmail")
Me.lbHomePage.Caption = getResource("resHomepage")
Me.lbBank.Caption = getResource("resBank")
Me.lbAccounts.Caption = getResource("resAccounts")
Me.lbIntro.Caption = getResource("resBriefIntroduction")
Me.cmdOK.Caption = getResource("resOK") & "(&O)"
Me.cmdCancel.Caption = getResource("resCancel") & "(Esc)"
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Call SetUpINI("baseinfo", "name", Me.txName.Text, iniFile)
Call SetUpINI("baseinfo", "address", Me.txAddress.Text, iniFile)
Call SetUpINI("baseinfo", "postcode", Me.txZip.Text, iniFile)
Call SetUpINI("baseinfo", "contactman", Me.txLinkMan.Text, iniFile)
Call SetUpINI("baseinfo", "tel", Me.txTel.Text, iniFile)
Call SetUpINI("baseinfo", "fax", Me.txFax.Text, iniFile)
Call SetUpINI("baseinfo", "email", Me.txEmail.Text, iniFile)
Call SetUpINI("baseinfo", "homepage", Me.txHomePage.Text, iniFile)
Call SetUpINI("baseinfo", "bank", Me.txBank.Text, iniFile)
Call SetUpINI("baseinfo", "accounts", Me.txAccounts.Text, iniFile)
Call SetUpINI("baseinfo", "intro", Me.txIntro.Text, iniFile)
Call msgTakeEffect
Unload Me
End Sub
Private Sub Form_Load()
Call LoadFormLang
Me.txName.Text = GetFromINI("baseinfo", "name", iniFile)
Me.txAddress.Text = GetFromINI("baseinfo", "address", iniFile)
Me.txZip.Text = GetFromINI("baseinfo", "postcode", iniFile)
Me.txLinkMan.Text = GetFromINI("baseinfo", "contactman", iniFile)
Me.txTel.Text = GetFromINI("baseinfo", "tel", iniFile)
Me.txFax.Text = GetFromINI("baseinfo", "fax", iniFile)
Me.txEmail.Text = GetFromINI("baseinfo", "email", iniFile)
Me.txHomePage.Text = GetFromINI("baseinfo", "homepage", iniFile)
Me.txBank.Text = GetFromINI("baseinfo", "bank", iniFile)
Me.txAccounts.Text = GetFromINI("baseinfo", "accounts", iniFile)
Me.txIntro.Text = GetFromINI("baseinfo", "intro", iniFile)
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?