进销存管理系统范例

【商管理系统还实现了商品库存的管理。管理系统为每个实现了进销存管理，系统中【】进销存进货销.......................................................................................................................................1 引 附录A参考文 附录 附录 和最具创新精神的部分。但是随着企业的发展，客户的增多，企业账目，库存，信息反我国中小企业有70%是零售企业，企业经营涉及进、销、存多个环节，涉及商品种类繁多， SQLServer，该数据库系统在安全性、准确性、运行速度方面有优势，并且处理数据库量大，效率高；开发工具采用Delphi7，Delphi7是目前应用最广泛的数据库系统开发工具，可以快速开发Windows应用程序。管理和销售管理模块、钱流管理模块、库存管理模块、查账模块、统计与分析模块、模 进进货货退单货录单入进进货货退单货录单入录销销售售退单货录单入录

收付般金款款费用用

与与内费供代费应部用应理用收职类商商支应员型对对复理恢清据据数数1系统开发平台：Delphi7.0数据库管理系统软件：SQLServer2000。运行平台：Windowsxp/Windows2000。1024*768。db_EMS18B。4所示。

4运行Delphi会自动创建一个窗体，设置该窗体为程序主窗体，命名为“F_zctBorderStylebsDaoeyevwrue在“Additional”组件页中点选“TActionManager”组件，添加到窗体上，命名为“Actionaage添加“TActionToolBar”对象，命名为“ActionoolBar15所示。5TActionToolBar对InspectorCaption6所示。6TAction对性右侧的【…】按钮，弹出如图7所示的框。7菜单栏设置>ActionooBar1Action8所示。8菜单栏设置点选各菜单项，在“ObjectInspectorItems属性右侧的【…】按钮，在StatusBar1TStatusBar组件用于显示状态信息，双击StatusBar1组件，在弹出的框中单击【AddNew】按钮添加面板。在“ObjectInspectorWidthCaption9所示。9面板编辑名为“Panel3“Panel1“Panel4，分别设置其Align属性为“alTop“alLeft“al 上，并在“ObjectInspector”窗口中通过Picture属性为其加载。当用户单击主窗体左侧的按组件上添加TImage组件，并为TImage组件加载。Flat属性为“rueCaption属性为空。在窗体的OnKeyDown处理过程中设置用户按下〈F5〉键时关闭窗体。代码如下procedureTF_zct.FormKeyDown(Sender:TObject;varKey: Shift: //设置窗体先接受键盘按下ifkey=vk_F5thenClose;在窗体的OnCloseQuery处理过程中让用户确认是否关闭窗体。代码如下procedureTF_zct.FormCloseQuery(Sender:TObject;varCanClose:Boolean);procedureTF_zct.SpeedButton1Click(Sender:TObject); 在窗体右侧的功能按钮单击处理过程中，动态创建相应的功能窗体。动态创建“库存状procedureTF_zct.SpeedButton9Click(Sender:TObject); 在窗体的OnShow处理过程中，添加TCheckBox组件到面板中。指定TCheckBox组件withstatusbar1do10所示。

10基础窗F_basebsDaogKeyrevew性为“True在窗体的OnKeyPress处理过程中设置〈Enter〉键代替〈Tab〉键。代码如下procedureTF_base.FormKeyPress(Sender:TObject;varKey:Char);ifKey=#13then

11（1）Delphi中选择“File”/“New”/“DataModule”菜单项，新建一个数据模块，命名为“F_dm（2）ADO”组件页中点选“TADOConnection”组件，添加到窗体上，命名为“ADOConnection1右侧的【…】按钮，弹出框，如图12所示。1213所示。13选择驱动程14在窗体上添加TADOQuery组件和 mand组件，设置它们的Connection属性“ADOConnection115所示。15F_kcspCaptionTSpeedButton组件，在“ObjectInspectorCaption属性为其设置相应的文本，通过GlyphTToolBar组件，在弹出的菜单中选择“NewButton”菜单项Style属性为“tbsDividerPanel1aoomsbeFalse“StandardTLabel组件、TEditTComboBoxTGroupBox组16所示。16添加项DQury1在“DataAccess”组件页中点选“TDataSource”组件，添加到窗体上，命名为“DataSource1F_dmDOConection1DataSet属性为“ADOQuery1“DBGrid1设置其Align属性为“al DaaSourceDataSorce1的列编辑器中设置字段标题，如图17所示。17为TDBGridvaaeonncon1RvProject1DataSet属性为“ADOQuery1RvProject1ProjectFile属性为制作的报表文件。在窗体的OnShow处理过程中打开库存商品表。代码如下procedureTF_kcsp.FormShow(Sender:TObject); withadoquery1doSQL.Add('Select*fromtb_stockorderbytradecode //procedureTF_kcsp.SpeedButton4Click(Sender:TObject); procedureTF_kcsp.SpeedButton2Click(Sender:TObject); ifApplication.MessageBox('是否删除当前记录？','提示',mb_yesno)=id_yesthenprocedureTF_kcsp.SpeedButton1Click(Sender:TObject); ifPanel1.Visible=Falsethencasecombobox1.ItemIndexof 0:searchwhat:='tradecode';1:2:3:searchwhat:='shortcode';withADoquery1doSQL.Add('select*fromtb_stock SQL.Add('where'+''+searchwhat+''+'like:aorderbytradecode');ifApplication.MessageBox('是否刷新表？','提示',mb_yesno)=Id_yesthenwithADoquery1doSQL.Add('select*fromtb_stockorderby //procedureTF_kcsp.SpeedButton6Click(Sender:TObject); 商品的上下限。商品基本信息模块运行结果如图18所示。

18F_sbjbcx“GroupBox1设置其Caption属性为“输入值-----请输入大于0的数 0为不。在GroupBox1组件上添加2个TLabel组件和2个TEdit组件。分别设置TLabel组件的Caption属性为“商品上BitBtn1BitBtn2GlyphBitBtn2CaptionGlyph属在窗体的OnShow处理过程中如果为修改，将要修改的记录显示在窗体的编辑框中。代procedureTF_sbjbcx.FormShow(Sender:TObject); ifF_kcsp.change=Truethen withF_kcsp.ADOQuery1do 调用getspbh过程得到商品编号。getspbh过程完整代码如下：procedureTF_kcsp.getspbh(sender:Tobject); ifadoquery1.RecordCount=0then 19所示。

19进货单录入模块运行的结F_jhdTLabel组件、TEdit组件、TDateTimePicker组件，用于输入信息。在StringGrid1StringGrid1RowCount属性为“10ColCount属性为“10TSpeedButtonGlyphTBitBtn组件Panel1TADOQuery组件，命名为“ADOQuery1Connection属性为“F_dm.ADOCnnection1在窗体的OnShow处理过程中初始化相关信息。代码如下procedureTF_jhd.FormShow(Sender:TObject); withF_jhd.StringGrid1do withadoquery1doSQl.Add('select*fromtb_warehouse_main'); procedureTF_jhd.SpeedButton3Click(Sender:TObject); Application.CreateForm(TF_kcspxz,F_kcspxz);在弹出的信息提示窗体的【确定】按钮单击处理过程中将数据添加到TStringGrid组件ifF_zct.wf=1then forxh:=1toF_jhd.StringGrid1.RowCountdo])='' forxh:=0toadoquery1.FieldCount-12 ifxh>=2thenprocedureTF_jhd.BitBtn1Click(Sender:TObject); //age平均if(Trim(Edit3.Text)='')or(Trim(Edit4.Text)='')or(Trim(Edit6.Text)='')or forxhjc:=1tostrdbrows if(stringgrid1.Cells[7,xhjc]='')or(strtofloat(stringgrid1.Cells[8,xhjc])<=0)then withAdoquery1do SQl.Add('select*fromtb_warehouse_main'); withAdoquery1doSQl.Add('select*fromtb_warehouse_main'); 附录 VisualBasic编程200例机械工业、等2003年1VisualBasic数据库开发实例解析机械工业、等2003年8VisualFoxPro数据库开发实例解析机械工业王晶莹、王国辉等2003年9PowerBuilder数据库开发实例解析机械工业、等2003年9Delphi数据库开发实例解析机械工业、等2004年2PowerBuilder编程200例机械工业、 2004年9VisualFoxPro编程200例机械工业王国辉、董韶华等2004年9ASP数据库开发实例解析机械工业、、王国辉2004年12Delphi工程应用与项目实践机械工业、赵智勇等2005年1VisualBasic工程应用与项目实践机械工业、等2005年1VisualC＋＋工程应用与项目实践机械工 、等5005年1JSP工程应用与项目实践机械工业 、2005年2ASP工程应用与项目实践机械工业王国辉 、2005年4VisualBasic信息系统开发实例精选机械工 、、2005年7ASP信息系统开发实例精选机械工业王国辉、、等2005年7Delphi信息系统开发实例精选机械工业、赵智勇、等2005年7Visualfoxpro数据库开发关键技术与实例应用人民邮电、、王国2004年52004年5Delphi数据库开发关键技术与实例应用人民邮 Visualbasic数据库开发关键技术与实例应用人民邮电、VisualC++管理信息系统完整项目实例剖析人民邮电明日科技2005年7VisualBasic管理信息系统完整项目实例剖析人民邮电明日科