frmjkcc.frm
来自「企业工资管理系统的具体实现」· FRM 代码 · 共 303 行
FRM
303 行
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmjkcc
Caption = "借款查询"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
Icon = "frmjkcc.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 11010
ScaleWidth = 15240
WindowState = 2 'Maximized
Begin VB.Frame Frame2
Height = 5835
Left = 15
TabIndex = 6
Top = 1350
Width = 11850
Begin MSAdodcLib.Adodc Adodc1
Height = 345
Left = 735
Top = 1185
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 609
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 5610
Left = 75
TabIndex = 7
Top = 150
Width = 11685
_ExtentX = 20611
_ExtentY = 9895
_Version = 393216
AllowUpdate = 0 'False
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
ScrollBars = 3
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Begin VB.Frame Frame1
Height = 1410
Left = 15
TabIndex = 0
Top = -60
Width = 11850
Begin VB.ComboBox Combo1
Enabled = 0 'False
Height = 300
Left = 1590
TabIndex = 11
Top = 360
Width = 2175
End
Begin VB.CheckBox Check3
Caption = "姓 名："
Height = 375
Left = 7815
TabIndex = 10
Top = 330
Width = 1200
End
Begin VB.CheckBox Check2
Caption = "职工代号："
Height = 375
Left = 4110
TabIndex = 9
Top = 330
Width = 1215
End
Begin VB.CheckBox Check1
Caption = "车间代号："
Height = 435
Left = 420
TabIndex = 8
Top = 300
Width = 1275
End
Begin VB.CommandButton cmdexit
Caption = "退 出"
Height = 390
Left = 10320
TabIndex = 5
Top = 870
Width = 960
End
Begin VB.CommandButton cmdall
Caption = "全部查询"
Height = 390
Left = 9330
TabIndex = 4
Top = 870
Width = 960
End
Begin VB.CommandButton cmdselect
Caption = "选择查询"
Height = 390
Left = 8325
TabIndex = 3
Top = 870
Width = 960
End
Begin VB.TextBox Text3
Enabled = 0 'False
Height = 390
Left = 9060
TabIndex = 2
Top = 300
Width = 2190
End
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 390
Left = 5385
TabIndex = 1
Top = 300
Width = 2190
End
End
End
Attribute VB_Name = "frmjkcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
If Check1.Value = 1 Then
Combo1.Enabled = True
ElseIf Check1.Value = 0 Then
Combo1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text2.Enabled = True
ElseIf Check2.Value = 0 Then
Text2.Enabled = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text3.Enabled = True
ElseIf Check3.Value = 0 Then
Text3.Enabled = False
End If
End Sub
Private Sub cmdall_Click()
With Adodc1
.ConnectionString = constr
.RecordSource = "select cjdh as 车间代号,grdh as 工人代号,xm as 姓名,ze as 总额,yf01 as 1月份,yf02 as 2月份,yf03 as 3月份,yf04 as 4月份,yf05 as 5月份,yf06 as 6月份,yf07 as 7月份,yf08 as 8月份,yf09 as 9月份,yf10 as 10月份,yf11 as 11月份,yf12 as 12月份 from jzb"
.Refresh
End With
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdselect_Click()
Dim sql As String
If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 Then
MsgBox "请先输入查询条件！", vbInformation, "提示"
Exit Sub
End If
sql = "select cjdh as 车间代号,grdh as 工人代号,xm as 姓名,ze as 总额,yf01 as 1月份,yf02 as 2月份,yf03 as 3月份,yf04 as 4月份,yf05 as 5月份,yf06 as 6月份,yf07 as 7月份,yf08 as 8月份,yf09 as 9月份,yf10 as 10月份,yf11 as 11月份,yf12 as 12月份 from jzb"
If Check1.Value = 1 Then
sql = sql & " where cjdh='" & Trim(Combo1.Text) & "'"
End If
If Check1.Value = 0 And Check2.Value = 1 Then
sql = sql & " where grdh='" & Trim(Text2.Text) & "'"
ElseIf Check1.Value = 1 And Check2.Value = 1 Then
sql = sql & " and grdh='" & Trim(Text2.Text) & "'"
End If
If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 1 Then
sql = sql & " where xm='" & Trim(Text3.Text) & "'"
ElseIf Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 Then
sql = sql & " and xm='" & Trim(Text3.Text) & "'"
ElseIf Check1.Value = 0 And Check2.Value = 1 And Check3.Value = 1 Then
sql = sql & " and xm='" & Trim(Text3.Text) & "'"
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 1 Then
sql = sql & " and xm='" & Trim(Text3.Text) & "'"
End If
With Adodc1
.ConnectionString = constr
.RecordSource = sql
.Refresh
If .Recordset.EOF And .Recordset.BOF Then
MsgBox "没有查到你要的记录！", vbInformation, "提示"
'Exit Sub
End If
End With
End Sub
Private Sub Form_Load()
'Dim cnn As New ADODB.Recordset
With Adodc1
.ConnectionString = constr
.RecordSource = "select cjdh as 车间代号,grdh as 工人代号,xm as 姓名,ze as 总额,yf01 as 1月份,yf02 as 2月份,yf03 as 3月份,yf04 as 4月份,yf05 as 5月份,yf06 as 6月份,yf07 as 7月份,yf08 as 8月份,yf09 as 9月份,yf10 as 10月份,yf11 as 11月份,yf12 as 12月份 from jzb"
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
Call frmwork(frmjkcc)
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?