⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 form1.frm

📁 固定资产及设备管理系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":2759
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":2BB1
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":348D
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":3D69
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":4645
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":4A9D
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   1620
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8955
      _ExtentX        =   15796
      _ExtentY        =   2858
      ButtonWidth     =   1455
      ButtonHeight    =   1349
      Appearance      =   1
      ImageList       =   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   12
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "借出归还"
            Key             =   "inout"
            Object.ToolTipText     =   "借出归还"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "移动管理"
            Key             =   "Move_YDGL"
            Object.ToolTipText     =   "移动管理"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "维修管理"
            Key             =   "WXGL"
            Object.ToolTipText     =   "维修管理"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "折旧管理"
            Key             =   "ZJGL"
            Object.ToolTipText     =   "折旧管理"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "报表管理"
            Key             =   "BBGL"
            Object.ToolTipText     =   "报表管理"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "增加"
            Key             =   "Add"
            Object.ToolTipText     =   "增加"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "Delete"
            Object.ToolTipText     =   "删除"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "Edit"
            Object.ToolTipText     =   "修改"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "Print"
            Object.ToolTipText     =   "打印"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "DYSZ"
            Object.ToolTipText     =   "打印设置"
            ImageIndex      =   11
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "刷新"
            ImageIndex      =   12
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "exit"
            Object.ToolTipText     =   "退出"
            ImageIndex      =   13
         EndProperty
      EndProperty
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   6360
      Top             =   7200
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   1
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MRSOFT"
      OLEDBString     =   "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MRSOFT"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select * from Table_zcxx"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.Menu YHGL 
      Caption         =   "用户管理"
      Begin VB.Menu YHZC 
         Caption         =   "用户注册"
      End
      Begin VB.Menu Delete 
         Caption         =   "用户删除"
      End
      Begin VB.Menu XGMM 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu XTWH 
      Caption         =   "系统维护"
      Begin VB.Menu SJQL 
         Caption         =   "数据清理"
      End
      Begin VB.Menu XTCSH 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu zz 
         Caption         =   "-"
      End
      Begin VB.Menu ZDYSZ 
         Caption         =   "自定义项设置"
      End
   End
   Begin VB.Menu FZGN 
      Caption         =   "辅助功能"
      Begin VB.Menu JSQ 
         Caption         =   "计算器"
      End
   End
   Begin VB.Menu EXIT 
      Caption         =   "退出系统"
      Begin VB.Menu CXDL 
         Caption         =   "重新登录"
      End
      Begin VB.Menu I 
         Caption         =   "-"
      End
      Begin VB.Menu GBXT 
         Caption         =   "关闭系统"
      End
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub BQXX_Click()
frm_About.Show
End Sub

Private Sub CXDL_Click()
frm_main.Hide
frm_XTDL.Show
frm_XTDL.Caption = "通用固定资产及设备管理系统"
frm_XTDL.Text1 = ""
End Sub

Private Sub Delete_Click()
frm_YHZC.Show
frm_YHZC.Frame1.Visible = False
frm_YHZC.Frame2.Visible = False
frm_YHZC.Frame3.Visible = True
frm_YHZC.Command1.Visible = False
frm_YHZC.Command3.Visible = False
frm_YHZC.Command4.Visible = True
End Sub

Private Sub Form_Activate()
StatusBar1.Panels.Item(2).Text = "当前操作员： " + frm_XTDL.Text2.Text
StatusBar1.Panels.Item(3).Text = Date
StatusBar1.Panels.Item(4).Text = Time
End Sub

Private Sub Form_Load()
'Adodc1.RecordSource = "select * from Table_ZCXX"
'Adodc1.Refresh
End Sub

Private Sub GBXT_Click()
End
End Sub

Private Sub JSQ_Click()
   ShellExecute Me.hWnd, "open", "calc.exe", "", 1, 5
End Sub

Private Sub SJBF_Click()
frm_Databack.Show
frm_Databack.Left = 2255
frm_Databack.Top = 1600
frm_Databack.Caption = "数据库备份"
frm_Databack.Option1.Value = 1
frm_Databack.Option2.Value = 0
frm_Databack.CmdBackup.Caption = "开始备份"
'CommonDialog1.Filter = "Backup File(*.BAK)|*.BAK|textfile(*.txt)|*.txt|DataBase(*.mdb)|*.mdb|SQL DataBase(*.MDF)|*.MDF|SQL Data_Log(*.LDF)|*.LDF|All File(*.*)|*.*"
'CommonDialog1.Action = 2 '选择打开文本对话框
'Text2.Text = CommonDialog1.FileName
'CommonDialog1.ShowSave
End Sub

Private Sub SJHF_Click()
'frm_Databack.Show
'frm_Databack.Left = 2255
'frm_Databack.Top = 1600
'frm_Databack.Caption = "数据库恢复"
'frm_Databack.Option1.Value = 0
'frm_Databack.Option2.Value = 1
'frm_Databack.CmdBackup.Caption = "开始恢复"
Open (App.Path & "\save.txt") For Output As #1
Print #1, "数据恢复"
Close #1
Open (App.Path & "\yhm.txt") For Output As #1
Print #1, StatusBar1.Panels.Item(2).Text
Close #1
Shell (App.Path & "\数据恢复.exe")
End
'  Unload frm_main
End Sub

Private Sub SJQL_Click()
frm_XTDL.Show
frm_XTDL.Caption = "数据清理权限管理"
frm_XTDL.Text1 = ""
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
frm_INOUT.Show
frm_INOUT.Text7.Visible = True
frm_INOUT.DTPicker3.Visible = False
Case 2
frm_ZCYD.Show
Case 3
frm_ZCWX.Show
If frm_ZCWX.Frame3.Visible = True Then
frm_ZCWX.Command4.Enabled = True
frm_ZCWX.Command5.Enabled = True
Else
frm_ZCWX.Command4.Enabled = False
frm_ZCWX.Command5.Enabled = False
End If
Case 4
frm_ZCZJ.Show
'frm_ZCZJ.Command6.Enabled = False
Case 5
frm_BBGL.Show
Case 6
'Adodc1.Recordset.AddNew
frm_XXLR.Show
frm_XXLR.Left = 750
frm_XXLR.Top = 500
frm_XXLR.Caption = "资产/设备信息录入"
frm_XXLR.Combo1.SetFocus
Adodc1.Refresh
Case 7
frm_LRWH.Show
frm_LRWH.Caption = "资产/设备信息删除"
frm_LRWH.Left = 750
frm_LRWH.Top = 500
Adodc1.Refresh
Case 8
frm_LRWH.Show
frm_LRWH.Caption = "资产/设备信息修改"
frm_LRWH.Left = 750
frm_LRWH.Top = 500
Adodc1.Refresh
Case 9
DataRep_ZCXX.Show
Case 10
frm_XTCX.Show
frm_XTCX.Left = 450
frm_XTCX.Top = 920
Case 11
Adodc1.RecordSource = "select * from Table_zcxx"
Adodc1.Refresh
Case 12
End
'Case 13
''CommonDialog2.Action = 6
'CommonDialog2.HelpCommand = cdlHelpForceFile
'CommonDialog2.HelpFile = "C:\Program Files\WinRAR\WinRAR.hlp"
'CommonDialog2.ShowHelp
End Select
End Sub

Private Sub XGMM_Click()
frm_YHZC.Show
frm_YHZC.Frame1.Visible = False
frm_YHZC.Frame2.Visible = True
frm_YHZC.Frame3.Visible = False
frm_YHZC.Command1.Visible = False
frm_YHZC.Command3.Visible = True
frm_YHZC.Command4.Visible = False
End Sub

Private Sub XTCSH_Click()
frm_XTDL.Show
frm_XTDL.Caption = "系统初始化权限管理"
frm_XTDL.Text1 = ""
End Sub

Private Sub YHZC_Click()
frm_YHZC.Show
frm_YHZC.Frame1.Visible = True
frm_YHZC.Frame2.Visible = False
frm_YHZC.Frame3.Visible = False
frm_YHZC.Command1.Visible = True
frm_YHZC.Command3.Visible = False
frm_YHZC.Command4.Visible = False
End Sub
Private Sub ZDYSZ_Click()
frm_zdysz.Show
End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -