快速录入入库单调拨单的辅助脚本

受了群里老哥们的很多帮助,尤其是飞跃大佬

使用这个以后,录入的时候就可以不用按空格了

gui,destroy

Gui, Add, Text,,选择模式
Gui, add, DropDownList, v模式  g测试, 调拨单||入库单|暂停模式
Gui, Font, s16
Gui, Font, cBlue
Gui, Add, Text,,可以切换模式`,按alt+z都是输入仓库等头文件`n入库单暂时最多输入两位数`,就是先找到药然后输入数量`n完成一次跳转后按金额同样两位数`n调拨单是找到药之后直接按下一位数字即可自动换行`n按下F12为关闭程序
Gui, Show
Return

测试:
Gui, submit, NoHide
Return

F12::
ExitApp
return


#If 模式="入库单"
F10::MsgBox,入库单

!z::
SendInput,{Text}湖北聚瑞生物科技有限公司
Sleep 400
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}草药仓库
Sleep 400
SendInput,{Enter 4}
return


i=0
$0::
$1::
$2::
$3::
$4::
$5::
$6::
$7::
$8::
$9::
$Numpad0::
$Numpad1::
$Numpad2::
$Numpad3::
$Numpad4::
$Numpad5::
$Numpad6::
$Numpad7::
$Numpad8::
$Numpad9::
连续数字结果 .= SubStr(A_ThisHotkey,2)
#Persistent
SetTimer, 连续数字执行, 500
return
连续数字执行:
i+=1
if i=1  
{
SendInput {Enter 2}
Sleep, 300
SendInput {Text}%连续数字结果%
SendInput {Enter 2}
}
if i=2
{
SendInput {Text}%连续数字结果%
Sleep, 300
SendInput {Enter 3}
i=0
}
;-----------------
连续数字结果:=""
SetTimer,, Off
return
#If



#If 模式="调拨单"
F10::MsgBox,调拨单


!z::
SendInput 草药仓库
Sleep 1100
SendInput,{Enter}
Sleep 700
SendInput,{Tab}
Sleep 400
SendInput 门诊药房
Sleep 900
SendInput,{Enter}
Sleep 500
SendInput,{Tab}
Sleep 400
SendInput,{Enter}
return


1::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}1000
SendInput,{Enter}
return
2::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}2000
SendInput,{Enter}
return
3::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}3000
SendInput,{Enter}
return
4::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}4000
SendInput,{Enter}
return
5::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}5000
SendInput,{Enter}
return
6::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}6000
SendInput,{Enter}
return
7::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}6000
SendInput,{Enter}
return
8::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}8000
SendInput,{Enter}
return
9::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}9000
SendInput,{Enter}
return

Numpad1::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}1000
SendInput,{Enter}
return
Numpad2::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}2000
SendInput,{Enter}
return
Numpad3::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}3000
SendInput,{Enter}
return
Numpad4::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}4000
SendInput,{Enter}
return
Numpad5::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}5000
SendInput,{Enter}
return
Numpad6::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}6000
SendInput,{Enter}
return
Numpad7::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}6000
SendInput,{Enter}
return
Numpad8::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}8000
SendInput,{Enter}
return
Numpad9::
SendInput,{Enter 2}
Sleep 300
SendInput,{Text}9000
SendInput,{Enter}
return






#If











/*
;***************************************采购单**********************************************

;厂家药名和我们略有不同懒得用了

!o::
  ;简单的调用excel模型
objExcel:=Excel_Get()   ;-- 获取COM对象
y:=objExcel.ActiveCell.Row
x:=objExcel.ActiveCell.Column  ;-- 获取当前激活的单元格的行号（y）、列号（x）

arr:=[]  ;-- 读取当前行的所有文本数据到一个数组中（取文本值用“.Text”）
Loop, % x-1
  arr.Push( objExcel.Cells(y,A_Index).Text )
  objExcel.Cells(2,3).Activate

loop 5
{
  
  ;简单的调用excel模型
objExcel:=Excel_Get()   ;-- 获取COM对象
y:=objExcel.ActiveCell.Row
x:=objExcel.ActiveCell.Column  ;-- 获取当前激活的单元格的行号（y）、列号（x）

arr:=[]  ;-- 读取当前行的所有文本数据到一个数组中（取文本值用“.Text”）
Loop, % x-1
  arr.Push( objExcel.Cells(y,A_Index).Text )
; MsgBox,% objExcel.Cells(y,3).Value
  名称:=objExcel.Cells(y,3).Text
  数量:=objExcel.Cells(y,8).Text
  单价:=objExcel.Cells(y,9).Text
  判断:=objExcel.Cells(y,14).Value
if 判断=""
break
  SendInput,%名称%
  Sleep 1000
  SendInput,{Enter 2}
  Sleep 200
  SendInput,%数量%
  Sleep 600
  SendInput,{Enter 2}
  Sleep 200
  SendInput,%单价%
  Sleep 600
  SendInput,{Enter 3}
  Sleep 1000
  objExcel.Cells(y,15).Value:="已录入"
  
  objExcel.Cells(y+1,15).Activate
  
}
return

;*************************************************************************************


*/