📄 frmsetup.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{4406B9AC-521E-476B-AF25-3D2C36110576}#3.0#0"; "CommandSCE.ocx"
Begin VB.Form frmsetup
Caption = "权限设置"
ClientHeight = 5295
ClientLeft = 60
ClientTop = 345
ClientWidth = 6615
Icon = "frmSetup.frx":0000
LinkTopic = "Form1"
ScaleHeight = 5295
ScaleWidth = 6615
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 288
IMEMode = 3 'DISABLE
Left = 15
TabIndex = 17
Top = 1695
Width = 6555
End
Begin VB.Frame Frame1
Caption = "操作模块"
Height = 750
Left = 2085
TabIndex = 12
Top = 690
Width = 4275
Begin VB.CheckBox ChCK
Appearance = 0 'Flat
BackColor = &H8000000A&
Caption = "仓 库"
ForeColor = &H80000008&
Height = 255
Left = 3165
TabIndex = 16
Top = 360
Width = 825
End
Begin VB.CheckBox ChXS
Appearance = 0 'Flat
BackColor = &H8000000A&
Caption = "销 售"
ForeColor = &H80000008&
Height = 255
Left = 2165
TabIndex = 15
Top = 360
Width = 825
End
Begin VB.CheckBox ChCG
Appearance = 0 'Flat
BackColor = &H8000000A&
Caption = "采 购"
ForeColor = &H80000008&
Height = 255
Left = 1165
TabIndex = 14
Top = 360
Width = 825
End
Begin VB.CheckBox ChSJ
Appearance = 0 'Flat
BackColor = &H8000000A&
Caption = "数 据"
ForeColor = &H80000008&
Height = 255
Left = 165
TabIndex = 13
Top = 360
Width = 825
End
End
Begin CSCommandSCE.CommandSCE CmNew
Height = 330
Left = 3345
TabIndex = 7
Top = 195
Width = 570
_ExtentX = 1005
_ExtentY = 582
IconAlign = 0
Icon = "frmSetup.frx":628A
Caption = "新 建"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox TeBH
Appearance = 0 'Flat
Height = 288
Left = 690
TabIndex = 3
Top = 465
Width = 1050
End
Begin VB.TextBox TeMM
Appearance = 0 'Flat
Height = 288
Left = 690
TabIndex = 2
Top = 1155
Width = 1200
End
Begin VB.TextBox TeYH
Appearance = 0 'Flat
Height = 288
Left = 690
TabIndex = 1
Top = 810
Width = 1200
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 1170
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3855
Width = 1770
End
Begin MSDBGrid.DBGrid DBGrid1
Align = 2 'Align Bottom
Bindings = "frmSetup.frx":62A6
Height = 2925
Left = 0
OleObjectBlob = "frmSetup.frx":62B6
TabIndex = 0
Top = 2070
Width = 6615
End
Begin CSCommandSCE.CommandSCE CmSave
Height = 330
Left = 4020
TabIndex = 8
Top = 195
Width = 570
_ExtentX = 1005
_ExtentY = 582
IconAlign = 0
Icon = "frmSetup.frx":6C58
Caption = "保 存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommandSCE.CommandSCE CmEdit
Height = 330
Left = 4680
TabIndex = 9
Top = 195
Width = 570
_ExtentX = 1005
_ExtentY = 582
IconAlign = 0
Icon = "frmSetup.frx":6C74
Caption = "编 辑"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommandSCE.CommandSCE CmDel
Height = 330
Left = 5355
TabIndex = 10
Top = 195
Width = 570
_ExtentX = 1005
_ExtentY = 582
IconAlign = 0
Icon = "frmSetup.frx":6C90
Caption = "删 除"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 11
Top = 4995
Width = 6615
_ExtentX = 11668
_ExtentY = 529
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 8290
MinWidth = 8290
Picture = "frmSetup.frx":6CAC
Text = "数据模块"
TextSave = "数据模块"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 2
Object.Width = 2117
MinWidth = 2117
TextSave = "2004-8-30"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Object.Width = 1764
MinWidth = 1764
TextSave = "22:22"
Key = ""
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.Label Label3
Caption = "密码："
Height = 255
Left = 120
TabIndex = 6
Top = 1215
Width = 855
End
Begin VB.Label Label2
Caption = "用户："
Height = 255
Left = 120
TabIndex = 5
Top = 870
Width = 855
End
Begin VB.Label Label1
Caption = "编号："
Height = 225
Left = 120
TabIndex = 4
Top = 525
Width = 855
End
End
Attribute VB_Name = "frmsetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim DB As Database, Rs As Recordset
Dim SQL As String
Private Sub CmDel_Click()
SQL = "DELETE * FROM DB_XT系统 WHERE 编号=" & "'" & TeBH + "'" '定义SQL操作语句
Set DB = OpenDatabase("d:\dbb\data.mdb") '设置数据库路径
DB.Execute SQL
DB.Close
SQL = "select 编号,用户,密码,数据,采购,销售,仓库 from DB_XT系统"
Set DB = OpenDatabase("D:\DBB\DATA.mdb")
Set Rs = DB.OpenRecordset(SQL)
Set Data1.Recordset = Rs
End Sub
Private Sub CmEdit_Click()
Dim SJ, CG, XS, CK As String
'数据模块是否有效
If ChSJ = 1 Then
SJ = "YES"
Else
SJ = "NO"
End If
'采购模块是否有效
If ChCG = 1 Then
CG = "YES"
Else
CG = "NO"
End If
'销售模块是否有效
If ChXS = 1 Then
XS = "YES"
Else
XS = "NO"
End If
'仓库模块是否有效
If ChCK = 1 Then
CK = "YES"
Else
CK = "NO"
End If
SQL = "UPDATE DB_XT系统 SET 用户=" & "'" & TeYH + "'," + "密码=" + " '" & TeMM + "'," + "数据=" + " '" & SJ + "'," + "采购=" + " '" & CG + "'," + "销售=" + " '" & XS + "'," + "仓库=" + " '" & CK + "'" + " WHERE 编号=" + "'" & TeBH + "'" '定义SQL操作语句
Set DB = OpenDatabase("d:\dbb\data.mdb") '设置数据库路径
DB.Execute SQL
DB.Close
SQL = "select 编号,用户,密码,数据,采购,销售,仓库 from DB_XT系统"
Set DB = OpenDatabase("D:\DBB\DATA.mdb")
Set Rs = DB.OpenRecordset(SQL)
Set Data1.Recordset = Rs
End Sub
Private Sub CmNew_Click()
SQL = "select 编号,用户,密码,数据,采购,销售,仓库 from DB_XT系统"
Set DB = OpenDatabase("D:\DBB\DATA.mdb")
Set Rs = DB.OpenRecordset(SQL)
Set Data1.Recordset = Rs
Rs.MoveLast
TeBH = Rs("编号") + 1
TeYH = ""
TeMM = ""
End Sub
Private Sub CmSave_Click()
Dim SJ, CG, XS, CK As String
'数据模块是否有效
If ChSJ = 1 Then
SJ = "YES"
Else
SJ = "NO"
End If
'采购模块是否有效
If ChCG = 1 Then
CG = "YES"
Else
CG = "NO"
End If
'销售模块是否有效
If ChXS = 1 Then
XS = "YES"
Else
XS = "NO"
End If
'仓库模块是否有效
If ChCK = 1 Then
CK = "YES"
Else
CK = "NO"
End If
'定义SQL加入操作语句
SQL = "insert into DB_XT系统(编号,用户,密码,数据,采购,销售,仓库) values" & "('" & Trim(TeBH) + "','" & Trim(TeYH) + "','" & Trim(TeMM) + "','" & SJ + "','" & CG + "','" & XS + "','" & CK + "'" & ")"
Text1 = SQL
Set DB = OpenDatabase("d:\dbb\data.mdb") '设置数据库路径
DB.Execute SQL
DB.Close
'DBGrid1.Refresh
TeBH = ""
TeYH = ""
TeMM = ""
SQL = "select 编号,用户,密码,数据,采购,销售,仓库 from DB_XT系统"
Set DB = OpenDatabase("D:\DBB\DATA.mdb")
Set Rs = DB.OpenRecordset(SQL)
Set Data1.Recordset = Rs
End Sub
Private Sub DBGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Dim i As Integer
Dim ok As String
ok = "YES"
SQL = "select 编号,用户,密码,数据,采购,销售,仓库 from DB_XT系统"
Set DB = OpenDatabase("D:\DBB\DATA.mdb")
Set Rs = DB.OpenRecordset(SQL)
Set Data1.Recordset = Rs
For i = 0 To DBGrid1.RowContaining(y)
TeBH = Rs("编号")
TeYH = Rs("用户")
TeMM = Rs("密码")
If ok = Rs("数据") Then
ChSJ = 1
Else
ChSJ = 0
End If
If ok = Rs("采购") Then
ChCG = 1
Else
ChCG = 0
End If
If ok = Rs("销售") Then
ChXS = 1
Else
ChXS = 0
End If
If ok = Rs("仓库") Then
ChCK = 1
Else
ChCK = 0
End If
Rs.MoveNext
Next i
End Sub
Private Sub Form_Load()
SQL = "select 编号,用户,密码,数据,采购,销售,仓库 from DB_XT系统"
Set DB = OpenDatabase("D:\DBB\DATA.mdb")
Set Rs = DB.OpenRecordset(SQL)
Set Data1.Recordset = Rs
'DBGrid1.RecordSelectors = False
Data1.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -