当前位置 —论文—写论文— 范文

关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板

本论文是一篇关于数据库论文格式模板,关于关于超市文题目2016年相关电大毕业论文范文。免费优秀的关于数据库及超市管理信息系统及超市管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。

'"&,Text2.Text&,"'"

rs_sell.Openstr_sell,n,adOpenStatic,adLockOptimistic

Text3.Text等于rs_sell.Fields("商品名称")

Text4.Text等于rs_sell.Fields("生产厂商")

Text5.Text等于rs_sell.Fields("型号")

Text6.Text等于rs_sell.Fields("单价")

Text10.Text等于rs_sell.Fields("业务员编号")

Text13.Text等于rs_sell.Fields("销售年")

Text14.Text等于rs_sell.Fields("销售月")

Text15.Text等于rs_sell.Fields("销售日")

Text16.Text等于rs_sell.Fields("商品编号")

rs_sell.Close

EndSub

4.4进货,销货统计管理单元设计

1.进货统计菜单

图4.7进货统计菜单

进货统计菜单下有4个子菜单,分别是今日进货统计,本月进货统计,本季度进货统计,今年进货统计.由于他们的界面非常相似,本程序中使用了一个SSTab控件以选项卡的形式在一个窗体中实现以上4个子菜单.这样做使窗体显得更加美观.为项目添加了必要的控件之后,开始进行界面设计.先在窗体上添加一个SSTab控件,单击鼠标右键在快捷菜单中选择"属性"命令.将其选项卡的数目定为4个,标题分别为:今日进货,本月进货,本季度进货,本年度进货.由于每个选项卡的界面都一样,现以"今日进货"选项卡为例,加入两个datagrid控件,两个Adodc控件,一个Label控件,一个textbox控件和8个mand控件.其中两个Adodc的数据源连接都是才用的相对路径与sellsystem的buy表连接的,两个Adodc连接的SQL语句分别如下:

select*frombuy

select生产厂商,sum(总金额)as各厂商进货总金额frombuygroupby生产厂商.

其日进货实现代码如下:

PrivateSubmnBuyToday_Click()

frmBuyall.Text1.Enabled等于False

frmBuyall.SSTab1.Tab等于0

frmBuyall.SSTab1.TabEnabled(0)等于True

frmBuyall.SSTab1.TabEnabled(1)等于False

frmBuyall.SSTab1.TabEnabled(2)等于False

frmBuyall.SSTab1.TabEnabled(3)等于False

frmBuyall.Show

strbuy等于"select*frombuywhere进货年等于"&,inty&,"and进货月等于"&,intm&,"and进货日等于"&,intd&,""

rs_buy.Openstrbuy,n,adOpenKeyset,adLockPessimistic

frmBuyall.Adodc1.RecordSource等于strbuy

frmBuyall.Adodc1.Refresh

frmBuyall.DataGrid1.ReBind

Ifrs_buy.EOF等于TrueThen

frmBuyall.Adodc5.RecordSource等于strbuy

frmBuyall.Adodc5.Refresh

frmBuyall.DataGrid5.ReBind

MsgBox"您今日没有进货记录！",vbOKOnly+vbInformation,"注意"

frmBuyall.Command1.Enabled等于False

frmBuyall.Command2.Enabled等于False

frmBuyall.Command3.Enabled等于False

frmBuyall.Command4.Enabled等于False

frmBuyall.Command5.Enabled等于False

frmBuyall.Command6.Enabled等于False

frmBuyall.Command7.Enabled等于False

frmBuyall.Command8.Enabled等于False

rs_buy.Close

ExitSub

EndIf

rs_buy.Close

strfctotal等于"select生产厂商,sum(总金额)as各厂商进货总金额frombuywhere进货年等于"&,inty&,"and进货月等于"&,intm&,"and进货日等于"&,intd&,"groupby生产厂商"

rs_fctotal.Openstrfctotal,n,adOpenKeyset,adLockPessimistic

frmBuyall.Adodc5.RecordSource等于strfctotal

frmBuyall.Adodc5.Refresh

frmBuyall.DataGrid5.ReBind

rs_fctotal.Close

strtotal等于"selectsum(总金额)as进货总金额frombuywhere进货年等于"&,inty&,"and进货月等于"&,intm&,"and进货日等于"&,intd&,""

rs_total.Openstrtotal,n,adOpenKeysetm,adLockPessimistic

frmBuyall.Text1.Text等于rs_total.Fields("进货总金额")

rs_total.Close

'frmMain.Show

EndSub

2.销货统计菜单

图4.8销货统计菜单

销售统计菜单下有4个子菜单,分别是今日销货,本月销货,本季度销货,今年销货.由于它们的界面非常相似,本程序中使用一个SSTab控件以选项卡形式在一个窗体中实现4个子菜单.其界面设计和窗体说明与进货统计大同小异,也一样一个选项卡为例进行说明,现以"今日销货"为例:加入两个datagrid控件,两个Adodc控件,一个Label控件,一个textbox控件和8个mand控件.其中两个Adodc的数据源连接都是采用的相对路径与sell表连接的,两个Adodc连接的SQL语句分别如下:

select*fromsell

select生产厂商,sum(总金额)as各厂商销货总金额fromsellgroupby生产厂商.

其日销售代码实现如下:

PrivateSubmnSellToday_Click()

frmSellall.SSTab1.Tab等于0

frmSellall.Text1.Enabled等于False

frmSellall.SSTab1.TabEnabled(0)等于True

frmSellall.SSTab1.TabEnabled(1)等于False

frmSellall.SSTab1.TabEnabled(2)等于False

frmSellall.SSTab1.TabEnabled(3)等于False

frmSellall.Show

strsell等于"select*fromsellwhere销售年等于"&,inty&,"and销售月等于"&,intm&,"and销售日等于"&,intd&,""