📄
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form XT_login
BorderStyle = 1 'Fixed Single
Caption = "百利/ERP5.0-基础数据系统登录"
ClientHeight = 4140
ClientLeft = 795
ClientTop = 2925
ClientWidth = 4770
ControlBox = 0 'False
HelpContextID = 3311001
Icon = "系统_登录窗体.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4140
ScaleWidth = 4770
Begin VB.CheckBox QdCheck
Caption = "是否修改"
Height = 825
Left = 4980
TabIndex = 7
Top = 1260
Value = 1 'Checked
Width = 705
End
Begin VB.CheckBox CtdrCheck
Caption = "非第一次调入窗体"
Height = 735
Left = 4980
TabIndex = 0
Top = 390
Width = 705
End
Begin TabDlg.SSTab StTab
Height = 4065
Left = 60
TabIndex = 8
Top = 30
Width = 4665
_ExtentX = 8229
_ExtentY = 7170
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "帐套选择及身份验证"
TabPicture(0) = "系统_登录窗体.frx":08CA
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "数据服务器连接设置"
TabPicture(1) = "系统_登录窗体.frx":08E6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame1(1)"
Tab(1).ControlCount= 1
TabCaption(2) = "更改密码"
TabPicture(2) = "系统_登录窗体.frx":0902
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame1(2)"
Tab(2).ControlCount= 1
Begin VB.Frame Frame1
Height = 3555
Index = 0
Left = 90
TabIndex = 25
Top = 390
Width = 4455
Begin VB.CommandButton QxCommand
Caption = "取消(&C)"
Height = 300
Left = 3060
TabIndex = 29
Top = 3150
Width = 1275
End
Begin VB.CommandButton QdCommand
Caption = "确定(&O)"
Height = 300
Left = 1725
TabIndex = 6
Top = 3150
Width = 1275
End
Begin VB.ComboBox ZtCombo
Height = 300
Left = 1050
Style = 2 'Dropdown List
TabIndex = 1
Top = 330
Width = 3225
End
Begin VB.ComboBox KjyearCombo
Height = 300
Left = 1050
Style = 2 'Dropdown List
TabIndex = 2
Top = 720
Width = 3225
End
Begin VB.TextBox CzrqText
Height = 300
Left = 1050
MaxLength = 10
TabIndex = 3
Top = 1170
Width = 2895
End
Begin VB.CommandButton Rlcommand
CausesValidation= 0 'False
Height = 302
Left = 3960
Picture = "系统_登录窗体.frx":091E
Style = 1 'Graphical
TabIndex = 28
Top = 1140
Width = 315
End
Begin VB.ComboBox CzyCombo
Height = 300
Left = 1050
TabIndex = 4
Text = "CzyCombo"
Top = 1560
Width = 3225
End
Begin VB.TextBox MmText
Height = 300
IMEMode = 3 'DISABLE
Left = 1050
MaxLength = 20
PasswordChar = "*"
TabIndex = 5
Top = 1980
Width = 2610
End
Begin VB.Timer Timer1
Interval = 100
Left = 120
Top = 1980
End
Begin VB.CommandButton XgmaCommand
Caption = "修改密码(&M)"
Height = 300
Left = 1725
TabIndex = 27
Top = 2790
Width = 1275
End
Begin VB.CommandButton GgszCommand
Caption = "更改设置(&A)"
Height = 300
Left = 3060
TabIndex = 26
Top = 2790
Width = 1275
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
Caption = "操作日期"
Height = 345
Index = 3
Left = 150
TabIndex = 34
Top = 1200
Width = 825
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
Caption = "会计年度"
Height = 345
Index = 1
Left = 180
TabIndex = 33
Top = 780
Width = 795
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
Caption = "公司帐套"
Height = 255
Index = 0
Left = 120
TabIndex = 32
Top = 420
Width = 855
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
Caption = "用户名"
Height = 345
Index = 2
Left = 120
TabIndex = 31
Top = 1620
Width = 855
End
Begin VB.Label TsLabel
Caption = "密码"
Height = 345
Index = 4
Left = 600
TabIndex = 30
Top = 2040
Width = 405
End
Begin VB.Line Line1
Index = 0
X1 = 240
X2 = 4260
Y1 = 2610
Y2 = 2610
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 240
X2 = 4260
Y1 = 2640
Y2 = 2640
End
Begin VB.Image Image1
Height = 480
Left = 3810
Picture = "系统_登录窗体.frx":0CA8
Top = 1980
Width = 480
End
End
Begin VB.Frame Frame1
Height = 3555
Index = 1
Left = -74910
TabIndex = 18
Top = 330
Width = 4455
Begin VB.TextBox ServerText
Height = 300
Left = 1800
TabIndex = 21
Top = 660
Width = 1905
End
Begin VB.CommandButton LjqdCommand
Caption = "确 定"
Height = 300
Left = 1410
TabIndex = 20
Top = 1440
Width = 1120
End
Begin VB.CommandButton LjqxCommand
Caption = "取 消"
Height = 300
Left = 2580
TabIndex = 19
Top = 1440
Width = 1120
End
Begin MSComCtl2.Animation Animation1
Height = 615
Left = 150
TabIndex = 22
Top = 1290
Visible = 0 'False
Width = 705
_ExtentX = 1244
_ExtentY = 1085
_Version = 393216
Center = -1 'True
BackStyle = 1
FullWidth = 47
FullHeight = 41
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "数据服务器:"
Height = 180
Index = 7
Left = 765
TabIndex = 24
Top = 720
Width = 990
End
Begin VB.Label DdtsLabel
ForeColor = &H00FF0000&
Height = 255
Left = 1110
TabIndex = 23
Top = 2490
Width = 3045
End
End
Begin VB.Frame Frame1
Height = 3585
Index = 2
Left = -74910
TabIndex = 9
Top = 330
Width = 4455
Begin VB.TextBox LrText
Height = 300
IMEMode = 3 'DISABLE
Index = 0
Left = 1350
MaxLength = 20
PasswordChar = "*"
TabIndex = 14
Top = 360
Width = 2250
End
Begin VB.CommandButton MmqdCommand
Caption = "确定(&O)"
Height = 300
Left = 1200
TabIndex = 13
Top = 2190
Width = 1120
End
Begin VB.CommandButton MmqxCommand
Caption = "取消(&C)"
Height = 300
Left = 2370
TabIndex = 12
Top = 2190
Width = 1125
End
Begin VB.TextBox LrText
Height = 300
IMEMode = 3 'DISABLE
Index = 1
Left = 1350
MaxLength = 20
PasswordChar = "*"
TabIndex = 11
Top = 750
Width = 2250
End
Begin VB.TextBox LrText
Height = 300
IMEMode = 3 'DISABLE
Index = 2
Left = 1350
MaxLength = 20
PasswordChar = "*"
TabIndex = 10
Top = 1140
Width = 2250
End
Begin VB.Line Line1
Index = 2
X1 = 420
X2 = 4020
Y1 = 1800
Y2 = 1800
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "旧密码:"
Height = 180
Index = 14
Left = 480
TabIndex = 17
Top = 420
Width = 630
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "新密码:"
Height = 180
Index = 15
Left = 480
TabIndex = 16
Top = 810
Width = 630
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "确认密码:"
Height = 180
Index = 16
Left = 480
TabIndex = 15
Top = 1200
Width = 810
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 3
X1 = 420
X2 = 4020
Y1 = 1830
Y2 = 1830
End
End
End
End
Attribute VB_Name = "XT_login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Xtsjljc As String '系统数据服务器连接串
Dim ErpPassWord As String '系统连接密码
Dim Cslj As New ADODB.Connection '测试连接(为屏蔽提示信息)
Dim Tsxx As String '系统提示信息
Dim Czyrec As New ADODB.Recordset '操作员动态集
Dim Xtrlrec As New ADODB.Recordset '系统日历动态集
Dim Ztdqsjk As String '所选帐套当前数据库
Private Function Ljyxxpd() As Boolean '数据服务器(系统基本信息库)连接有效性测试
Ljyxxpd = False
If Len(Trim(ServerText.Text)) = 0 Then
Tsxx = "数据服务器名不能为空!"
Call Xtxxts(Tsxx, 0, 1)
ServerText.SetFocus
Exit Function
End If
Xtsjljc = "Provider=SQLOLEDB.1;"
Xtsjljc = Xtsjljc + "Persist Security Info=False;"
Xtsjljc = Xtsjljc + "Data Source=" + Trim(ServerText.Text) + ";"
Xtsjljc = Xtsjljc + " Initial Catalog=" + "Master" + ";"
If Cslj.State = 1 Then Cslj.Close
DdtsLabel = "系统正在连接数据服务器,请稍等..."
DdtsLabel.Refresh
With Me.Animation1
.Visible = True
.Open App.Path + "\Ljcs.avi"
.Play
End With
On Error GoTo Cwcl
If Cslj.State = 1 Then Cslj.Close
Cslj.Open Xtsjljc, "Hxxd", ErpPassWord
Animation1.Stop
Animation1.Visible = False
DdtsLabel = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -