📄 flxs.frm
字号:
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":6472
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":68C6
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":6D1A
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":716E
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":75C2
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":7A16
Key = ""
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":7E6A
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":82BE
Key = ""
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":8712
Key = ""
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":8B66
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":8FBA
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":940E
Key = ""
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":9862
Key = ""
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":9CB6
Key = ""
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":A10A
Key = ""
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":A55E
Key = ""
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":A9B2
Key = ""
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":AE06
Key = ""
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":B482
Key = ""
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":BAFE
Key = ""
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":C17A
Key = ""
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":C7F6
Key = ""
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":CE72
Key = ""
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":D4EE
Key = ""
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":DB6A
Key = ""
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":E1E6
Key = ""
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":E862
Key = ""
EndProperty
BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":EEDE
Key = ""
EndProperty
BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":F55A
Key = ""
EndProperty
BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":FBD6
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 1
Top = 0
Width = 9960
_ExtentX = 17568
_ExtentY = 1058
ButtonWidth = 1561
ButtonHeight = 1058
Style = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "客户资料"
ImageIndex = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "发运详情"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "结算"
ImageIndex = 8
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "调整"
ImageIndex = 13
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "历史资料"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
ImageIndex = 38
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "返回"
ImageIndex = 42
EndProperty
EndProperty
OLEDropMode = 1
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 1080
Top = 840
_ExtentX = 794
_ExtentY = 794
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":10252
Key = "Back"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":10364
Key = "Forward"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":10476
Key = "Cut"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":10588
Key = "Copy"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":1069A
Key = "Paste"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":107AC
Key = "Delete"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":108BE
Key = "Properties"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":109D0
Key = "View Large Icons"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":10AE2
Key = "View Small Icons"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":10BF4
Key = "View List"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "flxs.frx":10D06
Key = "View Details"
EndProperty
EndProperty
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 492
Left = 720
TabIndex = 0
Top = 600
Width = 8052
End
End
Attribute VB_Name = "flxs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Adodc1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
'''
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rest = New ADODB.Recordset
cn.ConnectionString = connetstr
cn.Open
Me.Adodc1.ConnectionString = connetstr
rest.Open "select hth as 票号,htl as 合同量,yfl as 已发量,wfl as 欠存量,hwm as 货物名,dj as 单价,je as 金额,jcje as 结存金额,sj as 发货时间,ysfs as 运输方式,jsfs as 结算方式,bz as 备注 from htk where wfl>0 and fhdw like '%" & jl_fhdw & "%'", cn, 3
Set Me.DataGrid1.DataSource = rest
Me.DataGrid1.RecordSelectors = True
Me.DataGrid1.refresh
'Adodc1.ConnectionString = connetstr
'Adodc1.RecordSource = "select hth as 票号,htl as 合同量,yfl as 已发量,wfl as 欠存量,hwm as 货物名,dj as 单价,je as 金额,sj as 发货时间,ysfs as 运输方式,jsfs as 结算方式,bz as 备注 from htk "
'Me.Adodc1.Refresh
Dim jj As Integer
For jj = 0 To 8
Me.DataGrid1.Columns(jj).Width = 900
Next jj
End Sub
Private Sub khzl_Click()
XPButton1_Click
End Sub
Private Sub DataGrid1_Click()
On Error Resume Next
'Me.DataGrid1.Col = 0
jl_hth = Me.DataGrid1.Columns(0).Text
End Sub
Private Sub DataGrid1_DblClick()
'Me.DataGrid1.Col = 0
'Me.DataGrid1.Row = Me.DataGrid1.RowSel
jl_hth = Me.DataGrid1.Columns(0).Text
Dim forfrm As Form2
Set forfrm = New Form2
forfrm.Adodc1.ConnectionString = connetstr
forfrm.Adodc1.RecordSource = "select * from htk where hth='" & Trim(jl_hth) & "'"
forfrm.Adodc1.refresh
forfrm.Show
forfrm.Label1.Caption = jl_fhdw & jl_hth & "合同执行情况"
'Call KeepOnTop(forfrm)
'‘Unload Me
End Sub
Private Sub Form_Resize()
Me.DataGrid1.Width = Me.ScaleWidth - 400
Me.DataGrid1.Height = Me.ScaleHeight - Me.DataGrid1.Top - 400
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
XPButton1_Click
Case 2
XPButton2_Click
Case 3
Case 4
httz.Show
Case 5
Case 6
Case 7
Unload Me
End Select
End Sub
Private Sub XPButton1_Click()
On Error Resume Next
kehu.datPrimaryRS.RecordSource = "select khxm as 客户名称,lxrm as 联系人姓名,lxrzc as 联系人职称,dz as 地址,yzbm as 邮政编码,dhhm as 电话号码,czhm as 传真号码,fktj as 付款条件,khyh as 开户银行,zh as 帐号,email as 电子邮件地址,fz as 附注 from 供应商 where khxm like '%" & jl_fhdw & "%' order by khxm"
kehu.datPrimaryRS.refresh
If kehu.datPrimaryRS.Recordset.RecordCount <= 1 Then
kehu.datPrimaryRS.Recordset.AddNew
End If
kehu.txtFields(1) = jl_fhdw
kehu.DataGrid1.Visible = False
'‘Me.Hide
kehu.Show
End Sub
Private Sub XPButton2_Click()
fymx.grdDataGrid.Caption = jl_fhdw & jl_hth & "发运详情"
fymx.Show
End Sub
Private Sub XPButton4_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -