📄 sc_gxsz_djb.frm
字号:
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Ado_xMcX"
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 MSAdodcLib.Adodc Ado_dW
Height = 615
Left = 7620
Top = 2850
Width = 3135
_ExtentX = 5530
_ExtentY = 1085
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 = "Ado_dW"
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 VB.Label Label
Caption = "产品查询"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 22
Left = 0
TabIndex = 34
Top = 7425
Width = 1065
End
End
Attribute VB_Name = "Sc_GxSz_DjB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim khdk As Adodb.Recordset
Dim Dr_RE, Data_Cx As Recordset
Dim zztz_rpt As Adodb.Recordset
Dim Tjbz As Boolean
Private Sub CMD_Dr_Click()
Set Dr_RE = New Recordset
Dr_RE.Open "select * from yy_bzdj_B where cpbh_s not in(select distinct cpbh_s from Sc_GyGx_H)", DB, adOpenStatic, adLockReadOnly
If Dr_RE.RecordCount > 0 Then
Dr_RE.MoveFirst
For i = 1 To Dr_RE.RecordCount
AdoprimaryRs.Recordset.ActiveConnection.Execute "insert into Sc_GyGx_H(cpbh_s,cplb,cpbh,cpmc,gg,yanse,caizh,dw,bacp) values('" & Dr_RE.Fields("cpbh_s").Value & "', '" & Dr_RE.Fields("cplb").Value & "','" & Dr_RE.Fields("cpbh").Value & "','" & Dr_RE.Fields("cpmc").Value & "','" & Dr_RE.Fields("gg").Value & "','" & Dr_RE.Fields("yanse").Value & "','" & Dr_RE.Fields("caizh").Value & "','" & Dr_RE.Fields("dw").Value & "','" & Dr_RE.Fields("bacp").Value & "')"
Dr_RE.MoveNext
Next i
End If
AdoprimaryRs.Recordset.Requery
End Sub
Private Sub CMd_WlDr_Click()
If Ado_Body.Recordset.RecordCount <= 0 And Cmdadd.Enabled = False And Trim(Text2.Text) <> "" And Trim(Text(0).Text) <> "" Then
Set Dr_RE = New Recordset
Dr_RE.Open "select * from Sc_GyGx_B where cpbh_s='" & Trim(Text2.Text) & "'", DB, adOpenStatic, adLockReadOnly
If Dr_RE.RecordCount > 0 Then
Dr_RE.MoveFirst
For i = 1 To Dr_RE.RecordCount
Ado_Body.Recordset.ActiveConnection.Execute "insert into Sc_GyGx_B(cpbh_s,cpmc,gxbh,gxmc,gycc,dj,dw,jsdw,zq,ms) values('" & Text(0).Text & "', '" & Text(1).Text & "','" & Dr_RE.Fields("gxbh").Value & "','" & Dr_RE.Fields("gxmc").Value & "','" & Dr_RE.Fields("gycc").Value & "','" & Dr_RE.Fields("dj").Value & "','" & Dr_RE.Fields("dw").Value & "','" & Dr_RE.Fields("jsdw").Value & "','" & Dr_RE.Fields("zq").Value & "','" & Dr_RE.Fields("ms").Value & "')"
Dr_RE.MoveNext
Next i
End If
End If
Ado_Body.Recordset.Requery
End Sub
'*******************************************************
'* 曹汉华 2004.6.15 编写 *
'*******************************************************
Private Sub cmdnext_Click() '向后
On Error GoTo GoNextError
If Not AdoprimaryRs.Recordset.EOF Then AdoprimaryRs.Recordset.MoveNext
If AdoprimaryRs.Recordset.EOF And AdoprimaryRs.Recordset.RecordCount > 0 Then
Beep
AdoprimaryRs.Recordset.MoveLast
End If
Exit Sub
GoNextError:
MsgBox Err.Description
End Sub
Private Sub Cmdqd_Click() '首端
If AdoprimaryRs.Recordset.RecordCount > 0 Then
If AdoprimaryRs.BOFAction = False Then
AdoprimaryRs.Recordset.MoveFirst
Else
AdoprimaryRs.Recordset.MoveNext
End If
Else
Exit Sub
End If
End Sub
Private Sub Cmdreturn_Click()
Tjbz = False
Unload Me
End Sub
Private Sub cmdxq_Click() '向前
On Error GoTo GoPrevError
If Not AdoprimaryRs.Recordset.BOF Then AdoprimaryRs.Recordset.MovePrevious
If AdoprimaryRs.Recordset.BOF And AdoprimaryRs.Recordset.RecordCount > 0 Then
Beep
AdoprimaryRs.Recordset.MoveFirst
End If
Exit Sub
GoPrevError:
MsgBox Err.Description
End Sub
Private Sub cmdmd_Click() '末端
If AdoprimaryRs.Recordset.RecordCount > 0 Then
If AdoprimaryRs.Recordset.EOF = False Then
AdoprimaryRs.Recordset.MoveLast
Else
AdoprimaryRs.Recordset.MovePrevious
End If
Else
Exit Sub
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '非法退出禁止
If Cmdcancel.Enabled = True Then
If UnloadMode <> VBRUN.QueryUnloadConstants.vbFormCode Then
Cancel = 1
Exit Sub
End If
End If
End Sub
Private Sub Form_Load() '列表框数据
Me.Width = main_FRM.Picture1.Width - 30
Me.Top = main_FRM.ActiveBar21.Bands("Band7").Height * 2.5 - 65
Me.Height = main_FRM.Picture1.Height - 300
Me.Left = main_FRM.Picture1.Left + 15
Tjbz = False
AdoprimaryRs.ConnectionString = Conn_Str
AdoprimaryRs.RecordSource = "select * from Sc_GyGx_H order by cpbh_s,cpmc,gg"
AdoprimaryRs.Refresh
Ado_dW.ConnectionString = Conn_Str
Ado_dW.RecordSource = "select DISTINCT jldw from sys_jldw where not jldw is null ORDER BY jldw"
Ado_dW.Refresh
Call SjY
End Sub
Private Sub Cmdadd_Click()
On Error GoTo AddErr
For i = 0 To Text.Count - 1
Text(i).Locked = False
Next i
Tjbz = True
Text1.Enabled = False
cmdqd.Enabled = False
cmdxq.Enabled = False
cmdnext.Enabled = False
cmdmd.Enabled = False
CMD_Dr.Enabled = False
TDBGrid3.Enabled = False
Cmddelete.Enabled = False
Cmdadd.Enabled = False
Cmdedit.Enabled = False
Cmdreturn.Enabled = False
CmdOK.Enabled = True
Cmdcancel.Enabled = True
TDBGrid1.AllowAddNew = True
TDBGrid1.AllowDelete = True
TDBGrid1.AllowUpdate = True
If AdoprimaryRs.Recordset.RecordCount > 0 Then
AdoprimaryRs.Recordset.MoveLast
End If
AdoprimaryRs.Recordset.AddNew
Exit Sub
AddErr:
MsgBox Err.Description
End Sub
Private Sub cmdDelete_Click() '删除
On Error Resume Next
Ddcode = Trim(Text(0).Text)
Ado_Body.Recordset.ActiveConnection.Execute "delete from Sc_GyGx_B where cpbh_S='" & Ddcode & "'"
Ado_Body.Recordset.UpdateBatch adAffectAll
If AdoprimaryRs.Recordset.RecordCount > 0 Then
With AdoprimaryRs
.Recordset.Delete
If .Recordset.EOF = False Then .Refresh
If AdoprimaryRs.Recordset.RecordCount > 0 Then
.Recordset.MoveLast
End If
End With
End If
AdoprimaryRs.Refresh
Ado_Body.Refresh
End Sub
Private Sub cmdEdit_Click() '修改
On Error GoTo EditErr
For i = 0 To Text.Count - 1
Text(i).Locked = False
Next i
CMd_WlDr.Enabled = True
Text1.Enabled = False
cmdqd.Enabled = False
cmdxq.Enabled = False
cmdnext.Enabled = False
cmdmd.Enabled = False
CMD_Dr.Enabled = False
TDBGrid3.Enabled = False
Cmddelete.Enabled = False
Cmdadd.Enabled = False
Cmdedit.Enabled = False
Cmdreturn.Enabled = False
CmdOK.Enabled = True
Cmdcancel.Enabled = True
TDBGrid1.AllowAddNew = True
TDBGrid1.AllowDelete = True
TDBGrid1.AllowUpdate = True
On Error GoTo EditErr
Exit Sub
EditErr:
MsgBox Err.Description
End Sub
Private Sub cmdCancel_Click() '取消
On Error Resume Next
For i = 0 To Text.Count - 1
Text(i).Locked = True
Next i
TDBGrid1.AllowDelete = False
TDBGrid1.AllowUpdate = False
TDBGrid1.AllowAddNew = False
CMd_WlDr.Enabled = False
Text1.Enabled = True
cmdqd.Enabled = True
cmdxq.Enabled = True
cmdnext.Enabled = True
cmdmd.Enabled = True
CMD_Dr.Enabled = True
TDBGrid3.Enabled = True
Cmddelete.Enabled = True
Cmdadd.Enabled = True
Cmdedit.Enabled = True
Cmdreturn.Enabled = True
CmdOK.Enabled = False
Cmdcancel.Enabled = False
AdoprimaryRs.Recordset.CancelUpdate
AdoprimaryRs.Recordset.MoveFirst
End Sub
Private Sub cmdOK_Click() '确认
On Error GoTo UpdateErr
Tjbz = False
TDBGrid1.AllowDelete = False
TDBGrid1.AllowUpdate = False
TDBGrid1.AllowAddNew = False
CMd_WlDr.Enabled = False
If Text(0).Text = "" Then
MsgBox "所有名称不能为空", 48, "提示"
Text(0).SetFocus
Exit Sub
End If
If Text(5).Text = "" Then
Text(5).Text = " "
End If
For i = 0 To Text.Count - 1
Text(i).Locked = True
Next i
Text1.Enabled = True
cmdqd.Enabled = True
cmdxq.Enabled = True
cmdnext.Enabled = True
cmdmd.Enabled = True
CMD_Dr.Enabled = True
TDBGrid3.Enabled = True
Cmddelete.Enabled = True
Cmdadd.Enabled = True
Cmdedit.Enabled = True
Cmdreturn.Enabled = True
CmdOK.Enabled = False
Cmdcancel.Enabled = False
AdoprimaryRs.Recordset.UpdateBatch adAffectAll
Ado_Body.Recordset.UpdateBatch adAffectAll
Cmdcancel.Enabled = False
CmdOK.Enabled = False
If AdoprimaryRs.Recordset.BOF Then
AdoprimaryRs.Recordset.MovePrevious
AdoprimaryRs.Recordset.MoveNext
Else
AdoprimaryRs.Recordset.MoveNext
AdoprimaryRs.Recordset.MovePrevious
End If
If Ado_Body.Recordset.RecordCount > 0 Then
Ado_Body.Recordset.MoveFirst
With Ado_Body.Recordset
For i = 1 To .RecordCount
.Fields("xh").Value = Trim(Str(i))
If IsNull(.Fields("gycc").Value) = True Then
.Fields("gycc").Value = " "
End If
.MoveNext
Next i
End With
End If
Call SjY
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub TDBGrid1_KeyDown(KeyCode As Integer, Shift As Integer) '表格记录删除 2004年5月26日 曹汉华
If Cmdadd.Enabled = False Then
If KeyCode = 46 Then
Ado_Body.Recordset.Delete
Ado_Body.Recordset.UpdateBatch adAffectAll
Ado_Body.Refresh
End If
End If
End Sub
Private Sub TDBGrid1_BeforeColupdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
On Error Resume Next
If ColIndex = 0 And Cmdadd.Enabled = False Then
TDBGrid1.Columns(9).Value = Trim(Text(0).Text)
TDBGrid1.Columns(8).Value = Trim(Text(1).Text)
Ado_Body.Recordset.Fields("xh").Value = Str(TDBGrid1.Row + 1)
End If
Set Data_Cx = New Recordset
Data_Cx.Open "select distinct gxbh from sc_gygx_B where gxmc='" & TDBGrid1.Columns(0).Value & "' and not gxbh is null and not gxmc is null", DB, adOpenStatic, adLockReadOnly
If Data_Cx.RecordCount > 0 Then
Data_Cx.MoveFirst
If IsNull(Data_Cx!gxbh) = False Then
TDBGrid1.Columns(1).Value = Data_Cx!gxbh
Else
TDBGrid1.Columns(1).Value = " "
End If
End If
End Sub
Private Sub Text_Change(Index As Integer)
If Index = 0 Then
Ado_Body.ConnectionString = Conn_Str
Ado_Body.RecordSource = "select * from Sc_GyGx_B where cpbh_s='" & Text(0).Text & "'"
Ado_Body.Refresh
End If
End Sub
Private Sub SjY()
Ado_CaiZH.ConnectionString = Conn_Str
Ado_CaiZH.RecordSource = "SELECT DISTINCT GXMC FROM sc_gygx_B WHERE NOT GXMC IS NULL order by gxmc"
Ado_CaiZH.Refresh
Ado_xMcX.ConnectionString = Conn_Str
Ado_xMcX.RecordSource = "SELECT DISTINCT GYCC FROM sc_gygx_B WHERE NOT GYCC IS NULL order by gycc"
Ado_xMcX.Refresh
End Sub
Private Sub Text1_Change()
AdoprimaryRs.ConnectionString = Conn_Str
AdoprimaryRs.RecordSource = "select * FROM sc_gygx_H where cpbh_s like '%" & Trim(Text1.Text) & "%' order by cpbh_s,CPMC"
AdoprimaryRs.Refresh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -