📄 sbybill.frm
字号:
Width = 7455
_ExtentX = 13150
_ExtentY = 2778
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 9
BeginProperty Column00
DataField = "ac_id"
Caption = "ac_id"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "billno"
Caption = "billno"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "date"
Caption = "date"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "time"
Caption = "time"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "amt"
Caption = "amt"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "paid"
Caption = "paid"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "balance"
Caption = "balance"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "mode"
Caption = "mode"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "ch_no"
Caption = "ch_no"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1035.213
EndProperty
BeginProperty Column01
ColumnWidth = 915.024
EndProperty
BeginProperty Column02
ColumnWidth = 975.118
EndProperty
BeginProperty Column03
ColumnWidth = 1065.26
EndProperty
BeginProperty Column04
ColumnWidth = 1049.953
EndProperty
BeginProperty Column05
ColumnWidth = 870.236
EndProperty
BeginProperty Column06
ColumnWidth = 1214.929
EndProperty
BeginProperty Column07
ColumnWidth = 1035.213
EndProperty
BeginProperty Column08
ColumnWidth = 1305.071
EndProperty
EndProperty
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Select Date"
Height = 255
Left = 240
TabIndex = 8
Top = 240
Width = 975
End
End
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
Caption = "Select Bill No."
Height = 2880
Left = 105
TabIndex = 0
Top = 135
Visible = 0 'False
Width = 7665
Begin VB.TextBox Text1
Height = 375
Left = 120
TabIndex = 1
Top = 360
Width = 2295
End
Begin VB.ListBox List1
Height = 2205
Left = 3165
TabIndex = 2
Top = 180
Width = 2175
End
End
End
Attribute VB_Name = "SBYBILL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Adodc3.RecordSource = "select * from accounts_p where ac_name = '" + Combo1.Text + "'"
Adodc3.Refresh
Adodc1.RecordSource = "select * from master_pur where ac_id = " + Str(Adodc3.Recordset.Fields("ac_no"))
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Command1_Click()
Dim a As Integer
If Me.Tag = "Billno" Then
Adodc1.RecordSource = "select * from master_pur where billno = " + Text1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount < 1 Then
MsgBox "Invalid Billno Entered.", vbOKOnly + vbExclamation, "Sorry..."
Exit Sub
Else
Call details
End If
End If
If Me.Tag = "Date" Then
DataGrid1.Col = 1
a = Val(DataGrid1.Text)
Text1 = a
Adodc1.RecordSource = "select * from master_pur where billno = " + Text1
Adodc1.Refresh
Call details
End If
If Me.Tag = "Acc" Then
DataGrid1.Col = 1
a = Val(DataGrid1.Text)
Text1 = a
Adodc1.RecordSource = "select * from master_pur where billno = " + Text1
Adodc1.Refresh
Call details
End If
Sedit.Show
Unload Me
End Sub
Private Sub Command2_Click()
Adodc1.RecordSource = "select * from master_pur where date =cdate('" + Str(DTPicker1.Value) + "')"
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Command3_Click()
Form3.Show
Unload Me
End Sub
Private Sub Form_Activate()
If Me.Tag = "Billno" Then
Frame1.Visible = True
While Not Adodc1.Recordset.EOF
List1.AddItem Adodc1.Recordset.Fields("Billno")
Adodc1.Recordset.MoveNext
Wend
End If
If Me.Tag = "Date" Then
Frame2.Visible = True
DataGrid1.Refresh
End If
If Me.Tag = "Acc" Then
Frame3.Visible = True
DataGrid2.Refresh
While Not Adodc3.Recordset.EOF
Combo1.AddItem Adodc3.Recordset.Fields("Ac_name")
Adodc3.Recordset.MoveNext
Wend
End If
End Sub
Private Sub List1_Click()
Text1 = List1.Text
End Sub
Private Sub details()
Sedit.Text1 = Adodc1.Recordset.Fields("ac_id")
Sedit.Text17 = Adodc1.Recordset.Fields("billno")
Sedit.Text2 = Adodc1.Recordset.Fields("date")
Sedit.Text14 = Adodc1.Recordset.Fields("amt")
Sedit.Combo1 = Adodc1.Recordset.Fields("mode")
Sedit.Text20 = Adodc1.Recordset.Fields("ch_no")
Sedit.Text16 = Adodc1.Recordset.Fields("paid")
Sedit.Text11 = Adodc1.Recordset.Fields("balance")
Call clear_temp_trans_pur
MsgBox "Press a Key to Continue."
Adodc1.Refresh
DataGrid1.Refresh
Adodc2.RecordSource = "select * from trans_pur where billno = " + Text1
Adodc2.Refresh
While Adodc2.Recordset.EOF = False
Sedit.Adodc1.Recordset.AddNew
Sedit.Adodc1.Recordset.Fields(0) = Adodc2.Recordset.Fields(0)
Sedit.Adodc1.Recordset.Fields(1) = Adodc2.Recordset.Fields(1)
Sedit.Adodc1.Recordset.Fields(2) = Str(Adodc2.Recordset.Fields(2))
Sedit.Adodc1.Recordset.Fields(3) = (Adodc2.Recordset.Fields(3))
Sedit.Adodc1.Recordset.Fields(4) = (Adodc2.Recordset.Fields(4))
Sedit.Adodc1.Recordset.Fields(5) = (Adodc2.Recordset.Fields(5))
Sedit.Adodc1.Recordset.Fields(6) = Str(Adodc2.Recordset.Fields(6))
Sedit.Adodc1.Recordset.Fields(7) = Adodc2.Recordset.Fields(7)
Sedit.Adodc1.Recordset.Fields(8) = Adodc2.Recordset.Fields(8)
Sedit.Adodc1.Recordset.Update
Adodc2.Recordset.MoveNext
Wend
Adodc1.Refresh
Sedit.DataGrid1.Refresh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -