Code: Select all
; ############################################################
Gui, 1:Add, Button, x50 y50 w300 h300 gSales ,Sales Mode
Gui, 1:Add, Button, x350 y50 w300 h300 gManager ,Manager Functions
; ############################################################
Gui, 2: Font, s16
Gui, 2:add, Edit, x1100 y10 w400 h100 vClerkNumIn Password* ;or Password#
;~ Gui, 2:Add, Picture, gHome x10 y10 w100 h-1, Home.png
Gui, 2:Add, Button, gHome x10 y10 w100 h100, Home
Gui, 2:add, button, gClear x10 y113 w85 h85, C
Gui, 2:Add, Button, x95 y113 w170 h85, Sign on
Gui, 2:Add, Button, gAddText x10 y197 w85 h85, 1
Gui, 2:Add, Button, gAddText x95 y197 w85 h85, 2
Gui, 2:Add, Button, gAddText x180 y197 w85 h85, 3
gui, 2:add, button, gAddText x10 y281 w85 h85, 4
Gui, 2:Add, Button, gAddText x95 y281 w85 h85, 5
Gui, 2:Add, Button, gAddText x180 y281 w85 h85, 6
gui, 2:add, button, gAddText x10 y365 w85 h85, 7
Gui, 2:Add, Button, gAddText x95 y365 w85 h85, 8
Gui, 2:Add, Button, gAddText x180 y365 w85 h85, 9
gui, 2:add, button, gAddText x10 y449 w85 h85, 0
Gui, 2:Add, Button, gAddText x95 y449 w85 h85, 00
Gui, 2:Add, Button, gAddText x180 y449 w85 h85, .
Gui, 2:Add, Button, gClockIn x280 y381 w200 h150 ,Clock in
Gui, 2:Add, Button, gClockOut x480 y381 w200 h150 ,Clock out
Gui, 2: Font, s28
Gui, 2:add, text, x660 y10, Please sign on
Gui, 2: Font, s16
; ############################################################
Gui, 3:Add, Button, gHome x10 y10 w100 h100, Home
Gui, 3:Add, Button, x150 y50 w250 h250 gAddClerk ,Add Clerk
; ############################################################
Gui, 4:Add, Button, gHome x10 y10 w100 h100, Home
gui, 4:add, edit, x150 y10 w400 h50 vClerkName
gui, 4:add, edit, x650 y10 w400 h50 vClerkNum
Gui, 4:Add, Button, gAddTextName x160 y175 w25 h25, A
Gui, 4:Add, Button, gAddTextName x240 y200 w25 h25, B
Gui, 4:Add, Button, gAddTextName x195 y200 w25 h25, C
Gui, 4:Add, Button, gAddTextName x210 y175 w25 h25, D
Gui, 4:Add, Button, gAddTextName x200 y150 w25 h25, E
Gui, 4:Add, Button, gAddTextName x235 y175 w25 h25, F
Gui, 4:Add, Button, gAddTextName x260 y175 w25 h25, G
Gui, 4:Add, Button, gAddTextName x285 y175 w25 h25, H
Gui, 4:Add, Button, gAddTextName x325 y150 w25 h25, I
Gui, 4:Add, Button, gAddTextName x310 y175 w25 h25, J
Gui, 4:Add, Button, gAddTextName x335 y175 w25 h25, K
Gui, 4:Add, Button, gAddTextName x360 y175 w25 h25, L
Gui, 4:Add, Button, gAddTextName x290 y200 w25 h25, M
Gui, 4:Add, Button, gAddTextName x265 y200 w25 h25, N
Gui, 4:Add, Button, gAddTextName x350 y150 w25 h25, O
Gui, 4:Add, Button, gAddTextName x375 y150 w25 h25, P
Gui, 4:Add, Button, gAddTextName x150 y150 w25 h25, Q
Gui, 4:Add, Button, gAddTextName x225 y150 w25 h25, R
Gui, 4:Add, Button, gAddTextName x185 y175 w25 h25, S
Gui, 4:Add, Button, gAddTextName x250 y150 w25 h25, T
Gui, 4:Add, Button, gAddTextName x300 y150 w25 h25, U
Gui, 4:Add, Button, gAddTextName x220 y200 w25 h25, V
Gui, 4:Add, Button, gAddTextName x175 y150 w25 h25, W
Gui, 4:Add, Button, gAddTextName x195 y200 w25 h25, X
Gui, 4:Add, Button, gAddTextName x275 y150 w25 h25, Y
Gui, 4:Add, Button, gAddTextName x170 y200 w25 h25, Z
Gui, 4:Add, Button, gAddTextspace x315 y200 w75 h25, Space
gui, 4:add, button, gClear x10 y113 w85 h85, C
Gui, 4:Add, Button, gAddTextNum x650 y197 w85 h85, 1
Gui, 4:Add, Button, gAddTextNum x734 y197 w85 h85, 2
Gui, 4:Add, Button, gAddTextNum x818 y197 w85 h85, 3
gui, 4:add, button, gAddTextNum x650 y281 w85 h85, 4
Gui, 4:Add, Button, gAddTextNum x734 y281 w85 h85, 5
Gui, 4:Add, Button, gAddTextNum x818 y281 w85 h85, 6
gui, 4:add, button, gAddTextNum x650 y365 w85 h85, 7
Gui, 4:Add, Button, gAddTextNum x734 y365 w85 h85, 8
Gui, 4:Add, Button, gAddTextNum x818 y365 w85 h85, 9
gui, 4:add, button, gAddTextNum x734 y449 w85 h85, 0
gui, 4:add, Button, gAddclerk2 x150 y300 w150 h85, Add Clerk
Gui, 2:Show , w1540 h805, Home
return
Home:
Gui, 2:Hide
Gui, 3:Hide
Gui, 4:Hide
Gui, 1:Show , w1540 h805, Home
return
Sales:
Gui, 1:Hide
Gui, 2:Show , w1540 h805, Home
return
Manager:
Gui, 1:Hide
Gui, 3:Show , w1540 h805, Manager Functions
return
Addclerk:
Gui, 3:Hide
Gui, 4:Show , w1540 h805, Add Clerk
return
;-------------------------------------------------------------
1GuiClose:
Gui, 1:Hide
Gui, 2:Show , w1540 h805, Home
return
2GuiClose:
ExitApp
return
3GuiClose:
Gui, 3:Hide
Gui, 2:Show , w1540 h805, Home
return
4GuiClose:
Gui, 4:Hide
Gui, 3:Show , w1540 h805, Manager Functions
return
Addclerk2:
Gui, Submit, NoHide
IniRead, IsClerkNumExist, Clerk.ini, Clerk, %ClerkNum%
if (IsClerkNumExist == "ERROR")
{
IniRead, ClerkList, Clerk.ini, ClerkList, ClerkList
if (ClerkList == "ERROR")
{
IniWrite, |, Clerk.ini, ClerkList, ClerkList
IniRead, ClerkList, Clerk.ini, ClerkList, ClerkList
}
IfNotInString, ClerkList, %ClerkName%
{
IniWrite, %ClerkName%, Clerk.ini, Clerk, %ClerkNum%
IniWrite, %ClerkList%%ClerkName%|, Clerk.ini, ClerkList, ClerkList
IniWrite, No, Online.ini, Clocked In:, %ClerkName%
MsgBox, 262208,Attention ,%ClerkName% Created.,2
return
}
else
{
MsgBox, 16,Attention ,%ClerkName% Exist.,2
}
}
else
MsgBox, 16,Attention ,%ClerkNum% Exist.,2
return
ClockIn:
Gui, Submit, NoHide
if (ClerkNumIn == "")
{
MsgBox, 262192,Attention ,Please Type a password to Clock In.,2
return
}
IniRead, ClerkInName, Clerk.ini, Clerk, %ClerkNumIn%
IniRead, Value, Online.ini, Clocked In:, %ClerkInName%
if (Value == "No")
{
FormatTime, TimeIn,, HH:mm:ss
FormatTime, DateIn,, ShortDate
IniWrite, Yes, Online.ini, Clocked In:, %ClerkInName%
IniWrite, %A_Now%, Online.ini, Clocked In:, %ClerkInName% Last Time Clocked in
IniWrite, In, Hours.ini, %ClerkInName% - %DateIn%, %TimeIn% Clocked
GuiControl,, ClerkNumIn
MsgBox, 262208,Attention ,%ClerkInName% Clocked In.,2
}
else
MsgBox, 262192,Attention , You are Clock In,2
return
ClockOut:
Gui, Submit, NoHide
if (ClerkNumIn == "")
{
MsgBox, 262192,Attention ,Please Type a password to Clock Out.,2
return
}
IniRead, ClerkInName, Clerk.ini, Clerk, %ClerkNumIn%
IniRead, Value, Online.ini, Clocked In:, %ClerkInName%
if (Value == "Yes")
{
FormatTime, TimeIn,, HH:mm:ss
FormatTime, DateIn,, ShortDate
IniRead, LastTimeClockedin, Online.ini, Clocked In:, %ClerkInName% Last Time Clocked in
RegExMatch(LastTimeClockedin, "(....)(..)(..)(..)(..)(..)",D)
TimeClockedin := ((A_YYYY - D1) ? A_YYYY - D1 " Years, " : "") ((A_MM - D2) ? A_MM - D2 " Mounths, " : "") ((A_DD - D3) ? A_DD - D3 " Days, " : "") ((A_Hour - D4) ? A_Hour - D4 " Hours, " : "") ((A_Min - D5) ? A_Min - D5 " Minutes, " : "") ((A_Sec - D6) ? A_Sec - D6 " Seconds" : "")
IniWrite, Out (After %TimeClockedin%), Hours.ini, %ClerkInName% - %DateIn%, %TimeIn% Clocked
IniWrite, No, Online.ini, Clocked In:, %ClerkInName%
GuiControl,, ClerkNumIn
MsgBox, 262208,Attention ,%ClerkInName% Clocked Out.,2
}
else
MsgBox, 262192,Attention ,Please Clock in First.,2
return
AddText:
Gui, Submit, NoHide
GuiControl, , ClerkNumIn, % ClerkNumIn A_GuiControl
Return
Clear:
ClerkNumIn := ClerkNum := ClerkName := ""
GuiControl,, ClerkNumIn
GuiControl,, ClerkNum
GuiControl,, ClerkName
return
AddTextName:
Gui, Submit, NoHide
GuiControl,, ClerkName, % ClerkName A_GuiControl
return
AddTextNum:
Gui, Submit, NoHide
GuiControl,, ClerkNum, % ClerkNum A_GuiControl
return
AddTextspace:
GuiControl,, ClerkName, % ClerkName " "
Return