📄 frmphywin.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmPHYWin
Caption = "喷绘业务情况输入"
ClientHeight = 6315
ClientLeft = 60
ClientTop = 345
ClientWidth = 10200
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6315
ScaleWidth = 10200
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
Height = 5475
Left = 30
TabIndex = 1
Top = 750
Width = 10065
Begin VB.ComboBox Combo1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4260
TabIndex = 4
Top = 3960
Visible = 0 'False
Width = 1185
End
Begin MSMask.MaskEdBox text2
Height = 285
Left = 2430
TabIndex = 3
Top = 4530
Visible = 0 'False
Width = 1005
_ExtentX = 1773
_ExtentY = 503
_Version = 393216
Appearance = 0
PromptChar = "_"
End
Begin MSFlexGridLib.MSFlexGrid MSFlex1
Height = 4695
Left = 150
TabIndex = 2
Top = 660
Width = 9795
_ExtentX = 17277
_ExtentY = 8281
_Version = 393216
Cols = 12
FixedCols = 0
BackColorFixed = 12632256
AllowUserResizing= 1
Appearance = 0
End
Begin MSComCtl2.DTPicker date1
Height = 285
Left = 840
TabIndex = 15
Top = 240
Width = 1785
_ExtentX = 3149
_ExtentY = 503
_Version = 393216
Format = 24444928
CurrentDate = 36529
End
Begin VB.Label Label1
Caption = "日 期:"
Height = 255
Index = 0
Left = 180
TabIndex = 14
Top = 300
Width = 705
End
End
Begin VB.Frame Frame1
Height = 705
Left = 30
TabIndex = 0
Top = 0
Width = 10065
Begin VB.PictureBox Picture9
BorderStyle = 0 'None
Height = 525
Left = 4080
Picture = "frmPHYWin.frx":0000
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 13
Top = 120
Width = 525
End
Begin VB.PictureBox Picture8
BorderStyle = 0 'None
Height = 525
Left = 1080
Picture = "frmPHYWin.frx":1302
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 12
Top = 120
Width = 525
End
Begin VB.PictureBox Picture7
BorderStyle = 0 'None
Height = 525
Left = 7770
Picture = "frmPHYWin.frx":2604
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 11
Top = 120
Width = 525
End
Begin VB.PictureBox Picture6
BorderStyle = 0 'None
Height = 525
Left = 4830
Picture = "frmPHYWin.frx":3906
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 10
Top = 120
Width = 525
End
Begin VB.PictureBox Picture5
BorderStyle = 0 'None
Height = 525
Left = 3300
Picture = "frmPHYWin.frx":4C08
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 9
Top = 120
Width = 525
End
Begin VB.PictureBox Picture4
BorderStyle = 0 'None
Height = 525
Left = 2550
Picture = "frmPHYWin.frx":4FAA
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 8
Top = 120
Width = 525
End
Begin VB.PictureBox Picture3
BorderStyle = 0 'None
Height = 525
Left = 1830
Picture = "frmPHYWin.frx":534C
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 7
Top = 120
Width = 525
End
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
Height = 525
Left = 360
Picture = "frmPHYWin.frx":664E
ScaleHeight = 525
ScaleWidth = 525
TabIndex = 6
Top = 120
Width = 525
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 495
Left = 120
Picture = "frmPHYWin.frx":69F0
ScaleHeight = 495
ScaleWidth = 105
TabIndex = 5
Top = 150
Width = 105
End
End
End
Attribute VB_Name = "frmPHYWin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim env As rdoEnvironment
Dim cn As rdoConnection
Dim result As rdoResultset
Dim result1 As rdoResultset
Dim d_conn, sql As String
Dim hrowcount, hrowcount1 As Integer
Dim jframe As New dframe
Private Sub Combo1_KeyPress(KeyAscii As Integer)
' If KeyAscii = 13 Then
' If MSFlex1.Col = 13 Then
' MSFlex1.Rows = MSFlex1.Rows + 1
' End If
' Combo1.Visible = False
' End If
End Sub
Private Sub Form_Load()
Set env = rdoEnvironments(0)
env.CursorDriver = rdUseOdbc
d_conn = "uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=phdatabase;"
Set cn = env.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:=d_conn)
Move Screen.width / 2 - frmPHYWin.width / 2, Screen.height / 2 - frmPHYWin.height / 2
'''''''列出标题'''''
MSFlex1.FormatString = "^合同号|^文件序列|^画面规格(宽*高)|^面积(平方米)|^单 价 |^ 客 户 名 称 |^应收款额|^已收款额|^未收款额|^业务员|^签单人|^欠款审核"
MSFlex1.ROWHEIGHT(1) = 300
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture7.Cls
Picture3.Cls
Picture4.Cls
Picture5.Cls
Picture6.Cls
Picture2.Cls
Picture8.Cls
Picture9.Cls
End Sub
Private Sub MSFlex1_Click()
' If MSFlex1.Col = 11 Or MSFlex1.Col = 12 Or MSFlex1.Col = 13 Then
' text2.Visible = False
' Combo1.Visible = True
' Combo1.Top = MSFlex1.CellTop + MSFlex1.Top
' Combo1.Left = MSFlex1.CellLeft + 120
' Combo1.width = MSFlex1.CellWidth
' 'Combo1.height = MSFlex1.CellHeight
' Combo1.SetFocus
' Combo1.Text = MSFlex1.Text
' 'Combo1.Visible = False
' Else
' text2.Visible = True
' text2.Top = MSFlex1.CellTop + MSFlex1.Top
' text2.Left = MSFlex1.CellLeft + 120
' text2.width = MSFlex1.CellWidth
' text2.height = MSFlex1.CellHeight
' text2.SetFocus
' text2.Text = MSFlex1.Text
' Combo1.Visible = False
' End If
'''''''
End Sub
Private Sub MSFlex1_DblClick()
sql = "select * from YWtable where 合同号='" & Trim(MSFlex1.TextArray(MSFlex1.Row * MSFlex1.Cols)) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
YWDeleFlag = 1
YWsearchTrue(0) = Trim(result("合同号"))
YWsearchTrue(1) = Trim(result("文件序列"))
YWsearchTrue(2) = Trim(result("画面规格"))
YWsearchTrue(3) = Trim(result("面积"))
YWsearchTrue(4) = Trim(result("单价"))
YWsearchTrue(5) = Trim(result("客户名称"))
YWsearchTrue(6) = Trim(result(""))
YWsearchTrue(7) = Trim(result("合同号"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -