?? frmmingxi.frm
字號:
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "余額"
Caption = "余額"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "余額方向"
Caption = "余額方向"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 870.236
EndProperty
BeginProperty Column01
ColumnWidth = 1094.74
EndProperty
BeginProperty Column02
ColumnWidth = 3195.213
EndProperty
BeginProperty Column03
ColumnWidth = 645.165
EndProperty
BeginProperty Column04
ColumnWidth = 689.953
EndProperty
BeginProperty Column05
ColumnWidth = 540.284
EndProperty
BeginProperty Column06
ColumnWidth = 810.142
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 6
Top = 0
Width = 8295
_ExtentX = 14631
_ExtentY = 1085
ButtonWidth = 1138
ButtonHeight = 926
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "首記錄"
Key = "btnFirst"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "上記錄"
Key = "btnBefore"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "下記錄"
Key = "btnNext"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "尾記錄"
Key = "btnLast"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "btnExit"
ImageIndex = 10
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 7440
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":0457
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":0569
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":067B
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":078D
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":089F
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":09B1
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":0AC3
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":0BD5
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":0CE7
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMingXi.frx":0DF9
Key = ""
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "frmMingXi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub LoadData()
Dim strFilter As String
Dim strCode As String
strCode = "101"
If Len(Trim(Me.txbOne.Text)) = 0 Then
strFilter = "where 科目代碼=" + strCode
Else
strCode = Trim(Me.txbOne.Text)
strFilter = "where 科目代碼=" + strCode
End If
'清空DataGrid
Dim db As New DataBases
Dim rs As Recordset
Set rs = db.RunSelectSQL("SELECT 憑證編號, 會計(jì)期間, 摘要, 借方, 貸方, 余額, 余額方向 FROM 本期明細(xì)賬簿 " + strFilter)
Set Adodc1.Recordset = rs
lblCount.Caption = "記錄數(shù):" + CStr(rs.RecordCount)
If rs.RecordCount = 0 Then
Me.lblCode.Caption = ""
Me.lblName.Caption = ""
Exit Sub
End If
Me.lblCode.Caption = strCode
Dim strSQL As String
strSQL = "select 科目名稱 from 科目表 where 科目代碼=" + strCode
Set rs = db.RunSelectSQL(strSQL)
Me.lblName.Caption = rs(0)
End Sub
Private Sub btnSearch_Click()
LoadData
End Sub
Private Sub form_load()
Dim db As New DataBases
Adodc1.ConnectionString = db.sConn
LoadData
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If StrComp(Button.Key, "btnFirst") = 0 Then
Adodc1.Recordset.MoveFirst
ElseIf StrComp(Button.Key, "btnBefore") = 0 Then
Adodc1.Recordset.MovePrevious
ElseIf StrComp(Button.Key, "btnNext") = 0 Then
Adodc1.Recordset.MoveNext
ElseIf StrComp(Button.Key, "btnLast") = 0 Then
Adodc1.Recordset.MoveLast
ElseIf StrComp(Button.Key, "btnExit") = 0 Then
Hide
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -