【正文】 等。數(shù)據(jù)庫由下面多個表格組成，各個表格的設(shè)計結(jié)果如下面表格所示。在ExecuteSQL函數(shù)中使用了ConnectString函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫。for WZ setup　　產(chǎn)品設(shè)置全局變量Public gintGFSmode As Integer 39。固定表頭 .FixedRows = 1 39。添加判斷是否有相同的ID記錄 If gintWZSmode = 1 Then txtSQL = select * from dm_wz where dm =39。 Trim(Combo1(1)) amp。 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 請首先選擇需要修改的紀(jì)錄！ End If End IfEnd Sub在產(chǎn)品設(shè)置信息列表中選擇需要刪除的記錄，然后單擊“刪除”按鈕，將刪除當(dāng)前記錄，代碼如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim msgText As String If 1 Then If MsgBox(真的要刪除編號為 amp。 的進(jìn)貨單記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intCount = txtSQL = delete from dh where dh_no =39。,39。 Trim(txtItem(0)) amp。表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。for KH setup　　　客戶設(shè)置全局變量Public gintYWYLBSmode As Integer 39。returns a DB ConnectString ConnectString = provider=SQLOLEDB。創(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