home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / CLIENT_SER2076747232007.psc / V8Client / BusinessCard.frm next >
Text File  |  2007-07-15  |  13KB  |  385 lines
  1. VERSION 5.00
  2. Begin VB.Form BusinessCard 
  3.    Caption         =   " Network Business Cards"
  4.    ClientHeight    =   8820
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7365
  8.    Icon            =   "BusinessCard.frx":0000
  9.    KeyPreview      =   -1  'True
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   "BusinessCard.frx":030A
  14.    ScaleHeight     =   8820
  15.    ScaleWidth      =   7365
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.CommandButton EditCardButton 
  18.       Height          =   1935
  19.       Left            =   5400
  20.       Picture         =   "BusinessCard.frx":D96C4
  21.       Style           =   1  'Graphical
  22.       TabIndex        =   0
  23.       ToolTipText     =   "Click this button to EDIT the Business Card"
  24.       Top             =   120
  25.       Width           =   1695
  26.    End
  27.    Begin VB.Label DirectLine 
  28.       BackColor       =   &H00FFFFFF&
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "Direct"
  31.       BeginProperty Font 
  32.          Name            =   "Times New Roman"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       ForeColor       =   &H00808080&
  41.       Height          =   225
  42.       Left            =   4440
  43.       TabIndex        =   15
  44.       Top             =   5520
  45.       Width           =   2490
  46.    End
  47.    Begin VB.Label IDStatus 
  48.       BackColor       =   &H00FFFFFF&
  49.       BackStyle       =   0  'Transparent
  50.       Caption         =   "ID/Status of this contact"
  51.       BeginProperty Font 
  52.          Name            =   "Times New Roman"
  53.          Size            =   9.75
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       ForeColor       =   &H00808080&
  61.       Height          =   225
  62.       Left            =   1440
  63.       TabIndex        =   14
  64.       Top             =   6480
  65.       Width           =   2835
  66.    End
  67.    Begin VB.Label email 
  68.       BackColor       =   &H00FFFFFF&
  69.       BackStyle       =   0  'Transparent
  70.       Caption         =   "Email@Domain.com"
  71.       BeginProperty Font 
  72.          Name            =   "Times New Roman"
  73.          Size            =   9.75
  74.          Charset         =   0
  75.          Weight          =   400
  76.          Underline       =   -1  'True
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       ForeColor       =   &H00FF0000&
  81.       Height          =   225
  82.       Left            =   4440
  83.       TabIndex        =   13
  84.       Top             =   6240
  85.       Width           =   2490
  86.    End
  87.    Begin VB.Label Fax 
  88.       BackColor       =   &H00FFFFFF&
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "Fax"
  91.       BeginProperty Font 
  92.          Name            =   "Times New Roman"
  93.          Size            =   9.75
  94.          Charset         =   0
  95.          Weight          =   400
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       ForeColor       =   &H00808080&
  101.       Height          =   225
  102.       Left            =   4440
  103.       TabIndex        =   12
  104.       Top             =   6000
  105.       Width           =   2490
  106.    End
  107.    Begin VB.Label Mobile 
  108.       BackColor       =   &H00FFFFFF&
  109.       BackStyle       =   0  'Transparent
  110.       Caption         =   "Mobile"
  111.       BeginProperty Font 
  112.          Name            =   "Times New Roman"
  113.          Size            =   9.75
  114.          Charset         =   0
  115.          Weight          =   400
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       ForeColor       =   &H00808080&
  121.       Height          =   225
  122.       Left            =   4440
  123.       TabIndex        =   11
  124.       Top             =   5760
  125.       Width           =   2490
  126.    End
  127.    Begin VB.Label Extension 
  128.       BackColor       =   &H00FFFFFF&
  129.       BackStyle       =   0  'Transparent
  130.       Caption         =   "Ext. No."
  131.       BeginProperty Font 
  132.          Name            =   "Times New Roman"
  133.          Size            =   9.75
  134.          Charset         =   0
  135.          Weight          =   400
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       ForeColor       =   &H00808080&
  141.       Height          =   225
  142.       Left            =   6360
  143.       TabIndex        =   10
  144.       Top             =   5280
  145.       Width           =   570
  146.    End
  147.    Begin VB.Label Phone 
  148.       BackColor       =   &H00FFFFFF&
  149.       BackStyle       =   0  'Transparent
  150.       Caption         =   "Phone Number"
  151.       BeginProperty Font 
  152.          Name            =   "Times New Roman"
  153.          Size            =   9.75
  154.          Charset         =   0
  155.          Weight          =   400
  156.          Underline       =   0   'False
  157.          Italic          =   0   'False
  158.          Strikethrough   =   0   'False
  159.       EndProperty
  160.       ForeColor       =   &H00808080&
  161.       Height          =   225
  162.       Left            =   4440
  163.       TabIndex        =   9
  164.       Top             =   5280
  165.       Width           =   1770
  166.    End
  167.    Begin VB.Label CityStateZip 
  168.       BackColor       =   &H00FFFFFF&
  169.       BackStyle       =   0  'Transparent
  170.       Caption         =   "City, State Zip"
  171.       BeginProperty Font 
  172.          Name            =   "Times New Roman"
  173.          Size            =   9.75
  174.          Charset         =   0
  175.          Weight          =   400
  176.          Underline       =   0   'False
  177.          Italic          =   0   'False
  178.          Strikethrough   =   0   'False
  179.       EndProperty
  180.       ForeColor       =   &H00808080&
  181.       Height          =   225
  182.       Left            =   4440
  183.       TabIndex        =   8
  184.       Top             =   5040
  185.       Width           =   2490
  186.    End
  187.    Begin VB.Label AddressLine2 
  188.       BackColor       =   &H00FFFFFF&
  189.       BackStyle       =   0  'Transparent
  190.       Caption         =   "Address Line One Here"
  191.       BeginProperty Font 
  192.          Name            =   "Times New Roman"
  193.          Size            =   9.75
  194.          Charset         =   0
  195.          Weight          =   400
  196.          Underline       =   0   'False
  197.          Italic          =   0   'False
  198.          Strikethrough   =   0   'False
  199.       EndProperty
  200.       ForeColor       =   &H00808080&
  201.       Height          =   225
  202.       Left            =   4440
  203.       TabIndex        =   7
  204.       Top             =   4800
  205.       Width           =   2490
  206.    End
  207.    Begin VB.Label AddressLine1 
  208.       BackColor       =   &H00FFFFFF&
  209.       BackStyle       =   0  'Transparent
  210.       Caption         =   "Address Line One Here"
  211.       BeginProperty Font 
  212.          Name            =   "Times New Roman"
  213.          Size            =   9.75
  214.          Charset         =   0
  215.          Weight          =   400
  216.          Underline       =   0   'False
  217.          Italic          =   0   'False
  218.          Strikethrough   =   0   'False
  219.       EndProperty
  220.       ForeColor       =   &H00808080&
  221.       Height          =   225
  222.       Left            =   4440
  223.       TabIndex        =   6
  224.       Top             =   4560
  225.       Width           =   2490
  226.    End
  227.    Begin VB.Label Website 
  228.       Alignment       =   2  'Center
  229.       BackColor       =   &H00FFFFFF&
  230.       BackStyle       =   0  'Transparent
  231.       Caption         =   "www.website.here"
  232.       BeginProperty Font 
  233.          Name            =   "Times New Roman"
  234.          Size            =   9.75
  235.          Charset         =   0
  236.          Weight          =   400
  237.          Underline       =   -1  'True
  238.          Italic          =   0   'False
  239.          Strikethrough   =   0   'False
  240.       EndProperty
  241.       ForeColor       =   &H00FF0000&
  242.       Height          =   285
  243.       Left            =   1440
  244.       TabIndex        =   5
  245.       Top             =   4080
  246.       Width           =   5490
  247.    End
  248.    Begin VB.Label Department 
  249.       BackColor       =   &H00FFFFFF&
  250.       BackStyle       =   0  'Transparent
  251.       Caption         =   "Department"
  252.       BeginProperty Font 
  253.          Name            =   "Times New Roman"
  254.          Size            =   8.25
  255.          Charset         =   0
  256.          Weight          =   700
  257.          Underline       =   0   'False
  258.          Italic          =   0   'False
  259.          Strikethrough   =   0   'False
  260.       EndProperty
  261.       ForeColor       =   &H00808080&
  262.       Height          =   285
  263.       Left            =   1680
  264.       TabIndex        =   4
  265.       Top             =   5040
  266.       Width           =   2565
  267.    End
  268.    Begin VB.Label JobTitle 
  269.       BackColor       =   &H00FFFFFF&
  270.       BackStyle       =   0  'Transparent
  271.       Caption         =   "Job Title"
  272.       BeginProperty Font 
  273.          Name            =   "Times New Roman"
  274.          Size            =   8.25
  275.          Charset         =   0
  276.          Weight          =   700
  277.          Underline       =   0   'False
  278.          Italic          =   0   'False
  279.          Strikethrough   =   0   'False
  280.       EndProperty
  281.       ForeColor       =   &H00808080&
  282.       Height          =   285
  283.       Left            =   1680
  284.       TabIndex        =   3
  285.       Top             =   4800
  286.       Width           =   2610
  287.    End
  288.    Begin VB.Label Contact 
  289.       BackColor       =   &H00FFFFFF&
  290.       BackStyle       =   0  'Transparent
  291.       Caption         =   "Contact name here"
  292.       BeginProperty Font 
  293.          Name            =   "Times New Roman"
  294.          Size            =   9.75
  295.          Charset         =   0
  296.          Weight          =   700
  297.          Underline       =   0   'False
  298.          Italic          =   0   'False
  299.          Strikethrough   =   0   'False
  300.       EndProperty
  301.       ForeColor       =   &H00000000&
  302.       Height          =   285
  303.       Left            =   1680
  304.       TabIndex        =   2
  305.       Top             =   4560
  306.       Width           =   2610
  307.    End
  308.    Begin VB.Label Company 
  309.       Alignment       =   2  'Center
  310.       BackColor       =   &H00FFFFFF&
  311.       BackStyle       =   0  'Transparent
  312.       Caption         =   "Company Name Shows Here"
  313.       BeginProperty Font 
  314.          Name            =   "Times New Roman"
  315.          Size            =   14.25
  316.          Charset         =   0
  317.          Weight          =   700
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       ForeColor       =   &H00404040&
  323.       Height          =   330
  324.       Left            =   1425
  325.       TabIndex        =   1
  326.       Top             =   3765
  327.       Width           =   5430
  328.    End
  329. End
  330. Attribute VB_Name = "BusinessCard"
  331. Attribute VB_GlobalNameSpace = False
  332. Attribute VB_Creatable = False
  333. Attribute VB_PredeclaredId = True
  334. Attribute VB_Exposed = False
  335. Private Sub EditCardButton_Click()
  336.  EditingBusinessCard = True
  337.  LeResult = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
  338.  EditCardForm.Caption = "EDIT BUSINESS CARD"
  339.  EditCardForm.Show vbModal, Me
  340.  LeResult = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  341.  EditingBusinessCard = False
  342.  WebURL$ = Trim$(UCase$(ClientFormMain.ServerAddress))
  343.  WebURL$ = WebURL$ & "P" & SnStr & "GetContact.asp?RecNum=" & CurrentContactRecNum
  344.  Result$ = tb & GetUrlSource(WebURL$) & String$(99, 9)
  345.  ContactData = Split(Result$, tb)
  346.  Call LoadCardToScreen
  347.  Me.Refresh
  348. End Sub
  349.  
  350. Private Sub Form_KeyPress(KeyAscii As Integer)
  351.  If KeyAscii = 27 Then
  352.   Unload Me
  353.  End If
  354.  If KeyAscii = 13 Then
  355.   Call EditCardButton_Click
  356.  End If
  357. End Sub
  358.  
  359. Private Sub Form_Load()
  360.  LeResult = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  361.  Call LoadCardToScreen
  362. End Sub
  363. Sub LoadCardToScreen()
  364.  Company = Replace$(ContactData(FLD_Company), "&", "&&")
  365.  Contact = (ContactData(FLD_MrMrsMs) & " " & ContactData(FLD_FName) & " " & ContactData(FLD_LName))
  366.  Website = ContactData(FLD_Website)
  367.  JobTitle = Replace$(ContactData(FLD_JobTitle), "&", "&&")
  368.  Department = Replace$(ContactData(FLD_Department), "&", "&&")
  369.  AddressLine1 = Replace$(ContactData(FLD_Addr1), "&", "&&")
  370.  AddressLine2 = Replace$(Trim$(ContactData(FLD_Addr2)), "&", "&&")
  371.  CityStateZip = ContactData(FLD_City) & ", " & ContactData(FLD_State) & " " & ContactData(FLD_Zip)
  372.  CityStateZip = IIf(Trim(CityStateZip) = ",", "", CityStateZip)
  373.  If AddressLine2 = "" Then
  374.   AddressLine2 = CityStateZip
  375.   CityStateZip = ""
  376.  End If
  377.  Phone = "Phone " & ContactData(FLD_Phone)
  378.  Extension = "Ext. " & ContactData(FLD_Extension)
  379.  DirectLine = "Direct " & ContactData(FLD_DirectLine)
  380.  Mobile = "Mobile " & ContactData(FLD_Mobile)
  381.  Fax = "Fax " & ContactData(FLD_Fax)
  382.  email = ContactData(FLD_EMail)
  383.  IDStatus = ContactData(FLD_IDStatus)
  384. End Sub
  385.