📄 frmhtk.frm
字号:
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= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=dzqch"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "dzqch"
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = $"frmhtk.frx":3411
Caption = " "
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 Label9
Caption = "发货单位："
Height = 252
Left = -72120
TabIndex = 30
Top = 840
Width = 1092
End
Begin VB.Label Label4
Caption = "单 价："
Height = 252
Index = 1
Left = -72120
TabIndex = 28
Top = 480
Width = 972
End
Begin VB.Label Label8
Caption = "截止日期："
Height = 252
Left = -74880
TabIndex = 26
Top = 840
Width = 732
End
Begin VB.Label Label7
Caption = "起始日期："
Height = 252
Left = -74880
TabIndex = 24
Top = 480
Width = 972
End
Begin VB.Label Label4
Caption = "单价："
Height = 372
Index = 0
Left = -74640
TabIndex = 20
Top = 600
Width = 492
End
Begin VB.Label label17
BackColor = &H00E0E0E0&
Caption = "欠存量"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -73680
TabIndex = 16
Top = 720
Width = 975
End
Begin VB.Label Label6
BackColor = &H00E0E0E0&
Caption = "输入发货单位："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 312
Left = -74280
TabIndex = 10
Top = 600
Width = 1776
End
Begin VB.Label Label3
BackColor = &H00E0E0E0&
Caption = "截止日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 364
Left = -71139
TabIndex = 4
Top = 702
Width = 1651
End
Begin VB.Label Label2
BackColor = &H00E0E0E0&
Caption = "起始日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 364
Left = -74883
TabIndex = 3
Top = 702
Width = 1183
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "请输入合同号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 720
TabIndex = 2
Top = 705
Width = 1935
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Bindings = "frmhtk.frx":34DB
Height = 4695
Left = 240
TabIndex = 33
Top = 2520
Width = 10095
_ExtentX = 17806
_ExtentY = 8281
_Version = 393216
Rows = 22
Cols = 14
AllowUserResizing= 3
RowSizingMode = 1
_NumberOfBands = 1
_Band(0).Cols = 14
_Band(0)._NumMapCols= 13
_Band(0)._MapCol(0)._Name= "票号"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(1)._Name= "合同量"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(1)._Alignment= 7
_Band(0)._MapCol(2)._Name= "已发量"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(2)._Alignment= 7
_Band(0)._MapCol(3)._Name= "欠存量"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(3)._Alignment= 7
_Band(0)._MapCol(4)._Name= "货物名"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(0)._MapCol(5)._Name= "发货人"
_Band(0)._MapCol(5)._RSIndex= 5
_Band(0)._MapCol(6)._Name= "发货单位"
_Band(0)._MapCol(6)._RSIndex= 6
_Band(0)._MapCol(7)._Name= "单价"
_Band(0)._MapCol(7)._RSIndex= 7
_Band(0)._MapCol(7)._Alignment= 7
_Band(0)._MapCol(8)._Name= "金额"
_Band(0)._MapCol(8)._RSIndex= 8
_Band(0)._MapCol(8)._Alignment= 7
_Band(0)._MapCol(9)._Name= "发货时间"
_Band(0)._MapCol(9)._RSIndex= 9
_Band(0)._MapCol(10)._Name= "运输方式"
_Band(0)._MapCol(10)._RSIndex= 10
_Band(0)._MapCol(11)._Name= "结算方式"
_Band(0)._MapCol(11)._RSIndex= 11
_Band(0)._MapCol(12)._Name= "备注"
_Band(0)._MapCol(12)._RSIndex= 12
End
Begin VB.Menu prin
Caption = "文件"
Begin VB.Menu mnuPreview
Caption = "预览"
End
Begin VB.Menu mnuPrint
Caption = "打印"
End
Begin VB.Menu mnuManual
Caption = "页面设置"
Begin VB.Menu mnuPageUp
Caption = "上页"
End
Begin VB.Menu mnuPageDown
Caption = "下页"
End
Begin VB.Menu mnuZoom
Caption = "显示比例"
End
Begin VB.Menu mnuPaperSize
Caption = "选择纸张"
End
Begin VB.Menu mnuOrientation
Caption = "纸张方向"
End
End
Begin VB.Menu mnunull
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "关闭"
End
End
Begin VB.Menu htcl
Caption = "合同处理"
Begin VB.Menu viweth
Caption = "显示合同处理"
End
End
Begin VB.Menu hlp
Caption = "帮助"
Begin VB.Menu about
Caption = "关于"
End
Begin VB.Menu neirong
Caption = "内容"
End
End
Begin VB.Menu quit
Caption = "退出"
Begin VB.Menu exit
Caption = "退出"
End
End
End
Attribute VB_Name = "frmhtk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit 'CODE Manger By BcodeXRose
Dim listindex1
Dim listindex2
Dim bdd As Boolean '判断是否为综合查询
Private Const MARGIN_SIZE = 60 ' 单位为缇
' 列拖拽变量
Dim sj, drq
Private m_bDragOK As Boolean
Private m_iDragCol As Integer
Private xdn As Integer, ydn As Integer
Dim sj1, sj2 As String
Dim le%, istr%
Dim ljsj
Dim ljfz
Dim headle
Dim i, j
Private Sub Command2_Click()
datPrimaryRS.RecordSource = "select hth as 票号,htl as 合同量,yfl as 已发量,wfl as 欠存量,hwm as 货物名,fhr as 发货人,fhdw as 发货单位,dj as 单价,je as 金额,sj as 发货时间,ysfs as 运输方式,jsfs as 结算方式,bz as 备注 from htk where wfl" & Trim(Me.Combo1.Text) & Val(Me.Text3.Text) & " and ysfs not like '%船%' and je>0 order by sj"
datPrimaryRS.refresh
Call js
End Sub
Private Sub Command3_Click()
Dim saqlstr As String
saqlstr = "dj" & Trim(Me.Combo2.Text) & Val(Me.Text4.Text)
datPrimaryRS.RecordSource = "select hth as 票号,htl as 合同量,yfl as 已发量,wfl as 欠存量,hwm as 货物名,fhr as 发货人,fhdw as 发货单位,dj as 单价,je as 金额,sj as 发货时间,ysfs as 运输方式,jsfs as 结算方式,bz as 备注 from htk where " & saqlstr
datPrimaryRS.refresh
'DataGrid1.refresh
Call js
End Sub
Private Sub DTPicker2_Change()
datPrimaryRS.RecordSource = "select hth as 票号,htl as 合同量,yfl as 已发量,wfl as 欠存量,hwm as 货物名,fhr as 发货人,fhdw as 发货单位,dj as 单价,je as 金额,sj as 发货时间,ysfs as 运输方式,jsfs as 结算方式,bz as 备注 from htk where ysfs not like '%船%' and sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and sj <= '" & Format(DTPicker2.Value, "yyyy-mm-dd") & "'and je>0 order by sj"
datPrimaryRS.refresh
'DataGrid1.refresh
Call js
End Sub
Private Sub DTPicker2_Click()
datPrimaryRS.RecordSource = "select hth as 票号,htl as 合同量,yfl as 已发量,wfl as 欠存量,hwm as 货物名,fhr as 发货人,fhdw as 发货单位,dj as 单价,je as 金额,sj as 发货时间,ysfs as 运输方式,jsfs as 结算方式,bz as 备注 from htk where ysfs not like '%船%' and sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and sj <= '" & Format(DTPicker2.Value, "yyyy-mm-dd") & "'and je>0 order by sj"
datPrimaryRS.refresh
Call js
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
' Me.datPrimaryRS.refresh
Me.DTPicker1.Value = Now - 30
Me.DTPicker2.Value = Now
js
Dim llen
Dim ii
' llen = Me.datPrimaryRS.Recordset.RecordCount
' With Me.MSHFlexGrid1
' .Row = 0
'.ColWidth(0) = 800
' .ColWidth(1) = 1000
' For ii = 2 To llen
Me.MSHFlexGrid1.ColWidth(0) = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -