【正文】 沒(méi)有更改。記錄是否更改查詢條件或字段的變量 LOCA FOR 編號(hào) = amp。根據(jù)條件建立查詢 SELE 商品信息 表 IF mygg=.f. amp。fh tj INTO CURSOR lssxb amp。查詢條件 ELSE tj=alltrim() ENDIF SELECT * FROM 商品信息表 WHERE amp。optionmc..caption) exit ENDIF ENDFOR IF empty() OR empty() RETURN ENDIF IF fh=LIKE tj=alltrim()+% amp。連接符號(hào) optionmc=OPTION+alltrim(str(m)) IF .amp。查詢字段 FOR m=1 TO 4 amp。 (+alltrim( )+)[+alltrim( )+] WHERE 編號(hào) =lssp.編號(hào) ENDIF ENDIF =.t. ENDIF ENDCASE ENDIF 在表格控件 Grid1 的 AfterRowColChange 事件下添加如下代碼： 在 Grid1 控件的 Init 事件下添加如下代碼： SELE 商品信息表 (DynamicBackColor,iif(reo()%2=0,rgb(188,240,209),rgb(255,255,255)),Column) 在“查詢字段”組合框的 Init 事件下添加如下代碼： PUBLIC mygg,jlh mygg=.f. jlh=1 (編號(hào) ) (名稱 ) (簡(jiǎn)稱 ) (規(guī)格 ) 19 (計(jì)量單位 ) (產(chǎn)地 ) 在“查詢字段”組合框的 InterActiveChange 事件下添加如下代碼： mygg=.f. 在“查詢條件”文本框的 InterActivechange 事件下添加如下代碼： mygg=.f. 在“查詢”按鈕的 Click 事件下添加 如下代碼： zd=alltrim() amp。 alltrim()+] SELE lssp FOR m=1 TO reccount() SELE lssp GOTO m IF alltrim()==alltrim( ) messagebox(對(duì)不起！您輸入的商品在數(shù)據(jù)表中已經(jīng)存在！ ,16。查詢同名商品 IF reccount()0 =alltrim()+。 INTO CURSOR lssp amp。textname..enabled=.t. ENDFOR =.t. 17 =.f. =.f. =.f. 在 Oftenbuttons1 控件的 _ChangeButtonClick 事件下添加如下代碼： FOR m=4 TO 12 textname=text+alltrim(str(m)) thisform.amp。amp。SP0000139。39。39。清空文本框 textname=text+alltrim(str(m)) thisform.amp。textname..enabled=.f. ENDFOR =.f. GOTO 1 =.t. =.t. =.t. =.t. 在 Oftenbuttons1 控件的 _AddButtonClick 方法程序下添加如下代碼： PRIVATE bh FOR m=1 TO 6 amp。amp。amp。使文本框失效 textname=text+alltrim(str(m)) thisform.amp。 FOR m=2 TO 12 amp。 =39。textname..value= ENDFOR ={} ={} =0 =0 =0 =39。amp。 保質(zhì)期 =txt(8),進(jìn)價(jià) =txt(9),批發(fā)價(jià) =txt(10),零售價(jià) =txt(11),備注 =txt(12),。 VALUES(txt(1),val(alltrim(get(8))),val(alltrim(get(9)))) ELSE UPDATE 商品信息表 SET 名稱 =txt(2),簡(jiǎn)稱 =lower(txt(3)),規(guī)格 =txt(4),。 然后再試一次！ ,16, 系統(tǒng)提示 ) ENDIF get(8)=9999 get(9)=1 15 ELSE FOR m=1 TO 9 get(m)=fgets(handle1) ENDFOR ENDIF fclose(handle1) IF =1 INSERT INTO 商品信息表 VALUES(txt(1),txt(2),lower(txt(3)),Txt(4),。將數(shù)值及日期型數(shù)據(jù)存入數(shù)組 ENDFOR txt(12)=alltrim() txt(13)=(供應(yīng)商信息表 ,全稱 ,。txtname..value amp。amp。取出供應(yīng)商名稱 SELE 商品信息表 =padl(alltrim(str(reccount())),5,0) =reccount() =reo() SELE 商品信息表 在表單的 Init 事件中添加如下代碼： SET DELE ON 在表單的 Unload 事件中添加如下代碼： CLOSE ALL database USE data\商品信息表 EXCL PACK USE 14 USE data\庫(kù)存信息表 EXCL PACK USE 在“名稱”文本框的 InterActiveChange 事件下添加如下代碼： =lower(()) 在“名稱”文本框的 Click 事件下添加如下代碼： =() 在 Locatebuttons1 控件的 _FirstButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _LastButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _NextButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _PreviousButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Oftenbuttons1 控件的 _SaveButtonClick 方法程序下添加如下代碼： DIME txt(13),get(9) ***存入信息 SELE 商品信息表 thisreo=reo() FOR m=1 TO 6 txtname=text+alltrim(str(m)) txt(m)=alltrim(thisform.amp。 numbertoname(供應(yīng)商信息表 ,全稱 ,商品 信息表 .供應(yīng)商編號(hào) ,1) amp。 13 （ 3）重要控件的屬性設(shè)置如表 6 所示。 表單設(shè)計(jì) （ 1）在“通用進(jìn)銷存管理系統(tǒng)”項(xiàng)目文件中添加一個(gè)表單， 名為 Frm商品信息。 11 對(duì)象 屬性 值 Form1 AutoCenter .T. Form1 ShowWindows 2作為頂層表單 ListView1 BackColor 13160660 表 5 重要控件及屬性 代碼設(shè)計(jì) 在表單的 Init 事件下添加如下代碼： PUBLIC no SET SAFT OFF no=0 SELE 操作員信息表 =0 = IF reccount()0 FOR m=1 TO reccount() SELE 操作員信息表 GOTO m =(,操作員信息表 .用戶名 ,操作員信息表 .頭像 ) ENDFOR ELSE =(,超級(jí)管理員 ,rand(11)*12) ENDIF 在表單的 Unload 事件下添加如下代碼： QUIT 在“登錄”按鈕的 Click 事件下添加如下代碼： IF alltrim()=超級(jí)管理員 gly=超級(jí)管理員 =1100 =.f. DO FROM forms\frmmain ELSE SELECT * FROM 操作員信息表 WHERE 用戶名 =alltrim() 。 （ 2）向表單內(nèi)添加 Label 控件、 ListView 控件、 ImageList 控件、 Text 控件、 Command控件、 Container 控件、 FormIn 類控件、 LockDateBase 類控件。系統(tǒng)登錄模塊運(yùn)行結(jié)果。 INTO CURSOR lsb IF alltrim( )==alltrim() gly= =1100 =.f. DO FROM forms\frmmain ELSE no=no+1 IF no=3 10 messagebox(您輸入密碼不正確！ ”,16,”系統(tǒng)提示 ) (sys(5)+sys(2020)+\data\, 正在加密，請(qǐng)稍后 ...) =.t. =0 ELSE messagebox(您輸入的密碼不正確！請(qǐng)注意大小寫！ ,16,系統(tǒng)提示 ) = ENDIF ENDIF ENDIF 在“密碼”文本框的 KeyPress 事件下添加如下代碼： IF nkeycode=13 ENDIF 在 Listview 控件的 KeyPress 事件下添加如下代碼： IF keyascii=13 ENDIF 在 ListView 控件的 Click 事件下添加如下代碼： = select * from 操作員信息表 where 用戶名 =alltrim() into cursor lsb_czy = = 在“退出” 按鈕的 Click 事件下添加如下代碼： (sys(5)+sys(2020)+\data\,正在加密，請(qǐng)稍后 ...) IF file(sys(5)+sys(2020)+\)=.t. DELE FILE (sys(5)+sys(2020)+\) ENDIF =.t. =0 為了保證應(yīng)用程序的安全，通 常要設(shè)計(jì)系統(tǒng)登錄表單驗(yàn)證用戶是否合法。 （ 3）重要控件的屬性設(shè)置如表 4 所示。 表單設(shè)計(jì) （ 1）新建一個(gè)表單，命名為 Frm登錄。只有合法的用戶才可進(jìn)入系統(tǒng)。 （ 3）按照上面的方法，再為 StatusBar 控件添加 4 個(gè) Panels 對(duì)象，它們的寬度分別為 3 100、 100、 100。 （ 6）在 ToolBar 控件的 ButtonClick 事件下添加如下代碼： ActiveX 控件事件 LPARAMETERS button DO CASE CASE =2 DO FROM forms\frm訂單 CASE =3 DO FROM forms\frm銷售管理 CASE =5 DO FROM forms\frm配送申請(qǐng) CASE =6 DO FROM forms\frm配送開(kāi)票 CASE =7 DO FROM forms\frm配送結(jié)款 CASE =9 DO FROM forms\frm入庫(kù)管理 CASE =10 DO FROM forms\frm庫(kù)存查詢 CASE =12 DO FROM forms\frm商品信息 CASE =13 DO FROM forms\frm商品銷售查詢 CASE =14 DO FROM forms\frm商品銷售排行 CASE =16 DO FROM forms\frm日?qǐng)?bào)表 CASE =18 DO FROM forms\frm數(shù)據(jù)備份 ENDCASE 創(chuàng)建狀態(tài)欄 （ 1）在表單中添加一個(gè) StatusBar 控件， 并在該控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇 “SBarCtrl properties”菜單項(xiàng)，將打開(kāi) “SBarCtrl 屬性 ”對(duì)話框。在此容器控件中添加一個(gè) Shape 控件，更改其屬性，如表 3 所示。blname. =.f. (m).enabled=.f. ENDIF ENDIF ENDFOR （ 3）調(diào)整 ToolBar 控件的位置，在 ToolBar 控件下方添加一張圖片，作為工具按鈕的顯示區(qū)域。,3,0) (2).tooltiptext=訂單管理 (3).tooltiptext=銷售管理 (5).tooltiptext=配送申請(qǐng) (6).tooltiptext=配送開(kāi)票 (7).tooltiptext=配送結(jié)賬 (9).tooltiptext=入庫(kù)管理 (10).tooltiptext=庫(kù)存查