QueryPay2.frm
上传用户:cntx88
上传日期:2022-08-07
资源大小:169k
文件大小:1k
- VERSION 5.00
- Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
- Begin VB.Form QueryPay2
- Caption = "搜索结果"
- ClientHeight = 6840
- ClientLeft = 60
- ClientTop = 450
- ClientWidth = 8715
- LinkTopic = "Form1"
- ScaleHeight = 6840
- ScaleWidth = 8715
- StartUpPosition = 3 'Windows Default
- Begin VB.CommandButton Command1
- Caption = "返回"
- Default = -1 'True
- Height = 495
- Left = 120
- TabIndex = 1
- Top = 6120
- Width = 8415
- End
- Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
- Height = 5775
- Left = 120
- TabIndex = 0
- Top = 120
- Width = 8415
- _ExtentX = 14843
- _ExtentY = 10186
- _Version = 393216
- Cols = 5
- FixedCols = 0
- FillStyle = 1
- End
- End
- Attribute VB_Name = "QueryPay2"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Command1_Click()
- Me.Hide '返回主窗体
- End Sub
- Private Sub Form_Load()
- Me.Left = (Screen.Width - Me.ScaleWidth) / 2 '窗体居中显示
- Me.Top = (Screen.Height - Me.ScaleHeight) / 2
- End Sub