📄 form4.frm
字号:
VERSION 5.00
Begin VB.Form Form4
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "省二建股权证管理系统V1.0-股权证基本信息打印框"
ClientHeight = 4440
ClientLeft = 165
ClientTop = 855
ClientWidth = 8115
Icon = "Form4.frx":0000
LinkTopic = "Form4"
ScaleHeight = 4440
ScaleWidth = 8115
StartUpPosition = 3 '窗口缺省
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 4800
Options = 0
ReadOnly = 0 'False
RecordsetType = 0 'Table
RecordSource = ""
Top = 3480
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 1680
Locked = -1 'True
TabIndex = 8
Text = "Text1"
Top = 120
Width = 1695
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 1680
Locked = -1 'True
TabIndex = 7
Text = "Text2"
Top = 1680
Width = 1455
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 1680
Locked = -1 'True
TabIndex = 6
Text = "Text3"
Top = 3120
Width = 1455
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 4680
Locked = -1 'True
TabIndex = 5
Text = "Text4"
Top = 120
Width = 1695
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 4680
Locked = -1 'True
TabIndex = 4
Text = "Text5"
Top = 480
Width = 1695
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 4680
Locked = -1 'True
TabIndex = 3
Text = "Text6"
Top = 840
Width = 3255
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 4680
Locked = -1 'True
TabIndex = 2
Text = "Text7"
Top = 1560
Width = 2055
End
Begin VB.TextBox Text8
Appearance = 0 'Flat
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 4680
Locked = -1 'True
TabIndex = 1
Text = "Text8"
Top = 2040
Width = 3255
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
BorderStyle = 0 'None
DataSource = "Data1"
Height = 270
Left = 4680
Locked = -1 'True
TabIndex = 0
Text = "Text9"
Top = 2640
Width = 3255
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "企业名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 600
TabIndex = 17
Top = 240
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "董事长"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 600
TabIndex = 16
Top = 1680
Width = 675
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "办理日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 600
TabIndex = 15
Top = 3120
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "股东名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3480
TabIndex = 14
Top = 240
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "股东代码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3480
TabIndex = 13
Top = 600
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "身份证号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3480
TabIndex = 12
Top = 960
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "电 话"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3480
TabIndex = 11
Top = 1560
Width = 930
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "住 址"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3480
TabIndex = 10
Top = 2040
Width = 930
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "办理机构"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3480
TabIndex = 9
Top = 2760
Width = 900
End
Begin VB.Menu a1
Caption = "文件(F)"
Index = 1
Begin VB.Menu a2
Caption = "退出(E)"
Index = 2
End
End
Begin VB.Menu b1
Caption = "打印(P)"
Index = 1
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub a2_Click(Index As Integer)
Unload Me
End Sub
Private Sub b1_Click(Index As Integer)
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Me.WindowState = 0
Me.PrintForm
Form3.Command11.Enabled = True
Unload Me
End Sub
Private Sub Form_Activate()
Dim b As String
b = Form3.Text10.Text
Data1.Recordset.Index = "code"
Data1.Recordset.Seek "=", b
End Sub
Private Sub Form_Load()
Dim wk As Workspace
Dim sjkdb As Database
Dim td As TableDef
Dim rss As Recordsets
Dim rs1 As Recordset
Dim rs As Recordset
Dim tds As TableDefs
Dim fl As Field
Dim fls As Fields
Dim b As String
DBEngine.DefaultType = dbUseJet
Set wk = DBEngine.Workspaces(0)
Set sjkdb = wk.OpenDatabase("c:\data\msdb2.mdb", False, False, ";pwd=empty")
Data1.Connect = ";pwd=empty"
Data1.DatabaseName = "c:\data\msdb2.mdb"
Set rs = sjkdb.OpenRecordset("股东基本信息")
Data1.RecordSource = "股东基本信息"
Text1.DataField = "企业名称"
Text2.DataField = "董事长"
Text3.DataField = "办理日期"
Text4.DataField = "股东名称"
Text5.DataField = "股东代码"
Text6.DataField = "身份证号"
Text7.DataField = "电话"
Text8.DataField = "住址"
Text9.DataField = "办理机构"
Me.WindowState = 2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -