jackcartersmith/RepairInventoryManager
Archived
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update and optimise some codes

Browse Source
This commit is contained in:
JackCarterSmith 2017-05-31 12:12:51 +02:00
parent 9d19953f7a
commit bfba757b6a
3 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ISEN-Repair Inventory Manager/Main.vb
View File

@ -45,7 +45,7 @@ Public Class Main
CREATE TABLE `credits` (
`pseudo` TEXT DEFAULT 'JackCarterSmith' UNIQUE,
`contact` TEXT DEFAULT 'j@bfnt.io' UNIQUE,
`commentaire` TEXT DEFAULT 'Vous m avez trouvé !' UNIQUE
`commentaire` TEXT DEFAULT 'Vous avez trouvé un EasterEgg félicitation !' UNIQUE
);"
Try
@ -149,6 +149,18 @@ Public Class Main
End Sub
Private Sub IDBox_TextChanged(sender As Object, e As EventArgs) Handles IDBox.TextChanged
If IDBox.Text = "666" Then
manualID_selected = True
StatusLabel.Text = "ID trouvé !"
NameBox.Text = "DELL Fuel Burning Serial - Complete collection"
EtatBox.Text = "Detonator armed"
SerieCheckBox.Checked = True
DetailsBox.Text = "DEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEAD"
EmpruntCheckBox.Checked = False
EmprunterName.Text = "Fuyez pauvre fou !"
GivenByBox.Text = "Enfer"
StatusLabel.Text = "Vous avez trouvé un EasterEgg félicitation !"
End If
If IDBox.Text.Length() = 10 Then
Dim dtr As SQLiteDataReader

4
ISEN-Repair Inventory Manager/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' en utilisant '*', comme indiqué ci-dessous :
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.1.52.0")>
<Assembly: AssemblyFileVersion("1.1.52.0")>
<Assembly: AssemblyVersion("0.7.0.0")>
<Assembly: AssemblyFileVersion("0.7.0.0")>

2
ISEN-Repair Inventory Manager/SplashScreen.Designer.vb generated
View File

@ -79,7 +79,7 @@ Partial Class SplashScreen
Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(241, 20)
Me.Version.TabIndex = 1
Me.Version.Text = "Version 1.00"
Me.Version.Text = "Version 0.7"
'
'Copyright
'