Notes

place in the style.css

body {overflow:visible;}
table{border-color:black;border-collapse:collapse;mso-padding-alt:0in 5.4pt 0in 5.4pt}
textarea{ font-size:8pt; }
hr.cell_split{color:red;}
tr.alt{background-color:#EEEEEE;}
td{font-family:verdana;font-size:8pt;border:1px solid #000000;}
.navletters {margin:0 7px 0 7px; }
td.code_mod {max-width: 600px;}
td.description_mod {min-width:300px;}
td.description_mod div{min-width:275px;}
div.scroll{overflow:auto;text-align:left;min-width:200px;max-width:600px;max-height:200px; }
input[type="button"],input[type="submit"]{
background-color: #64c9ea;
border: none;
border-radius: 2px;
box-shadow: none;
color: #fff;
cursor: pointer;
padding: 5px 5px;
min-width:10px;margin:5px;}
input[type="text"],input[type="select"] {font-family:verdana;font-size:10pt;margin:5px;padding: 2px 2px;width:70%}
td.file_mod{width:200px;}
.entry-content {max-width:1200px; }

hp2600n printer

[front load]
place the side to be printed on down (labels down) or already printed out

[bottom load]
place the already printed side down with the bottom of the page furthest in or top of page closest to the front but always print facing down

if you ever add variables to the url line you need to use this function
urldecode for passing gets.
$urlpart1=urldecode($urlpart1);
$urlpart2=urldecode($urlpart2);
$url="http://www.mydomain.com?$urlpart1&$urlpart2;

Do not use it on a completed url. It will totally mess everything up.

//require_once($_SERVER['DOCUMENT_ROOT']."/activate75.php");

if($bypass!=true){
$appid="636390303046554890";
$user='softwax3_build99';$password='Web2Build.now';$database='softwax3_SoftwareUsers';
$connection = swd_mysql("localhost", $user,$password,$database);
//if($appid>"636390303046554897"){$qu=new mysqli_swd();}else{$qu=new dbase();}
$qu=new mysqli_swd();
$sql="SELECT lock_device,security_level FROM users WHERE device_name='".$_COOKIE["machine_id"]."'";
$qu->dbsql($sql);
if($qu->num==0 || $qu->data1[0]==1) { echo "You are locked out";exit; }
$_SESSION['LEVEL']=$qu->data1[1]; $LEVEL=$qu->data1[1];
define('SWD_AUTHENTICATE', true);define('SWD_KEY', 'JesusIsLord');
}
if($bypass==true){define('SWD_AUTHENTICATE', true);}

?>

Imports System.IO
Imports System.Text
Imports System.Data.OleDb

Private Sub btAdd_Click(sender As Object, e As EventArgs) Handles btAdd.Click
Select Case table_selected
Case "copytext"
Try
sqL = "INSERT INTO [copy_it]([category],[copy_text],[notes]) VALUES ('" + txTitle.Text + "', '" + TXfield3.Text + "', '" + txSectionCode.Text + "')"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.Rows.Add(0, txTitle.Text, TXfield3.Text, txSectionCode.Text)
Case "directorycopy"
Try
sqL = "INSERT INTO [directory_copy]([prefix],[directory]) VALUES ('" + txTitle.Text + "', '" + txSectionCode.Text + "')"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.Rows.Add(0, txTitle.Text, txSectionCode.Text)
Case "multireplace"
Try
sqL = "INSERT INTO [mulitreplace]([title],[section_code]) VALUES ('" + txTitle.Text + "', '" + txSectionCode.Text + "')"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.Rows.Add(0, txTitle.Text, txSectionCode.Text)
Case "filepaths"
Try
sqL = "INSERT INTO [file_paths]([file_path],[computer]) VALUES ('" + txSectionCode.Text + "','" + My.Computer.Name + "')"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.Rows.Add(0, txSectionCode.Text)
Case "emailmoved"
Try
sqL = "INSERT INTO [move_email]([move_to],[archive],[subject_filter]) VALUES ('" + txTitle.Text + "', '" + TXfield3.Text + "', '" + txSectionCode.Text + "')"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.Rows.Add(0, txTitle.Text, txSectionCode.Text, TXfield3.Text)
Case "emailfiltered"
Try
sqL = "INSERT INTO [Filtered_email]([importance],[email]) VALUES ('" + txTitle.Text + "', '" + txSectionCode.Text + "')"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.Rows.Add(0, txSectionCode.Text, txTitle.Text)
End Select

---

Private Sub btUpdate_Click(sender As Object, e As EventArgs) Handles btUpdate.Click
Dim update As DataGridViewRow = DataGridView1.SelectedRows(0)
If txReplaceid.Text = "0" Then MsgBox("You cannot edit new records without refresh.") : Exit Sub
Select Case table_selected
Case "copytext"
update.Cells(1).Value = txTitle.Text
update.Cells(2).Value = TXfield3.Text
update.Cells(3).Value = txSectionCode.Text
Try
sqL = "UPDATE [copy_it] SET [category]='" + txTitle.Text + "',[copy_text]='" + TXfield3.Text + "',[notes]='" + txSectionCode.Text + "' WHERE [copyID]=" + txReplaceid.Text
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Case "multireplace"
update.Cells(1).Value = txTitle.Text
update.Cells(2).Value = txSectionCode.Text
Try
sqL = "UPDATE [mulitreplace] SET [title]='" + txTitle.Text + "',[section_code]='" + txSectionCode.Text + "' WHERE [replaceid]=" + txReplaceid.Text
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Case "directorycopy"
update.Cells(1).Value = txTitle.Text
update.Cells(2).Value = txSectionCode.Text
Try
sqL = "UPDATE [directory_copy] SET [prefix]='" + txTitle.Text + "',[directory]='" + txSectionCode.Text + "' WHERE [directoryID]=" + txReplaceid.Text
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Case "filepaths"
update.Cells(1).Value = txSectionCode.Text
Try
sqL = "UPDATE [file_paths] SET [file_path]='" + txSectionCode.Text + "' WHERE [pathID]=" + txReplaceid.Text
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Case "emailfiltered"
update.Cells(2).Value = txTitle.Text
update.Cells(1).Value = txSectionCode.Text
Try
sqL = "UPDATE [Filtered_email] SET [importance]='" + txTitle.Text + "',[email]='" + txSectionCode.Text + "' WHERE [emailID]=" + txReplaceid.Text
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Case "emailmoved"
update.Cells(1).Value = txTitle.Text
update.Cells(3).Value = TXfield3.Text
update.Cells(2).Value = txSectionCode.Text
Try
sqL = "UPDATE [move_email] SET [move_to]='" + txTitle.Text + "',[archive]='" + TXfield3.Text + "',[subject_filter]='" + txSectionCode.Text + "' WHERE [moveID]=" + txReplaceid.Text
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Select

Imports System.Data.OleDb

Module ModConnection
Public cur As Form
Public dt As DataTable
Public conn As OleDbConnection
Public cmd As OleDbCommand
Public dr As OleDbDataReader
Public da As OleDbDataAdapter
Public ds As DataSet
Public sqL As String
Public Sub ConnDB()
Dim R As String = My.Computer.Name '
R = GetIni("Database", R, INI)
If R = "" Then
WriteIni("Database", My.Computer.Name, "Dropboxvb10fileExplorerfileExplorerbinReleasePHPCreator.mdb", INI)
Shell("write.exe " + INI, vbNormalFocus) : Exit Sub
End If
'C:UserssteveDropboxvb10fileExplorerfileExplorerbinReleasePHPCreator.mdb"
Try
Dim connectionString As String = "Provider=Microsoft.jet.oledb.4.0;Data Source=" + R
'Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + R
conn = New OleDbConnection(connectionString)
'conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "beer.mdb;")
'conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Databasephone.mdb;Jet OLEDB:Database Password = escobar;")
conn.Open()
Catch ex As Exception
MsgBox("Failed in Connecting to database")
End Try
End Sub
Public Function getDataTable(ByVal SQL As String) As DataTable
ConnDB()
Dim cmd As New OleDbCommand(SQL, conn)
Dim dt As New DataTable
Dim da As New OleDbDataAdapter(cmd)
da.Fill(dt)
Return dt
End Function
End Module

-------------- radio button test -------------------------

Private Sub rbFilePaths_CheckedChanged(sender As Object, e As EventArgs) Handles rbFilePaths.CheckedChanged
If rbFilePaths.Checked = True Then table_selected = "filepaths" : btRefresh_Click(sender, e)
End Sub

Private Sub rbMultireplace_CheckedChanged(sender As Object, e As EventArgs) Handles rbMultireplace.CheckedChanged
If rbMultireplace.Checked = True Then table_selected = "multireplace" : btRefresh_Click(sender, e)
End Sub

Private Sub txText_TextChanged(sender As Object, e As EventArgs) Handles txText.TextChanged

End Sub

Private Sub rbDirectoryCopy_CheckedChanged(sender As Object, e As EventArgs) Handles rbDirectoryCopy.CheckedChanged
If rbDirectoryCopy.Checked = True Then table_selected = "directorycopy" : btRefresh_Click(sender, e)
End Sub

Private Sub RBcopyText_CheckedChanged(sender As Object, e As EventArgs) Handles RBcopyText.CheckedChanged
If RBcopyText.Checked = True Then table_selected = "copytext" : btRefresh_Click(sender, e)
End Sub

Private Sub RBemailFiltered_CheckedChanged(sender As Object, e As EventArgs) Handles RBemailFiltered.CheckedChanged
If RBemailFiltered.Checked = True Then table_selected = "emailfiltered" : btRefresh_Click(sender, e)
End Sub

Private Sub RBemailMove_CheckedChanged(sender As Object, e As EventArgs) Handles RBemailMove.CheckedChanged
If RBemailMove.Checked = True Then table_selected = "emailmoved" : btRefresh_Click(sender, e)
End Sub

====== selected table =============
Select Case table_selected
Case "copytext"

Case "directorycopy"

Case "multireplace"

Case "filepaths"

Case "emailmoved"

Case "emailfiltered"

End Select

ALTER TABLE prices
ADD COLUMN inventory smallint AFTER invoice;

ALTER TABLE eqMaintenance ADD COLUMN filter2id smallint AFTER filterid

ALTER TABLE filters ADD COLUMN model varchar(75) AFTER description
ALTER TABLE filters ADD COLUMN code varchar(10) AFTER model

ALTER TABLE filters ADD COLUMN cost decimal (10,2) AFTER type_of
ALTER TABLE fertilizer_applied ADD COLUMN crop_year smallint AFTER acres

=================================


increase size:
ALTER TABLE table_name MODIFY COLUMN column_name SMALLINT;
ALTER TABLE `bible` MODIFY COLUMN `chapter` SMALLINT;
ALTER TABLE `transactions` MODIFY `description` varchar (400);
ALTER TABLE `lastbackup` MODIFY `source` varchar (500);
ALTER TABLE `fertilizer_applied` MODIFY `comments` varchar (400);

ALTER TABLE `purchases` MODIFY `description` varchar (400);
ALTER TABLE `equipment_photo` MODIFY `caption` varchar (100);


MySQL ALTER TABLE Statement
The ALTER TABLE statement is used to add, delete, or modify columns in an existing table.

The ALTER TABLE statement is also used to add and drop various constraints on an existing table.

ALTER TABLE - ADD Column
To add a column in a table, use the following syntax:

ALTER TABLE table_name
ADD column_name datatype;
The following SQL adds an "Email" column to the "Customers" table:

ExampleGet your own SQL Server
ALTER TABLE Customers
ADD Email varchar(255);
ALTER TABLE - DROP COLUMN
To delete a column in a table, use the following syntax (notice that some database systems don't allow deleting a column):

ALTER TABLE table_name
DROP COLUMN column_name;
The following SQL deletes the "Email" column from the "Customers" table:

Example
ALTER TABLE Customers
DROP COLUMN Email;
ALTER TABLE - MODIFY COLUMN
To change the data type of a column in a table, use the following syntax:

ALTER TABLE table_name
MODIFY COLUMN column_name datatype;

http://www.dreamincode.net/forums/topic/59527-make-a-program-to-run-in-the-background/

This tutorial deals with how to make a standard VB.NET application run
in the background, like a process. By background i mean that the
application will have no interface (form or console) and will run from a
Sub Main(), but will not terminate once all the code in Main has
executed. That means your program will run like a normal form
application, and will only exit when told to. First, create a standard
Windows Form application. Then, go to the solution explorer, and double
click on the item that says My Project.

[attachment=7480:attachment]

Once that is opened, you should see something like this

[attachment=7484:attachment]

There are a few very simple things you need to change there. First,
uncheck the box that says "Enable Application Framework". Then, go to
the box that says "Startup Object:" and change that to Sub Main. Then,
delete the form that was put in your application automatically. By now,
you should notice that there is no startup object in your application.
In fact, there is no Code in your application. So, you need to add a Sub Main in. Add a new module to your application (call it anything you want). Then, add this sub into your module:



Let me explain exactly what this is doing. When you changed the startup
object to Sub Main, you application will execute from a Main routine,
like a console application, so what is stopping it from showing a
console window? Notice the box that says "Application Type:". You will
see that that is set to "Windows Form Application". When you create a
console application, that box is set to "Console Application". When you
create any windows form application, there, of course, is no console
window. That is because the application has a type of "Windows Form
Application", which basically means your application will not show a
console. Of course, in Consle Applications, there are no forms. So what
happens when you application's type is Windows Form Application, and
there is no form in it? Your program will have no interface at all. But,
even though your application is called a Windows Form Application, it
will still exit once all the code in Sub Main has executed, like a
console application. To prevent that, you must have a line at the end of your Main routine that says Application.Run().
That line will prevent your application from closing right after Main
has finished. Now, it will run like a standard form application, just
with no form, and the only way you can close it is with an Application.Exit()
call. And it's as simple as that. You can treat the module your main
routine is in as if it was the code for your form. The only difference
is, there is no form, and you can't add controls to it in the designer
(because there is no interface there to design). So, for example, if you
wanted to add a timer to your application, you can't just drag-and-drop
it on the form, you have to get down and dirty and add it in manually,
with something like this



That will create a timer object, exactly as if it was created by the
designer. To add a tick event handler for it, go to the box near the
top-left of the code editor. Select the item that says "Timer1", or
whatever you called your timer. Then, select the box next to it and it
will show a list of events for that control. Click the one you want,
Tick in this case, and it will add an event handler for that event
directly into your code.

Private Sub laPath_DoubleClick(sender As Object, e As EventArgs) Handles laPath.DoubleClick
Dim filePath As String = laPath.Text 'Example file
Process.Start("explorer.exe", "/select," & filePath) : Application.DoEvents()
End Sub

customize top and bottom table:

input.txwhere {min-width:300px;} length of where textbox
table.formtablewidth {width:100%;max-width:800px;}
table.reportActionTable {max-width:1200px;min-width:800px;} width of bottom table
textarea.textareaDimension{ width:100%;min-height: 200px; }
hr.cell_split{color:red;} color of line in merged cells

---

.navletters{margin:0 5px 0 10px;}
input, textarea, select {font-family:verdana;font-size:8pt;margin-top:3px}
input[type="checkbox"] {
border: 2px solid #2c4358;
}
table.formtablewidth {width:100%;max-width:800px;}
textarea.textareaDimension{ width:100%;min-height: 200px; }
table.reportActionTable {max-width:1200px;min-width:800px;}

A:link {text-decoration:underline;color:#330033;font-size:8pt}
A:visited {text-decoration:none;color:#0033FF;font-size:8pt}
A:link.menu {text-decoration:none;color:#330033;font-size:8pt;font-family:Arial}

A.menu:visited {text-decoration:none;color:#666666;font-size:8pt}
A:hover.menu {color:#ffcc66;font-size:8pt}
A.menu:active {text-decoration:none;color:#666666;font-size:8pt}
A:link.calendar {text-decoration:underline;color:#330033;font-size:8pt}
A:link.menu {text-decoration:none;color:#330033;font-size:8pt;font-family:Arial}

A:visited.calendar {text-decoration:underline;color:#666666;font-size:8pt}
A:hover.calendar {color:#ffcc66;font-size:8pt}
A:active.calendar {text-decoration:underline;color:#666666;font-size:8pt}
hr.cell_split{color:#FFFF00;}
img {border:0px;border-style:inset;border-color:black}
UL {margin-left:20px;margin-bottom:0in;margin-top:0in;}
LI {margin:1px 1px 1px 1px}
LI.large {margin:1px 1px 1px 1px;font-size:16pt}
body{margin-left:30px;margin-top:0px;font-size:10pt;font-family:Verdana}
p{font-family:verdana;font-size:10pt}
p.menu{font-family:verdana;font-size:8pt;margin-right:20px;margin-top:.5em}
table{border-color:#CCCCCC;border-collapse:collapse;}
tr.alt{background-color:#EEEEEE;}
td.debt{ color:red; }
td{font-family:verdana;font-size:8pt;border:1px solid #CCCCCC;padding:3px 4px 3px 6px;}
td.small{font-family:verdana;font-size:6pt}
td.menu{font-family:verdana;font-size:7pt}
p.title{font-family:verdana;font-size:12pt;font-weight:bold}
p.large{font-family:verdana;font-size:22pt}
input, textarea, select {font-family:verdana;font-size:8pt;margin-top:3px}
#menud table{border:none;border-color:#000000;width:150;border-collapse:collapse;background-color:#CCCCCC}
#menud td.menuon {background-color:#66FF00;color:#000000;border:1pt solid #000000;text-align:right}
#menud td.menuoff {background-color:#0033FF;color:#FFFFFF;border:1pt solid #000000;text-align:right}
#menud tr.space{height:15px}
#menud td.space{Border-top:0px;Border-bottom: 0px solid;Border-right:1pt solid #000000;Border-left:1pt solid #000000}
#menud tr{height:20px}
#menud p{font-family:Verdana;font-size:10pt;font-weight:bold;margin-left:5px;margin-right:5px}
input, textarea, select {font-family:verdana;font-size:8pt;margin-top:3px}
div.scroll{overflow:auto;text-align:left;min-width:450px;max-width:600px;max-height:200px; }
textarea.descriptionLED {height:250px; }
@media screen and (max-width: 1100px) {
body{ zoom:2.5;}
}

Like windows 7 you can use the control panel to adjust the power management and hardware settings. Windows 8 has the PC Settings in the right bar under "SETTINGS" that also has options. My Samsung computer would dim every time it would boot up and I would take it to the place I bought and could not create it. After several hours of frustration I found an auto dim setting that I unchecked. Make sure you look here also

You can automatically number a column in Excel using the Fill Handle, Fill Series, or the ROW function to create a sequential numbering system easily.
Method 1: Using the Fill Handle
Enter Initial Numbers: In the first two cells of the column where you want to start numbering, enter the numbers 1 and 2 (or any starting numbers you prefer).
Select Cells: Highlight both cells containing the numbers.
Use the Fill Handle: Move your cursor to the bottom-right corner of the selection until you see a small plus sign (the Fill Handle).
Drag or Double-Click: Click and drag the Fill Handle down to fill the column with sequential numbers, or double-click it to auto-fill the column based on adjacent data.
2


2 Sources
Method 2: Using the Fill Series Option
Enter Starting Value: Type 1 in the first cell of the column.
Access Fill Options: Go to the Home tab, click on Fill, and select Series from the dropdown menu.
Configure Series: In the Series dialog box, choose Columns for Series in, set the Step Value to 1, and specify the Stop Value based on how many rows you want to number.
Click OK: This will fill the column with a sequential series of numbers.
2


2 Sources
Method 3: Using the ROW Function
Enter the Formula: In the first cell of the column, type the formula =ROW(A1) (adjust the cell reference based on your starting position). This will return the row number of the cell.
Drag the Fill Handle: Use the Fill Handle to drag the formula down the column. Each cell will display its corresponding row number, which updates automatically if rows are added or deleted.
2


2 Sources
Tips
Adjust Starting Point: If you want to start numbering from a different number, you can modify the formula accordingly (e.g., =ROW(A1)-4 to start from 1 in row 5).
Manual Updates: If you use the Fill Handle or Fill Series, remember that these numbers won't automatically update if you add or remove rows; you may need to redo the process to maintain accuracy.
1

By following these methods, you can efficiently auto-number columns in Excel to keep your data organized and easily readable.

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2_Click(Sender, e)
End Sub

BTbulkMove_Click(sender As Object, e As EventArgs) translates to BTbulkMove_Click(sender, e)

BTtest_Click(sender As Object, e As EventArgs) translates to BTtest_Click(sender, e)