📄 menu12.frm
字号:
Left = 140
TabIndex = 48
Top = 600
Width = 3975
End
Begin VB.CommandButton Command4
Caption = " 初 始 化"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 4680
TabIndex = 47
Top = 600
Width = 1095
End
Begin VB.Label Label25
Caption = "Label25"
Height = 495
Left = 240
TabIndex = 50
Top = 3240
Width = 3855
End
Begin VB.Label Label56
BackColor = &H80000001&
BorderStyle = 1 'Fixed Single
Caption = " 小 区 列 表 "
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 140
TabIndex = 49
Top = 290
Width = 3975
End
End
Begin VB.CommandButton ccancel
Caption = "取消"
Height = 375
Left = 6000
TabIndex = 6
Top = 4200
Width = 1215
End
Begin VB.CommandButton cnext
Caption = "下一步"
Height = 375
Left = 4560
TabIndex = 5
Top = 4200
Width = 1215
End
Begin VB.CommandButton cprevious
Caption = "上一步"
Enabled = 0 'False
Height = 375
Left = 3120
TabIndex = 4
Top = 4200
Width = 1215
End
Begin VB.Frame fthree
Caption = "three"
Height = 495
Left = 3240
TabIndex = 36
Top = 2640
Visible = 0 'False
Width = 4215
Begin VB.TextBox Text2
Height = 375
Left = 240
MaxLength = 2
TabIndex = 40
Top = 2880
Width = 3735
End
Begin VB.Label Label21
Caption = "Label21"
Height = 1095
Left = 120
TabIndex = 39
Top = 1560
Width = 3735
End
Begin VB.Label Label22
Caption = "请你输入1到10之间的数字"
Height = 255
Left = 240
TabIndex = 41
Top = 3480
Width = 2415
End
Begin VB.Label Label28
Caption = "Label28"
Height = 15
Left = 2040
TabIndex = 37
Top = 2400
Width = 495
End
End
Begin VB.Label bta
BackStyle = 0 'Transparent
Caption = "·完成"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 5
Left = 360
TabIndex = 53
Top = 3960
Width = 1695
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "欢迎使用!!"
Height = 255
Left = 240
TabIndex = 52
Top = 240
Width = 1215
End
Begin VB.Label bta
BackStyle = 0 'Transparent
Caption = "·选择要进行初始化的小区"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 615
Index = 0
Left = 360
TabIndex = 51
Top = 960
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "呼和浩特市金风房地产开发公司"
Height = 255
Left = 240
TabIndex = 38
Top = 480
Width = 2535
End
Begin VB.Label bta
BackStyle = 0 'Transparent
Caption = "·设定本楼层共有几个房间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Index = 4
Left = 240
TabIndex = 3
Top = 3360
Width = 2055
End
Begin VB.Label bta
BackStyle = 0 'Transparent
Caption = "·设定本单元共有几层楼"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Index = 3
Left = 240
TabIndex = 2
Top = 2760
Width = 2055
End
Begin VB.Label bta
BackStyle = 0 'Transparent
Caption = "·设定本栋楼共有个单元"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Index = 2
Left = 240
TabIndex = 1
Top = 2160
Width = 2055
End
Begin VB.Label bta
BackStyle = 0 'Transparent
Caption = "·设定本小区共有几栋楼"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Index = 1
Left = 240
TabIndex = 0
Top = 1560
Width = 2055
End
Begin VB.Image Image1
Height = 4455
Left = 120
Top = 120
Width = 2775
End
End
Attribute VB_Name = "winmenu12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim xiaoquk As Database
Dim xiaoqutab As Recordset
Dim jdzs As Integer
Dim loudon As Integer '小区的楼栋数
Dim loudyS As Integer '记录总共的单元数
Dim loucen As Integer '记录有多少层
Dim loufj As Integer '记录多少个房间
Dim loud As String '以字母加数字格式记录单元
Dim xiaoq As String
Dim newk As Database
Dim newtab As Recordset
Dim newxqname As String
Private Sub createk()
'On Error GoTo b:
'建立了一个库,库名为小区名
Dim mydb As Database
Dim mywo As Workspace
Set mywo = DBEngine.Workspaces(0)
Set mydb = mywo.CreateDatabase(App.Path + "\data\" + newxqname + ".mdb", dbLangGeneral, dbversion03)
'建立五个表
Dim xqsjt As TableDef
Dim xqfield(1 To 20) As Field
'第一个表,栋数表
Set xqsjt = mydb.CreateTableDef("dongsb")
Set xqfield(1) = xqsjt.CreateField("kxqname", dbText, 22)
Set xqfield(2) = xqsjt.CreateField("kxqbh", dbText, 4)
Set xqfield(3) = xqsjt.CreateField("kloud", dbText, 2)
For i = 1 To 3
xqsjt.Fields.Append xqfield(i)
Next i
mydb.TableDefs.Append xqsjt
'第二个表,单元数表
Set xqsjt = mydb.CreateTableDef("dysb")
Set xqfield(1) = xqsjt.CreateField("kloud", dbText, 2)
Set xqfield(2) = xqsjt.CreateField("kloudy", dbText, 2)
For i = 1 To 2
xqsjt.Fields.Append xqfield(i)
Next i
mydb.TableDefs.Append xqsjt
'第三个表,层数表
Set xqsjt = mydb.CreateTableDef("lcsb")
Set xqfield(1) = xqsjt.CreateField("kloud", dbText, 2)
Set xqfield(2) = xqsjt.CreateField("kloudy", dbText, 2)
Set xqfield(3) = xqsjt.CreateField("klouc", dbText, 2)
For i = 1 To 3
xqsjt.Fields.Append xqfield(i)
Next i
mydb.TableDefs.Append xqsjt
'第四个表,户数表
Set xqsjt = mydb.CreateTableDef("husb")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -