管理信息系統課程設計醫藥管理信息系統(編輯修改稿)

　

【文章內容簡介】 nxi pack use do form bwl 14 四、 程序設計 本系統除去主表單設計外，內容表單分別有密碼管理表單、客戶信息表單、供應商表單、藥品入庫表單、藥品出庫表單、入庫記錄查詢表單、出庫記錄查詢表單、備忘錄表單等 8 個項目表單。其主要程序設計如下： （一） 密碼管理表單設計 （ 1）表單的主要屬性： AutoCenter=.T. BorderStyle=“ 2固定對話框” Caption=“用戶密碼管理” Height=299 Icon=“ c:\mis\graphics\ico\control ” MaxButton=.F. MinButton=.F. Width=582 WindowState=0普通 （ 2）文本框的主要屬性： ControlSource=“無” Enabled=.f. FontName=“宋體” FontSize=11 Height=25 （ 3）組合框的主要屬性： 15 BoundColumn=1 ColumnWidths=“無” ControlSource=“無” Enabled=.f. FirstElement=1 FontName=“宋體” FontSize=11 Height=25 Left=380 ReadOnly=.f. RowSource=“系統管理員，普通用戶” RowSourceType=“ 1值” SelectOnEntry=.t. Style=“ 0下拉組合框” Top=258 Width=114 （ 4）表格控件的主要屬性： ColumnCount=3 DeleteMark=.f. Enabled=.t. FontName=“宋體” FontSize=11 GridLineColor=“ 0,0,255” GridLineWidth=1 HeaderHeight=20 Height=223 Left=9 ReadOnly=.t. RecordMark=.t. RecordSource=“ pass” RecordSourceType=“ 1別名” RowHeight=20 Top=27 Width=485 （ 5）表單的“ Init”事件代碼： public xgbzhi,rec xgbzhi=.f. rec=0 set deleted on =.t. =.t. =.t. 16 =.f. =.t. =.f. （ 6）“刪除”命令按鈕的“ Click”事件代碼： sele pass if eof().() nAnswer=messagebox(39。你還沒有選擇要刪除的注冊用戶記錄！請選定一個要刪除的用戶！ 39。,0,39。警告！ 39。) return endif dele =.t. =.t. =.t. =.f. =.t. =.f. （ 7）“修改”命令按鈕的“ Click”事件代碼： if eof().() nAnswer=messagebox(39。你還沒有選擇要修改的注冊用戶記錄！請選定一個要修改的用戶！ 39。,0,39。警告！ 39。) return endif =.t. =.t. =.t. =.f. =.f. =.f. =.t. =.t. =.t. =.f. rec=reo() =yhm =yhmm =yhlx xgbzhi=.t. 17 （ 8）“增加”命令按鈕的“ Click”事件代碼： =.t. =.t. =.t. =.f. =.f. =.f. =.t. =.t. =.t. =.f. =space(20) =space(20) =普通用戶 xgbzhi=.f. rec=0 （ 9）“保存”命令按鈕的“ Click”事件代碼： if len(alltrim())=0 .(alltrim(alue))=0 nAnswer=messagebox(39。用戶名、用戶密碼不能為空值！請再仔細檢查一下！ 39。,0,39。警告！ 39。) return endif if alltrim()!=普通用戶 .and.。 alltrim()!=系統管理員 nAnswer=messagebox(39。用戶類型 只允許為“普通用戶”或“系統管理員”！請再仔細檢查一下！ 39。,0,39。警告！ 39。) return endif sele pass dele all for len(alltrim(yhm))=0 if xgbzhi set dele on go rec dele locate all for alltrim(yhm)=alltrim() if .() nAnswer=messagebox(39。用戶名已存在！請換改用其他名字！39。,0,39。警告！ 39。) 18 set dele off go rec recall set dele on return endif set dele off go rec recall repl yhm with alltrim() repl yhmm with alltrim() repl yhlx with alltrim() set dele on else locate all for yhm=alltrim() if .() nAnswer=messagebox(39。用戶名已存在！請換改用其他名字！39。,0,39。警告！ 39。) return endif appe blank go bott repl yhm with alltrim() repl yhmm with alltrim() repl yhlx with alltrim() endif =space(20) =space(20) =普通用戶 =.f. =.f. =.f. =.t. =.t. =.t. =.f. =.t. =.f. =.t. （ 10）“取消”命令按鈕的“ Click”事件代碼： 19 = = = =.f. =.f. =.f. =.t. =.t. =.t. =.f. =.t. =.t. =.f. （ 11）“退出”命令按鈕的“ Click”事件代碼： release xgbzhi,rec （二） 客戶信息表單設計 20 控件設置： （ 1）“添加”按鈕的 Click 事件代碼： = .T. amp。amp。使保存按鈕處于可用狀態 Select kehuxinxi amp。amp。選擇客戶信息表 If RECCOUNT()=0 then amp。amp。如果表中的記錄數為零，則客戶編號為 1 kehubh=1 Else amp。amp。如果表中的記錄數不為零，則客戶編號為 最大客戶編號加 1 Select MAX(bh) as zuidabh From kehuxinxiinto cursortemp kehubh=zuidabh+1 Endif =kehubh amp。amp。將計算出來的客戶編號寫到文本框Text1 中 （ 2）“保存”按鈕的 Click 事件代碼： *將各個文本框中的信息存入變量中以便于操作 a= b= 對 象 類 型 對 象 名 屬 性 設 置 表單 Form1 Caption 客戶信息 Icon . 文本框 Text1 數據類型 數值 Enabled . 文本框 Text2 數據類型 字符 Enabled . 文本框 Text3 數據類型 字符 Enabled . 文本框 Text4 數據類型 字符 Enabled . 文本框 Text5 數據類型 字符 Enabled . 命令按鈕 Cmdtj Caption 添加 \A 命令按鈕 Cmdbc Caption 保存 \C Enabled . 命令按鈕 Cmdshch Caption 刪除 \D Enabled . 命令按