?? cardstore.frm
字號:
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "系統集成項目管理信息系統"
ClientHeight = 8340
ClientLeft = 150
ClientTop = 720
ClientWidth = 11640
ClipControls = 0 'False
Icon = "cardstore.frx":0000
LinkTopic = "Form1"
Moveable = 0 'False
Picture = "cardstore.frx":030A
ScaleHeight = 8000
ScaleMode = 0 'User
ScaleWidth = 11786.06
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "河南雪城軟件有限公司系統工程部"
BeginProperty Font
Name = "楷體_GB2312"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 525
Left = 1560
TabIndex = 1
Top = 6840
Width = 8355
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "系統集成項目管理信息系統"
BeginProperty Font
Name = "宋體"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 960
Left = 600
TabIndex = 0
Top = 720
Width = 10440
WordWrap = -1 'True
End
Begin VB.Menu file
Caption = "文件"
Begin VB.Menu basic_maint
Caption = "基礎表維護"
Begin VB.Menu additem
Caption = "填加項目類別"
End
Begin VB.Menu perclass
Caption = "填加人員類別"
End
Begin VB.Menu addper
Caption = "填加人員名單"
End
End
Begin VB.Menu line
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
End
End
Begin VB.Menu storemanage
Caption = "項目登錄與查詢"
Begin VB.Menu inmanage
Caption = "項目登錄"
End
Begin VB.Menu line0
Caption = "-"
End
Begin VB.Menu damagemanage
Caption = "項目查詢"
End
End
Begin VB.Menu supportandservice
Caption = "技術支持與服務"
Begin VB.Menu phonerecord
Caption = "電話記錄"
End
Begin VB.Menu report
Caption = "處理報告"
End
Begin VB.Menu line3
Caption = "-"
End
Begin VB.Menu phoneqry
Caption = "電話記錄查詢"
End
Begin VB.Menu supportquery
Caption = "處理報告查詢"
End
End
Begin VB.Menu Help
Caption = "幫助"
Begin VB.Menu About
Caption = "關于"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub About_Click()
frmAbout.Show
End Sub
Private Sub addper_Click()
frmPerson.Visible = True
Me.Enabled = False
End Sub
Private Sub damagemanage_Click()
qry_in.Visible = True
Me.Enabled = False
End Sub
Private Sub exit_Click()
Unload Me
End
End Sub
Private Sub Form_Load()
If App.PrevInstance = True Then
Unload Me
Exit Sub
End If
rc = SQLAllocEnv(henv)
rc = SQLAllocConnect(henv, hdbc)
Dim DSN As String, UID As String, PWD As String
DSN = "xtjc"
UID = "xtgcb"
PWD = "pass"
rc = SQLConnect(hdbc, DSN, Len(DSN), UID, Len(UID), PWD, Len(PWD))
If rc = SQL_ERROR Then
MsgBox "數據庫連接失敗。", vbCritical + vbOKOnly, "SQL出錯"
Unload Form1
End
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If hdbc <> 0 Then
rc = SQLDisconnect(hdbc)
rc = SQLFreeConnect(hdbc)
End If
If henv <> 0 Then
rc = SQLFreeEnv(henv)
End If
'Unload qry_in
'Unload in_query
'Unload PhoneRecords
'Unload qryphone
'Unload supRecord
'Unload in_manage
'Unload frmPerson
End Sub
Private Sub inmanage_Click()
in_manage.Show
Me.Enabled = False
End Sub
Private Sub phoneqry_Click()
qryphone.Show
Me.Enabled = False
End Sub
Private Sub phonerecord_Click()
PhoneRecords.Show
Me.Enabled = False
End Sub
Private Sub report_Click()
supRecord.Show
Me.Enabled = False
End Sub
Private Sub supportquery_Click()
qrysupport.Show
Me.Enabled = False
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -