【正文】 KH setup　　　客戶設(shè)置全局變量Public gintYWYLBSmode As Integer 39。Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain End Sub過程Main將在系統(tǒng)啟動時首先執(zhí)行，這就保證對用戶的管理。由于系統(tǒng)啟動后，需要對用用戶進行判斷。password=fwqa。returns a DB ConnectString ConnectString = provider=SQLOLEDB。其中SQL用來存放需要執(zhí)行的SQL語句，MsgString用來返回執(zhí)行的提示信息。get RecordCount Set ExecuteSQL = rst MsgString = 查詢到 amp。添加函數(shù)ExecuteSQL,代碼如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。創(chuàng)建數(shù)據(jù)庫和存儲過程如下：CREATE TABLE [dbo].[dh] ( [in_date] [datetime] NULL , [ywman] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [dh_no] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [gfdm] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [wzdm] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL , [sl] [numeric](10, 0) NOT NULL , [in_danj] [numeric](12, 2) NULL , [i_zk] [numeric](5, 0) NULL , [i_zke] [numeric](12, 2) NULL , [bz] [char] (100) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[dm_ck] ( [dm] [char] (6) COLLATE Chinese_PRC_CI_AS NOT NULL , [mc] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [bz] [char] (255) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[dm_gf] ( [dm] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [mc] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [addr] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [yzbm] [char] (6) COLLATE Chinese_PRC_CI_AS NULL , [tel] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [itladd] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [sui_no] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [bank_no] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [bank] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [ywman] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [bz] [char] (255) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[dm_kh] ( [dm] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [mc] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [addr] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [yzbm] [char] (6) COLLATE Chinese_PRC_CI_AS NULL , [tel] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [itladd] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [ywman] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [sui_no] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [bank_no] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [bank] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [card_no] [char] (13) COLLATE Chinese_PRC_CI_AS NULL , [mb_reb] [numeric](12, 2) NULL , [bz] [char] (255) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GO5．創(chuàng)建產(chǎn)品信息表CREATE TABLE [dbo].[dm_wz] ( [dm] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL , [mc] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [jldw] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [lb] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [rkj] [numeric](12, 2) NULL , [fxj] [numeric](12, 2) NULL , [lsj] [numeric](12, 2) NULL , [cj] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [yxrq] [datetime] NULL , [bz] [char] (255) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GO6．創(chuàng)建產(chǎn)品類別表CREATE TABLE [dbo].[dm_wzlb] ( [lbcode] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [lb] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [bz] [char] (255) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GO7．創(chuàng)建業(yè)務(wù)員表CREATE TABLE [dbo].[dm_ywy] ( [dm] [char] (6) COLLATE Chinese_PRC_CI_AS NOT NULL , [mc] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [lb] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [tel] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [addr] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [sfz] [char] (18) COLLATE Chinese_PRC_CI_AS NULL , [lbcode] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [bz] [char] (255) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[dm_ywylb] ( [lbcode] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL , [lb] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [bz] [char] (255) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[inh] ( [in_date] [datetime] NULL , [ywman] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [inh_no] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [gfdm] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [ckdm] [char] (6) COLLATE Chinese_PRC_CI_AS NULL , [wzdm] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL , [sl] [numeric](10, 0) NOT NULL , [in_danj] [numeric](12, 2) NULL , [i_zk] [numeric](5, 0) NULL , [i_zke] [numeric](12, 2) NULL , [jsfk] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [jz] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [yf] [numeric](5, 0) NULL , [bz] [char] (100) COLLATE Chinese_PRC_CI_AS NULL , [bz1] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[kucun] ( [update_date] [datetime] NULL , [kucun_no] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [ckdm] [char] (6) COLLATE Chinese_PRC_CI_AS NULL , [wzdm] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL , [sl] [numeric](10, 0) NOT NULL , [total_je] [numeric](12, 2) NULL ) ON [PRIMARY]GOCREATE TABLE [dbo].[outh] ( [out_date] [datetime] NULL , [ywman] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [outh_no] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [khdm] [char] (8) COLLATE Chinese_PRC_CI_AS NULL , [ckdm] [char] (6) COLLATE Chinese_PRC_CI_AS NULL , [wzdm] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL , [sl] [numeric](10, 0) NOT NULL , [out_danj] [numeric](12, 2) NULL , [o_zk] [numeric](5, 0) NULL , [o_zke] [numeric](12, 2) NULL , [jsfk] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [jz] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [yf] [numeric](5, 0) NULL , [bz] [char] (100) COLLATE Chinese_PRC_CI_AS NULL , [bz1] [char] (100) COLLATE Chinese_PRC_CI_AS NUL