那位朋友给弄个vb连接SQL 2000的物资管理系统的VB的源代码,加分

发到243235379@163.com... 发到243235379@163.com 展开
 我来答
百度网友dcdbb9d
2010-05-10 · TA获得超过1179个赞
知道大有可为答主
回答量:977
采纳率:0%
帮助的人:980万
展开全部
已发到您邮箱,请查收

以下是部分代码
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation
Reference=*\G{00000206-0000-0010-8000-00AA006D2EA4}#2.6#0#C:\Program Files\Common Files\system\ado\msado26.tlb#Microsoft ActiveX Data Objects 2.6 Library
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; Richtx32.ocx
Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; Msflxgrd.ocx
Module=Module1; Module1.bas
Form=frmMain.frm
Form=frmLogin.frm
Form=frmMater.frm
Form=frmMater2.frm
Form=frmMaterIn.frm
Form=frmMaterIn1.frm
Form=frmMaterIn2.frm
Form=frmMaterList.frm
Form=frmMaterList1.frm
Form=frmMaterList2.frm
Form=frmMaterOut.frm
Form=frmMaterOut1.frm
Form=frmMaterOUt2.frm
Form=frmMater1.frm
Startup="frmLogin"
HelpFile=""
Command32=""
Name="物资管理系统"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="我家"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1

Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation
Reference=*\G{00000206-0000-0010-8000-00AA006D2EA4}#2.6#0#C:\Program Files\Common Files\system\ado\msado26.tlb#Microsoft ActiveX Data Objects 2.6 Library
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; Richtx32.ocx
Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; Msflxgrd.ocx
Module=Module1; Module1.bas
Form=frmMain.frm
Form=frmLogin.frm
Form=frmMater.frm
Form=frmMater2.frm
Form=frmMaterIn.frm
Form=frmMaterIn1.frm
Form=frmMaterIn2.frm
Form=frmMaterList.frm
Form=frmMaterList1.frm
Form=frmMaterList2.frm
Form=frmMaterOut.frm
Form=frmMaterOut1.frm
Form=frmMaterOUt2.frm
Form=frmMater1.frm
Startup="frmLogin"
HelpFile=""
Command32=""
Name="物资管理系统"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="我家"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1

Module1 = 88, 116, 624, 453, C
frmMain = 110, 145, 701, 567, C, 22, 29, 558, 366, C
frmLogin = 88, 116, 679, 538, , 44, 58, 635, 480, C
frmMater = 44, 58, 708, 431, , 44, 58, 580, 395, C
frmMater2 = 0, 0, 0, 0, C, 66, 87, 602, 424, C
frmMaterIn = 0, 0, 0, 0, C, 110, 145, 617, 576, C
frmMaterIn1 = 0, 0, 0, 0, C, 132, 174, 639, 605, C
frmMaterIn2 = 0, 0, 0, 0, C, 0, 0, 0, 0, C
frmMaterList = 0, 0, 0, 0, C, 154, 203, 661, 634, C
frmMaterList1 = 0, 0, 0, 0, C, 0, 0, 507, 431, C
frmMaterList2 = 0, 0, 0, 0, C, 22, 29, 529, 460, C
frmMaterOut = 0, 0, 0, 0, C, 0, 0, 0, 0, C
frmMaterOut1 = 0, 0, 0, 0, C, 44, 58, 551, 489, C
frmMaterOut2 = 0, 0, 0, 0, C, 66, 87, 573, 518, C
frmMater1 = 0, 0, 0, 0, C, 88, 116, 595, 547, C

use master
go

if exists (select * from dbo.sysdatabases where name = 'Material')
drop database Material
GO

create database Material
go

use Material
go

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[material]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[material]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[msave]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[msave]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[msurplus]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[msurplus]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[muse]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[muse]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[userinfo]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[userinfo]
GO

CREATE TABLE [dbo].[material] (
[wzid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[wzname] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[wzspec] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[wzkind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[wzunit] [char] (10) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[msave] (
[rkno] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[rkid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[rkname] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[rkspec] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[rkkind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[rkunit] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[rkaccount] [numeric](5, 0) NOT NULL ,
[rkprice] [numeric](8, 2) NOT NULL ,
[rkvalue] [numeric](10, 2) NOT NULL ,
[rkdate] [datetime] NOT NULL ,
[rkdeal_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[rksave_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[rkbase] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[rkmemo] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

CREATE TABLE [dbo].[msurplus] (
[yeid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[yename] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[yespec] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[yekind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[yeunit] [char] (2) COLLATE Chinese_PRC_CI_AS NULL ,
[yeaccount] [numeric](5, 0) NOT NULL ,
[yevalue] [numeric](10, 2) NOT NULL ,
[yebase] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[yememo] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

CREATE TABLE [dbo].[muse] (
[lyno] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[lyid] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[lyname] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[lyspec] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[lykind] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[lyunit] [char] (2) COLLATE Chinese_PRC_CI_AS NULL ,
[lyaccount] [numeric](5, 0) NOT NULL ,
[lyprice] [numeric](8, 2) NULL ,
[lyvalue] [numeric](10, 2) NULL ,
[lydate] [datetime] NOT NULL ,
[lyuse_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[lydeal_person] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[lybase] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[lymemo] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

CREATE TABLE [dbo].[userinfo] (
[UID] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[PWD] [char] (10) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式