📄 form7.frm
字号:
VERSION 5.00
Begin VB.Form Form7
AutoRedraw = -1 'True
BackColor = &H80000009&
Caption = "省二建股权证管理系统V1.0-股权证交易凭证打印框"
ClientHeight = 5040
ClientLeft = 165
ClientTop = 855
ClientWidth = 10605
Icon = "Form7.frx":0000
LinkTopic = "Form7"
ScaleHeight = 5040
ScaleWidth = 10605
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text9
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data2"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 4800
TabIndex = 19
Text = " "
Top = 1560
Width = 1095
End
Begin VB.TextBox Text13
DataSource = "Data2"
Height = 375
Left = 4800
TabIndex = 18
Text = "Text13"
Top = 5760
Visible = 0 'False
Width = 1335
End
Begin VB.TextBox Text12
DataSource = "Data2"
Height = 375
Left = 3240
TabIndex = 17
Text = "Text12"
Top = 5760
Visible = 0 'False
Width = 1215
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 1560
Options = 0
ReadOnly = 0 'False
RecordsetType = 0 'Table
RecordSource = ""
Top = 5760
Visible = 0 'False
Width = 1215
End
Begin VB.Data Data1
Appearance = 0 'Flat
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 315
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 0 'Table
RecordSource = ""
Top = 5760
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text8
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 7440
TabIndex = 16
Text = " "
Top = 4080
Width = 1935
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data2"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 3720
TabIndex = 14
Text = "Text7"
Top = 4080
Width = 1935
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data2"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 6720
TabIndex = 12
Text = "Text6"
Top = 3480
Width = 2295
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 3480
TabIndex = 10
Text = "Text5"
Top = 3480
Width = 2175
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data2"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2760
TabIndex = 7
Text = "Text4"
Top = 3000
Width = 7575
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 8400
TabIndex = 6
Text = "Text3"
Top = 2400
Width = 2175
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 6120
TabIndex = 4
Text = "Text2"
Top = 2400
Width = 1215
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2760
TabIndex = 2
Text = "Text1"
Top = 2400
Width = 2175
End
Begin VB.Label Label8
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "转让人："
ForeColor = &H80000008&
Height = 180
Left = 6660
TabIndex = 15
Top = 4080
Width = 735
End
Begin VB.Label Label7
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "经办人签章："
ForeColor = &H80000008&
Height = 180
Left = 2670
TabIndex = 13
Top = 4080
Width = 1095
End
Begin VB.Label Label6
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "（小写）："
ForeColor = &H80000008&
Height = 180
Left = 5760
TabIndex = 11
Top = 3480
Width = 915
End
Begin VB.Label Label5
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "转让金额（大写）："
ForeColor = &H80000008&
Height = 180
Left = 1800
TabIndex = 9
Top = 3480
Width = 1635
End
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "转让内容："
ForeColor = &H80000008&
Height = 180
Left = 1800
TabIndex = 8
Top = 3000
Width = 915
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "身份证号："
ForeColor = &H80000008&
Height = 180
Left = 7440
TabIndex = 5
Top = 2400
Width = 915
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "股东代码："
ForeColor = &H80000008&
Height = 180
Left = 5160
TabIndex = 3
Top = 2400
Width = 915
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "股东名称："
ForeColor = &H80000008&
Height = 180
Left = 1830
TabIndex = 1
Top = 2400
Width = 915
End
Begin VB.OLE OLE1
Appearance = 0 'Flat
AutoVerbMenu = 0 'False
BackColor = &H00FFFFFF&
Class = "Word.Document.8"
Height = 5295
Left = -150
OleObjectBlob = "Form7.frx":08CA
TabIndex = 0
Top = -150
Width = 10815
End
Begin VB.Menu a1
Caption = "文件（F）"
Index = 1
Begin VB.Menu a2
Caption = "退出"
Index = 2
End
End
Begin VB.Menu b1
Caption = "打印（P）"
Index = 1
End
End
Attribute VB_Name = "Form7"
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)
Me.PrintForm
Me.WindowState = 0
End Sub
Private Sub Form_Activate()
Dim a As String
a = Data2.Recordset.Name
Data2.Recordset.MoveLast
Data1.Recordset.Index = "code"
Data1.Recordset.Seek "=", a
If Text2.Text <> a Then
MsgBox "没有该股东"
Exit Sub
Else
MsgBox "已找到"
End If
If Text12.Text = 0 Then
Text6.Text = Text13.Text
Else
Text6.Text = Text12.Text
End If
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 a 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"
Data2.Connect = ";pwd=empty"
Data2.DatabaseName = "c:\data\msdb2.mdb"
a = Form10.a
Set rs = sjkdb.OpenRecordset(a)
Set rs1 = sjkdb.OpenRecordset("股东基本信息")
Data2.RecordSource = a
Data1.RecordSource = "股东基本信息"
Text1.DataField = "股东名称"
Text2.DataField = "股东代码"
Text3.DataField = "身份证号"
Text4.DataField = "摘要"
Text12.DataField = "增加"
Text13.DataField = "减少"
Text7.DataField = "经办人"
Text9.DataField = "日期"
rs.MoveLast
Me.WindowState = 2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -