汽车销售管理系统毕业设计论文

汽车销售管理系统毕业设计论文 汽芈芈管理系芈芈芈芈芈芈文售 芈芈芈芈芈文() 目 芈 第一章 引言--------------------------------------------------------1第二章 系芈 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 ----------------------------------------------------5 系芈基本情描述况2.1 -------------------------------------------5需求分析2.2 ---------------------------------------------------5,,,芈2.3 ---------------------------------------------------6系芈 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 2.4 ---------------------------------------------------7芈芈工具2.5 ---------------------------------------------------8程序芈芈要求2.6 -----------------------------------------------8芈芈芈芈和芈芈技芈2.7 -----------------------------------------8芈芈芈芈2.7.1 ----------------------------------------------8芈芈技芈2.7.2 ----------------------------------------------9 第三章 系芈芈芈----------------------------------------------------10芈芈思想3.1 ---------------------------------------------------10各模芈功能芈芈3.2 ---------------------------------------------10功能模芈3.2.1 ----------------------------------------------10模芈基本信息3.2.2 ------------------------------------------12芈入芈出原芈3.2.3 ------------------------------------------13数据 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 芈3.3 -------------------------------------------------13系芈芈芈策略3.4 -----------------------------------------------14系芈流程芈3.5 -------------------------------------------------15数构据芈3.6 ---------------------------------------------------16数据字典3.6.1 ----------------------------------------------16数据芈的芈芈芈芈3.6.2 --------------------------------------18数据芈的安全性和完整性3.6.3 --------------------------------19 第四章 系芈芈芈----------------------------------------------------21芈芈策略4.1 ---------------------------------------------------21系芈主窗体4.2 -------------------------------------------------21系芈管理4.3 ---------------------------------------------------22用芈登芈4.3.1 ----------------------------------------------22修改密芈4.3.2 ----------------------------------------------22交易管理4.4 ---------------------------------------------------23芈芈登芈4.4.1 ----------------------------------------------23芈登芈售4.4.2 ----------------------------------------------24退芈登芈4.4.3 ----------------------------------------------25客芈管理4.5 ---------------------------------------------------26会芈登芈4.5.1 ----------------------------------------------26会芈芈芈4.5.2 ----------------------------------------------26芈芈管理4.6 ---------------------------------------------------27存芈芈芈4.6.1 ----------------------------------------------27芈芈芈售4.6.2 ----------------------------------------------28 1 汽芈芈管理系芈售 退芈芈芈4.6.3 -----------------------------------------------28厂商芈芈4.6.4 -----------------------------------------------29芈芈分析4.7 ----------------------------------------------------30 芈芈芈芈4.7.1 -----------------------------------------------30 芈芈芈售4.7.2 -----------------------------------------------31 芈表分析4.7.3 -----------------------------------------------32 芈工管理4.8----------------------------------------------------32 芈工芈芈4.8.1 -----------------------------------------------32 芈芈芈看4.8.2 -----------------------------------------------33 芈工登芈4.8.3 -----------------------------------------------34 数份据芈4.9 ---------------------------------------------------34 帮助4.10 ------------------------------------------------------35第五章 系芈芈芈------------------------------------------------36第六章 芈芈----------------------------------------------------38第七章 芈辞参考文----------------------------------------------------40 献附系芈具源代体-------------------------------------------------------41 : 芈----------------------------------------------422 芈芈芈芈芈文() 第一章 引 言 目前～大量的中小企芈中～存在芈芈的芈象,分散的、不芈芈的客芈信息使企芈管理者或企芈相芈人芈无法看到客芈的全部芈料及相芈芈料～信息的分散使得芈生的芈果也无法保持一致性和完整性～ 造成中小企芈在芈管理上存如下芈芈,售 无法分芈芈芈客芈信息;芈客芈分芈芈混,,极乱 无法准全面掌握各芈芈芈展芈,确状 芈立芈的芈芈芈有有效的安排及推建芈芈芈程和管理～一直芈被芈芈局面, 芈芈芈人芈工作售没售售 芈程掌握不芈, 无法准快速考核芈人芈芈芈,确售 芈芈人芈芈芈品有一定芈芈,没 无法有效地同服芈部人芈通,沟 芈及市芈流程不析～流程芈芈芈大,售清 芈市芈信息、芈芈手的芈芈掌握不完善,争 无芈芈一的芈及市芈情芈表,构售况 基本芈及市芈芈用芈芈芈不完芈,售 芈人芈芈芈失芈芈象芈重,售辞 ...... 加之～芈在客芈的期望芈越越高～客芈需要更好的服芈来芈品的芈量及性化服芈个。企芈的芈已逐芈争() 从争争争芈品的芈芈芈芈服芈的芈～因此中小企芈要芈展就必芈芈一步芈化芈芈流程以提高企芈芈能力。Sales 就是芈芈中小企芈的芈、服芈和芈芈系芈行芈范化管理～以解困芈中小企芈的售体决management system 一系列芈芈～提高效率、降低成本。 企芈汽芈芈管理系芈售通芈芈客芈芈系、芈行芈、芈芈程等芈芈芈芈、管理分析售售与～(Sales management system) 使芈管理芈芈走向科、人主芈走向企芈主芈～芈芈中小企芈芈管理中存在的芈多芈芈～中售从学从个售从 小企芈的芈管理的主要需求出芈～充分“以客芈芈中心”～芈中小企芈建立芈性化和活性的芈芈售灵 流程。企芈及人可以完全按照企芈的需要～制定适合企芈特点的芈芈流程～芈芈芈各芈据的芈范化个数～ 自芈化的芈算机管理。同芈加强了中小企芈芈芈程中芈同作芈的能力～芈芈了中小企芈芈管理芈程售并售 中的移芈芈公管理～助中小企芈建立以市芈芈基芈～客芈芈芈向的芈芈模式。助中小企芈建立起芈范帮帮 化的企芈芈芈系～以提高企芈芈体 3 汽芈芈管理系芈售 芈的效率、芈力～使企芈策芈能芈及芈住市芈的芈芈～推芈市芈的芈芈步伐～大幅度地提高市芈占有争决抓 率。 4 芈芈芈芈芈文() 第二章 系芈分析 ,系芈基本情描述况21 汽芈芈管理系芈是典型的信息管理系芈～其芈芈包括后台据芈的建立及前台芈用程序的芈芈售数两个 方面。芈于前者要求建立据一致性和完整性强据安全性好的芈～我采用了数数Microsoft 而芈于后者芈要求芈用程序功能完芈～易使用等特点～我使用了。Access 2000, Visual Basic 6.0 利用其提供的各芈面向芈象的芈芈工具～尤其是据口芈一能方便而芈解操作据芈的只能化芈数窗数 象～首先在短芈芈建立系芈芈用原型～然后芈初始原型系芈芈行需求迭代～不修正和改芈～直内断 到形成用芈芈意的可行系芈。 汽芈芈管理系芈主要是芈商品芈入到入芈到芈出芈中各芈芈售从售个所芈生的事件芈行芈芈～以及芈商品芈芈的日常事芈芈行芈理。能芈芈芈芈芈的芈存和已商品。可随售售来决划根据芈芈芈芈、芈芈芈、芈表分析～定采芈芈和芈停采芈的商品芈～提高芈清随厂学金利用率。能芈芈行芈工的芈芈芈芈、商芈芈等～提高企芈的科管理水平。 ,需求分析22 在信息技芈芈速芈展的今天～各行各芈使用芈算机在芈助芈芈和管理自身工作的需求越越高。人芈来都希望通芈芈算机技芈芈芈芈各芈来事芈的自芈化管理。目前～企芈芈公自芈化正朝着多功能～芈合化和系芈化的方向芈展～汽芈芈管理系芈是企芈芈公自芈化的一芈芈售体芈管理也是企芈主要的售事芈管理. 之一～是提高企芈芈力的重要芈芈。争 企芈芈管理作芈售的一部分～在企芈管理中占重要地位～其芈算机化在芈达国达家中也已芈ERP 到了相高的当国售数并水平。目前～我企芈芈管理方面的芈件系芈也芈不少～但芈些系芈的芈用性不强～芈它普遍存在以下缺陷, ;,芈芈多中小企芈国内众迫切需要信息化管理～但芈在初步需求芈段～无法承受芈如大型1 、芈芈芈芈芈一信息化管理的中芈芈售体段。自主芈芈的芈件往往平台芈低且功能芈一～商用芈件又芈ERP 于注重通用性～无法充分考芈每一具芈个体体位、具部芈的芈芈需求。 ;,芈据芈准化程度芈售数数差～芈以保芈据的唯一性和芈威性。2 ;,忽略了芈芈据的分析～使得芈芈理需芈芈芈芈～售数售售况才能了解芈情在一定程度上的影响3, 了芈市芈的判断和芈芈。 ;,有没注重芈客芈的管理芈重影响了企芈芈客芈需求的了解芈以把握市芈芈芈。4,, 芈芈上述的缺陷～本系芈以合理、全面、准的确国内售体外企芈芈管理系芈基芈～提供了芈5 汽芈芈管理系芈售 商品、芈工、客芈、商的全面管理～厂并从且提供了全面的登芈、芈芈、修改等功能。系芈芈商品入芈到 出芈到芈～整商品流通中各芈芈售个个所芈生的事件芈行芈芈～以及芈商品芈芈的日常事芈芈行芈理～能随售售况芈提供商品芈的芈存信息、商品芈信息～芈能根据芈有芈存～芈情分析商品市芈前景～芈采芈芈划参随厂提供有效的考～以提高芈金的利用率～避免不必要的芈失。能芈芈行芈工的芈芈芈芈、商芈芈等～提高企芈的科管理学水平。 客芈是企芈的生命之源～芈企芈各芈客芈芈芈芈料的收集、整理和芈合深入分析～芈客芈芈求的更快速芈响～来争将提高客芈芈意度～是提高企芈芈力的一芈芈代化管理系芈。系芈中特芈加入客芈管理功能～可特芈客芈芈芈芈～芈会划很予一定的芈惠。同芈也收集了客芈的基本信息～芈于企芈采芈芈～市芈芈芈具有大的价芈。 特芈芈得一提的是芈算机系芈在行的芈程中～芈运会免出芈硬件故障～系芈芈件和芈用芈件的芈芈～而造成芈算机芈芈或芈用芈件无法用～芈芈据芈芈运数份与数恢芈就芈得特芈重要～尤其在商芈芈件中～一但据芈失～后果不堪芈想。芈此～本系芈提供芈据芈的芈数份与确数恢芈功能～更好的保了据的完整性。芈芈的芈汽芈芈管理系芈个售它售可以完成芈商品的芈芈、芈芈、修改、出芈、入芈及芈表芈打印等功能～大大, 方便了商品芈的管理。而售它冲册且芈芈芈的手工芈芈芈不大～芈有的用芈手使用芈不至于不适芈～芈芈操作起～用芈也能快速的来份网接受。此管理系芈是在芈机上用芈根据不同的身登芈～而不能在芈芈境中芈芈。 ,芈23 E-R 系的方法～用描述芈芈来概世界的念模型。 构成芈的基本要素是芈型、性和芈系～其表体属示方法芈如芈所示, 芈E-R2-3-1E-R也芈芈即体芈系芈～提供了表示芈型、性和芈体属-(Entity Relationship Diagram)6 芈芈芈芈芈文() 芈芈 用芈商品、用芈客芈、用芈商之芈是与与与厂,的芈系2-3-1 E-Rmn ,系芈要求24 任何系芈的芈芈不芈芈离件、硬件芈境的支持。合理地配置系芈的芈硬件芈境是系芈芈芈中必不可少的芈芈。汽芈芈管理系芈的售所配置的芈件、硬件芈境如下, 一、 芈件芈境 芈芈件是使用和在系芈下完成的～所以只要Visual Basic 6 Microsoft Access 2000windows xp是兼容的芈件或是操作系芈～芈芈件都可以正地行～有芈好的适芈能力确运与兼容性。而windows 且芈用芈的特殊需求～芈件在完成后的芈芈芈段可以保持一其个与随他芈芈件接口～芈芈足用芈的使用要求。 二、硬件芈境 具有以上微芈理器的微型芈算机1.pentium166 或更高分辨率的芈示器2.VGA 或更大的存内3.32M 三、系芈性能要求 界面友好～且具有芈高的人机交互的活性方便性。灵与1. 系芈芈芈芈信息芈理芈芈必芈要量短～芈响与尽减少等待芈芈。2. 由于商品据信息重要～必芈保据具有高的正性～不数确数很确数况允芈出芈据芈芈芈等情。3. 7 汽芈芈管理系芈售 四、系芈故障芈理要求, 当断况况状况份数数出芈芈芈死机等意外情芈～必芈能恢芈到出芈情前的～能及芈芈据和恢芈据。当数并运一台机子出芈芈芈芈～其上的据能安全的芈移到其他机子上～能芈安全无芈的行。,芈芈工具25 本系芈采用芈前台芈言～芈后台据芈。数Visual Basic 6.0Microsoft Access 2000 功能强大～有芈多芈点和特色～芈其中包括,提供芈准的芈芈芈Visual Basic1. Visual BasicAccess言～方便芈芈据芈芈用程序。数 ,程序芈芈要求26 程序的芈必芈是正的～能在芈算机上芈芈芈芈～能芈利行。程序必芈具有芈好的芈性～芈写确并运构次分明。程序必芈具有芈高的速率～行速度快～程序运构最后芈芈的芈必芈具有芈好的人机芈芈界面～交互性强～适用范芈广档几泛。程序必芈具有注芈、芈明、技芈文～可芈性好。只有具芈以上点才能使人和机器之芈得以通～使操作人芈可以通芈芈芈沟很与鼠芈方便的正在芈行的系芈芈行芈芈。同芈芈要考芈到程序的安全性、可性、可移靠数植性。只有芈足芈些要求～程序才是合格的程序。系芈是在芈系型据芈支持下采用芈芈的。Microsoft Access 2000Visual Basic 6.0,芈芈芈芈和芈芈技芈27 ,,芈芈芈芈271 一、用芈需求分析 二、系芈整芈芈方体划案及芈定 8 芈芈芈芈芈文() 三、功能模芈的分及芈定划 四、利用芈芈据芈的芈与数接ADO 五、芈芈据的芈入、芈出数 ,,芈芈技芈272 一、分析生芈的整芈程～个清个它弄系芈的各功能以及芈之芈的芈系。 二、系芈中将数参所需的据建立成表～分析其中的芈系～按照照完整性芈芈建立芈系。三、活用灵运控件～控件芈芈与的芈接。AdodcMSChartMicrosoft Access四、利用芈芈系芈更强大的功能～使的系芈操作更活～更方便。灵Visual Basic 9 汽芈芈管理系芈售 第三章 系芈芈芈 芈芈思想3. 1 系芈分析芈段的主要任芈是解系芈决售究竟要“干什芈”的芈芈～其芈果是得到汽芈芈管理系芈的芈芈模型～芈面形式芈系芈分析芈明芈。系芈分析芈明芈是系芈芈芈的依据。系芈芈芈又称它芈新系芈的物理芈芈～的主要任芈是依据系芈分析芈段所建立的芈芈模型芈芈系芈的来决怎物理模型～或者芈解系芈“芈做”的芈芈。 系芈芈芈也芈芈按照芈化的构来概两个概指芈思想芈行。系芈芈芈可以分成要芈芈和芈芈芈芈芈段。要芈芈通常采 用芈化的系芈芈芈方法～其主要构确任芈是根据芈件需求芈明芈～用一芈芈准的准芈和芈表工具定系芈有哪从构构数数构些模芈～用什芈方法芈接在一起～而成最好的系芈芈～同芈芈芈出全局据芈和据芈～芈定芈芈限制～制定芈芈芈芈。芈芈芈芈芈装划概段的主要任芈是依据芈要芈芈芈明芈～芈衡各芈芈理方法和技芈手段的利弊～采用芈化的芈芈方法～芈芈系芈的芈芈芈和芈算机芈理芈程的芈芈芈芈～其中包括代芈、芈入、芈出构体 芈理方式和据存芈的芈芈等。数 汽芈芈管理系芈是售个数由芈算机管理商品信息等各芈事芈。首先建立一据芈～用以存取商品的信息～然后建立用芈据芈～用芈芈芈芈的管理～数来售个最后芈芈系芈～提供一芈人机交互的平台。本系芈采用模芈化芈芈～各模芈相既独互立～又互相芈系。具有芈用性及芈展性～可以芈本系芈的功能不充芈完善～同芈不芈芈的模芈有断会响影～可芈芈性好。本系芈是基于芈芈平台～Visual Basic 数数据芈～具有据的芈入、芈芈、修改、芈芈、打印、芈芈等功能。Microsoft Access ,各模芈功能芈芈32 汽芈芈管理系芈包括系芈管理管理模芈、交易管理模芈、客芈管理模芈、芈芈管理模芈、芈芈分析模芈、芈工售 管理模芈和助口模芈帮窗个模芈。7 ,,功能模芈321 : 芈芈管理系芈的管理模芈包括,系芈管理、交易管理、客芈管理、芈芈管理、芈芈分析、芈工管理、芈助个售帮 窗口～如芈所示,3-2-1-1 10 芈芈芈芈芈文() 芈功能模芈芈包含的主要内容3-2-1-1 根据模芈我芈芈芈系芈的主要目芈是,能芈芈芈商品基本信息、芈工基本信息～客芈基本信息等信息的的管理。提供芈芈些信息的芈芈、添加、芈芈、修改芈与除等功能。所有的一切都必芈遵循以下原芈,以系芈管理芈芈中心～方便管理～保障系芈的正常工作及安全。 一、系芈管理 用芈登芈1. 修改密芈2. 退出系芈3. 二、交易管理 芈芈登芈1. 芈登芈售2. 退芈登芈3. 三、客芈管理 会芈登芈1. 会芈芈芈2. 四、芈芈管理 存芈芈芈1. 芈芈芈售2. 退芈芈芈3. 厂商芈芈4. 五、芈芈分析 11 汽芈芈管理系芈售 芈芈芈芈1. 芈芈芈售2. 芈表分析3. 六、芈工管理 芈芈芈看1. 芈工登芈2. 芈工芈芈3. 七、助帮 版本信息1. ,,模芈基本信息322 一、系芈管理 包括用芈登芈、修改密芈、退出系芈三部分。个二、交易管理 在交易芈程中～芈芈商品芈行芈芈登芈、芈登芈、退芈登芈等功能。售三、客芈管理 在芈芈程中建立芈制度～芈芈客芈芈售会会网会会予一定的芈惠～芈一步完善客芈芈系。主要芈芈芈的登芈、 芈芈芈等功能。 四、芈芈管理 芈理芈各芈信息表的芈芈～如芈芈信息、芈信息、退芈信息、商信息等。售厂五、芈芈分析 芈一模芈芈于企芈的效益与售售芈展起着至芈重要的作用。除了芈芈芈芈芈、芈、退芈的芈芈外～利用各芈芈信 息、客芈反映信息～芈据芈行芈芈分析～以便企芈能芈市芈芈行准的芈芈和作出正的。数确确决断六、芈工管理 芈了芈芈芈工的工作芈性～使芈工的极售况挂售况薪水和他芈的芈情芈。建立芈工的芈情芈芈～以便芈他芈 的芈芈芈行考核和芈比。芈芈芈芈芈看、芈工登芈、芈工表芈芈等功能。 七、助帮 一个良好的芈用程序芈芈提供一个窗称口～其中包括本系芈的名、所有者、芈系方WindowsAbout 式、 版本芈利信息等。号与 12 芈芈芈芈芈文() ,,芈入芈出原芈323 我芈在芈芈芈入模芈芈必芈保芈向系芈芈入正的据～在此前提下～芈确数做到芈入方法芈芈、迅速、芈芈、方便 芈此～芈入芈芈芈遵循以下原芈, 一、最小量原芈 二、芈芈性原芈 三、早芈芈性原芈 四、少芈芈原芈 芈出芈芈包括以下方面的 芈芈据流芈几数 13 汽芈芈管理系芈售 芈芈据流芈数3-1-2 0 芈芈芈退芈据流芈数3-1-3 ,系芈芈芈策略34 芈芈可以用表构来并没个将决示系芈芈芈的成果～但有芈出如何得到芈成果的方法～系芈芈芈策略解芈 个它将数构两即芈芈～芈出了据流程芈芈芈成芈芈的芈方法～事芈分析和芈芈分析。 我芈采用事芈分 析的方法得出芈芈～如芈构所示,3-4-1 14 芈芈芈芈芈文() 芈芈管理系芈功能芈芈售构3-4-1 ,系芈流程芈35 在芈管理系芈中～我芈用到系芈流程芈～其具芈售体示如芈所示,3-5-1 芈芈管理系芈流程芈售3-5-1 15 汽芈芈管理系芈售 ,数构据芈36 数数并数数达数据芈是一芈存芈据芈据芈行操作的工具。据芈的作用在于芈芈和表信息～芈而言之～芈据芈就是信息的集合。芈算机的据芈可以分芈芈,数两数非芈系据芈;,和芈系据芈数flat-file;,。芈系据芈中包数个数数个含了多据表的信息～据芈含有各不同部分的芈芈～像芈芈、relational 域等。芈在我芈采用公司的 做芈据芈数个数平台。新建一据芈～芈建任何一MicrosoftAccess 2000 个数划数灵个数构据芈的第一步是仔芈的芈据芈～芈芈必芈是活的、有芈芈的。芈建一据芈芈的芈程被芈芈是数数个据模型芈芈～芈包括,芈芈需要的据～收集被芈芈的字段到表中～芈芈主芈芈字字段～芈制一芈芈的据芈表～芈范据～芈芈数数构指定字段的信息～芈建物理表。其所建表的芈如下,,,数据字典361 在据芈芈章芈中～用到芈工表～芈存芈表～已商品表～退芈表～芈芈商表～用芈表～客芈表数个售厂 一、芈工表～其中包括芈工的芈～号姓名～芈芈～地址～如芈表所示,3-6-1-1芈芈工表的字段～芈型～和芈明3-6-1-1 二、芈存芈表～其中包括商品芈～生芈商～商品号厂号数名～型～芈价～量～芈金芈～芈芈年～芈芈月～芈芈日～芈芈芈芈～如芈表号所示,3-6-1-2 芈芈存芈表的字段～芈型～和芈明3-6-1-2 16 芈芈芈芈芈文() 三、已商品表～其中包括商品芈～生芈商～商品售号厂号数售名～型～芈价～量～芈金芈～芈年～芈售售号月～芈日～芈芈芈芈～如芈表所示,3-6-1-3 芈芈存芈表的字段～芈型～和芈明3-6-1-3 四、退芈表～其中包括商品芈～生芈商～商品号厂号数名～型～芈价～量～芈金芈～退芈年～退芈月～退芈日～芈芈芈芈～如芈表号所示,3-6-1-4 芈退芈表的字段～芈型～和芈明3-6-1-4 五、 芈芈商表～其中包括商芈～商厂厂号厂称厂名～法人代表～商地址～如芈表所示,3-6-1-5芈芈芈表的字段～芈型～和芈明3-6-1-5 17 汽芈芈管理系芈售 六、 用芈表～其中包括用芈芈～用芈号名～密芈～如芈表所示,3-6-1-6 芈用芈表的字段～芈型～和芈明3-6-1-6 七、 客芈表～其中包括芈芈～芈会号会会会姓名～芈芈芈～芈芈地址～如芈表所示,3-6-1-7芈客芈表的字段～芈型～和芈明3-6-1-7 ,,数据芈的芈芈芈芈362 数决数构个它数构据芈技芈主要解的是芈于芈定的一芈据如何造一适合芈的据芈模式。芈芈芈芈芈一般用芈系据芈描述～在芈系据芈中一芈系可用描述芈及其性～数来数个既来体属来体又可以用描述芈之芈的芈系。 在芈系据芈芈范化理芈中数个个体所提到的芈系芈芈上是一芈二芈表～表的每一行叫做一元芈～是某芈芈或芈之芈芈系中的一具芈～通体个体称个个属称数常芈一“芈芈”。每一列叫做一性～通常芈“据元素”或“据芈”～数个来区每一元芈必芈用芈芈字芈芈芈元芈以芈于芈系中的其他元芈。把芈系看成二芈表具有以下性芈,几个 一、在任一列上～据芈芈芈于同一性数属个属～ 二、芈表中的个即所有的行都是不相同的～不允芈有重芈的芈芈出芈～ 三、在一表中～行的芈序无芈芈要个～ 四、在一表中～个称并每一列有不同的名～且列的芈序也无芈芈要。 在本据芈中～我芈采用第二范式芈数来置表。以芈存芈表芈例, 在芈存芈表中～各性之芈的属依芈芈系是, 商品芈商品芈、商品号号号厂号号号号数名商品芈、生芈商商品芈、型商品芈、芈价 商品芈、量 商品芈、芈号号号号号金芈 商品芈、芈芈年 商品芈、芈芈月商品芈、芈芈日商品芈、芈芈芈芈号将个 芈芈芈系芈芈成如下形式～如芈所示,3-6-2-1 18 芈芈芈芈芈文() 商品芈号* 商品芈号* 商品名 商品名 生芈商 生芈商厂厂 型 型号号 芈价 芈价 数数量 量 芈金芈 芈金芈 芈芈年 芈芈年 芈芈月 芈芈月 芈芈日 芈芈日 芈芈芈芈 芈芈芈芈号号 芈所示～第二范式芈芈表～主要是从内耦聚性和合度方面3-6-2-1 ,,数据芈的安全性和完整性363 在信息芈代～信息安全芈芈越越重要。据芈来数数个宝它所存芈的据是一部芈的芈信息芈源～通常可芈芈多合法用芈共享～同芈必芈防止非法用芈芈芈～甚至更改和破坏数确。此外～芈要防止芈据芈不正的更新～造成据芈的不一致性～保芈的完整性。因此据芈的安全性和完整性数它数十分重要～ 必芈提供据芈安全性和完整性的保芈机制。数DBMS 数数数坏达数据芈的安全性～就是防止非法用芈使用据芈造成据泄露、更改或破～以到保芈据芈的目的。据芈中的据必芈在数数芈一的芈格的控制之下～只允芈有合法使用芈限的用芈芈芈～DBMS 尽数个可能杜芈所有可能芈据芈的非法芈芈。一能否有效地保芈据芈的安全性是的主要数它DBMS 性能指芈之一。 用芈芈芈芈定是系芈提供的与个个它最外芈的安全保芈措施。每用芈都登芈一用芈芈芈符～是用芈公芈的芈芈但芈了正芈芈用芈～确份防止芈人冒名芈替～芈使用用芈芈芈符是不芈的～芈需要芈一步芈芈用芈身。芈了芈一步芈芈用芈～目前最泛广的就是使用口令。芈芈～每次用芈要求芈入系芈芈～必芈得芈入用芈的芈芈符和口令～系芈核芈用芈芈芈符和口令以芈芈用芈身份当。只有用芈芈芈符和 19 汽芈芈管理系芈售 口令核芈正后～用芈确才能使用芈算机。 数数会坏数从数数据芈的完整性是指授芈用芈芈据芈更新芈不破据的一致性～而保芈据芈中据是正确条的、一致的、相容的。芈于芈背完整性芈束件的操作芈拒芈芈理。 芈系模型的完整性芈芈是芈芈系的某芈芈束件条体参。芈系模型中可以有三芈完整性芈束～芈完整性、照完整性和用芈定芈的完整性。其中芈完整性和照完整性是芈系模型必芈芈体参条足的完整性芈束件～被芈是芈系的不芈性～芈芈称两个由芈系系芈自芈支持。 20 芈芈芈芈芈文() 第四章 系芈芈芈 ,芈芈策略41 用芈通芈芈入正的用芈确名和密芈芈行登芈如果三者都正芈可以通芈确个菜芈芈芈各模芈芈各模芈芈行操个,,作。如果三次密芈都不正～芈系芈自芈退出。下面芈要确个介芈各模芈的程序芈芈。,系芈主窗体42 在芈中～我芈可以个窗体窗体找你并根据中所列的菜芈～到所要芈芈的模芈～芈之芈行操作～如芈4- 所示。2-1 芈所示 系芈主窗体4-2-1 界面芈置,本主要窗体窗体状体个档由、菜芈芈、工具芈、芈芈等芈成～芈如上芈所示。新建一多文;,～在窗体个里面加入一控件～一个控件～一个控件～MDIToolbarImageListTimer21 汽芈芈管理系芈售 一个控件。芈芈芈一般先芈芈窗体窗体背景和芈芈～菜芈芈通芈中的菜芈芈芈器芈行芈芈～工具StatusBarVB 芈通芈芈芈控件和控件芈芈～芈芈通芈芈芈状控件芈芈～其中控件用来ImageListToolbarStatusBarTimer控制在中的芈芈芈示。StatusBar ,系芈管理43 ,,用芈登芈431 用芈登芈～芈入用芈名和密芈～点芈登芈～如芈所示,4-3-1-1 芈用芈登芈4-3-1-1 界面芈芈,新建一～在个窗体个里面加入三控件两个控件～两个控件～Image,TextBoxlabel两个控件。CommandButton ,,修改密芈442 在芈里可以修改密芈～界面如芈所示,4-4-2-1 22 芈芈芈芈芈文() 芈修改密芈4-4-2-1 界面芈芈,新建一～在个窗体个里面加入一控件四个控件～四个控件～Frame,TextBoxlabel两个控件。CommandButton ,交易管理44 ,,芈芈登芈441 在芈个个个厂清界面里我芈可以通芈第一容器芈芈添加商品入芈～通芈第二容器芈芈添加新的商。芈芈空重按芈～可以填清框窗空文本～便于用芈重添信息。芈芈芈芈芈可以芈芈此口。如芈所示,4-4-1-123 汽芈芈管理系芈售 芈芈芈登芈界4-4-4-1 界面芈芈,新建一～在个窗体两个里面加入控件十六个控件～十六个控Frame,TextBoxlabel件～四个控件。CommandButton ,,芈登芈售442 在芈个售售将从并写界面里主要芈芈芈芈芈商品信息的芈理～芈芈芈按芈芈商品信息芈存表中芈除～入已芈售售商品表中。芈芈打印按芈～可以打印芈芈票芈～如芈所示,4-4-2-1 24 芈芈芈芈芈文() 芈芈登芈售界面4-4-2-1 界面芈芈,新建一～在个窗体个里面加入十一控件～十二个控件～三个TextBoxlabel 控件。其中通芈芈象芈芈来打印。CommandButtonprinter ,,退芈登芈443 主要芈芈芈退芈商品信息的芈理～据已芈商品表中芈将数从售并写除～入退芈表中～如芈所4-4-3-1示, 芈退芈登芈界面4-4-3-1 25 汽芈芈管理系芈售 界面芈芈,新建一～在个窗体个里面加入十一控件～十二个控件～两个TextBoxlabel 控件。CommandButton ,客芈管理45 ,,会芈登芈451 主要芈芈芈信息的会个窗体个添加～界面芈芈,新建一～在里面加入一控件～四个Frame 控件～四个控件～两个控件。如芈所示,TextBoxlabelCommandButton4-5-1-1 芈会芈登芈4-5-1-1 ,,会芈芈芈452 主要芈芈芈芈信息的芈芈、修改、芈会除等功能。 界面芈芈,新建一～在个窗体个里面加入一控件～一个控件～两个DataGridAdodc 控件～如芈所示,CommandButton4-5-2-1 26 芈芈芈芈芈文() 芈会窗体芈芈芈芈芈4-5-2-1 ,芈芈管理46 ,,存芈芈芈461 在芈模芈个个窗体个里主要是完成芈芈存商品的芈芈。界面芈芈,新建一～在里面加入一控件～Frame两个控件～两个控件～三个控件。如芈所示,TextboxlabelCommandButton4-6-1-1 芈存芈芈芈界面4-6-1-1 27 汽芈芈管理系芈售 ,,芈芈芈售462 在芈模芈个售个窗体个里主要是完成芈已商品的芈芈。界面芈芈,新建一～在里面加入一控Frame件～两个控件～两个控件～三个控件。如芈所示,TextboxlabelCommandButton4-6-2-1 芈芈芈芈售界面4-6-2-1 ,,退芈芈芈463 在芈模芈个个窗体个里主要是完成芈退芈表的芈芈。界面芈芈,新建一～在里面加入一控件～DataGrid一个控件。如芈所示,Adodc4-6-3-1 芈退芈表界面4-6-3-1 28 芈芈芈芈芈文() ,,厂商芈芈464 在芈模芈个个窗体个里主要是完成芈芈芈商信息的芈芈、修改、芈除。界面芈芈,新建一～在里面加入一 控件～一个控件～两个控件。如芈所示,DataGridAdodcCommandButton4-6-4-1 芈芈芈商表4-6-4-1 29 汽芈芈管理系芈售 ,芈芈分析47 ,,芈芈芈芈471 在芈模芈中主要完成当当个窗体日、本月、本季度、年芈芈的芈芈。界面芈芈,新建一～在里面加入八个控件～八个控件～一个控件一个控件～一个控件。DataGridAdodcSSTab,LabelTextBox如芈所示,4-7-1-1 芈芈芈芈芈界面4-7-1-1 30 芈芈芈芈芈文() ,,芈芈芈售472 本模芈完成当当售日、本月、本季度、年芈的芈芈。 界面芈芈,新建一～在个窗体个里面加入八控件～八个控件～一个控DataGridAdodcSSTab件一个控件～一个控件～如芈所示,,LabelTextBox4-7-2-1 芈芈芈芈售4-7-2-1 31 汽芈芈管理系芈售 ,,芈表分析473 芈表分析模芈主要是芈当当售日～本月～本季度～年芈的芈表分析。利用Microsoft Chart Control 中的 控件～可以制作大部分的芈表～可以芈芈形芈、条状状柱芈、芈芈、6.0MSChartMicrosoft Graph散点芈等。界面芈芈,新建一～在个窗体个里面加入四控件～一个控件～如芈MSChartSSTab4- 所示,7-3-1 芈芈表分析4-7-3-1 ,芈工管理48 ,,芈工芈芈481 在芈模芈个个窗体个里主要是完成芈芈工信息的芈芈、修改、芈除。界面芈芈,新建一～在里面加入一 控件～一个控件～两个控件。如芈所示,DataGridAdodcCommandButton4-8-1-132 芈芈芈芈芈文() 芈芈工表4-8-1-1 ,,芈芈芈看482 在芈模芈个售个窗体个里主要是完成芈芈工芈芈芈的芈芈。界面芈芈,新建一～在里面加入一控Frame件～一个控件～一个控件～三个控件～如芈所示,TextboxlabelCommandButton4-8-2-1 芈芈芈芈看4-8-2-1 33 汽芈芈管理系芈售 ,,芈工登芈483 界面芈芈,新建一～在个窗体个里面加入一控件～四个控件～四个控件～FrameTextBoxlabel两个控件～如芈所示,CommandButton4-8-3-1 芈芈工登芈4-8-3-1 ,数份据芈49 在芈模芈个数份数里主要是完成芈据芈的芈以及据芈恢芈功能。 本系芈主要用运数份与体运拷芈的原理芈芈据芈的芈恢芈。在具的程序中用芈句来份芈芈芈芈～FileCopy但芈句只适用于小型据芈。此数数份数外～芈了使据芈和据恢芈更加形象～程序中以芈形FileCopy 芈的形式代份卡来数个窗体个替据芈文件。界面芈芈,新建一～在里面加入一 控件～一个控件～两个控件～一个控件一个控ImageListListViewOptionButtonDrive,Dir件～一个控件～两个控件～两个控件～如芈所示,FileLabelCommandButton4-9-1 34 芈芈芈芈芈文() 芈数份据芈界面4-9-1 ,帮助410 在芈模芈个称号与里主要是芈示芈件版本信息。其中包括本系芈的名、所有者、 版本、版本芈明芈利信息等～如芈所示,4-10-1 芈版本信息界面4-10-1 35 汽芈芈管理系芈售 第五章 系芈芈芈 芈芈主要是芈芈程序芈芈及芈程芈芈后的芈果芈行的工作那芈芈什芈要芈行芈芈呢很多人芈芈“芈芈是芈明程序中,? 不存在芈芈的芈程”～“程序芈芈的目的是要芈明程序正地芈行了芈期的功能”等确但是芈些定芈却,是芈芈的定芈。因芈人芈在芈芈程序芈自然是想芈程序芈增添一点价芈也就是芈芈芈是一芈花芈芈的活芈昂芈芈,,,者必然希望通芈增加程序自身的价芈芈芈一来些花芈而提高程序的价芈就意味着提高程序的芈量, 和可性靠提高程序的可性就靠并意味着芈芈改正程序的芈芈。所以芈行芈芈不芈是芈了芈示程序是好, 的而芈芈程序中从个含有芈芈芈假定出芈去芈芈程序从尽中芈芈可能多的芈芈因此芈芈的定芈芈芈是,芈了芈芈,,, 芈芈而芈行程序的芈程。芈芈定芈出芈可以看出芈芈从个把芈出了新芈芈的芈芈看作是成功的芈芈没有芈芈芈芈的芈芈,芈是失芈的芈芈。 芈芈一般有芈方法,两 黑盒芈芈黑盒芈芈是芈芈者把程序看成是一个即内构内黑盒。完全不考芈程序部芈和部特性。相反芈芈:,者芈芈芈心芈使程序找运况未按芈范行的情并数来且芈芈按程序的芈范芈出芈芈据。一般芈用芈芈方法芈出, 程序中所有芈芈只能使用芈芈芈入芈芈。 白盒芈芈白盒芈芈或芈芈芈芈芈芈允芈人芈芈芈程序的部芈内构是芈芈者芈芈程序的芈芈从着手得出芈芈据数芈行芈:,,,芈的芈程。 模芈芈芈是指芈芈程序中的芈个与子程序或芈程。其目的是要芈模芈的功能定芈模芈的性能芈范或接口芈范芈行比芈。芈就是芈～在芈芈的一芈始我芈不是把程序作芈一整芈芈～而是首先个体来来集中注意力芈芈程序中芈小的芈芈。芈芈构做的理由是,首先由于一芈始把注意力集中在程序的芈小的芈元上～模芈芈芈是一芈妥善芈行芈合芈芈的好方法。其很次～因芈在模芈芈芈芈～芈芈芈芈就可以肯定芈芈所在的位置～因而便于芈芈。最后模芈芈芈芈我芈提供同芈芈芈多模芈的个从并良机～而在芈芈芈程中提出了行性芈芈。芈芈芈遵守一定的原芈: 一、定芈期芈出确或芈果是芈芈情必不可况少的一部分。() 二、程序芈芈避免芈芈自己的程序。 三、程序芈芈机不芈芈芈芈自构己的程序。 四、芈底芈芈每个芈芈芈果。 五、芈非法的和非芈期的芈入情况也要像芈合法的芈期的芈入一芈芈芈芈情。写况,,, 在模芈芈芈芈段主要用运运体黑盒芈芈和芈界芈法～部分芈芈用白盒芈芈～而在芈芈芈芈段36 芈芈芈芈芈文() 芈使用黑盒芈芈。黑盒芈芈又叫功能芈芈～用黑盒芈芈芈芈程序中的芈芈～必芈在来条条所有的芈入件和芈出件中定芈芈据～芈芈程序是确数来确构否都能芈生正的芈出。白盒芈芈又叫芈芈芈～是芈芈件的芈程芈芈做芈致的芈芈。 芈取用芈登芈芈例～具的芈芈方体案如下, , 不芈入用芈名1 , 不芈入密芈2 , 芈入芈芈的密芈3 , 芈芈三次芈入芈芈的密芈4 根据芈芈 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ～芈芈芈果如下, 第一芈芈芈芈果 第二芈芈芈芈果 第三芈芈芈芈果 第四芈芈芈芈果 37 汽芈芈管理系芈售 第六章 芈芈 ,芈 芈61 芈管理是企芈主要的售事芈管理之一是芈流增收最有力的芈芈。芈模芈以合理、全面、准的芈潜确售体, 系芈基芈～提供了芈商品量、数并售金芈的全面管理～且提供了全面的芈芈功能。包括芈芈存商品、已商品、芈工、客芈、商的一化芈芈。商品入芈到出芈到芈整流通芈程中各芈芈厂体从售个个所芈生的事件芈行芈芈～能芈提供芈芈的芈存、商品芈情、客芈、商等信息～芈采芈芈或市芈芈芈提供有效的随售况厂划依据～以提高芈金的利用率～避免不必要的芈失～同芈也提高了企芈的科管理学水平。芈次芈芈芈芈我是用芈芈的～是我大中主要芈的芈算机芈程芈言～通芈芈它学学次芈例芈芈～Visual Basic 6.0 我芈程序芈芈水平和据芈芈用能力数很当碰都有了大的提高。然在芈芈芈程中我到了不少的芈芈～VB 除了向得学学虚教与比芈好的同心芈之外～我也借芈了大量本系芈芈芈有芈的芈籍～使得芈多芈芈都迎刃而解。以前我芈只是接触践售芈本知芈～缺少芈芈芈～只能是芈上芈兵～但通芈芈次芈系芈芈芈我芈累了不少芈芈芈芈和解芈芈的方法～芈芈于我决将来从很事芈件芈芈都是有大的推芈作用。在芈次的芈芈中我有不少体会体～具芈芈如下, 系芈芈芈前的准芈工作一定要做好。“良好的芈始是成功的一半”在芈始具工作前～先芈芈好要体, 用的芈程工具～然后就芈方面芈性的争参灵运借芈考芈料～掌握芈本中的芈程技巧～活用到自己的程序中。此来网极网外～芈也芈我芈提供了大的方便～有什芈需要了解的～在上我芈都可以芈到。我芈芈要了解系芈芈芈的芈境。 系芈的芈芈芈程是循序芈芈的～先需求分析～再芈芈芈～后芈芈芈芈～体写最后芈代芈、上机芈芈、系芈芈芈。其中需求分析是芈芈～是系芈芈芈的基芈～定系芈必芈完成它它确哪确清晰体些工作～芈系芈提出明、、具的要求。 芈芈芈段必不可少～有些理芈上芈芈正的芈你确来会你数西～芈芈起可能就出芈芈芈。比如有芈候要想往据芈里面入据～不是插数写插数状光入芈句就行的～芈必芈要使据芈表芈于芈芈芈～芈芈才能芈芈往里面插数入据。通芈芈芈能芈芈芈多意想不到的芈芈芈芈于完善系芈是必不可少的。, 我芈在芈芈系芈的芈候不可能每个虚芈芈都考芈得面面具到～芈就需要老芈的指芈～因此我芈要心接受 老芈芈我芈的建芈。在芈芈芈程中可能会决遇到好多困芈～有的芈可能多次都解不了～在面芈芈芈的芈候我芈要有耐心～要有解困芈的心和芈持到决决底的恒心。 38 芈芈芈芈芈文() 芈而言之～系芈必芈芈格按照芈件工程的方法芈行芈芈～其中生命周期法比芈适合～芈即将学件工程和系芈工程的理芈方法引入芈算机信息芈用系芈的制芈芈中～信息系芈芈芈的全芈程芈与研将划格地分芈四芈个运与学段,系芈分析、系芈芈芈、系芈芈施、系芈行芈芈。只有按照科的芈芈方法才能芈芈出令人芈意的系芈～而且芈芈起也是来事半功倍。 通芈芈次芈芈芈芈～我芈芈累了不少芈芈系芈的芈芈～芈芈于我将来极踏上工作芈位都是芈重要的。但是由于芈芈有限～系芈芈有芈多不完整的地方～像用芈界面不芈美芈～用芈芈入功能不芈方便等～芈些芈芈都有待于芈一步的改善。 39 汽芈芈管理系芈售 第七章 芈 辞 几个声真帮学帮月的芈芈芈芈已芈芈入尾～在芈里我要芈地感芈助芈我的老芈和同芈～有了他芈的助我才能芈利的完成芈次芈芈芈芈。有了他芈的助～我在芈芈中帮决所遇到的芈芈才能得到芈芈的解。在此～我特芈感芈芈章静帮帮老芈～他芈予我莫大的助。在芈芈芈芈期芈～芈老芈我分析芈芈的所在～指出芈芈中存在的不足～提出了改芈的方案～才使得我的系芈得已完善。我再次衷心地感芈芈老芈芈我的帮助。 40 芈芈芈芈芈文() 参献考文, 一、 公司芈著•中文程序芈指南北京希••望芈子出版社MicrosoftVisual Basic 6.02007.9二、 公司芈著•控件参册••考手北京希望芈子出版社MicrosoftVisual Basic2007.3三、公司芈著•芈件工具指南北京希••望芈子出版社MicrosoftVisual Basic 6.02009.3四、 芈海藩 芈著•••芈件工程人民芈芈出社2009.11 五、刘•萌等芈著企芈芈公系芈芈芈芈例芈航••人民芈芈出社Visual Basic2008.1六、高春芈等芈著•数与••据芈芈芈芈芈技芈芈例芈用人民芈芈出版社 Visual Basic2008.5七、牛力等芈著• 芈程典芈宝••子工芈出版社 Steven Jordan Visual Basic 6.02010.1 41 汽芈芈管理系芈售 附,系芈具源代芈如下,体 登芈窗体---------------------------------------------------------Option Explicit 芈芈定确数次Dim cnt As Integer ‘Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdLogin_Click() ‘首先芈芈用芈是否芈入了用芈名和密芈 If txtUser.Text = "" Then 芈芈入用芈名,注意MsgBox "", vbOKOnly + vbInformation, ""txtUser.SetFocus Exit Sub ElseIf txtPwd.Text = "" Then 芈芈入密芈,注意MsgBox "", vbOKOnly + vbInformation, ""txtPwd.SetFocus Exit Sub End If Dim rstUser As New ADODB.RecordsetDim sql As String 用芈名 sql = "select * from userdb where = ‘" & txtUser.Text & "’ and 密芈" _ & " = ‘" & txtPwd.Text & "’" rstUser.Open sql, conn, adOpenKeyset, adLockPessimistic If rstUser.EOF = True Then cnt = cnt + 1 If cnt < 3 Then 用芈名或密芈芈芈,注意MsgBox "", vbOKOnly + vbInformation, ""rstUser.Close End If If cnt = 3 Then 三次芈入密芈芈芈,系芈自芈退出MsgBox "", vbOKOnly + vbInformation, "" rstUser.Close Unload Me Unload MDIfrmMain End If Exit Sub Else 正登芈确MsgBox "", vbOKOnly + vbExclamation, "" ‘打芈窗体 MDIfrmMain.mnchpwd.Enabled = TrueMDIfrmMain.mntrade.Enabled = TrueMDIfrmMain.mnclient.Enabled = True42 芈芈芈芈芈文() MDIfrmMain.mnstat.Enabled = TrueMDIfrmMain.mngrade.Enabled = TrueMDIfrmMain.mntable.Enabled = TrueMDIfrmMain.mnwork.Enabled = TrueMDIfrmMain.mnhelp.Enabled = True MDIfrmMain.Toolbar1.Enabled = True rstUser.Close Unload Me End If End Sub 修改密芈窗体---------------------------------------------------Private Sub cmdChPwdCancel_Click() Unload Me End Sub Private Sub cmdChPwdOk_Click() Dim rstUser As New ADODB.Recordset Dim sql As String ‘先芈芈两次芈入的新密芈芈候一芈 If txtNewPwd.Text <> txtNewPwdagain.Text Then 两次芈入的密芈不同,芈重新芈入MsgBox "", vbOKOnly + vbInformation, 光芈定位于新密芈中"" ‘textbox txtNewPwd.SetFocus Exit Sub End If 用芈名 sql = "select * from userdb where = ‘" & txtChUser.Text & "’ and " _ 密芈& " = ‘" & txtOldPwd.Text & "’" rstUser.Open sql, conn, adOpenKeyset, adLockPessimistic If rstUser.EOF = True Then 用芈名或老密芈芈芈MsgBox "", vbOKOnly + vbExclamation, "" txtChUser.Text = "" txtChUser.SetFocus txtOldPwd.Text = "" rstUser.Close Exit Sub Else rstUser.Fields(2) = txtNewPwd.Text rstUser.Update 修改密芈成功,MsgBox "", vbOKOnly + vbInformation, "" rstUser.Close 退出本口窗Unload Me ‘ End If End Sub 芈芈登芈窗体------------------------------------------------------43 汽芈芈管理系芈售 Dim rs_addfc As New ADODB.Recordset Dim rs_add As New ADODB.Recordset Private Sub cmdaddfc_Click() txtGoodsNo.Enabled = False If Text1.Text = "" Then 芈商填写厂称名,注意MsgBox "", vbOKOnly + vbInformation, "" Text1.SetFocus Exit Sub ElseIf Text2.Text = "" Then 芈商法人代表填写厂,注意MsgBox "", vbOKOnly + vbInformation, "" Text2.SetFocus Exit Sub ElseIf Text3.Text = "" Then 芈芈芈填写,注意MsgBox "", vbOKOnly + vbInformation, ""Text3.SetFocus Exit Sub ElseIf Text4.Text = "" Then 芈商地填写厂址,注意MsgBox "", vbOKOnly + vbInformation, "" Text4.SetFocus Exit Sub End If Dim sqlfc As String sqlfc = "select * from manufacturer"rs_addfc.Open sqlfc, conn, adOpenKeyset, adLockPessimistic rs_addfc.AddNew rs_addfc.Fields(1) = Text1.Text rs_addfc.Fields(2) = Text2.Text rs_addfc.Fields(3) = Text3.Text rs_addfc.Fields(4) = Text4.Text rs_addfc.Update 添加商成功厂MsgBox "", vbOKOnly + vbExclamation, "" rs_addfc.Close End Sub Private Sub cmdadd_Click() txtGoodsNo.Enabled = False If txtFc.Text = "" Then 芈商填写厂称名,注意MsgBox "", vbOKOnly + vbInformation, "" 使芈得光芈焦点txtFc.SetFocus ‘txtFc Exit Sub End If Dim sql As String sql = "select * from goods"rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic rs_add.AddNew 44 芈芈芈芈芈文() rs_add.Fields(1) = txtFc.Textrs_add.Fields(2) = txtName.Textrs_add.Fields(3) = txtType.Textrs_add.Fields(4) = txtPrice.Text 使用函把数中的文本型据芈芈成数数rs_add.Fields(5) = Val(txtQuantity.Text) ‘ValTextBox.text字型据数 rs_add.Fields(6) = Val(txtmoney.Text)rs_add.Fields(7) = txtyear.Textrs_add.Fields(8) = txtmon.Textrs_add.Fields(9) = txtday.Textrs_add.Fields(10) = txtem.Textrs_add.Update 添加用芈成功MsgBox "", vbOKOnly + vbExclamation, "" rs_add.Close End Sub 芈登芈售窗体-----------------------------------------------------Dim rs_add As New ADODB.RecordsetDim rs_check As New ADODB.Recordset 打印芈票Private Sub cmdpri_Click() ‘Printer.Height = 8000 Printer.Width = 8000 Printer.CurrentX = 1100 Printer.CurrentY = 300 Printer.FontSize = 12 芈芈售票芈Printer.Print "" Dim a, B, C, D As Integer a = 100 B = 500 C = 4800 D = 400 Printer.FontSize = 10 Printer.CurrentX = 100 + a Printer.CurrentY = B + 200 芈芈, Printer.Print "" & Date & " " & Time B = B + D Printer.Line (a, B + 100)-(C, B + 100)Printer.CurrentX = 100 + a Printer.CurrentY = B + 200 商品名称, Printer.Print "" & txtName.TextB = B + D Printer.CurrentX = 100 + a Printer.CurrentY = B + 200 商品型, 号Printer.Print "" & txtType.Text B = B + D 45 汽芈芈管理系芈售 Printer.CurrentX = 100 + a Printer.CurrentY = B + 200 商品芈价, Printer.Print "" & Format(txtPrice.Text, "0.00") B = B + D Printer.CurrentX = 100 + a Printer.CurrentY = B + 200 商品量, 数Printer.Print "" & txtQuantity.TextB = B + D Printer.CurrentX = 100 + a Printer.CurrentY = B + 200 商品芈价, Printer.Print "" & Format(txtmoney.Text, "0.00") B = B + D Printer.Line (a, B + 100)-(C, B + 100)Printer.CurrentX = 1000 + a Printer.CurrentY = B + 200 芈迎您下次光芈Printer.Print "" End Sub Private Sub cmdSell_Click() txtGoodsNo.Enabled = False If txtFc.Text = "" Then 芈商填写厂称名,注意MsgBox "", vbOKOnly + vbInformation, "" txtFc.SetFocus Exit Sub ElseIf txtName.Text = "" Then 芈商品填写称名,注意MsgBox "", vbOKOnly + vbInformation, "" txtName.SetFocus Exit Sub ElseIf txtType.Text = "" Then 芈商品型填写号,注意MsgBox "", vbOKOnly + vbInformation, "" txtType.SetFocus Exit Sub ElseIf txtPrice.Text = "" Then 芈商品填写价格,注意MsgBox "", vbOKOnly + vbInformation, "" txtPrice.SetFocus Exit Sub ElseIf txtQuantity.Text = "" Then 芈商品量填写数,注意MsgBox "", vbOKOnly + vbInformation, "" txtQuantity.SetFocus Exit Sub ElseIf txtyear.Text = "" Then 芈芈填写售份年芈,注意MsgBox "", vbOKOnly + vbInformation, "" txtyear.SetFocus Exit Sub ElseIf txtmon.Text = "" Then46 芈芈芈芈芈文() 芈芈填写售份月芈,注意MsgBox "", vbOKOnly + vbInformation, ""txtmon.SetFocus Exit Sub ElseIf txtday.Text = "" Then 芈芈芈填写售日,注意MsgBox "", vbOKOnly + vbInformation, ""txtday.SetFocus Exit Sub ElseIf txtem.Text = "" Then 芈芈芈芈填写姓名,注意MsgBox "", vbOKOnly + vbInformation, "" txtem.SetFocus Exit Sub ElseIf txtmoney.Text = "" Then 芈芈填写金芈,注意MsgBox "", vbOKOnly + vbInformation, ""txtmoney.SetFocus Exit Sub End If Dim sqlcheck As String 商品名sqlcheck = "select * from goods where =‘" & txtName.Text & _ 生芈商厂型号"’and =‘" & txtFc.Text & "’and =‘" & 芈定游芈芈型txtType.Text & "’" rs_check.CursorLocation = adUseClient ‘ rs_check.Open sqlcheck, conn, adOpenKeyset, adLockPessimistic If rs_check.EOF = True Then 芈不起～此商品型已无芈号,芈芈芈其他型,MsgBox "", vbOKOnly + vbInformation, 注意"" rs_check.Close Exit Sub ElseIf rs_check.Fields(5) < Val(txtQuantity.Text) Then 此型商品不号足,注意MsgBox "", vbOKOnly + vbInformation, ""rs_check.Close Exit Sub End If Dim sqlsell As String sqlsell = "select * from sell"rs_add.Open sqlsell, conn, adOpenKeyset, adLockPessimistic ‘添加入芈表售 rs_add.AddNew rs_add.Fields(1) = txtFc.Text rs_add.Fields(2) = txtName.Text rs_add.Fields(3) = txtType.Text rs_add.Fields(4) = txtPrice.Text rs_add.Fields(5) = Val(txtQuantity.Text)rs_add.Fields(6) = Val(txtmoney.Text)rs_add.Fields(7) = txtyear.Text rs_add.Fields(8) = txtmon.Text 47 汽芈芈管理系芈售 rs_add.Fields(9) = txtday.Text rs_add.Fields(10) = txtem.Text rs_add.Update ‘从减芈存商品表中去 用于存放表中原的此商品量来数Dim oldquantity As Long ‘goods 用于存放表中原的此商品芈芈芈芈 来Dim oldmoney As Long ‘goodsoldquantity = rs_check.Fields(5) oldmoney = rs_check.Fields(6) rs_check.Fields(5) = oldquantity - Val(txtQuantity.Text) rs_check.Fields(6) = oldmoney - (rs_check.Fields(4)) Val(txtQuantity.Text) rs_check.Update rs_check.Close rs_add.Close 芈成功售,注意MsgBox "", vbOKOnly + vbExclamation, ""End Sub 退芈登芈---------------------------------------------------------- Dim rs_back As New ADODB.Recordset Dim rs_check As New ADODB.RecordsetDim rs_buy As New ADODB.Recordset Private Sub cmdRetreat_Click() ‘需要芈行三次数从售据芈操作～加入退芈表～加入芈存商品表～芈表中芈减去 txtGoodsNo.Enabled = False If txtFc.Text = "" Then 芈商填写厂称名,注意MsgBox "", vbOKOnly + vbInformation, "" txtFc.SetFocus Exit Sub ElseIf txtName.Text = "" Then 芈商品填写称名,注意MsgBox "", vbOKOnly + vbInformation, "" txtName.SetFocus Exit Sub ElseIf txtType.Text = "" Then 芈商品型填写号,注意MsgBox "", vbOKOnly + vbInformation, "" txtType.SetFocus Exit Sub ElseIf txtPrice.Text = "" Then 芈商品填写价格,注意MsgBox "", vbOKOnly + vbInformation, "" txtPrice.SetFocus Exit Sub ElseIf txtQuantity.Text = "" Then 芈商品量填写数,注意MsgBox "", vbOKOnly + vbInformation, "" txtQuantity.SetFocus Exit Sub ElseIf txtyear.Text = "" Then48 * 芈芈芈芈芈文() 芈退芈填写份年,注意MsgBox "", vbOKOnly + vbInformation, ""txtyear.SetFocus Exit Sub ElseIf txtmon.Text = "" Then 芈退芈填写份月,注意MsgBox "", vbOKOnly + vbInformation, ""txtmon.SetFocus Exit Sub ElseIf txtday.Text = "" Then 芈退芈填写日,注意MsgBox "", vbOKOnly + vbInformation, ""txtday.SetFocus Exit Sub ElseIf txtem.Text = "" Then 芈芈芈芈填写姓名,注意MsgBox "", vbOKOnly + vbInformation, "" txtem.SetFocus Exit Sub ElseIf Val(txtmoney.Text) = "" Then 芈退芈芈填写金芈,注意MsgBox "", vbOKOnly + vbInformation, "" txtmoney.SetFocus Exit Sub End If Dim sqlcheck As String 商品名sqlcheck = "select * from sell where =‘" & txtName.Text & _ 生芈商厂型号"’and =‘" & txtFc.Text & "’and =‘" & txtType.Text & "’" rs_check.CursorLocation = adUseClient rs_check.Open sqlcheck, conn, adOpenKeyset, adLockPessimistic If rs_check.EOF = True Then 芈不起～有芈此商品型没售号,无法退芈,MsgBox "", vbOKOnly + vbInformation, 注意"" rs_check.Close Exit Sub 使用函把数中的字符芈芈芈ElseIf (rs_check.Fields(5)) < Val(txtQuantity.Text) Then ‘val text数字 此型商品退芈量大于芈量号售,无法退芈,MsgBox "", vbOKOnly + vbInformation, 注意"" rs_check.Close Exit Sub End If ‘加入退芈表 Dim sqlback As String sqlback = "select * from retreat"rs_back.Open sqlback, conn, adOpenKeyset, adLockPessimistic rs_back.AddNew rs_back.Fields(1) = txtFc.Text rs_back.Fields(2) = txtName.Text49 汽芈芈管理系芈售 rs_back.Fields(3) = txtType.Textrs_back.Fields(4) = txtPrice.Textrs_back.Fields(5) = Val(txtQuantity.Text)rs_back.Fields(6) = Val(txtmoney.Text)rs_back.Fields(7) = txtyear.Textrs_back.Fields(8) = txtmon.Text rs_back.Fields(9) = txtday.Text rs_back.Fields(10) = txtem.Text rs_back.Update rs_back.Close ‘从售芈商品表中芈减去 Dim sqlbuy As String ‘以下芈量用于保存两减未去之前的相芈芈的芈 Dim oldquantity As Long Dim oldmoney As Long odlmoney = rs_check.Fields(6) oldquantity = rs_check.Fields(5)rs_check.Fields(5) = oldquantity - Val(txtQuantity.Text) rs_check.Fields(6) = oldmoney - Val(txtmoney.Text) rs_check.Update rs_check.Close ‘加入芈存商品表中 sqlbuy = "select * from goods"rs_buy.Open sqlbuy, conn, adOpenKeyset, adLockPessimistic rs_buy.AddNew rs_buy.Fields(1) = txtFc.Text rs_buy.Fields(2) = txtName.Text rs_buy.Fields(3) = txtType.Text rs_buy.Fields(4) = txtPrice.Textrs_buy.Fields(5) = Val(txtQuantity.Text) rs_buy.Fields(6) = Val(txtmoney.Text)rs_buy.Fields(7) = txtyear.Text rs_buy.Fields(8) = txtmon.Text rs_buy.Fields(9) = txtday.Text rs_buy.Fields(10) = txtem.Text rs_buy.Update rs_buy.Close 退芈成功,注意MsgBox "", vbOKOnly + vbExclamation, "" End Sub 会芈登芈----------------------------------------------------- Option Explicit Dim rs_addcl As New ADODB.RecordsetPrivate Sub Command1_Click() Text1(0).Enabled = False 50 芈芈芈芈芈文() If Text1(1).Text = "" Then 芈填写姓名,注意MsgBox "", vbOKOnly + vbInformation, "" Text1(1).SetFocus Exit Sub ElseIf Text1(2).Text = "" Then 芈芈芈填写,注意MsgBox "", vbOKOnly + vbInformation, "" Text1(2).SetFocus Exit Sub ElseIf Text1(3).Text = "" Then 芈地填写址,注意MsgBox "", vbOKOnly + vbInformation, "" Text1(3).SetFocus Exit Sub End If Dim sqlcl As String sqlcl = "select * from client"rs_addcl.Open sqlcl, conn, adOpenKeyset, adLockPessimistic rs_addcl.AddNew rs_addcl.Fields(1) = Text1(1).Text rs_addcl.Fields(2) = Text1(2).Text rs_addcl.Fields(3) = Text1(3).Text rs_addcl.Update 添加芈成功会MsgBox "", vbOKOnly + vbExclamation, "" rs_addcl.Close End Sub 会芈芈芈--------------------------------------------------------- Dim rs_cl As New ADODB.Recordset Private Sub Command2_Click() Dim answer As String 确定要芈除芈,answer = MsgBox("", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True 芈除当前芈芈rs_cl.Delete ‘ 更新芈除rs_cl.Update ‘ DataGrid1.Refresh 成功芈除,MsgBox "", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = False Else Exit Sub End If End Sub Private Sub Command1_Click() 修改芈芈If Command1.Caption = "" Then 确定按芈名称改芈确定Command1.Caption = "" ‘"" Command2.Enabled = False 51 汽芈芈管理系芈售 DataGrid1.AllowUpdate = True Else rs_cl.Update 修改信息成功,MsgBox "", vbOKOnly + vbExclamation, "" DataGrid1.AllowUpdate = False 修改芈芈Command1.Caption = "" Command2.Enabled = True End If End Sub Dim sqlcl As String sqlcl = "select * from client"rs_cl.CursorLocation = adUseClientrs_cl.Open sqlcl, conn, adOpenKeyset, adLockPessimistic 不可增加 DataGrid1.AllowAddNew = False ‘DataGrid1.AllowDelete = False 不可芈除 ‘DataGrid1.AllowUpdate = False 芈定控件的据源 数Set DataGrid1.DataSource = rs_cl ‘DataGridEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Adodc1DataGrid1.Refresh rs_cl.Close End Sub 存芈芈芈----------------------------------------------------- Private Sub cmdallgoods_Click() all = True frmGoodsTable.Show End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdquery_Click() all = False If txtName.Text = "" Then 芈商品填写称名,注意MsgBox "", vbOKOnly + vbInformation, "" txtName.SetFocus Exit Sub ElseIf txtType.Text = "" Then 芈商品型填写号,注意MsgBox "", vbOKOnly + vbInformation, "" txtType.SetFocus Exit Sub End If strgname = txtName.Text strtype = txtType.Text 52 芈芈芈芈芈文() frmGoodsTable.Show End Sub 芈芈芈售---------------------------------------------------Private Sub Form_Load() Dim rs_check As New ADODB.RecordsetIf allsell = False Then Dim strsql As String 商品名strsql = "select * from sell where =‘" _ 型号& frmShowSell.txtName.Text & "’and = ‘" & frmShowSell.txtType.Text & "’"rs_check.Open strsql, conn, adOpenKeyset, adLockPessimistic Adodc1.RecordSource = strsql Adodc1.Refresh DataGrid1.ReBind If rs_check.EOF = True Then 此型商品有芈号没售,MsgBox "", vbOKOnly + vbInformation, " rs_check.Close Exit Sub End If rs_check.Close End If End Sub 厂商芈芈-------------------------------------------------------Dim rs_fc As New ADODB.Recordset Private Sub cmddel_Click() Dim answer As String 确定要芈除芈,answer = MsgBox("", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_fc.Delete rs_fc.Update DataGrid1.Refresh 成功芈除,MsgBox "", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = False Else Exit Sub End If End Sub Private Sub cmdmod_Click() 修改芈芈If cmdmod.Caption = "" Then 确定按芈名称改芈确定cmdmod.Caption = "" ‘""cmddel.Enabled = False DataGrid1.AllowUpdate = True Else 注意53 " 汽芈芈管理系芈售 rs_fc.Update 修改信息成功,MsgBox "", vbOKOnly + vbExclamation, "" DataGrid1.AllowUpdate = False 修改芈芈cmdmod.Caption = "" cmddel.Enabled = True End If End Sub Private Sub Form_Load() Dim sqlfc As String sqlfc = "select * from manufacturer"rs_fc.CursorLocation = adUseClient rs_fc.Open sqlfc, conn, adOpenKeyset, adLockPessimistic 不可增加DataGrid1.AllowAddNew = False ‘ 不可芈除 DataGrid1.AllowDelete = False ‘DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_fc End Sub Private Sub Form_Unload(Cancel As Integer)rs_fc.Close End Sub 芈芈芈芈------------------------------------------------------Private Sub Form_Unload(Cancel As Integer)Unload Me End Sub Private Sub SSTabbuy_Click(PreviousTab As Integer) 当份前年Dim inty As Integer ‘ 当份前月Dim intm As Integer ‘ 当前日期Dim intd As Integer ‘ inty = Year(Date) intm = Month(Date) intd = Day(Date) Dim sqlbuy As String 各商芈芈芈厂金芈Dim sqlfctotal As String ‘ 芈芈芈金芈Dim sqltotal As String ‘ Dim rs_check As New ADODB.RecordsetDim rs_fctotal As New ADODB.RecordsetDim rs_total As New ADODB.Recordset 芈置游芈方式rs_check.CursorLocation = adUseClient ‘rs_fctotal.CursorLocation = adUseClientrs_total.CursorLocation = adUseClientSelect Case PreviousTab 今日芈芈芈芈卡Case 0 ‘ ‘下面的芈句从表中芈芈芈芈日期芈前系芈芈芈的芈芈的当所有芈～sqlgoods 54 芈芈芈芈芈文() ‘且把并厂芈果按生芈商～芈金芈的降序排列 芈芈年 sqlbuy = "select * from goods where =" & inty _ 芈芈月芈芈日& " and =" & intm & " and =" & intd 生芈商厂芈金芈 & " order by" _ & " ,desc"‘打芈游芈 rs_check.Open sqlbuy, conn, adOpenKeyset, adLockPessimistic Adodc1.RecordSource = 修改的属性 刷新的属sqlbuy ‘Adodc1RecordSourceAdodc1.Refresh ‘Adodc1性 重新芈定DataGrid1.ReBind ‘DataGrid1 ‘如果所芈芈芈果集芈空～芈重新芈置和芈定～使其也芈空Adodc2DataGrid2 If rs_check.EOF = True Then Adodc2.RecordSource = sqlbuy Adodc2.Refresh DataGrid2.ReBind Text1.Text = 0 您没今日有芈芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If ‘下面的芈句从表中芈芈芈芈日期芈前当日期的芈芈集的生芈商厂和芈sqlgoods"""金芈～" ‘并厂芈芈果以生芈商芈芈象芈行分芈～芈分芈后的芈金芈芈行求和芈芈 sqlfctotal = 生芈商厂芈金芈各商芈芈芈厂金芈 "select ,sum() as " _ & " from goods 芈芈年 芈芈月where =" & inty & "and =" & intm _ & 芈芈日生芈商 厂" and =" & intd & " group by " rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc2.RecordSource = sqlfctotal Adodc2.Refresh DataGrid2.ReBind rs_fctotal.Close 芈金芈芈芈芈金芈 芈芈sqltotal = "select sum() as from goods where " _ & " 年 芈芈月芈芈日=" & inty & "and =" & intm & "and =" & intd rs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text1.Text = rs_total.Fields(0) rs_total.Close rs_check.Close Case 1 芈芈年 sqlbuy = "select * from goods where =" & inty _ 芈芈月生芈商厂芈金芈 & "and =" & intm & " order by ,desc" rs_check.Open sqlbuy, conn, adOpenKeyset, adLockPessimistic Adodc3.RecordSource = sqlbuy Adodc3.Refresh DataGrid3.ReBind 55 汽芈芈管理系芈售 If rs_check.EOF = True Then Adodc4.RecordSource = sqlbuy Adodc4.Refresh DataGrid4.ReBind Text2.Text = 0 您没本月有芈芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If rs_check.Close 生芈商厂芈金芈各商芈芈芈厂金芈 sqlfctotal = "select ,sum() as " _ & 芈芈年 芈芈月"from goods where =" & inty & "and =" & intm 生芈商 厂_ & " group by " rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc4.RecordSource = sqlfctotal Adodc4.Refresh DataGrid4.ReBind rs_fctotal.Close 芈金芈芈芈芈金芈 芈芈sqltotal = "select sum() as from goods where " _ & " 年 芈芈月=" & inty & "and =" & intm rs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text2.Text = rs_total.Fields(0) rs_total.Close Case 2 用于判断当几个前月芈本季度的第月Dim s As Integer ‘ s = intm Mod 3 如果能整除～芈芈明当前月芈本季度的第个月If s = 0 Then s = 3 ‘33 芈芈年 sqlbuy = "select * from goods where =" & inty _ 芈芈月 & " and between " & (intm - s) & " and " & 生芈商厂芈金芈 (intm + 1) _ & " order by ,desc" rs_check.Open sqlbuy, conn, adOpenKeyset, adLockPessimistic Adodc5.RecordSource = sqlbuy Adodc5.Refresh DataGrid5.ReBind If rs_check.EOF = True Then Adodc6.RecordSource = sqlbuy Adodc6.Refresh DataGrid6.ReBind 您没本季度有芈芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If rs_check.Close 56 芈芈芈芈芈文() 生芈商厂芈金芈各商芈芈芈厂金芈 sqlfctotal = "select ,sum() as " _ & 芈芈年 芈芈月 "from goods where =" & inty & "and between " _ 生芈商厂 & (intm - s) & " and " & intm & " group by " rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc6.RecordSource = sqlfctotal Adodc6.Refresh DataGrid6.ReBind rs_fctotal.Close 芈金芈芈芈芈金芈 芈芈年 sqltotal = "select sum() as from goods where =" _ 芈芈月 & inty & "and between " & (intm - s) & " and " & intm rs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text3.Text = rs_total.Fields(0) rs_total.Close Case 3 芈芈年 sqlbuy = "select * from goods where =" & inty _ 生芈商厂芈金芈 & " order by ,desc" rs_check.Open sqlbuy, conn, adOpenKeyset, adLockPessimistic Adodc7.RecordSource = sqlbuy Adodc7.Refresh DataGrid7.ReBind If rs_check.EOF = True Then Adodc8.RecordSource = sqlbuy Adodc8.Refresh DataGrid8.ReBind Text3.Text = 0 您没本年度有芈芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If rs_check.Close 生芈商厂芈金芈各商芈芈芈厂金芈 sqlfctotal = "select ,sum() as " _ & 芈芈年 生芈商 厂"from goods where =" & inty & " group by "rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc8.RecordSource = sqlfctotal Adodc8.Refresh DataGrid8.ReBind rs_fctotal.Close 芈金芈芈芈芈金芈 芈芈sqltotal = "select sum() as from goods where " _ & " 年 =" & inty rs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text4.Text = rs_total.Fields(0) rs_total.Close End Select 57 汽芈芈管理系芈售 End Sub 芈芈芈售---------------------------------------------------------Private Sub SSTabsell_Click(PreviousTab As Integer) Dim sqlsell As String 各品牌芈芈售金芈Dim sqlfctotal As String ‘ 芈芈售金芈Dim sqltotal As String ‘ Dim inty As Integer Dim intm As Integer Dim intd As Integer inty = Year(Date) intm = Month(Date) intd = Day(Date) Dim rs_check As New ADODB.RecordsetDim rs_fctotal As New ADODB.RecordsetDim rs_total As New ADODB.Recordsetrs_check.CursorLocation = adUseClientrs_fctotal.CursorLocation = adUseClient rs_total.CursorLocation = adUseClient Select Case PreviousTab Case 0 芈售年 sqlsell = "select * from sell where =" _ 芈售月芈售日& inty & " and =" & intm & " and =" & intd _ 生芈商厂芈金芈 & " order by ,desc" rs_check.Open sqlsell, conn, adOpenKeyset, adLockPessimistic Adodc1.RecordSource = sqlsell Adodc1.Refresh DataGrid1.ReBind If rs_check.EOF = True Then Adodc2.RecordSource = sqlsell Adodc2.Refresh DataGrid2.ReBind Text1.Text = 0 您没售今日有芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If rs_check.Close 生芈商厂芈金芈各商芈芈厂售金芈 sqlfctotal = "select ,sum() as " _ & " 芈售年 芈售月from sell where =" & inty & "and =" _ 芈售日生芈商厂 & intm & " and =" & intd & " group by " rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc2.RecordSource = sqlfctotal Adodc2.Refresh DataGrid2.ReBind 58 芈芈芈芈芈文() rs_fctotal.Close 芈金芈芈芈售金芈 芈售sqltotal = "select sum() as from sell where " _ & " 年 芈售月芈售日=" & inty & "and =" & intm & "and = " & intd rs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text1.Text = rs_total.Fields(0) rs_total.Close Case 1 芈售年 sqlsell = "select * from sell where =" & inty _ 芈售月生芈商厂芈金芈 & "and =" & intm & " order by ,desc"rs_check.Open sqlsell, conn, adOpenKeyset, adLockPessimistic Adodc3.RecordSource = sqlsell Adodc3.Refresh DataGrid3.ReBind If rs_check.EOF = True Then Adodc4.RecordSource = sqlsell Adodc4.Refresh DataGrid4.ReBind Text2.Text = 0 您没售本月有芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If rs_check.Close 生芈商厂芈金芈各商芈芈厂售金芈 sqlfctotal = "select ,sum() as " _ & " 芈售年 芈售月from sell where =" & inty & "and =" & intm _ 生芈商 厂& " group by " rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc4.RecordSource = sqlfctotal Adodc4.Refresh DataGrid4.ReBind rs_fctotal.Close 芈金芈芈芈售金芈 芈售sqltotal = "select sum() as from sell where " _ & " 年 芈售月=" & inty & "and =" & intmrs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text2.Text = rs_total.Fields(0) rs_total.Close Case 2 Dim s As Integer s = intm Mod 3 If s = 0 Then s = 3 芈售年 sqlsell = "select * from sell where =" & inty _ 芈售月 & " and between " & (intm - s) & " and " & 生芈商厂芈金芈 intm & " order by ,desc" rs_check.Open sqlsell, conn, adOpenKeyset, adLockPessimistic 59 汽芈芈管理系芈售 Adodc5.RecordSource = sqlsell Adodc5.Refresh DataGrid5.ReBind If rs_check.EOF = True Then Adodc6.RecordSource = sqlsell Adodc6.Refresh DataGrid6.ReBind Text3.Text = 0 您没售本季度有芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If rs_check.Close 生芈商厂芈金芈各商芈芈厂售金芈 sqlfctotal = "select ,sum() as " _ & 芈售年 芈售月 "from sell where =" & inty & "and between " 生芈商厂 & (intm - s) & " and " & intm & " group by " rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc6.RecordSource = sqlfctotal Adodc6.Refresh DataGrid6.ReBind rs_fctotal.Close 芈金芈芈芈售金芈 芈售sqltotal = "select sum() as from sell where " _ & " 年 芈售月 =" & inty & "and between " & (intm - s) _ & " and " & intm rs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text3.Text = rs_total.Fields(0) rs_total.Close Case 3 芈售年 sqlsell = "select * from sell where =" & inty _ 生芈商厂芈金芈 & " order by ,desc" rs_check.Open sqlsell, conn, adOpenKeyset, adLockPessimistic Adodc7.RecordSource = sqlsell Adodc7.Refresh DataGrid7.ReBind If rs_check.EOF = True Then Adodc8.RecordSource = sqlsell Adodc8.Refresh DataGrid8.ReBind Text4.Text = 0 您没售本年度有芈,注意MsgBox "", vbOKOnly + vbInformation, "" rs_check.Close Exit Sub End If rs_check.Close 60 芈芈芈芈芈文() 生芈商厂芈金芈各商芈芈厂售金芈 sqlfctotal = "select ,sum() as " _ & " 芈售年 生芈商 厂from sell where =" & inty & " group by " rs_fctotal.Open sqlfctotal, conn, adOpenKeyset, adLockPessimistic Adodc8.RecordSource = sqlfctotal Adodc8.Refresh DataGrid8.ReBind rs_fctotal.Close 芈金芈芈芈售金芈 芈售sqltotal = "select sum() as from sell where " _ & " 年 =" & inty rs_total.Open sqltotal, conn, adOpenKeyset, adLockPessimistic Text4.Text = rs_total.Fields(0) rs_total.Close End Select End Sub 数份据芈------------------------------------------------- 定芈字符串芈量Dim itmX, key As String ‘ 定芈整型芈量Dim a As Integer ‘ Private Sub Form_Load() Option1.Value = True Dir1_Change End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path ‘添加据芈到列表中数份卡 ListView1.ListItems.Clear If File1.ListCount <> 0 Thena = 0 Do While File1.ListIndex < File1.ListCount - 1 File1.ListIndex = a key = File1.FileName Set itmX = ListView1.ListItems.Add(, , key, 1) a = a + 1 Loop End If Label1.Caption = Dir1.Path & "\" & File1.FileName End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() 芈取路径Label1.Caption = Dir1.Path & "\" & File1.FileName ‘ End Sub Private Sub Command1_Click() If Option1.Value = True Then 61 汽芈芈管理系芈售 ‘芈据芈份数 If File1.ListCount <> 0 Then 芈份卡FileCopy Trim(Label1.Caption), Date & "" & File1.FileName Me.MousePointer = 0 数份据已芈完芈,MsgBox "" 芈份卡key = Date & "" & File1.FileNameSet itmX = ListView1.ListItems.Add(, , key, 1)End If End If If Option2.Value = True Then ‘恢芈指定路径数下的据芈 If File1.ListCount <> 0 Then FileCopy ListView1.SelectedItem, File1.FileNameMe.MousePointer = 0 数据已恢芈完芈,MsgBox "" Else 芈芈芈要恢芈的据数,MsgBox "" End If End If End Sub Private Sub Command2_Click() Unload Me End Sub --------------------------------------------------------------- 62