Dim cn As New adodb.Connection
Dim cn1 As New adodb.Connection
Dim cn2 As New adodb.Connection
Dim cn3 As New adodb.Connection
Dim cn4 As New adodb.Connection
Dim cn5 As New adodb.Connection
Dim cn6 As New adodb.Connection
Dim cn7 As New adodb.Connection
Dim rsitem As New adodb.Recordset
Dim rsitem1 As New adodb.Recordset
Dim rsitem2 As New adodb.Recordset
Dim rsitem3 As New adodb.Recordset
Dim rsitem4 As New adodb.Recordset
Dim rsitem5 As New adodb.Recordset
Dim rsitem6 As New adodb.Recordset
Dim rsitem7 As New adodb.Recordset
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SETITEMHEIGHT = &H153
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXVSCROLL = 2
Dim m_bFilterEnabled As Boolean
Dim m_lRowHeight As Long
Dim m_lComboHeight As Long
Dim m_lScrollWidth As Long
Private daoDB36 As Database
Private rs As DAO.Recordset
Dim sPath As String
Public Function refreshall()
'ÊÍÏíË ÇáãÌãæÚ
Dim i As Integer
On Error Resume Next
Data1.Recordset.MoveFirst
Text_sum.Text = CDbl(0)
For i = 1 To Data1.Recordset.RecordCount
Text_sum.Text = CDbl(Text_sum.Text) + CDbl(Text3Data1.Text)
Data1.Recordset.MoveNext
Next
End Function
Public Function RefreshTDiccountTotal()
'ÊÍÏíË ÇáãÌãæÚ
Dim i As Integer
On Error Resume Next
Data3.Recordset.MoveFirst
Text_sumDisscount.Text = CDbl(0)
For i = 1 To Data3.Recordset.RecordCount
Text_sumDisscount.Text = CDbl(Text_sumDisscount.Text) + CDbl(TDiccountTotal.Text)
Data3.Recordset.MoveNext
Next
End Function
Private Sub PrintInvoice_Click()
On Error Resume Next
CR1.ReportSource = 0
CR1.ReportFileName = App.Path & ("\invoiceno.rpt")
CR1.Action = 1
End Sub
Private Sub Command1_Click()
'Data1.RecordSource = "select * from QInvoice where date between #" & DTPicker1.Value & " # and #" & DTPicker2.Value & "# and Date >= #" & DTPicker1.Value & "# and Date <= #" & DTPicker2.Value & "# "
'Data1.Refresh
'Data1.Recordset.MoveLast
End Sub
Private Sub CMDSearch_Click()
On Error Resume Next
If CClientName.Text = "" Then CClientName.Text = "*"
DTPicker1.Value = Format(DTPicker1, "dd/mm/yyyy")
DTPicker2.Value = Format(DTPicker2, "dd/mm/yyyy")
TDTPicker1.Text = DTPicker1.Value
TDTPicker2.Text = DTPicker2.Value
'TDTPicker1.Text = "13/10/2016"
'TDTPicker2.Text = "10/13/2016"
'TDTPicker1.Text = Format(TDTPicker1, "mm/dd/yyyy")
TDTPicker2.Text = Format(TDTPicker2, "dd/mm/yyyy")
'Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & TDTPicker1.Text & "# and #" & TDTPicker2.Text & "# and Date >= #" & TDTPicker1.Text & "# and Date <= #" & TDTPicker2.Text & "# "
'Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# and #" & Format$(DTPicker2.Value, "dd/mm/yyyy") & "# and Date >= #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# and Date <= #" & Format$(DTPicker2.Value, "dd/mm/yyyy") & "# "
Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between '" & Format$(TDTPicker1.Text, "dd/MMM/yyyy") & "' and '" & Format$(TDTPicker2.Text, "dd/MMM/yyyy") & "'"
Data1.Refresh
Data1.Recordset.MoveLast
Data3.RecordSource = "select * from QCreditors where ClientName like '" & CClientName.Text & "*" & "' and Date Between '" & Format$(TDTPicker1.Text, "dd/MMM/yyyy") & "' and '" & Format$(TDTPicker2.Text, "dd/MMM/yyyy") & "'"
Data3.Refresh
Data3.Recordset.MoveLast
Form_Activate
Me.Textsum
Me.refreshall
Me.RefreshTDiccountTotal
TDifF.Text = Val(TTotalòSellingPrice.Text) - Val(TTotalCostPrice.Text) - Val(TDisccount.Text)
End Sub
Public Sub Textsum()
On Error Resume Next
If CClientName.Text = "" Then CClientName.Text = "*"
DTPicker1.Value = Format(DTPicker1, "dd/mm/yyyy")
DTPicker2.Value = Format(DTPicker2, "dd/mm/yyyy")
TDTPicker1.Text = DTPicker1.Value
TDTPicker2.Text = DTPicker2.Value
TDTPicker1.Text = Format(TDTPicker1, "dd/mm/yyyy")
TDTPicker2.Text = Format(TDTPicker2, "dd/mm/yyyy")
'Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# and Date >= #" & DTPicker1.Value & "# and Date <= #" & DTPicker2.Value & "# "
' Data1.Refresh
' Data1.Recordset.MoveFirst
Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & TDTPicker1.Text & "# and #" & TDTPicker2.Text & "# and Date >= #" & TDTPicker1.Text & "# and Date <= #" & TDTPicker2.Text & "# "
Data1.Refresh
Data1.Recordset.MoveLast
Data4.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & TDTPicker1.Text & "# and #" & TDTPicker2.Text & "# and Date >= #" & TDTPicker1.Text & "# and Date <= #" & TDTPicker2.Text & "# "
Data4.Refresh
Data4.Recordset.MoveFirst
Text_sum.Text = 0
TTotalCostPrice.Text = 0
TTotalòSellingPrice.Text = 0
' Data4.Recordset.MoveFirst
1
If Not Data4.Recordset.EOF Then
On Error Resume Next
Text_sum.Text = CDbl(Text_sum.Text) + CDbl(Text3.Text)
TTotalCostPrice.Text = CDbl(TTotalCostPrice.Text) + CDbl(TCostPrice.Text)
TTotalòSellingPrice.Text = CDbl(TTotalòSellingPrice.Text) + CDbl(TotalSumSellingPrice.Text)
Data4.Recordset.MoveNext
GoTo 1
End If
End Sub
Private Sub DTPicker1_Change()
On Error Resume Next
DTPicker1.Value = Format(DTPicker1.Value, "dd/MMM/yyyy")
TDTPicker1.Text = DTPicker1.Value
End Sub
Private Sub DTPicker2_Change()
On Error Resume Next
TDTPicker2.Text = DTPicker2.Value
End Sub
Private Sub Exit_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub Print_Click()
On Error Resume Next
CR1.ReportSource = 0
CR1.ReportFileName = App.Path & ("\invoicesearchbyname.rpt")
CR1.Action = 1
End Sub
Private Sub SearchItemName_Change()
On Error Resume Next
Data2.RecordSource = " select * from QNewItem where ItemName = '" & SearchItemName.Text & "' order by ID"
Data2.Refresh
Me.refreshall
Me.RefreshTDiccountTotal
End Sub
Private Sub Command11_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub Form_Resize()
'On Error Resume Next
DBGrid1.Width = Val(Screen.Width) - 290
DBGrid1.Height = Val(Screen.Height) - 2200
'Me.refreshall
'Me.RefreshTDiccountTotal
End Sub
Private Sub Form_Load()
On Error Resume Next
DBGrid1.Width = Val(Screen.Width) - 290
DBGrid1.Height = Val(Screen.Height) - 2200
' DTPicker1.Value = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
DTPicker2.Value = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
' DTPicker1.Value = Format(DTPicker1, "dd/mm/yyyy")
DTPicker2.Value = Format(DTPicker2, "dd/mm/yyyy")
DTPicker1.Value = Month(Now) & "/" & Day(Now) & "/" & Year(Now)
' DTPicker2.Value = Month(Now) & "/" & Day(Now) & "/" & Year(Now)
DTPicker1.Value = Format(DTPicker1, "dd/mm/yyyy")
' DTPicker2.Value = Format(DTPicker2, "mm/dd/yyyy")
MB1.Text = Time()
TInvoice.Text = Format(TInvoice.Text, "00000000")
TClientID.Text = Format(TClientID.Text, "00000000")
TItemID.Text = Format(TClientID.Text, "00000000")
TCompanyID.Text = Format(TCompanyID.Text, "00000000")
TMowaredID.Text = Format(TMowaredID.Text, "00000000")
TUnitPrice.Text = 0
TUnitPrice.Text = Format(TUnitPrice.Text, "00.00")
TTransportPrice.Text = 0
TTransportPrice.Text = Format(TTransportPrice.Text, "00.00")
TMiscellaneousPrice.Text = 0
TMiscellaneousPrice.Text = Format(TMiscellaneousPrice.Text, "00.00")
TActualQuantity.Text = 0
'sPath = _
'"Sys.sys"
'Set daoDB36 = DBEngine(0).OpenDatabase(sPath)
'Set rs = daoDB36.OpenRecordset("QinvoiceTemp")
'Set Data1.Recordset = rs
Data1.RecordSource = " select * from QinvoiceTemp where InvoiceNo = 1111111111111+0+23006+0 order by ID "
Data1.Refresh
''************************************************************************
''Company Name ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
' If rsitem2.State = 1 Then rsitem2.Close
' If cn3.State = 0 Then
' cn3.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
' End If
' rsitem2.Open "select * from CompanyINFO ", cn3, adOpenDynamic, adLockOptimistic
'1:
' If Not rsitem2.EOF Then
' CCompanyName.AddItem rsitem2!CompanyName
' rsitem2.MoveNext
' GoTo 1
' End If
''************************************************************************
'Client Name ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
' If rsitem3.State = 1 Then rsitem3.Close
' If cn4.State = 0 Then
' cn4.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
' End If
'' rsitem3.Open "select * from ClientINFO ", cn4, adOpenDynamic, adLockOptimistic
' rsitem3.Open "select distinct(ClientName)from Invoice ", cn4, adOpenDynamic, adLockOptimistic
'2:
' If Not rsitem3.EOF Then
' CClientName.AddItem rsitem3!ClientName
' rsitem3.MoveNext
' GoTo 2
' End If
''************************************************************************
''Type ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
' If rsitem4.State = 1 Then rsitem4.Close
' If cn5.State = 0 Then
' cn5.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
' End If
' rsitem4.Open "select * from Type ", cn5, adOpenDynamic, adLockOptimistic
'3:
' If Not rsitem4.EOF Then
' CType.AddItem rsitem4!TypeName
' rsitem4.MoveNext
' GoTo 3
' End If
''************************************************************************
''Mowared Name ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
' If rsitem5.State = 1 Then rsitem5.Close
' If cn6.State = 0 Then
' cn6.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
' End If
' rsitem5.Open "select * from InvoiceType ", cn6, adOpenDynamic, adLockOptimistic
'4:
' If Not rsitem5.EOF Then
' CCashType.AddItem rsitem5!InvType
' rsitem5.MoveNext
' GoTo 4
' End If
''************************************************************************
End Sub
Private Sub Form_Activate()
On Error Resume Next
With DBGrid1
.Columns(0).Caption = "ID"
.Columns(0).Visible = False
'---------------------------------------------------------------------------
.Columns(1).Caption = "ÑÞã ÇáÝÇÊæÑÉ"
.Columns(1).Visible = False
.Columns(1).NumberFormat = "00000000"
'---------------------------------------------------------------------------
.Columns(2).Caption = "ÊÇÑíÎ ÇáÝÇÊæÑÉ"
' .Columns(2).Visible = False
'---------------------------------------------------------------------------
.Columns(3).Caption = "ßæÏ ÇáÚãíá"
.Columns(3).Visible = False
.Columns(3).NumberFormat = "00000000"
'---------------------------------------------------------------------------
.Columns(4).Caption = "ÇÓã ÇáÚãíá"
.Columns(4).Visible = False
'---------------------------------------------------------------------------
.Columns(5).Caption = "ßæÏ ÇáÕäÝ"
.Columns(5).NumberFormat = "00000000"
.Columns(5).Visible = False
'---------------------------------------------------------------------------
.Columns(6).Caption = "ÇÓã ÇáÕäÝ"
'---------------------------------------------------------------------------
.Columns(7).Caption = "ÇáãÓÇÍÉ ÇáãÑÈÚÉ"
'---------------------------------------------------------------------------
.Columns(8).Caption = "ÇáÑÕíÏ ÈÇáßÑÊæäÉ"
.Columns(8).Visible = False
'---------------------------------------------------------------------------
.Columns(9).Caption = "Çáßãíå"
'---------------------------------------------------------------------------
.Columns(10).Caption = "ÓÚÑ ÇáÊßáÝÉ"
.Columns(10).Visible = False
'---------------------------------------------------------------------------
.Columns(11).Caption = "ÓÚÑ ÇáÈíÚ"
'---------------------------------------------------------------------------
.Columns(12).Caption = "ÇáÎÕã"
' .Columns(12).Visible = False
'---------------------------------------------------------------------------
.Columns(13).Caption = "ÇáÇÌãÇáì"
'---------------------------------------------------------------------------
.Columns(14).Caption = "ÇáÑÕíÏ ÇáãäÕÑÝ ÈÇáßÑÊæäå"
' .Columns(13).Visible = False
'---------------------------------------------------------------------------
.Columns(15).Caption = "æÞÊ ÇáÈíÚ"
.Columns(15).Visible = False
'---------------------------------------------------------------------------
.Columns(16).Caption = "ÇáãÓÊÎÏã"
.Columns(16).Visible = False
'---------------------------------------------------------------------------
.Columns(17).Caption = "ÍÇáå ÇáÏÝÚ"
.Columns(17).Visible = False
'---------------------------------------------------------------------------
.Columns(18).Caption = "ãáÇÍÙÇÊ"
.Columns(18).Visible = False
'---------------------------------------------------------------------------
.Columns(19).Caption = "ÇÌãÇáì ÓÚÑ ÇáÊßáÝÉ ÈÇáãÊÑ"
.Columns(19).Visible = False
'---------------------------------------------------------------------------
.Columns(20).Caption = "ÇÌãÇáì ÓÚÑ ÇáÈíÚ ÈÇáãÊÑ"
.Columns(20).Visible = False
'---------------------------------------------------------------------------
.Columns(21).Caption = "ÇáäæÚ"
.Columns(21).Visible = False
'---------------------------------------------------------------------------
.Columns(0).Width = 0
.Columns(1).Width = 0 '"ÑÞã ÇáÝÇÊæÑÉ"
.Columns(2).Width = 1200 ' "ÊÇÑíÎ ÇáÝÇÊæÑÉ"
.Columns(3).Width = 0 ' "ßæÏ ÇáÚãíá"
.Columns(4).Width = 0 ' "ÇÓã ÇáÚãíá"
.Columns(5).Width = 0 ' "ßæÏ ÇáÕäÝ"
.Columns(6).Width = 5900 ' "ÇÓã ÇáÕäÝ"
.Columns(7).Width = 1200 ' "ÇáãÓÇÍÉ ÇáãÑÈÚå"
.Columns(8).Width = 1200 ' "ÇáÑÕíÏ ÈÇáßÑÊæäÉ"
.Columns(9).Width = 1200 ' "Çáßãíå"
.Columns(10).Width = 1200 ' "ÓÚÑ ÇáÊßáÝÉ"
.Columns(11).Width = 1200 ' "ÓÚÑ ÇáÈíÚ"
.Columns(12).Width = 700 ' "ÇáÎÕã"
.Columns(13).Width = 1500 ' "ÇáÇÌãÇáì"
.Columns(14).Width = 1500 ' "ÇáÑÕíÏ ÇáãäÕÑÝ ÈÇáßÑÊæäå"
.Columns(15).Width = 0 ' "æÞÊ ÇáÈíÚ"
.Columns(16).Width = 0 ' "ÇáãÓÊÎÏã"
.Columns(17).Width = 0 ' "ÍÇáå ÇáÏÝÚ"
.Columns(18).Width = 3000 ' "ãáÇÍÙÇÊ"
'---------------------------------------------------------------------------
.Columns(1).Alignment = dbgCenter '"ÑÞã ÇáÝÇÊæÑÉ"
.Columns(2).Alignment = dbgCenter ' "ÊÇÑíÎ ÇáÝÇÊæÑÉ"
.Columns(3).Alignment = dbgCenter ' "ßæÏ ÇáÚãíá"
.Columns(4).Alignment = dbgRight ' "ÇÓã ÇáÚãíá"
.Columns(5).Alignment = dbgCenter ' "ßæÏ ÇáÕäÝ"
.Columns(6).Alignment = dbgRight ' "ÇÓã ÇáÕäÝ"
.Columns(7).Alignment = dbgCenter ' "ÇáãÓÇÍÉ ÇáãÑÈÚå"
.Columns(8).Alignment = dbgCenter ' "ÇáÑÕíÏ ÈÇáßÑÊæäÉ"
.Columns(9).Alignment = dbgCenter ' "Çáßãíå"
.Columns(10).Alignment = dbgCenter ' "ÓÚÑ ÇáÊßáÝÉ"
.Columns(11).Alignment = dbgCenter ' "ÓÚÑ ÇáÈíÚ"
.Columns(12).Alignment = dbgCenter ' "ÇáÎÕã"
.Columns(13).Alignment = dbgCenter ' "ÇáÇÌãÇáì"
.Columns(14).Alignment = dbgCenter ' "ÇáÑÕíÏ ÇáãäÕÑÝ ÈÇáßÑÊæäå"
.Columns(15).Alignment = dbgCenter ' "æÞÊ ÇáÈíÚ"
.Columns(16).Alignment = dbgCenter ' "ÇáãÓÊÎÏã"
.Columns(17).Alignment = dbgCenter ' "ÍÇáå ÇáÏÝÚ"
.Columns(18).Alignment = dbgRight ' "ãáÇÍÙÇÊ"
End With
On Error Resume Next
With DBGrid2
.Columns(0).Caption = "ID"
.Columns(0).Visible = False
.Columns(0).AllowRowSizing = False
'---------------------------------------------------------
.Columns(1).Caption = "ßæÏ ÇáãÕäÚ"
.Columns(1).Visible = False
.Columns(1).AllowRowSizing = False
.Columns(1).NumberFormat = "00000000"
'---------------------------------------------------------
.Columns(2).Caption = "ÇÓã ÇáãÕäÚ"
.Columns(2).Visible = False
.Columns(2).AllowRowSizing = False
'---------------------------------------------------------
.Columns(3).Caption = "ßæÏ ÇáÕäÝ"
' .Columns(3).Visible = False
' .Columns(3).AllowRowSizing = False
'---------------------------------------------------------
.Columns(4).Caption = "ÇÓã ÇáÕäÝ"
'---------------------------------------------------------
.Columns(5).Caption = "ÇáäæÚ"
'---------------------------------------------------------
.Columns(6).Caption = "ÇáãÞÇÓ"
'---------------------------------------------------------
.Columns(7).Caption = "ßæÏ ÇáãæÑÏ"
.Columns(7).Visible = False
'---------------------------------------------------------
.Columns(8).Caption = "ÇÓã ÇáãæÑÏ"
.Columns(8).Visible = False
.Columns(8).AllowRowSizing = False
'---------------------------------------------------------
.Columns(9).Caption = "ÓÚÑ ÇáãÕäÚ"
'---------------------------------------------------------
.Columns(10).Caption = "ãÕÇÑíÝ äÞá"
'---------------------------------------------------------
.Columns(11).Caption = "ãÊÝÑÞÇÊ"
'---------------------------------------------------------
.Columns(12).Caption = "ÓÚÑ ÇáÈíÚ ááãÓÊåáß"
'---------------------------------------------------------
.Columns(13).Caption = "ÇáÑÕíÏ ÇáÝÚáì"
'---------------------------------------------------------
.Columns(14).Caption = "ÇáÑÕíÏ ÇáãäÕÑÝ"
' .Columns(14).Visible = False
' .Columns(14).AllowRowSizing = False
'---------------------------------------------------------
.Columns(15).Caption = "ÇáÑÕíÏ ÇáãÊÈÞì"
'---------------------------------------------------------
.Columns(16).Caption = "ãáÇÍÙÇÊ"
'---------------------------------------------------------
.Columns(0).Width = 0
.Columns(1).Width = 1000 '"ßæÏ ÇáãÕäÚ"
.Columns(2).Width = 2500 ' "ÇÓã ÇáãÕäÚ"
.Columns(3).Width = 1500 ' "ßæÏ ÇáÕäÝ"
.Columns(4).Width = 3000 ' "ÇÓã ÇáÕäÝ"
.Columns(5).Width = 1500 ' "ÇáäæÚ"
.Columns(6).Width = 1300 ' "ÇáãÞÇÓ"
.Columns(7).Width = 900 ' "ßæÏ ÇáãæÑÏ"
.Columns(8).Width = 2500 ' "ÇÓã ÇáãæÑÏ"
.Columns(9).Width = 1000 ' "ÓÚÑ ÇáãÕäÚ"
.Columns(10).Width = 900 ' "ãÕÇÑíÝ äÞá"
.Columns(11).Width = 900 ' "ãÊÝÑÞÇÊ"
.Columns(12).Width = 900 ' "ÓÚÑ ÇáÈíÚ ááãÓÊåáß"
.Columns(13).Width = 900 ' "ÇáÑÕíÏ ÇáÝÚáì"
.Columns(14).Width = 900 ' "ÇáÑÕíÏ ÇáãäÕÑÝ"
.Columns(15).Width = 900 ' "ÇáÑÕíÏ ÇáãÊÈÞì"
.Columns(16).Width = 2000 ' "ãáÇÍÙÇÊ"
.Columns(1).Alignment = dbgCenter '"ßæÏ ÇáãÕäÚ"
.Columns(2).Alignment = dbgRight ' "ÇÓã ÇáãÕäÚ"
.Columns(3).Alignment = dbgCenter ' "ßæÏ ÇáÕäÝ"
.Columns(4).Alignment = dbgRight ' "ÇÓã ÇáÕäÝ"
.Columns(5).Alignment = dbgRight ' "ÇáäæÚ"
.Columns(6).Alignment = dbgCenter ' "ÇáãÞÇÓ"
.Columns(7).Alignment = dbgCenter ' "ßæÏ ÇáãæÑÏ"
.Columns(8).Alignment = dbgRight ' "ÇÓã ÇáãæÑÏ"
.Columns(9).Alignment = dbgCenter ' "ÓÚÑ ÇáãÕäÚ"
.Columns(10).Alignment = dbgCenter ' "ãÕÇÑíÝ äÞá"
.Columns(11).Alignment = dbgCenter ' "ãÊÝÑÞÇÊ"
.Columns(12).Alignment = dbgCenter ' "ÓÚÑ ÇáÈíÚ ááãÓÊåáß"
.Columns(13).Alignment = dbgCenter ' "ÇáÑÕíÏ ÇáÝÚáì"
.Columns(14).Alignment = dbgCenter ' "ÇáÑÕíÏ ÇáãäÕÑÝ"
.Columns(15).Alignment = dbgCenter ' "ÇáÑÕíÏ ÇáãÊÈÞì"
.Columns(16).Alignment = dbgRight ' "ãáÇÍÙÇÊ"
End With
'Me.refreshall
End Sub
Private Sub TDisccount_KeyPress(KeyAscii As Integer)
On Error Resume Next
On Error Resume Next
Dim s As String
s = "1234567890." & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub Text_sum_Change()
On Error Resume Next
TTotal.Text = Val(Text_sum.Text) - Val(Text_sumDisscount.Text)
'Me.refreshall
'Me.RefreshTDiccountTotal
End Sub
Private Sub Text_sumDisscount_Change()
TTotal.Text = Val(Text_sum.Text) - Val(Text_sumDisscount.Text)
'Me.refreshall
'Me.RefreshTDiccountTotal
End Sub
Private Sub TGiven_Change()
On Error Resume Next
TRemaining.Text = Val(Text_sum.Text) - Val(TGiven.Text) - Val(TDisccount.Text)
Me.refreshall
Me.RefreshTDiccountTotal
End Sub
Private Sub TGiven_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim s As String
s = "1234567890." & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub TOutgoing_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim s As String
s = "1234567890." & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub