?? 包裝物管理系統(tǒng)_帳簿統(tǒng)計(jì)_包裝物總帳查詢條件.frm
字號(hào):
VERSION 5.00
Begin VB.Form Cask_LedgerQuery
BorderStyle = 3 'Fixed Dialog
Caption = "包裝物總帳查詢條件"
ClientHeight = 2280
ClientLeft = 45
ClientTop = 330
ClientWidth = 3675
Icon = "包裝物管理系統(tǒng)_帳簿統(tǒng)計(jì)_包裝物總帳查詢條件.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2280
ScaleWidth = 3675
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
Height = 1815
Left = 90
TabIndex = 7
Top = 0
Width = 3495
Begin VB.ComboBox KJYearCombo
Height = 300
Left = 990
Style = 2 'Dropdown List
TabIndex = 0
Top = 210
Width = 2385
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 2
Left = 3060
Picture = "包裝物管理系統(tǒng)_帳簿統(tǒng)計(jì)_包裝物總帳查詢條件.frx":08CA
Style = 1 'Graphical
TabIndex = 10
Top = 1380
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 1
Left = 3060
Picture = "包裝物管理系統(tǒng)_帳簿統(tǒng)計(jì)_包裝物總帳查詢條件.frx":0C54
Style = 1 'Graphical
TabIndex = 9
Top = 990
Visible = 0 'False
Width = 300
End
Begin VB.TextBox LrText
Height = 300
Index = 2
Left = 990
TabIndex = 3
Text = "2"
Top = 1380
Width = 2085
End
Begin VB.TextBox LrText
Height = 300
Index = 1
Left = 990
TabIndex = 2
Text = "1"
Top = 990
Width = 2085
End
Begin VB.TextBox LrText
Height = 300
Index = 0
Left = 990
TabIndex = 1
Text = "0"
Top = 600
Width = 2085
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 0
Left = 3060
Picture = "包裝物管理系統(tǒng)_帳簿統(tǒng)計(jì)_包裝物總帳查詢條件.frx":0FDE
Style = 1 'Graphical
TabIndex = 8
Top = 600
Visible = 0 'False
Width = 300
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "會(huì)計(jì)年度:"
Height = 180
Index = 0
Left = 150
TabIndex = 14
Top = 270
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "倉庫:"
Height = 180
Index = 11
Left = 150
TabIndex = 13
Top = 1020
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "包裝物:"
Height = 180
Index = 7
Left = 150
TabIndex = 12
Top = 660
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "狀態(tài):"
Height = 180
Index = 8
Left = 150
TabIndex = 11
Top = 1410
Width = 450
End
End
Begin VB.CheckBox UnloadCheck
Caption = "卸載窗體"
Height = 615
Left = 6000
TabIndex = 6
Top = 4530
Width = 825
End
Begin VB.CommandButton QdCommand
Caption = "確定(&O)"
Height = 300
Left = 1260
TabIndex = 4
Top = 1890
Width = 1120
End
Begin VB.CommandButton QxCommand
Caption = "取消(&C)"
Height = 300
Left = 2460
TabIndex = 5
Top = 1890
Width = 1120
End
End
Attribute VB_Name = "Cask_LedgerQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'* 模 塊 名 稱 :包裝物流水帳查詢條件
'* 功 能 描 述 :
'* 程序員姓名 :鄒力
'* 最后修改人 :
'* 最后修改時(shí)間:2001/12/11
'* 備 注:程序中所有依實(shí)際情況自定義部分均用[>> <<]括起
'******************************************************************
Dim Tsxx As String '系統(tǒng)信息提示
'以下為固定使用變量(文本框)
Dim Textvar() As Variant '存儲(chǔ)變體型文本框信息
Dim Textboolean() As Boolean '存儲(chǔ)布爾型文本框信息
Dim Textint() As Integer '存儲(chǔ)整型文本框信息
Dim Textstr() As String '存儲(chǔ)字符型文本框信息
Dim Max_Text_Index As Integer '最大錄入文本框索引值
Dim TextGroupCode As String '文本框錄入分組編碼
Dim TextValiLock As Boolean '文本框失去焦點(diǎn)是否進(jìn)行有效性控制判斷
Dim TextValiJudgeLock() As Boolean '文本框錄入有效性判斷控制鎖
Dim CurTextIndex As Integer '當(dāng)前文本框索引值
Dim TextChangeLock As Boolean '文本框內(nèi)容變換控制鎖
Dim Bln_Cancel As Boolean '取消按鈕信息傳遞
Private Sub Form_KeyPress(KeyAscii As Integer) '控 制 焦 點(diǎn) 轉(zhuǎn) 移(Fixed)
Dim jdzygs As Integer '控件焦點(diǎn)轉(zhuǎn)移個(gè)數(shù)
jdzygs = 30
Select Case KeyAscii
Case vbKeyReturn
If Kjjdzy(jdzygs) Then
KeyAscii = 0
End If
Case 39 '屏蔽"'"
KeyAscii = 0
End Select
End Sub
Private Sub Form_Load()
Dim ST_R As ADODB.Recordset
'以下為文本框處理程序(Fixed)
TextGroupCode = "Cask_LedgerQuery"
Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr()) '讀入文本框錄入信息
Call Wbkcsh
'[>>初始化查詢條件默認(rèn)值
Set ST_R = Cw_DataEnvi.DataConnect.Execute("select DISTINCT KJYear from Cask_V_Ledger order by KJYear")
If Not ST_R.EOF Then
For i = 1 To ST_R.RecordCount
KjyearCombo.AddItem Trim(ST_R!KjYear)
ST_R.MoveNext
Next i
Else
KjyearCombo.AddItem Trim(Xtyear)
End If
KjyearCombo.Text = Trim(Xtyear)
'<<]
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '查詢條件窗體卸載
'查詢條件窗體卸載時(shí)判斷是否因?yàn)榻Y(jié)果窗體卸載,如是則卸載,否則隱藏
If UnloadCheck.Value <> 1 Then
Cancel = 1
Me.Hide
End If
End Sub
Private Sub QdCommand_Click() '確 定
'錄入條件有效性判斷(Fixed)
If Not Lrtjyxxpd Then
Exit Sub
End If
Me.Hide
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -