msgdiglog.lib

仿TC界面用汇编写的一个信息管理器

;--------------------------------
;功能：绘制确定对话框
;--------------------------------
ConfirmDialog macro
local frame
push ax
readbscr 10,28,14,48,bscrmm

drawwindow 70h,10,28,14,48
windowtandb 0dah,0c4h,0bfh,10,28,21,70h
outputstr text40,7,10,35,70h

mov al,11
frame:
windowlandr 0b3h,al,28,21,70h
inc al
cmp al,14
jl frame

windowtandb 0c0h,0c4h,0d9h,14,28,21,70h
outputstr text41,13,11,32,70h
outputstr text42,3,13,32,70h
outputstr text43,2,13,42,70h

pop ax
endm

;--------------------------------
;功能：绘制INSERT对话框
;--------------------------------
InsertDialog macro
local frame
push ax
readbscr 8,20,16,55,bscrmm

drawwindow 70h,8,20,16,55
windowtandb 0dah,0c4h,0bfh,8,20,36,70h
outputstr submenu21,6,8,35,70h

mov al,9
frame:
windowlandr 0b3h,al,20,36,70h
inc al
cmp al,16
jl frame

windowtandb 0c0h,0c4h,0d9h,16,20,36,70h

outputstr text21,12,10,21,70h
outputstr text22,12,11,21,70h
outputstr text23,12,12,21,70h
outputstr text24,12,13,21,70h
outputstr text25,12,14,21,70h

setpos 10,33
pop ax
endm

;-------------------------------------
;功能：管理对话框
;-------------------------------------
ManageDialog macro
local frame
push ax

readbscr 8,20,18,55,bscrmm

drawwindow 70h,8,20,18,55
windowtandb 0dah,0c4h,0bfh,8,20,36,70h
outputstr submenu24,6,8,35,70h

mov ax,9
frame:
windowlandr 0b3h,al,20,36,70h
inc al
cmp al,18
jl frame

windowtandb 0c0h,0c4h,0d9h,18,20,36,70h

outputstr text21,12,10,21,70h
outputstr text22,12,11,21,70h
outputstr text23,12,12,21,70h
outputstr text24,12,13,21,70h
outputstr text25,12,14,21,70h
outputstr text31,6,16,22,70h
changemenu 16,22,1,74h
outputstr text32,6,16,34,70h
changemenu 16,34,1,74h
outputstr text33,4,16,46,70h
changemenu 16,46,1,74h

pop ax
endm

;-----------------------------------------
;功能：绘制打开文件对话框
;-----------------------------------------
OpenFileDialog macro
local frame
push ax

readbscr 4,8,6,28,bscrmm
drawwindow 70h,4,8,6,28
windowtandb 0dah,0c4h,0bfh,4,8,21,70h
outputstr text50,9,4,14,70h

mov al,5
frame:
windowlandr 0b3h,al,8,21,70h
inc al
cmp al,6
jl frame

windowtandb 0c0h,0c4h,0d9h,6,8,21,70h

outputstr text51,5,5,9,70h
setpos 5,14

pop ax
endm

;------------------------------------------
;功能：绘制文件操作结果对话框
;------------------------------------------
OperateFileResultDialog macro meg
local frame
push ax

readbscr 8,22,12,52,bscrmm
drawwindow 70h,8,22,12,52
windowtandb 0dah,0c4h,0bfh,8,22,31,70h
outputstr text70,12,8,32,70h

mov al,9
frame:
windowlandr 0b3h,al,22,31,70h
inc al
cmp al,12
jl frame

windowtandb 0c0h,0c4h,0d9h,12,22,31,70h
outputstr meg,22,9,26,70h
outputstr msg6,29,11,23,70h
setpos MT,ML

pop ax
endm
;------------------------------------------
;功能：绘制保存文件操作对话框
;------------------------------------------
SaveFileDialog macro
local frame
push ax

readbscr 4,8,6,28,bscrmm
drawwindow 70h,4,8,6,28
windowtandb 0dah,0c4h,0bfh,4,8,21,70h
outputstr text60,9,4,14,70h

mov al,5
frame:
windowlandr 0b3h,al,8,21,70h
inc al
cmp al,6
jl frame

windowtandb 0c0h,0c4h,0d9h,6,8,21,70h

outputstr text51,5,5,9,70h
setpos FT,FL

pop ax
endm
;------------------------------------------
;功能：绘制查找记录对话框
;------------------------------------------
FindDialog macro title,num
local frame
push ax

readbscr 8,27,12,47,bscrmm
drawwindow 70h,8,27,12,47
windowtandb 0dah,0c4h,0bfh,8,27,21,70h
outputstr title,num,8,35,70h

mov al,9
frame:
windowlandr 0b3h,al,27,21,70h
inc al
cmp al,12
jl frame

windowtandb 0c0h,0c4h,0d9h,12,27,21,70h
outputstr text81,8,10,28,70h
setpos FINDT,FINDL

pop ax
endm
;------------------------------------------
;功能：绘制查找结果对话框
;------------------------------------------
FindResultDialog macro 
local frame
push ax

readbscr 8,22,12,52,bscrmm
drawwindow 70h,8,22,12,52
windowtandb 0dah,0c4h,0bfh,8,22,31,70h
outputstr text80,4,8,35,70h

mov al,9
frame:
windowlandr 0b3h,al,22,31,70h
inc al
cmp al,12
jl frame

windowtandb 0c0h,0c4h,0d9h,12,22,31,70h
outputstr text82,18,9,26,70h
outputstr msg6,28,11,23,70h

pop ax
endm

;------------------------------------------
;功能：绘制帮助对话框
;------------------------------------------
HelpDialog macro
local frame
push ax

readbscr 5,10,19,70,bscrmm
drawwindow 70h,5,10,19,70
windowtandb 0dah,0c4h,0bfh,5,10,61,70h
outputstr helpMsg0,4,5,38,70h

mov al,6
frame:
windowlandr 0b3h,al,10,61,70h
inc al
cmp al,19
jl frame

windowtandb 0c0h,0c4h,0d9h,19,10,61,70h
outputstr helpMsg1,55,7,12,70h
outputstr helpMsg2,38,9,12,70h
outputstr helpMsg3,36,11,12,70h
outputstr helpMsg4,35,13,12,70h
outputstr helpMsg5,32,15,12,70h
outputstr msg6,28,17,40,70h

pop ax
endm
;------------------------------------------
;功能：关于对话框
;------------------------------------------
AboutDialog macro
local frame
push ax

readbscr 7,20,17,55,bscrmm
drawwindow 70h,7,20,17,55
windowtandb 0dah,0c4h,0bfh,7,20,36,70h
outputstr text90,5,7,34,70h

mov al,7
frame:
windowlandr 0b3h,al,20,36,70h
inc al
cmp al,17
jl frame

windowtandb 0c0h,0c4h,0d9h,17,20,36,70h
outputstr msgtitle,25,9,25,70h
outputstr msg0,15,11,30,70h
outputstr msg1,23,13,26,70h
outputstr msg6,28,16,26,70h

pop ax
endm