📄 sc_wwjg_gczl.frm
字号:
Height = 255
Index = 6
Left = 2790
TabIndex = 50
Top = 5430
Width = 855
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "国(州省):"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 5220
TabIndex = 49
Top = 360
Width = 1575
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "市(区)/县:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 120
TabIndex = 48
Top = 810
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "乡（镇）:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 5190
TabIndex = 47
Top = 810
Width = 1335
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "币 制:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 120
TabIndex = 46
Top = 5025
Width = 975
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "登记日期:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 120
TabIndex = 45
Top = 5430
Width = 1455
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "厂家编号:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 150
TabIndex = 44
Top = 345
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "付款方式:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 14
Left = 5100
TabIndex = 43
Top = 5430
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "英文地址:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 15
Left = 120
TabIndex = 42
Top = 2610
Width = 1170
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "英文名称:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 16
Left = 120
TabIndex = 41
Top = 1710
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "开户银行:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 18
Left = 120
TabIndex = 40
Top = 3960
Width = 1155
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "账号:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 19
Left = 4710
TabIndex = 39
Top = 4006
Width = 675
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "商检注册:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 20
Left = 120
TabIndex = 38
Top = 4425
Width = 1155
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "统一税号:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 21
Left = 4230
TabIndex = 37
Top = 4458
Width = 1215
End
End
Begin TrueOleDBGrid60.TDBGrid TDBGrid3
Bindings = "Sc_WWJg_GCZL.frx":46D5
Height = 7095
Left = 0
OleObjectBlob = "Sc_WWJg_GCZL.frx":46F0
TabIndex = 0
Top = 90
Width = 2775
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 1320
Top = 5190
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 7230
FormDesignWidth = 11655
End
Begin MSAdodcLib.Adodc Adoprimaryrs
Height = 735
Left = 2880
Top = 180
Width = 4215
_ExtentX = 7435
_ExtentY = 1296
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 = "Adoprimaryrs"
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
End
Attribute VB_Name = "Sc_WWJg_GCZL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CMd_Find_Click()
On Error Resume Next
Set CX_FrM_SjY = Sc_JGDW_DjB.Adoprimaryrs
CX_SJy = "select * from Sc_JGDW_DjB where not khmc is null "
With SEC_Dialog
.Combo1(0).Clear
.Combo1(1).Clear
.Combo1(0).AddItem ("khbh(厂家编号）")
.Combo1(1).AddItem ("khbh(厂家编号）")
.Combo1(0).AddItem ("khmc(厂家名称）")
.Combo1(1).AddItem ("khmc(厂家名称）")
.Combo1(0).AddItem ("sheng(省）")
.Combo1(1).AddItem ("sheng(省）")
.Combo1(0).AddItem ("shi(市）")
.Combo1(1).AddItem ("shi(市）")
.Combo1(0).AddItem ("zheng(镇）")
.Combo1(1).AddItem ("zheng(镇）")
.Combo1(0).AddItem ("lxr(联系人）")
.Combo1(1).AddItem ("lxr(联系人）")
End With
Load SEC_Dialog
SEC_Dialog.Show 1
End Sub
Private Sub CmdPrint_Click()
'ActiveReport1.DataControl1.ConnectionString = Conn_Str
khzl_rpt.DataControl1.ConnectionString = Conn_Str
khzl_rpt.DataControl1.Source = "select * from Sc_JGDW_DjB order by khbh " '"
khzl_rpt.Show VBRUN.FormShowConstants.vbModal
'ActiveReport1.DataControl1.Source = "select * from Sc_JGDW_DjB with (nolock) order by khbh " '"
'ActiveReport1.Show VBRUN.FormShowConstants.vbModal
End Sub
Private Sub Cmdreturn_Click()
Unload Me
End Sub
'*******************************************************
'* 曹汉华 2002.8.29 编写 *
'*******************************************************
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -