📄 frmnew.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmNew
BorderStyle = 0 'None
Caption = "出始化窗口"
ClientHeight = 2970
ClientLeft = 0
ClientTop = 0
ClientWidth = 4935
LinkTopic = "Form1"
ScaleHeight = 2970
ScaleWidth = 4935
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 375
Left = 240
TabIndex = 0
Top = 2160
Width = 4455
_ExtentX = 7858
_ExtentY = 661
_Version = 393216
Appearance = 1
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 400
Left = 4080
Top = 360
End
Begin VB.Label Label3
Caption = "亲爱的用户:"
Height = 255
Left = 240
TabIndex = 3
Top = 480
Width = 1335
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "请稍候...."
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3240
TabIndex = 2
Top = 1560
Width = 1200
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "您是首次使用本软件,系统将对它进行初始化"
Height = 180
Left = 720
TabIndex = 1
Top = 960
Width = 3510
End
End
Attribute VB_Name = "FrmNew"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Setup_DB, Basic_DB, Leave_DB As Database
Dim Setup_TB, Basic_TB, Leave_TB As TableDef
Dim Setup_RS As Recordset
Dim MyField As Field
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Set Setup_DB = CreateDatabase(App.Path + "\setup.mdb", dbLangGeneral)
Set Setup_TB = Setup_DB.CreateTableDef("参数设定")
'添加字段名
Set MyField = Setup_TB.CreateField("工种", dbInteger)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("早上班1", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("早上班2", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("早下班1", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("早下班2", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("中上班1", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("中上班2", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("中下班1", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("中下班2", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("晚上班1", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("晚上班2", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("晚下班1", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("晚下班2", dbText, 5)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("Password", dbText, 50)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("记录时间", dbText, 20)
Setup_TB.Fields.Append MyField
Set MyField = Setup_TB.CreateField("休息组", dbText, 5)
Setup_TB.Fields.Append MyField
Setup_DB.TableDefs.Append Setup_TB
Setup_DB.Close
Set Basic_DB = CreateDatabase(App.Path + "\Basic.mdb", dbLangGeneral)
Set Basic_TB = Basic_DB.CreateTableDef("基本信息")
'添加字段名
Set MyField = Basic_TB.CreateField("照片", dbText, 50)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("编号", dbText, 25)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("姓名", dbText, 10)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("性别", dbText, 5)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("生日", dbText, 10)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("籍贯", dbText, 10)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("学历", dbText, 20)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("专业", dbText, 20)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("部门", dbText, 20)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("职称", dbText, 20)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("联系电话", dbText, 20)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("联系地址", dbText, 50)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("备注", dbText, 250)
Basic_TB.Fields.Append MyField
Set MyField = Basic_TB.CreateField("组号", dbText, 5)
Basic_TB.Fields.Append MyField
Basic_DB.TableDefs.Append Basic_TB
Basic_DB.Close
MkDir (App.Path + "\Data")
Set Leave_DB = CreateDatabase(App.Path + "\data\leave.mdb", dbLangGeneral)
Set Leave_TB = Leave_DB.CreateTableDef("请假表")
Set MyField = Leave_TB.CreateField("编号", dbText, 25)
Leave_TB.Fields.Append MyField
Set MyField = Leave_TB.CreateField("姓名", dbText, 10)
Leave_TB.Fields.Append MyField
Set MyField = Leave_TB.CreateField("请假类型", dbText, 5)
Leave_TB.Fields.Append MyField
Set MyField = Leave_TB.CreateField("起始日期", dbText, 20)
Leave_TB.Fields.Append MyField
Set MyField = Leave_TB.CreateField("结束日期", dbText, 20)
Leave_TB.Fields.Append MyField
Set MyField = Leave_TB.CreateField("备注", dbText, 250)
Leave_TB.Fields.Append MyField
Leave_DB.TableDefs.Append Leave_TB
Leave_DB.Close
'对参数设定表进行初始化
Set Setup_DB = OpenDatabase(App.Path + "\setup.mdb")
Set Setup_RS = Setup_DB.OpenRecordset("参数设定")
Setup_RS.AddNew
Setup_RS.Fields(0) = "1"
Setup_RS.Fields(1) = "8"
Setup_RS.Fields(2) = "00"
Setup_RS.Fields(3) = "11"
Setup_RS.Fields(4) = "00"
Setup_RS.Fields(5) = "13"
Setup_RS.Fields(6) = "00"
Setup_RS.Fields(7) = "17"
Setup_RS.Fields(8) = "00"
Setup_RS.Fields(9) = "19"
Setup_RS.Fields(10) = "00"
Setup_RS.Fields(11) = "7"
Setup_RS.Fields(12) = "00"
Setup_RS.Fields(13) = "-"
Setup_RS.Fields(14) = "-"
Setup_RS.Fields(15) = "-"
Setup_RS.Update
Setup_RS.Close
Setup_DB.Close
Unload Me
FrmMain.Show
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -