自考计算机信息管理论文(自行车配件销售系统)

自考计算机信息管理论文(自行车配件销售系统)内容摘要：

dz1=(gysbhtotal,5) =string(dz1) yzbm1=(gysbhtotal,6) =string(yzbm1) dh1=(gysbhtotal,7) =string(dh1) cz1=(gysbhtotal,8) =string(cz1) lxr1=(gysbhtotal,9) =string(lxr1) lxrdh1=(gysbhtotal,10) =string(lxrdh1) khyh1=(gysbhtotal,11) =string(khyh1) 本科毕业 自行车配件销售管理系统 24 yhzh1=(gysbhtotal,12) =string(yhzh1) nsrdj1=(gysbhtotal,13) =string(nsrdj1) yxwz1=(gysbhtotal,14) =string(yxwz1) else end if =true =false 日常业务处理窗口的设计： 用户单击主菜单 [日常业务 ][入库登记 ]子菜单，进入“入库登记”界面。 用户单击 登记 按钮，光标将移到 供应商全称 下拉组合框上。 用户如实填入 供应商全称。 经手人、操作员、产品编号或零件号操作方法同上。 当用户选择 产品编号 或 零件号 后将自动填入对应产品的基本信息，光标跳到 进价 输入框内。 用户可以根据需要调整 进价 、 批发价 、 零售价。 在 数量 输入框内输入入库数量按按保存按钮以后，系统将自动 计算金额。 以上数据将存入临时表中，光标跳到产品编号上继续登记。 所要入库的产品全部登记完毕 ,单击 保存 按钮入库登记操作完成。 单击 取消 按钮，取消此次入库登记操作。 用户单击 退出 按钮，返回到系统的主菜单。 注： 1. 入库票号 /入库日期是系统自动生成的，不需要用户输入。 2. 用户选择 产品编号 将给出对应的 零件号 ；选择 零件号 将给出对应的 产品编号。 本科毕业 自行车配件销售管理系统 25 图 出库登记窗口 (sqlca) string sql,cuckph cuckph= sql=select khqc,jsr,czy,ckph,ckrq,jsfs,cpbh,ljh,cpmc,cx,cd,dw,hw,dj,sl,je from ckth_tab where ckph=39。 +cuckph+39。 (sql) () =true =true =true =true =true =true =true =true () =false =true 本科毕业 自行车配件销售管理系统 26 int ckph,row,a select count(*) into :ckph from ckth_tab。 a=ckph+1 int ckph4 declare cursor7 cursor for select ckph from ckth_tab。 open cursor7。 fetch cursor7 into :ckph4。 do while =0 if ckph4=a then a=a+1 end if fetch cursor7 into :ckph4。 loop close cursor7。 =string(a) string khqc declare cursor1 cursor for select distinct khqc from khxx_tab。 open cursor1。 () fetch cursor1 into :khqc。 do while =0 (khqc) fetch cursor1 into :khqc。 loop close cursor1。 string ygxm declare cursor2 cursor for select distinct ygxm from ygxx_tab。 open cursor2。 () fetch cursor2 into :ygxm。 本科毕业 自行车配件销售管理系统 27 do while =0 (ygxm) fetch cursor2 into :ygxm。 loop close cursor2。 string cpbh string cpbh1 declare cursor3 cursor for select distinct cpbh from spxx_tab。 open cursor3。 () fetch cursor3 into :cpbh。 cpbh1=string(cpbh) do while =0 (cpbh1) fetch cursor3 into :cpbh。 cpbh1=string(cpbh) loop close cursor3。 string ljh declare cursor4 cursor for select distinct ljh from spxx_tab。 open cursor4。 () fetch cursor4 into :ljh。 do while =0 (ljh) fetch cursor4 into :ljh。 loop close cursor4。 string czy declare cursor5 cursor for select distinct czy from czy_tab。 本科毕业 自行车配件销售管理系统 28 open cursor5。 () fetch cursor5 into :czy。 do while =0 (czy) fetch cursor5 into :czy。 loop close cursor5。 = = = = = = = = 图 入库登记窗口 本科毕业 自行车配件销售管理系统 29 图 出库退货窗口 图 入库退货窗口 =string(today()) string gysqc declare cursor1 cursor for select distinct gysqc from gysxx_tab。 本科毕业 自行车配件销售管理系统 30 open cursor1。 fetch cursor1 into :gysqc。 do while =0 (gysqc) fetch cursor1 into :gysqc。 loop close cursor1。 string ygxm declare cursor2 cursor for select distinct ygxm from ygxx_tab。 open cursor2。 fetch cursor2 into :ygxm。 do while =0 (ygxm) fetch cursor2 into :ygxm。 loop close cursor2。 string cpbh string cpbh1 declare cursor3 cursor for select distinct cpbh from spxx_tab。 open cursor3。 fetch cursor3 into :cpbh。 cpbh1=string(cpbh) do while =0 (cpbh1) fetch cursor3 into :cpbh。 cpbh1=string(cpbh) loop close cursor3。 string ljh declare cursor4 cursor for select distinct ljh from spxx_tab。 本科毕业 自行车配件销售管理系统 31 open cursor4。 fetch cursor4 into :ljh。 do while =0 (ljh) fetch cursor4 into :ljh。 loop close cursor4。 string czy declare cursor5 cursor for select distinct czy from czy_tab。 open cursor5。 fetch cursor5 into :czy。 do while =0 (czy) fetch cursor5 into :czy。 loop close cursor5。 =false =false =false =false =false =false =false =false =false =false =false =false =false =false 本科毕业 自行车配件销售管理系统 32 =false =false =false =false =false (sqlca)。 ()。 =false 库存管理窗口的设计 1. 用户单击主菜单 [库存管理 ][库存查询 ]子菜单，进入“库存查询”界面。 2. 用户单击组合框后的下拉箭头，选择是按什么条件进行查询：产品编号、零件号、产品名称、产地、货位；用户单击下一个组合框后的下拉箭头，可以选择按什么方式进行查询： =、 、。 3. 用户输入具体的查询内容 ,单击“查询”按钮或直接按“回车键即可。 4. 用户单击“库存基本信息”页框可以以文本框的形式浏览库存信息；单击“库存列表”页框可以以列表的形式浏览库存信息。 5. 用户单击 第一个 、 上一个 、 下一个 、 最后一个 按钮查看多条信息。 6. 用户单击 退出 按钮，返回到系统的主菜单。 图 库存查询窗口 本科毕业 自行车配件销售管理系统 33 图 库存盘点窗口 (sqlca)。 (integer(sl)0) filter(dw_1) ()。 int row row=() if row=0 then messagebox(,数据库为空 !) else end if 查询统计窗口的设计 1. 用户单击主菜单 [查询统计 ][入库查询 ]子菜单，进入“入库查询”界面。 2. 按选择的查询条件进行查询：用户单击“请选择查询条件”前的小方框，此功能变为有效，单击组合框后的下拉箭头，选择是按什么条件进行查询：入库票号、产品编号、零件号、产品名称、产地、货位；用户单击下一个组合框后的下拉箭头，可以选择按什么方式进行查询： =、 、 ，用户输入具体的查询内容。 3. 按日期查询：用户单击“按日期查询”前的小方框，此功能变为有效，用户输入起始日期和结束日期即可 4. 用户单击“查询”按钮即可 按指定的条件进行本科毕业 自行车配件销售管理系统 34 查询，如果“请选择查询条件”和“按日期查询”都变为有效，则按两个条件进行查询。 5. 用户单击“入库登记信息”页框可以以文本框的形式浏览入库登记信息；单击“入库列表”页框可以以列表的形式浏览入库登记信息。 6. 用户单击 第一个 、 上一个 、 下一个 、 最后一个 按钮查看多条信息。 7. 用户单击 退出 按钮，返回到系统的主菜单。 图 出库登记查询窗口 if =true and =true then string cpbh44,ljh44,cpmc44,ckph44,cd44,hw44,fh44,nr44 fh44=trim() nr44=trim() select cpbh,ljh,cpmc,ckph,cd,hw into :cpbh44,:ljh44,:cpmc44,:ckph44,:cd44,:hw44 from ckdj_tab。 if cpbh44 or ljh44 or cpmc44 or ckph44 or cd44 or hw44 then string lookforcondition1 string lookforitem2 string lookforhow2 string lookforwhat2 本科毕业 自行车配件销售管理系统 35 lookforhow2= if =产品编号 then lookforitem2=cpbh lookforwhat2=39。 ++39。 elseif =零件号 then lookforitem2=ljh lookforwhat2=39。 ++39。 elseif =产品名称 then lookforitem2=cpmc lookforwhat2=39。 ++39。 elseif =出库票号 then lookforitem2=ckph lookforwhat2=39。 ++39。 elseif =产地。