📄 frmbasequery.frm
字号:
Width = 855
End
Begin VB.Label Label6
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "建筑面积"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2850
TabIndex = 37
Top = 930
Width = 855
End
Begin VB.Label Label5
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "人均面积"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2850
TabIndex = 36
Top = 555
Width = 855
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "居住面积"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2850
TabIndex = 35
Top = 180
Width = 855
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "学 历"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 5580
TabIndex = 34
Top = 930
Width = 855
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "大学学历"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 120
TabIndex = 33
Top = 2040
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 120
TabIndex = 32
Top = 555
Width = 855
End
Begin VB.Image Image1
Height = 480
Left = 240
Picture = "frmBaseQuery.frx":03DE
Top = 2310
Width = 480
End
End
Begin VB.PictureBox SSPanel1
Height = 2835
Left = 8310
ScaleHeight = 2775
ScaleWidth = 1095
TabIndex = 2
Top = 90
Width = 1155
Begin VB.CommandButton cmdExit
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 270
TabIndex = 6
Top = 2220
Width = 675
End
Begin VB.CommandButton cmdPrint
Caption = "打印"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 270
TabIndex = 5
Top = 1515
Width = 675
End
Begin VB.CommandButton cmdQuery
Caption = "查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 270
TabIndex = 4
Top = 120
Width = 675
End
Begin VB.CommandButton cmdInit
Caption = "重置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 270
TabIndex = 3
Top = 825
Width = 675
End
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 6450
Width = 9510
_ExtentX = 16775
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 1
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 16722
Picture = "frmBaseQuery.frx":0820
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 2640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4080
Visible = 0 'False
Width = 2775
End
Begin MSFlexGridLib.MSFlexGrid mskGrid
Bindings = "frmBaseQuery.frx":0B3A
Height = 3315
Left = 90
TabIndex = 0
Top = 3090
Width = 9375
_ExtentX = 16536
_ExtentY = 5847
_Version = 393216
FixedCols = 0
ForeColor = 8388608
ForeColorFixed = 0
BackColorSel = 16711680
AllowUserResizing= 3
End
End
Attribute VB_Name = "frmBaseQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim recJiBQK As Recordset
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdInit_Click()
cboXinM = ""
cboXinB = ""
cboMinZ = ""
cboXueL = ""
cboGongZSJ = ""
txtGongZSJ = ""
cboSiZSJ = ""
txtSiZSJ = ""
cboFangWMJ = ""
txtFangWMJ = ""
cboZhufXZ = ""
cboYuanX = ""
cboZhiJ = ""
cboZhiW = ""
cboZhiC = ""
cboXin = ""
cboGongJJ = ""
txtGongJJ = ""
mskCSNYfrom = "__/__/____"
mskCSNYto = "__/__/____"
mskFrom2 = "__/__/____"
mskTo2 = "__/__/____"
mskFrom3 = "__/__/____"
mskTo3 = "__/__/____"
Dim sqlForNull As String
sqlForNull = "select danw as 单位,gongh as 工号,xinm as 姓名,shenqyq as 申请要求,xinb as 性别,huzm as 户主名,chusny as 出生年月,canjgmgz as 参加革命工作年月,laixgz as 来校工作年月,hunyzk as 婚姻状况,jiatrk as 家庭人口,"
sqlForNull = sqlForNull & "juzmj as 居住面积,renjmj as 人均面积,renyzk as 人员状况,zhiw as 职务,zhic as 职称,biaozgz as 标准工资,jinsny as 晋升年月,dax as 大学学历,xuez as 大学学制,yanjs as 研究生学历,xuezh as 研究生学制,junl as 军龄,"
sqlForNull = sqlForNull & "xuelqk as 学历情况,zhuz as 家庭住址,fenp as 交大分配,peifrq as 配房时间,shenqrq as 申请时间,laosd as 老三代,jiangl as 奖励得分,jianglqk as 奖励情况,beiz as 备注,juzjs as 居住间数,gongjj as 公积金,dabjs as 达标间数,jianzmj as 建筑面积,jifz as 积分值,jinsqk as 晋升情况 from jiaozgzfxx where gongh=''"
Set recJiBQK = dbEstate.OpenRecordset(sqlForNull, dbOpenSnapshot)
Set Data1.Recordset = recJiBQK
End Sub
Private Sub cmdPrint_Click()
Dim Excel As Object
Dim WorkSheet As Object
Dim WorkBook As Object
Kill App.Path + "\ZBQKB.xls"
Name App.Path + "\ZBQKBcopy.xls" As App.Path + "\ZBQKB.xls"
FileCopy App.Path + "\ZBQKB.xls", App.Path + "\ZBQKBcopy.xls"
PrintInExcel recJiBQK, "zbqkb.xls", "am"
Set Excel = CreateObject("Excel.application")
Excel.Workbooks.Open App.Path + "\zbqkb.xls"
Set WorkBook = Excel.ActiveWorkbook
WorkBook.Worksheets("sample").Select
Set WorkSheet = Excel.ActiveSheet
Excel.Visible = True
WorkBook.Saved = True
End Sub
Private Sub cmdQuery_Click()
Dim bChoice As Boolean
Dim sql As String
bChoice = False
sql = "select danw as 单位,gongh as 工号,xinm as 姓名,shenqyq as 申请要求,xinb as 性别,huzm as 户主名,chusny as 出生年月,canjgmgz as 参加革命工作年月,laixgz as 来校工作年月,hunyzk as 婚姻状况,jiatrk as 家庭人口,"
sql = sql & "juzmj as 居住面积,renjmj as 人均面积,renyzk as 人员状况,zhiw as 职务,zhic as 职称,biaozgz as 标准工资,jinsny as 晋升年月,dax as 大学学历,xuez as 大学学制,yanjs as 研究生学历,xuezh as 研究生学制,junl as 军龄,"
sql = sql & "xuelqk as 学历情况,zhuz as 家庭住址,fenp as 交大分配,peifrq as 配房时间,shenqrq as 申请时间,laosd as 老三代,jiangl as 奖励得分,jianglqk as 奖励情况,beiz as 备注,juzjs as 居住间数,gongjj as 公积金,dabjs as 达标间数,jianzmj as 建筑面积,jifz as 积分值,jinsqk as 晋升情况 from jiaozgzfxx where "
'文本型查询
If Len(Trim(cboXinM)) <> 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -