📄 form5.frm

📁 因本人没有充足的时间
💻 FRM
📖 第 1 页 / 共 2 页
字号:
12 下一页
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form12 
   BorderStyle     =   0  'None
   Caption         =   "省二建股权证管理系统V1.0"
   ClientHeight    =   6300
   ClientLeft      =   2865
   ClientTop       =   3435
   ClientWidth     =   9135
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MinButton       =   0   'False
   ScaleHeight     =   6300
   ScaleWidth      =   9135
   ShowInTaskbar   =   0   'False
   Begin MSFlexGridLib.MSFlexGrid MSF 
      Bindings        =   "Form5.frx":08CA
      Height          =   6015
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   10610
      _Version        =   393216
      Rows            =   5
      Cols            =   5
      SelectionMode   =   2
      MergeCells      =   1
      AllowUserResizing=   3
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   7440
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   0  'Table
      RecordSource    =   ""
      Top             =   0
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Menu Q1 
      Caption         =   "文件（F）"
      Index           =   1
      Begin VB.Menu w1 
         Caption         =   "清空查询结果"
         Index           =   1
      End
      Begin VB.Menu w2 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu w3 
         Caption         =   "退出"
         Index           =   3
      End
   End
   Begin VB.Menu Q2 
      Caption         =   "按股东代码查询（W）"
      Index           =   2
   End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label12_Click()

End Sub

Private Sub Form_Load()
MSF.Height = Form5.Height - 2500
MSF.Width = Form5.Width - 500
End Sub

Private Sub Form_Resize()
Dim A As Index
Dim b As Index
MSF.Height = Form5.Height - 2500
MSF.Width = Form5.Width - 500
End Sub

Private Sub Q2_Click(Index As Integer)
Dim A As Integer
Dim b As Integer
Dim c As String
Dim RS As Integer
Dim wk As Workspace
Dim sjkdb As Database
Dim td As TableDef
Dim tds As TableDefs
Dim fl As Field
Dim fls As Fields
c = InputBox$("请输入股东代码！")
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"
Data1.RecordSource = c
Set ds = Data1.Recordset
RS = ds.RecordCount
MSF.Refresh
Dim re As Integer
MSF.Row = 0
MSF.Col = 0
MSF.Text = "序号"
Set sd = Data2.Recordset
re = sd.RecordCount
For A = 1 To re
MSF.Row = A
MSF.Col = 0
MSF.Text = A
Next A
End Sub

Private Sub Q5_Click(Index As Integer)
r = InputBox("请输入单位名称")
Text33.Text = r
If Text33.Text = "" Then
MsgBox ("请输入单位名称!")
Exit Sub
Else
Dim RS As Integer
Data1.Recordset.Index = "rm"
Data1.Recordset.Seek "=", Text33.Text
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text3.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Data1.Recordset.Index = "rm"
Data1.Recordset.Seek "=", Text33.Text
Set ds = Data1.Recordset
RS = ds.RecordCount
Data2.Recordset.Index = "rm"
Data2.Recordset.Seek "=", Text33.Text
MSF.Refresh
Data2.Refresh
Dim re As Integer
MSF.Row = 0
MSF.Col = 0
MSF.Text = "序号"
Set sd = Data2.Recordset
re = sd.RecordCount
For A = 1 To re
MSF.Row = A
MSF.Col = 0
MSF.Text = A
Next A
End Sub

Private Sub Q7_Click(Index As Integer)
r = InputBox("请输入姓名")
Text33.Text = r
If Text33.Text = "" Then
MsgBox ("请输入姓名!")
Exit Sub
Else
Dim RS As Integer
Data1.Recordset.Index = "rm2"
Data1.Recordset.Seek "=", Text33.Text
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
12 下一页
⌨️ 快捷键说明

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