home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 Special
/
chip-cd_2001_spec_05.zip
/
spec_05
/
apps
/
crystal
/
disk18
/
Xvb371._
/
Xvb371.
Wrap
Text File
|
1999-08-23
|
22KB
|
714 lines
VERSION 5.00
Begin VB.Form frmFinancials
BorderStyle = 3 'Fixed Dialog
Caption = "Financials"
ClientHeight = 5385
ClientLeft = 345
ClientTop = 840
ClientWidth = 8010
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5385
ScaleWidth = 8010
ShowInTaskbar = 0 'False
Tag = "Financials"
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "&Close"
Default = -1 'True
Height = 300
Left = 5520
TabIndex = 57
Top = 4635
Width = 975
End
Begin VB.CommandButton cmdGrid
Caption = "&Grid"
Height = 300
Left = 4440
TabIndex = 56
Tag = "&Grid"
Top = 4635
Width = 975
End
Begin VB.CommandButton cmdUpdate
Caption = "&Update"
Height = 300
Left = 3360
TabIndex = 55
Tag = "&Update"
Top = 4635
Width = 975
End
Begin VB.CommandButton cmdRefresh
Caption = "&Refresh"
Height = 300
Left = 2280
TabIndex = 54
Tag = "&Refresh"
Top = 4635
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "&Delete"
Height = 300
Left = 1200
TabIndex = 53
Tag = "&Delete"
Top = 4635
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "&Add"
Height = 300
Left = 120
TabIndex = 52
Tag = "&Add"
Top = 4635
Width = 975
End
Begin VB.Data Data1
Align = 2 'Align Bottom
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Financials"
Top = 5040
Width = 8010
End
Begin VB.TextBox txtFields
DataField = "Taxes"
DataSource = "Data1"
Height = 285
Index = 25
Left = 5985
TabIndex = 51
Top = 3870
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Other Income Expenses"
DataSource = "Data1"
Height = 285
Index = 24
Left = 5985
TabIndex = 49
Top = 3555
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Interest Expenses"
DataSource = "Data1"
Height = 285
Index = 23
Left = 5985
TabIndex = 47
Top = 3225
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Depreciation"
DataSource = "Data1"
Height = 285
Index = 22
Left = 5985
TabIndex = 45
Top = 2910
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Selling/Admin/ General Expenses"
DataSource = "Data1"
Height = 285
Index = 21
Left = 5985
TabIndex = 43
Top = 2595
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "COGS"
DataSource = "Data1"
Height = 285
Index = 20
Left = 5985
TabIndex = 41
Top = 2265
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Net Sales"
DataSource = "Data1"
Height = 285
Index = 19
Left = 5985
TabIndex = 39
Top = 1950
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Retained Earnings"
DataSource = "Data1"
Height = 285
Index = 18
Left = 5985
TabIndex = 37
Top = 1635
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Common Stock"
DataSource = "Data1"
Height = 285
Index = 17
Left = 5985
TabIndex = 35
Top = 1305
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Preferred Stock"
DataSource = "Data1"
Height = 285
Index = 16
Left = 5985
TabIndex = 33
Top = 990
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Deferred Income Taxes"
DataSource = "Data1"
Height = 285
Index = 15
Left = 5985
TabIndex = 31
Top = 675
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Notes Payable"
DataSource = "Data1"
Height = 285
Index = 14
Left = 5985
TabIndex = 29
Top = 345
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Accrued Income Taxes"
DataSource = "Data1"
Height = 285
Index = 13
Left = 2040
TabIndex = 27
Top = 4200
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Accrued Liabilities"
DataSource = "Data1"
Height = 285
Index = 12
Left = 2040
TabIndex = 25
Top = 3880
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Accounts Payable"
DataSource = "Data1"
Height = 285
Index = 11
Left = 2040
TabIndex = 23
Top = 3560
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Other Assets"
DataSource = "Data1"
Height = 285
Index = 10
Left = 2040
TabIndex = 21
Top = 3240
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Accumulated Depreciation"
DataSource = "Data1"
Height = 285
Index = 9
Left = 2040
TabIndex = 19
Top = 2920
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Machinery etc"
DataSource = "Data1"
Height = 285
Index = 8
Left = 2040
TabIndex = 17
Top = 2600
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Buildings"
DataSource = "Data1"
Height = 285
Index = 7
Left = 2040
TabIndex = 15
Top = 2280
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Land"
DataSource = "Data1"
Height = 285
Index = 6
Left = 2040
TabIndex = 13
Top = 1960
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Other Current Assets"
DataSource = "Data1"
Height = 285
Index = 5
Left = 2040
TabIndex = 11
Top = 1640
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Inventories"
DataSource = "Data1"
Height = 285
Index = 4
Left = 2040
TabIndex = 9
Top = 1320
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Account Receivable"
DataSource = "Data1"
Height = 285
Index = 3
Left = 2040
TabIndex = 7
Top = 1000
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Cash"
DataSource = "Data1"
Height = 285
Index = 2
Left = 2040
TabIndex = 5
Top = 680
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Statement Date"
DataSource = "Data1"
Height = 285
Index = 1
Left = 2040
TabIndex = 3
Top = 360
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "Company ID"
DataSource = "Data1"
Height = 285
Index = 0
Left = 2040
MaxLength = 5
TabIndex = 1
Top = 40
Width = 3375
End
Begin VB.Label lblLabels
Caption = "Taxes:"
Height = 255
Index = 25
Left = 4065
TabIndex = 50
Tag = "Taxes:"
Top = 3885
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Other Income Expenses:"
Height = 255
Index = 24
Left = 4065
TabIndex = 48
Tag = "Other Income Expenses:"
Top = 3570
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Interest Expenses:"
Height = 255
Index = 23
Left = 4065
TabIndex = 46
Tag = "Interest Expenses:"
Top = 3255
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Depreciation:"
Height = 255
Index = 22
Left = 4065
TabIndex = 44
Tag = "Depreciation:"
Top = 2925
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Selling/Admin/ General Expenses:"
Height = 255
Index = 21
Left = 4065
TabIndex = 42
Tag = "Selling/Admin/ General Expenses:"
Top = 2610
Width = 1815
End
Begin VB.Label lblLabels
Caption = "COGS:"
Height = 255
Index = 20
Left = 4065
TabIndex = 40
Tag = "COGS:"
Top = 2295
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Net Sales:"
Height = 255
Index = 19
Left = 4065
TabIndex = 38
Tag = "Net Sales:"
Top = 1965
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Retained Earnings:"
Height = 255
Index = 18
Left = 4065
TabIndex = 36
Tag = "Retained Earnings:"
Top = 1650
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Common Stock:"
Height = 255
Index = 17
Left = 4065
TabIndex = 34
Tag = "Common Stock:"
Top = 1335
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Preferred Stock:"
Height = 255
Index = 16
Left = 4065
TabIndex = 32
Tag = "Preferred Stock:"
Top = 1005
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Deferred Income Taxes:"
Height = 255
Index = 15
Left = 4065
TabIndex = 30
Tag = "Deferred Income Taxes:"
Top = 690
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Notes Payable:"
Height = 255
Index = 14
Left = 4065
TabIndex = 28
Tag = "Notes Payable:"
Top = 375
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Accrued Income Taxes:"
Height = 255
Index = 13
Left = 120
TabIndex = 26
Tag = "Accrued Income Taxes:"
Top = 4220
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Accrued Liabilities:"
Height = 255
Index = 12
Left = 120
TabIndex = 24
Tag = "Accrued Liabilities:"
Top = 3900
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Accounts Payable:"
Height = 255
Index = 11
Left = 120
TabIndex = 22
Tag = "Accounts Payable:"
Top = 3580
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Other Assets:"
Height = 255
Index = 10
Left = 120
TabIndex = 20
Tag = "Other Assets:"
Top = 3260
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Accumulated Depreciation:"
Height = 255
Index = 9
Left = 120
TabIndex = 18
Tag = "Accumulated Depreciation:"
Top = 2940
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Machinery etc:"
Height = 255
Index = 8
Left = 120
TabIndex = 16
Tag = "Machinery etc:"
Top = 2620
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Buildings:"
Height = 255
Index = 7
Left = 120
TabIndex = 14
Tag = "Buildings:"
Top = 2300
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Land:"
Height = 255
Index = 6
Left = 120
TabIndex = 12
Tag = "Land:"
Top = 1980
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Other Current Assets:"
Height = 255
Index = 5
Left = 120
TabIndex = 10
Tag = "Other Current Assets:"
Top = 1660
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Inventories:"
Height = 255
Index = 4
Left = 120
TabIndex = 8
Tag = "Inventories:"
Top = 1340
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Account Receivable:"
Height = 255
Index = 3
Left = 120
TabIndex = 6
Tag = "Account Receivable:"
Top = 1020
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Cash:"
Height = 255
Index = 2
Left = 120
TabIndex = 4
Tag = "Cash:"
Top = 700
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Statement Date:"
Height = 255
Index = 1
Left = 120
TabIndex = 2
Tag = "Statement Date:"
Top = 380
Width = 1815
End
Begin VB.Label lblLabels
Caption = "Company ID:"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Tag = "Company ID:"
Top = 60
Width = 1815
End
End
Attribute VB_Name = "frmFinancials"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdClose_Click()
Me.Hide
End Sub
Private Sub cmdDelete_Click()
'this may produce an error if you delete the last
'record or the only record in the recordset
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
End Sub
Private Sub cmdRefresh_Click()
'this is really only needed for multi user apps
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdGrid_Click()
On Error GoTo cmdGrid_ClickErr
Dim f As New frmDataGrid
Set f.Data1.Recordset = Data1.Recordset
f.Caption = Me.Caption & " Grid"
f.Show
Exit Sub
cmdGrid_ClickErr:
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'This is where you would put error handling code
'If you want to ignore errors, comment out the next line
'If you want to trap them, add code here to handle them
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 'throw away the error
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'This will display the current record position
'for dynasets and snapshots
Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
'for the table object you must set the index property when
'the recordset gets created and use the following line
'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'This is where you put validation code
'This event gets called when the following actions occur
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
Screen.MousePointer = vbDefault
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
Center Me
Me.Data1.DatabaseName = frmMain.gsDatabase
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub