frmreportheader.frm

This a complete inventory management system that performs the functions of Purchases, Sales and paym

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form FrmReportHeader 
   Caption         =   "iManager - Report Header Information"
   ClientHeight    =   8940
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   13440
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   11115
   ScaleWidth      =   15240
   WindowState     =   2  'Maximized
   Begin TabDlg.SSTab SSTab1 
      Height          =   6015
      Left            =   720
      TabIndex        =   0
      Top             =   840
      Width           =   8415
      _ExtentX        =   14843
      _ExtentY        =   10610
      _Version        =   393216
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      TabCaption(0)   =   "Report Header"
      TabPicture(0)   =   "FrmReportHeader.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      Begin VB.Frame Frame1 
         Height          =   5175
         Left            =   360
         TabIndex        =   1
         Top             =   480
         Width           =   7695
         Begin VB.TextBox txtSign 
            Height          =   285
            Left            =   5160
            TabIndex        =   15
            Top             =   2880
            Width           =   2055
         End
         Begin VB.TextBox txtTin_no 
            Height          =   285
            Left            =   1920
            TabIndex        =   14
            Top             =   2880
            Width           =   2175
         End
         Begin VB.CommandButton Command1 
            Caption         =   "&Close"
            Height          =   375
            Left            =   6120
            TabIndex        =   11
            Top             =   4560
            Width           =   1095
         End
         Begin VB.CommandButton cmdSave 
            Caption         =   "Save"
            Height          =   375
            Left            =   4920
            TabIndex        =   10
            Top             =   4560
            Width           =   1095
         End
         Begin VB.TextBox txtPhoneEmailFax 
            Height          =   285
            Left            =   1920
            TabIndex        =   8
            Top             =   2400
            Width           =   5295
         End
         Begin VB.TextBox txtAdd2 
            Height          =   285
            Left            =   1920
            TabIndex        =   6
            Top             =   1800
            Width           =   5295
         End
         Begin VB.TextBox txtAdd1 
            Height          =   285
            Left            =   1920
            TabIndex        =   5
            Top             =   1320
            Width           =   5295
         End
         Begin VB.TextBox txtName2 
            Height          =   285
            Left            =   1920
            TabIndex        =   3
            Top             =   840
            Width           =   5295
         End
         Begin VB.TextBox txtName1 
            Height          =   285
            Left            =   1920
            TabIndex        =   2
            Top             =   360
            Width           =   5295
         End
         Begin VB.Label Label5 
            Caption         =   "Signature"
            Height          =   255
            Left            =   4320
            TabIndex        =   13
            Top             =   2880
            Width           =   1455
         End
         Begin VB.Label Label4 
            Caption         =   "TIN No."
            Height          =   255
            Left            =   1200
            TabIndex        =   12
            Top             =   2880
            Width           =   735
         End
         Begin VB.Label Label3 
            Caption         =   "Phone,Fax,Email"
            Height          =   255
            Left            =   600
            TabIndex        =   9
            Top             =   2400
            Width           =   1455
         End
         Begin VB.Label Label2 
            Caption         =   "Company Address"
            Height          =   255
            Left            =   480
            TabIndex        =   7
            Top             =   1320
            Width           =   1455
         End
         Begin VB.Label Label1 
            Caption         =   "Company Name"
            Height          =   255
            Left            =   720
            TabIndex        =   4
            Top             =   360
            Width           =   1455
         End
      End
   End
End
Attribute VB_Name = "FrmReportHeader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdSave_Click()
Dim msql As String
    msql = "Update reportHeader set company_name1='" & txtName1 & "',company_name2='" & txtName2 & "',Address1='" & txtAdd1 & "',Address2='" & txtName1 & "',phone_fax_email='" & txtPhoneEmailFax & "',tin_no='" & txtTin_no & "',signature='" & txtSign & "'"
    CNimanager.Execute (msql)
    MsgBox "Information Saved Successfully...", vbInformation
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
Dim lSQL As String
    Dim rstFill As ADODB.Recordset
    Set rstFill = New ADODB.Recordset
    lSQL = "Select * from reportHeader"
    Set rstFill = CNimanager.Execute(lSQL)
    
    If Not (rstFill.EOF Or rstFill.BOF) Then
        txtName1 = CheckNullString(Trim(rstFill(0)))
        txtName2 = CheckNullString(Trim(rstFill(1)))
        txtAdd1 = CheckNullString(Trim(rstFill(2)))
        txtAdd2 = CheckNullString(Trim(rstFill(3)))
        txtPhoneEmailFax = CheckNullString(Trim(rstFill(4)))
        txtTin_no = CheckNullString(Trim(rstFill(5)))
        txtSign = CheckNullString(Trim(rstFill(6)))
    End If
    
    Set rstFill = Nothing
End Sub