home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autosa1a / autosack.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-10-18  |  18.2 KB  |  519 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "AUTO SACKER"
  5.    ClientHeight    =   4380
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   8730
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4380
  13.    ScaleWidth      =   8730
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.TextBox box 
  17.       Height          =   4095
  18.       Left            =   3360
  19.       MultiLine       =   -1  'True
  20.       TabIndex        =   26
  21.       Top             =   120
  22.       Width           =   5055
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Compile Letter"
  26.       Height          =   495
  27.       Left            =   360
  28.       TabIndex        =   25
  29.       Top             =   3720
  30.       Width           =   2655
  31.    End
  32.    Begin VB.CommandButton R_L 
  33.       Caption         =   ">"
  34.       Height          =   255
  35.       Left            =   2160
  36.       TabIndex        =   22
  37.       Top             =   1440
  38.       Width           =   255
  39.    End
  40.    Begin VB.CommandButton L_L 
  41.       Caption         =   "<"
  42.       Height          =   255
  43.       Left            =   840
  44.       TabIndex        =   21
  45.       Top             =   1440
  46.       Width           =   255
  47.    End
  48.    Begin VB.CommandButton R_Rude 
  49.       Caption         =   ">"
  50.       Height          =   255
  51.       Left            =   1560
  52.       TabIndex        =   19
  53.       Top             =   3240
  54.       Width           =   255
  55.    End
  56.    Begin VB.CommandButton L_Rude 
  57.       Caption         =   "<"
  58.       Height          =   255
  59.       Left            =   360
  60.       TabIndex        =   18
  61.       Top             =   3240
  62.       Width           =   255
  63.    End
  64.    Begin VB.CommandButton R_Nasty 
  65.       Caption         =   ">"
  66.       Height          =   255
  67.       Left            =   1560
  68.       TabIndex        =   16
  69.       Top             =   2880
  70.       Width           =   255
  71.    End
  72.    Begin VB.CommandButton L_Nasty 
  73.       Caption         =   "<"
  74.       Height          =   255
  75.       Left            =   360
  76.       TabIndex        =   15
  77.       Top             =   2880
  78.       Width           =   255
  79.    End
  80.    Begin VB.CommandButton R_Stupid 
  81.       Caption         =   ">"
  82.       Height          =   255
  83.       Left            =   1560
  84.       TabIndex        =   13
  85.       Top             =   2520
  86.       Width           =   255
  87.    End
  88.    Begin VB.CommandButton L_Stupid 
  89.       Caption         =   "<"
  90.       Height          =   255
  91.       Left            =   360
  92.       TabIndex        =   12
  93.       Top             =   2520
  94.       Width           =   255
  95.    End
  96.    Begin VB.CommandButton R_Lazy 
  97.       Caption         =   ">"
  98.       Height          =   255
  99.       Left            =   1560
  100.       TabIndex        =   10
  101.       Top             =   2160
  102.       Width           =   255
  103.    End
  104.    Begin VB.CommandButton L_Lazy 
  105.       Caption         =   "<"
  106.       Height          =   255
  107.       Left            =   360
  108.       TabIndex        =   9
  109.       Top             =   2160
  110.       Width           =   255
  111.    End
  112.    Begin VB.CheckBox Check4 
  113.       Caption         =   "Rude"
  114.       Height          =   255
  115.       Left            =   2280
  116.       TabIndex        =   5
  117.       Top             =   3240
  118.       Width           =   2175
  119.    End
  120.    Begin VB.CheckBox Check3 
  121.       Caption         =   "Nasty"
  122.       Height          =   255
  123.       Left            =   2280
  124.       TabIndex        =   4
  125.       Top             =   2880
  126.       Width           =   2415
  127.    End
  128.    Begin VB.CheckBox Check2 
  129.       Caption         =   "Stupid"
  130.       Height          =   255
  131.       Left            =   2280
  132.       TabIndex        =   3
  133.       Top             =   2520
  134.       Width           =   2295
  135.    End
  136.    Begin VB.CheckBox Check1 
  137.       Caption         =   "Lazy"
  138.       Height          =   255
  139.       Left            =   2280
  140.       TabIndex        =   2
  141.       Top             =   2160
  142.       Width           =   2295
  143.    End
  144.    Begin VB.TextBox From 
  145.       Height          =   285
  146.       Left            =   840
  147.       TabIndex        =   1
  148.       Text            =   "Name"
  149.       Top             =   1080
  150.       Width           =   2175
  151.    End
  152.    Begin VB.TextBox To 
  153.       Height          =   285
  154.       Left            =   840
  155.       TabIndex        =   0
  156.       Text            =   "Name"
  157.       Top             =   720
  158.       Width           =   2175
  159.    End
  160.    Begin VB.Label Label6 
  161.       Caption         =   "By Richard Nicol"
  162.       ForeColor       =   &H00000080&
  163.       Height          =   255
  164.       Left            =   1680
  165.       TabIndex        =   28
  166.       Top             =   120
  167.       Width           =   1215
  168.    End
  169.    Begin VB.Label Label4 
  170.       Caption         =   "AUTO SACKER"
  171.       ForeColor       =   &H000000FF&
  172.       Height          =   255
  173.       Left            =   360
  174.       TabIndex        =   27
  175.       Top             =   120
  176.       Width           =   1935
  177.    End
  178.    Begin VB.Label L_T 
  179.       Alignment       =   2  'Center
  180.       Caption         =   "Polite"
  181.       Height          =   255
  182.       Left            =   840
  183.       TabIndex        =   23
  184.       Top             =   1440
  185.       Width           =   1575
  186.    End
  187.    Begin VB.Label Rude 
  188.       Alignment       =   2  'Center
  189.       Caption         =   "Slightly"
  190.       Height          =   255
  191.       Left            =   600
  192.       TabIndex        =   20
  193.       Top             =   3240
  194.       Width           =   975
  195.    End
  196.    Begin VB.Label Nasty 
  197.       Alignment       =   2  'Center
  198.       Caption         =   "Slightly"
  199.       Height          =   255
  200.       Left            =   600
  201.       TabIndex        =   17
  202.       Top             =   2880
  203.       Width           =   975
  204.    End
  205.    Begin VB.Label Stupid 
  206.       Alignment       =   2  'Center
  207.       Caption         =   "Slightly"
  208.       Height          =   255
  209.       Left            =   600
  210.       TabIndex        =   14
  211.       Top             =   2520
  212.       Width           =   975
  213.    End
  214.    Begin VB.Label Lazy 
  215.       Alignment       =   2  'Center
  216.       Caption         =   "Slightly"
  217.       Height          =   255
  218.       Left            =   600
  219.       TabIndex        =   11
  220.       Top             =   2160
  221.       Width           =   975
  222.    End
  223.    Begin VB.Label Label3 
  224.       Caption         =   "Employee is:"
  225.       Height          =   255
  226.       Left            =   360
  227.       TabIndex        =   8
  228.       Top             =   1800
  229.       Width           =   1815
  230.    End
  231.    Begin VB.Label Label2 
  232.       Caption         =   "From:"
  233.       Height          =   255
  234.       Left            =   360
  235.       TabIndex        =   7
  236.       Top             =   1080
  237.       Width           =   855
  238.    End
  239.    Begin VB.Label Label1 
  240.       Caption         =   "To:"
  241.       Height          =   255
  242.       Left            =   360
  243.       TabIndex        =   6
  244.       Top             =   720
  245.       Width           =   855
  246.    End
  247.    Begin VB.Label Label5 
  248.       Caption         =   "Letter:"
  249.       Height          =   255
  250.       Left            =   360
  251.       TabIndex        =   24
  252.       Top             =   1440
  253.       Width           =   1095
  254.    End
  255. Attribute VB_Name = "Form1"
  256. Attribute VB_GlobalNameSpace = False
  257. Attribute VB_Creatable = False
  258. Attribute VB_PredeclaredId = True
  259. Attribute VB_Exposed = False
  260. 'rnicol@khi-ro.co.uk
  261. '(not responsible for any fights you get into)
  262. Dim l1
  263. Dim l2
  264. Dim l3
  265. Dim a1
  266. Dim a2
  267. Dim a3
  268. Dim L_1_P, ST_1_P, N_1_P, R_1_P
  269. Dim L_2_P, ST_2_P, N_2_P, R_2_P
  270. Dim L_3_P, ST_3_P, N_3_P, R_3_P
  271. Dim L_1_F, ST_1_F, N_1_F, R_1_F
  272. Dim L_2_F, ST_2_F, N_2_F, R_2_F
  273. Dim L_3_F, ST_3_F, N_3_F, R_3_F
  274. Dim L_1_U, ST_1_U, N_1_U, R_1_U
  275. Dim L_2_U, ST_2_U, N_2_U, R_2_U
  276. Dim L_3_U, ST_3_U, N_3_U, R_3_U
  277. Private Sub Command1_Click()
  278. Dim letter
  279. Dim Welcome
  280. Dim x
  281. Dim last
  282. x = Form1.To.Text
  283. If L_T = l1 Then Welcome = "Dear " & x & ","
  284. If L_T = l2 Then Welcome = "Dear " & x & ","
  285. If L_T = l3 Then Welcome = x & ","
  286. If L_T = l1 Then
  287. letter = "After a great deal of thought we have come to the conclusion that we have to ask you to resign.  It is partly down to time and money but we "
  288.     If Check1.Value = 1 Then
  289.         If last = "." Then letter = letter & "We "
  290.         
  291.         If Lazy.Caption = a1 Then letter = letter & L_1_P
  292.         If Lazy.Caption = a2 Then letter = letter & L_2_P
  293.         If Lazy.Caption = a3 Then letter = letter & L_3_P
  294.         letter = letter & " and "
  295.         last = "and"
  296.     End If
  297.     If Check2.Value = 1 Then
  298.         If last = "." Then letter = letter & "We "
  299.         
  300.         If Stupid.Caption = a1 Then letter = letter & ST_1_P
  301.         If Stupid.Caption = a2 Then letter = letter & ST_2_P
  302.         If Stupid.Caption = a3 Then letter = letter & ST_3_P
  303.         If last = "and" Then
  304.         letter = letter & ".  "
  305.         last = "."
  306.         Else
  307.         letter = letter & " and "
  308.         last = "and"
  309.     End If
  310.     End If
  311.     If Check3.Value = 1 Then
  312.         If last = "." Then letter = letter & "We "
  313.         If Nasty.Caption = a1 Then letter = letter & N_1_P
  314.         If Nasty.Caption = a2 Then letter = letter & N_2_P
  315.         If Nasty.Caption = a3 Then letter = letter & N_3_P
  316.             If last = "and" Then
  317.         letter = letter & ".  "
  318.         last = "."
  319.         Else
  320.         letter = letter & " and "
  321.         last = "and"
  322.     End If
  323.     End If
  324.     If Check4.Value = 1 Then
  325.         If last = "." Then letter = letter & "We "
  326.         If Rude.Caption = a1 Then letter = letter & R_1_P
  327.         If Rude.Caption = a2 Then letter = letter & R_2_P
  328.         If Rude.Caption = a3 Then letter = letter & R_3_P
  329.         letter = letter & ".  "
  330.         last = "."
  331.     End If
  332. End If
  333. If L_T = l2 Then
  334. letter = "After a great deal of thought we have come to the conclusion that we have to ask you to resign.  This is because we "
  335.     If Check1.Value = 1 Then
  336.             If last = "." Then letter = letter & "We "
  337.         If Lazy.Caption = a1 Then letter = letter & L_1_F
  338.         If Lazy.Caption = a2 Then letter = letter & L_2_F
  339.         If Lazy.Caption = a3 Then letter = letter & L_3_F
  340.         letter = letter & " and "
  341.         last = "and"
  342.     End If
  343.     If Check2.Value = 1 Then
  344.             If last = "." Then letter = letter & "We "
  345.         If Stupid.Caption = a1 Then letter = letter & ST_1_F
  346.         If Stupid.Caption = a2 Then letter = letter & ST_2_F
  347.         If Stupid.Caption = a3 Then letter = letter & ST_3_F
  348.         If last = "and" Then
  349.         letter = letter & ".  "
  350.         last = "."
  351.         Else
  352.         letter = letter & " and "
  353.         last = "and"
  354.     End If
  355.     End If
  356.     If Check3.Value = 1 Then
  357.         If last = "." Then letter = letter & "We "
  358.         If Nasty.Caption = a1 Then letter = letter & N_1_F
  359.         If Nasty.Caption = a2 Then letter = letter & N_2_F
  360.         If Nasty.Caption = a3 Then letter = letter & N_3_F
  361.             If last = "and" Then
  362.         letter = letter & ".  "
  363.         last = "."
  364.         Else
  365.         letter = letter & " and "
  366.         last = "and"
  367.     End If
  368.     End If
  369.     If Check4.Value = 1 Then
  370.             If last = "." Then letter = letter & "We "
  371.         If Rude.Caption = a1 Then letter = letter & R_1_F
  372.         If Rude.Caption = a2 Then letter = letter & R_2_F
  373.         If Rude.Caption = a3 Then letter = letter & R_3_F
  374.         letter = letter & ".  "
  375.         last = "."
  376.     End If
  377. End If
  378. If L_T = l3 Then
  379. letter = "We are forced to ask you to resign.  This is because we "
  380.     If Check1.Value = 1 Then
  381.         If last = "." Then letter = letter & "We "
  382.         If Lazy.Caption = a1 Then letter = letter & L_1_U
  383.         If Lazy.Caption = a2 Then letter = letter & L_2_U
  384.         If Lazy.Caption = a3 Then letter = letter & L_3_U
  385.         letter = letter & " and "
  386.         last = "and"
  387.     End If
  388.     If Check2.Value = 1 Then
  389.         If last = "." Then letter = letter & "We "
  390.         If Stupid.Caption = a1 Then letter = letter & ST_1_U
  391.         If Stupid.Caption = a2 Then letter = letter & ST_2_U
  392.         If Stupid.Caption = a3 Then letter = letter & ST_3_U
  393.         If last = "and" Then
  394.         letter = letter & ".  "
  395.         last = "."
  396.         Else
  397.         letter = letter & " and "
  398.         last = "and"
  399.     End If
  400.     End If
  401.     If Check3.Value = 1 Then
  402.         If last = "." Then letter = letter & "We "
  403.         If Nasty.Caption = a1 Then letter = letter & N_1_U
  404.         If Nasty.Caption = a2 Then letter = letter & N_2_U
  405.         If Nasty.Caption = a3 Then letter = letter & N_3_U
  406.             If last = "and" Then
  407.         letter = letter & ".  "
  408.         last = "."
  409.         Else
  410.         letter = letter & " and "
  411.         last = "and"
  412.     End If
  413.     End If
  414.     If Check4.Value = 1 Then
  415.         If last = "." Then letter = letter & "We "
  416.         If Rude.Caption = a1 Then letter = letter & R_1_U
  417.         If Rude.Caption = a2 Then letter = letter & R_2_U
  418.         If Rude.Caption = a3 Then letter = letter & R_3_U
  419.         letter = letter & ".  "
  420.         last = "."
  421.     End If
  422. End If
  423. If last <> "" Then
  424. If last = "and" Then
  425. If L_T.Caption = l1 Then Form1.box.Text = Welcome & vbCrLf & vbCrLf & letter & "we would find it hard to keep you on." & vbCrLf & "Please don't take it personaly, thank you for understanding.  " & vbCrLf & vbCrLf & Form1.From.Text
  426. If L_T.Caption = l2 Then Form1.box.Text = Welcome & vbCrLf & vbCrLf & letter & "we would find it hard to keep you on." & vbCrLf & "Please don't take it personaly, thank you for understanding.  " & vbCrLf & vbCrLf & Form1.From.Text
  427. If L_T.Caption = l3 Then Form1.box.Text = Welcome & vbCrLf & vbCrLf & letter & "we would find it hard to keep you on." & vbCrLf & "Thank you for nothing.  " & vbCrLf & vbCrLf & Form1.From.Text
  428. If L_T.Caption = l1 Then Form1.box.Text = Welcome & vbCrLf & vbCrLf & letter & vbCrLf & "Please don't take it personaly, thank you for understanding.  " & vbCrLf & vbCrLf & Form1.From.Text
  429. If L_T.Caption = l2 Then Form1.box.Text = Welcome & vbCrLf & vbCrLf & letter & vbCrLf & "Please don't take it personaly, thank you for understanding.  " & vbCrLf & vbCrLf & Form1.From.Text
  430. If L_T.Caption = l3 Then Form1.box.Text = Welcome & vbCrLf & vbCrLf & letter & vbCrLf & "Thank you for nothing.  " & vbCrLf & vbCrLf & Form1.From.Text
  431. End If
  432. End If
  433. last = ""
  434. End Sub
  435. Private Sub Form_Load()
  436. l1 = "Polite"
  437. l2 = "Angered"
  438. l3 = "Mean streak"
  439. a1 = "Slightly"
  440. a2 = "Way too"
  441. a3 = "TERRIBLY"
  442. L_1_P = "sometimes think you could do a little more for the company"
  443. L_2_P = "have often considered your efforts could be improved"
  444. L_3_P = "have noticed your efforts and attitude to work isn't satisfactory"
  445. L_1_F = "are slightly disappointed, you could do more for the company"
  446. L_2_F = "believe that your efforts could be improved"
  447. L_3_F = "have noticed your efforts and attitude to work is far from satisfactory"
  448. L_1_U = "are slightly disappointed, you are a bit too lazy"
  449. L_2_U = "believe that you are too lazy"
  450. L_3_U = "have decided your efforts and attitude to work is pathetic"
  451. ST_1_P = "regret to say that we're not completely impressed by your knowledge in relation to the tasks we want you to perform"
  452. ST_2_P = "feel you aren't totally qualified for the tasks we wish you to perform"
  453. ST_3_P = "regret to inform, you have not progressed as planned"
  454. ST_1_F = "regret to say that we're not completely impressed by your knowledge in relation to the tasks we want you to perform"
  455. ST_2_F = "feel you aren't qualified for the tasks we wish you to perform"
  456. ST_3_F = "regret to inform, you have not progressed as planned"
  457. ST_1_U = "regret to say that we're not impressed by your level of stupidity in relation to the tasks we want you to perform"
  458. ST_2_U = "feel you are too stupid for the tasks we wish you to perform"
  459. ST_3_U = "regret to inform, you would lose in an IQ contest with the highest opposition being a drowned mouse"
  460. N_1_P = "think you're not being as nice to other staff as we'd like"
  461. N_2_P = "think you are not being as nice to other staff as we'd like"
  462. N_3_P = "think your attitude to other staff is in need of improvement"
  463. N_1_F = "think you're not being as nice to other staff as we'd like"
  464. N_2_F = "think you are not being friendly to other staff"
  465. N_3_F = "think your attitude to other staff is in great need of improvement"
  466. N_1_U = "think you're not being nice to other staff"
  467. N_2_U = "think it's sad that you are not being friendly to other staff"
  468. N_3_U = "think your attitude to other staff is as disgusting as Satan's innards boiled in rancid vomit"
  469. R_1_P = "have to say you're not as polite as we'd prefer to customers"
  470. R_2_P = "have to say you're not overly polite to customers"
  471. R_3_P = "have to say we value our customers too much for you to be un-polite"
  472. R_1_F = "have to say you're not as polite as we'd prefer"
  473. R_2_F = "have to say you're not overly polite"
  474. R_3_F = "have to say we value our customers too much for your un-polite attitude"
  475. R_1_U = "have to say you're not polite enough"
  476. R_2_U = "have to say you're not polite"
  477. R_3_U = "have to say that when it comes to manners, yours are a disgrace"
  478. End Sub
  479. Private Sub L_L_Click()
  480. If L_T.Caption = l2 Then L_T.Caption = l1
  481. If L_T.Caption = l3 Then L_T.Caption = l2
  482. End Sub
  483. Private Sub R_L_Click()
  484. If L_T.Caption = l2 Then L_T.Caption = l3
  485. If L_T.Caption = l1 Then L_T.Caption = l2
  486. End Sub
  487. Private Sub L_Lazy_Click()
  488. If Lazy.Caption = a2 Then Lazy.Caption = a1
  489. If Lazy.Caption = a3 Then Lazy.Caption = a2
  490. End Sub
  491. Private Sub R_Lazy_Click()
  492. If Lazy.Caption = a2 Then Lazy.Caption = a3
  493. If Lazy.Caption = a1 Then Lazy.Caption = a2
  494. End Sub
  495. Private Sub L_Stupid_Click()
  496. If Stupid.Caption = a2 Then Stupid.Caption = a1
  497. If Stupid.Caption = a3 Then Stupid.Caption = a2
  498. End Sub
  499. Private Sub R_Stupid_Click()
  500. If Stupid.Caption = a2 Then Stupid.Caption = a3
  501. If Stupid.Caption = a1 Then Stupid.Caption = a2
  502. End Sub
  503. Private Sub L_Nasty_Click()
  504. If Nasty.Caption = a2 Then Nasty.Caption = a1
  505. If Nasty.Caption = a3 Then Nasty.Caption = a2
  506. End Sub
  507. Private Sub R_Nasty_Click()
  508. If Nasty.Caption = a2 Then Nasty.Caption = a3
  509. If Nasty.Caption = a1 Then Nasty.Caption = a2
  510. End Sub
  511. Private Sub L_Rude_Click()
  512. If Rude.Caption = a2 Then Rude.Caption = a1
  513. If Rude.Caption = a3 Then Rude.Caption = a2
  514. End Sub
  515. Private Sub R_Rude_Click()
  516. If Rude.Caption = a2 Then Rude.Caption = a3
  517. If Rude.Caption = a1 Then Rude.Caption = a2
  518. End Sub
  519.