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

📄 form2.frm

📁 因本人没有充足的时间
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
      TabIndex        =   2
      Top             =   3120
      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        =   1
      Top             =   1680
      Width           =   675
   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        =   0
      Top             =   240
      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 = "Form2"
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)
Dim b As Integer
Dim a As Integer
Dim c 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
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
Label15.Visible = False
Label16.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Let b = 270
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
a = Data2.Recordset.RecordCount
Data2.Recordset.MoveLast
If a <= 20 Then
Select Case a
Case 0
MsgBox "该股东还没有进行过交易"
Exit Sub
Case 1
La.Top = 4680
Lb.Top = 4680
Lc.Top = 4680
Ld.Top = 4680
Le.Top = 4680
Lf.Top = 4680
Lg.Top = 4800
Case 2
La.Top = 4680 + b
Lb.Top = 4680 + b
Lc.Top = 4680 + b
Ld.Top = 4680 + b
Le.Top = 4680 + b
Lf.Top = 4680 + b
Lg.Top = 4800 + b
Case 3
La.Top = 4680 + b * 2
Lb.Top = 4680 + b * 2
Lc.Top = 4680 + b * 2
Ld.Top = 4680 + b * 2
Le.Top = 4680 + b * 2
Lf.Top = 4680 + b * 2
Lg.Top = 4800 + b * 2
Case 4
La.Top = 4680 + b * 3
Lb.Top = 4680 + b * 3
Lc.Top = 4680 + b * 3
Ld.Top = 4680 + b * 3
Le.Top = 4680 + b * 3
Lf.Top = 4680 + b * 3
Lg.Top = 4800 + b * 3
Case 5
La.Top = 4680 + b * 4
Lb.Top = 4680 + b * 4
Lc.Top = 4680 + b * 4
Ld.Top = 4680 + b * 4
Le.Top = 4680 + b * 4
Lf.Top = 4680 + b * 4
Lg.Top = 4800 + b * 4
Case 6
La.Top = 4680 + b * 5
Lb.Top = 4680 + b * 5
Lc.Top = 4680 + b * 5
Ld.Top = 4680 + b * 5
Le.Top = 4680 + b * 5
Lf.Top = 4680 + b * 5
Lg.Top = 4800 + b * 5
Case 7
La.Top = 4680 + b * 6
Lb.Top = 4680 + b * 6
Lc.Top = 4680 + b * 6
Ld.Top = 4680 + b * 6
Le.Top = 4680 + b * 6
Lf.Top = 4680 + b * 6
Lg.Top = 4800 + b * 6
Case 8
La.Top = 4680 + b * 7
Lb.Top = 4680 + b * 7
Lc.Top = 4680 + b * 7
Ld.Top = 4680 + b * 7
Le.Top = 4680 + b * 7
Lf.Top = 4680 + b * 7
Lg.Top = 4800 + b * 7
Case 9
La.Top = 4680 + b * 8
Lb.Top = 4680 + b * 8
Lc.Top = 4680 + b * 8
Ld.Top = 4680 + b * 8
Le.Top = 4680 + b * 8
Lf.Top = 4680 + b * 8
Lg.Top = 4800 + b * 8
Case 10
La.Top = 4680 + b * 9
Lb.Top = 4680 + b * 9
Lc.Top = 4680 + b * 9
Ld.Top = 4680 + b * 9
Le.Top = 4680 + b * 9
Lf.Top = 4680 + b * 9
Lg.Top = 4800 + b * 9
Case 11
La.Top = 4680 + b * 10
Lb.Top = 4680 + b * 10
Lc.Top = 4680 + b * 10
Ld.Top = 4680 + b * 10
Le.Top = 4680 + b * 10
Lf.Top = 4680 + b * 10
Lg.Top = 4800 + b * 10
Case 12
La.Top = 4680 + b * 11
Lb.Top = 4680 + b * 11
Lc.Top = 4680 + b * 11
Ld.Top = 4680 + b * 11
Le.Top = 4680 + b * 11
Lf.Top = 4680 + b * 11
Lg.Top = 4800 + b * 11
Case 13
La.Top = 4680 + b * 12
Lb.Top = 4680 + b * 12
Lc.Top = 4680 + b * 12
Ld.Top = 4680 + b * 12
Le.Top = 4680 + b * 12
Lf.Top = 4680 + b * 12
Lg.Top = 4800 + b * 12
Case 14
La.Top = 4680 + b * 13
Lb.Top = 4680 + b * 13
Lc.Top = 4680 + b * 13
Ld.Top = 4680 + b * 13
Le.Top = 4680 + b * 13
Lf.Top = 4680 + b * 13
Lg.Top = 4800 + b * 13
Case 15
La.Top = 4680 + b * 14
Lb.Top = 4680 + b * 14
Lc.Top = 4680 + b * 14
Ld.Top = 4680 + b * 14
Le.Top = 4680 + b * 14
Lf.Top = 4680 + b * 14
Lg.Top = 4800 + b * 14
Case 16
La.Top = 4680 + b * 15
Lb.Top = 4680 + b * 15
Lc.Top = 4680 + b * 15
Ld.Top = 4680 + b * 15
Le.Top = 4680 + b * 15
Lf.Top = 4680 + b * 15
Lg.Top = 4800 + b * 15
Case 17
La.Top = 4680 + b * 16
Lb.Top = 4680 + b * 16
Lc.Top = 4680 + b * 16
Ld.Top = 4680 + b * 16
Le.Top = 4680 + b * 16
Lf.Top = 4680 + b * 16
Lg.Top = 4800 + b * 16
Case 18
La.Top = 4680 + b * 17
Lb.Top = 4680 + b * 17
Lc.Top = 4680 + b * 17
Ld.Top = 4680 + b * 17
Le.Top = 4680 + b * 17
Lf.Top = 4680 + b * 17
Lg.Top = 4800 + b * 17
Case 19
La.Top = 4680 + b * 18
Lb.Top = 4680 + b * 18
Lc.Top = 4680 + b * 18
Ld.Top = 4680 + b * 18
Le.Top = 4680 + b * 18
Lf.Top = 4680 + b * 18
Lg.Top = 4800 + b * 18
Case 20
La.Top = 4680 + b * 19
Lb.Top = 4680 + b * 19
Lc.Top = 4680 + b * 19
Ld.Top = 4680 + b * 19
Le.Top = 4680 + b * 19
Lf.Top = 4680 + b * 19
Lg.Top = 4800 + b * 19
MsgBox "打印完毕后，请下一次更换新本!-KEN工作室温心提醒"
End Select
Else
c = a Mod 20
Select Case c
Case 0
La.Top = 4680 + b * 19
Lb.Top = 4680 + b * 19
Lc.Top = 4680 + b * 19
Ld.Top = 4680 + b * 19
Le.Top = 4680 + b * 19
Lf.Top = 4680 + b * 19
Lg.Top = 4800 + b * 19
Case 1
La.Top = 4680
Lb.Top = 4680
Lc.Top = 4680
Ld.Top = 4680
Le.Top = 4680
Lf.Top = 4680
Lg.Top = 4800
Case 2
La.Top = 4680 + b
Lb.Top = 4680 + b
Lc.Top = 4680 + b
Ld.Top = 4680 + b
Le.Top = 4680 + b
Lf.Top = 4680 + b
Lg.Top = 4800 + b
Case 3
La.Top = 4680 + b * 2
Lb.Top = 4680 + b * 2
Lc.Top = 4680 + b * 2
Ld.Top = 4680 + b * 2
Le.Top = 4680 + b * 2
Lf.Top = 4680 + b * 2
Lg.Top = 4800 + b * 2
Case 4
La.Top = 4680 + b * 3
Lb.Top = 4680 + b * 3
Lc.Top = 4680 + b * 3
Ld.Top = 4680 + b * 3
Le.Top = 4680 + b * 3
Lf.Top = 4680 + b * 3
Lg.Top = 4800 + b * 3
Case 5
La.Top = 4680 + b * 4
Lb.Top = 4680 + b * 4
Lc.Top = 4680 + b * 4
Ld.Top = 4680 + b * 4
Le.Top = 4680 + b * 4
Lf.Top = 4680 + b * 4
Lg.Top = 4800 + b * 4
Case 6
La.Top = 4680 + b * 5
Lb.Top = 4680 + b * 5
Lc.Top = 4680 + b * 5
Ld.Top = 4680 + b * 5
Le.Top = 4680 + b * 5
Lf.Top = 4680 + b * 5
Lg.Top = 4800 + b * 5
Case 7
La.Top = 4680 + b * 6
Lb.Top = 4680 + b * 6
Lc.Top = 4680 + b * 6
Ld.Top = 4680 + b * 6
Le.Top = 4680 + b * 6
Lf.Top = 4680 + b * 6
Lg.Top = 4800 + b * 6
Case 8
La.Top = 4680 + b * 7
Lb.Top = 4680 + b * 7
Lc.Top = 4680 + b * 7
Ld.Top = 4680 + b * 7
Le.Top = 4680 + b * 7
Lf.Top = 4680 + b * 7
Lg.Top = 4800 + b * 7
Case 9
La.Top = 4680 + b * 8
Lb.Top = 4680 + b * 8
Lc.Top = 4680 + b * 8
Ld.Top = 4680 + b * 8
Le.Top = 4680 + b * 8
Lf.Top = 4680 + b * 8
Lg.Top = 4800 + b * 8
Case 10
La.Top = 4680 + b * 9
Lb.Top = 4680 + b * 9
Lc.Top = 4680 + b * 9
Ld.Top = 4680 + b * 9
Le.Top = 4680 + b * 9
Lf.Top = 4680 + b * 9
Lg.Top = 4800 + b * 9
Case 11
La.Top = 4680 + b * 10
Lb.Top = 4680 + b * 10
Lc.Top = 4680 + b * 10
Ld.Top = 4680 + b * 10
Le.Top = 4680 + b * 10
Lf.Top = 4680 + b * 10
Lg.Top = 4800 + b * 10
Case 12
La.Top = 4680 + b * 11
Lb.Top = 4680 + b * 11
Lc.Top = 4680 + b * 11
Ld.Top = 4680 + b * 11
Le.Top = 4680 + b * 11
Lf.Top = 4680 + b * 11
Lg.Top = 4800 + b * 11
Case 13
La.Top = 4680 + b * 12
Lb.Top = 4680 + b * 12
Lc.Top = 4680 + b * 12
Ld.Top = 4680 + b * 12
Le.Top = 4680 + b * 12
Lf.Top = 4680 + b * 12
Lg.Top = 4800 + b * 12
Case 14
La.Top = 4680 + b * 13
Lb.Top = 4680 + b * 13
Lc.Top = 4680 + b * 13
Ld.Top = 4680 + b * 13
Le.Top = 4680 + b * 13
Lf.Top = 4680 + b * 13
Lg.Top = 4800 + b * 13
Case 15
La.Top = 4680 + b * 14
Lb.Top = 4680 + b * 14
Lc.Top = 4680 + b * 14
Ld.Top = 4680 + b * 14
Le.Top = 4680 + b * 14
Lf.Top = 4680 + b * 14
Lg.Top = 4800 + b * 14
Case 16
La.Top = 4680 + b * 15
Lb.Top = 4680 + b * 15
Lc.Top = 4680 + b * 15
Ld.Top = 4680 + b * 15
Le.Top = 4680 + b * 15
Lf.Top = 4680 + b * 15
Lg.Top = 4800 + b * 15
Case 17
La.Top = 4680 + b * 16
Lb.Top = 4680 + b * 16
Lc.Top = 4680 + b * 16
Ld.Top = 4680 + b * 16
Le.Top = 4680 + b * 16
Lf.Top = 4680 + b * 16
Lg.Top = 4800 + b * 16
Case 18
La.Top = 4680 + b * 17
Lb.Top = 4680 + b * 17
Lc.Top = 4680 + b * 17
Ld.Top = 4680 + b * 17
Le.Top = 4680 + b * 17
Lf.Top = 4680 + b * 17
Lg.Top = 4800 + b * 17
Case 19
La.Top = 4680 + b * 18
Lb.Top = 4680 + b * 18
Lc.Top = 4680 + b * 18
Ld.Top = 4680 + b * 18
Le.Top = 4680 + b * 18
Lf.Top = 4680 + b * 18
Lg.Top = 4800 + b * 18
End Select
End If
msg = MsgBox("真的要打印吗?-边缘提醒您！", vbYesNo)
If msg = vbYes Then
Me.PrintForm
Unload Me
Else
Exit Sub
End If
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Activate()
Dim s As String
s = Data2.Recordset.Name
Data2.Recordset.MoveLast
Data1.Recordset.Index = "code"
Data1.Recordset.Seek "=", s
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"
Data2.Connect = ";pwd=empty"
Data2.DatabaseName = "c:\data\msdb2.mdb"
b = Form10.a
If b = "" Then
MsgBox "真的要放弃吗?", vbExclamation, "输入对话框"
Else
Set rs = sjkdb.OpenRecordset(b)
Set rs1 = sjkdb.OpenRecordset("股东基本信息")
Data2.RecordSource = b
Data1.RecordSource = "股东基本信息"
Text1.DataField = "企业名称"
Text2.DataField = "董事长"
Text3.DataField = "办理日期"
Text4.DataField = "股东名称"
Text5.DataField = "股东代码"
Text6.DataField = "身份证号"
Text7.DataField = "电话"
Text8.DataField = "住址"
Text9.DataField = "办理机构"
La.DataField = "日期"
Lb.DataField = "摘要"
Lc.DataField = "增加"
Ld.DataField = "减少"
Le.DataField = "余额"
Lf.DataField = "权重"
Lg.DataField = "经办人"
rs.MoveLast
End If
Me.WindowState = 2
End Sub
12

⌨️ 快捷键说明

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