开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
Class_System.cls
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：3k
源码类别：

企业管理

开发平台：

Visual Basic

Class_System.cls：源码内容
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "Class_System"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  16. Public Sub StatusBar(str As String, TF As Boolean)
  17. If TF = True Then Form_main.StatusBar.Panels(2).Text = "就绪": Form_main.Refresh: Exit Sub
  18. Form_main.StatusBar.Panels(2).Text = str
  19. Form_main.Refresh
  20. End Sub
  23. Public Function System_Sql() As String
  24. On Error Resume Next
  26. Conn_System2.Execute "DROP TABLE HDSystem_DataBases"
  27. Conn_System2.Execute "CREATE TABLE HDSystem_DataBases (" _
  28.        & "DataBasesName        Nvarchar(18  ) NOT NULL," _
  29.        & "Number               Nvarchar(8) NULL," _
  30.        & "CountingRoomName     Nvarchar(20) NULL," _
  31.        & "NewDate              datetime NULL," _
  32.        & "BackupDate           datetime NULL," _
  33.        & "RestoreDate          datetime NULL," _
  34.        & "ServerName           varchar(30) NULL," _
  35.        & "DatabaseType         varchar(30) NULL," _
  36.        & "YNuse                char(1) NULL," _
  37.        & "CoName               nvarchar(50) NULL," _
  38.        & "Address              nvarchar(50) NULL," _
  39.        & "Phone                nvarchar(30) NULL," _
  40.        & "qsqj                 int" _
  41. & ")"
  43. Conn_System2.Execute "ALTER TABLE HDSystem_DataBases " _
  44.         & "ADD PRIMARY KEY (DataBasesName)"
  46. Conn_System2.Execute "DROP TABLE HDSystem_BakDataBases"
  48. Conn_System2.Execute "CREATE TABLE HDSystem_BakDataBases (" _
  49.        & "Number               int IDENTITY(1,1)," _
  50.        & "DatabaseName         nvarchar(30) NOT NULL," _
  51.        & "BakName              nvarchar(30) NULL," _
  52.        & "BakPath              nvarchar(100) NULL," _
  53.        & "BakDate              datetime NULL" _
  54. & ")"
  56. Conn_System2.Execute "ALTER TABLE HDSystem_BakDataBases " _
  57.         & "ADD PRIMARY KEY (Number, DatabaseName)"
  58. Conn_System2.Execute "DROP TABLE HDSystem_Password"
  59. Conn_System2.Execute "CREATE TABLE HDSystem_Password (" _
  60.         & "id                   smallint NOT NULL," _
  61.         & "Password             varchar(50) NULL" _
  62. & ")"
  64. Conn_System2.Execute "ALTER TABLE HDSystem_Password " _
  65.         & "ADD PRIMARY KEY (id)"
  66.         
  67. Conn_System2.Execute "Drop proc dbo.HD_AddDatabase"
  68. Conn_System2.Execute Form_user.Text1(2).Text
  70. Conn_System2.Execute "Drop proc dbo.HD_BakDatabase"
  71. Conn_System2.Execute Form_user.Text2(3).Text
  72. Conn_System2.Execute "EXEC sp_addlogin 'HXXD', '123'"
  73. Conn_System2.Execute "EXEC sp_addsrvrolemember 'HXXD', 'sysadmin'"
  75. End Function