附錄

工資管理系統(tǒng)實(shí)驗(yàn)指導(dǎo)書

一、實(shí)驗(yàn)?zāi)康?/p>

參考第章工資管理系統(tǒng)中的業(yè)務(wù)流程分析、功能結(jié)構(gòu)分析、數(shù)據(jù)處理流程分

析以及數(shù)據(jù)庫設(shè)計(jì)，開發(fā)一個(gè)工資管理系統(tǒng)。

二、實(shí)驗(yàn)環(huán)境

電腦上需要安裝以下軟件：

Windows操作系統(tǒng)、MicrosoftVisualStudio.Net2005MicrosoftSQLServer2000

等。

三、實(shí)驗(yàn)內(nèi)容及建議實(shí)驗(yàn)學(xué)時(shí)

系統(tǒng)開發(fā)功能模塊包括：系統(tǒng)登錄模塊、初始設(shè)置模塊、業(yè)務(wù)處理模塊、報(bào)表

查詢模塊。

實(shí)驗(yàn)內(nèi)容及建議實(shí)驗(yàn)學(xué)時(shí)如下:

建議實(shí)驗(yàn)

序號(hào)實(shí)驗(yàn)內(nèi)容

學(xué)時(shí)

1建立數(shù)據(jù)庫物理模型1

2建立數(shù)據(jù)庫，連接數(shù)據(jù)庫，生成相關(guān)表().5

3建立應(yīng)用及系統(tǒng)菜單05

4系統(tǒng)登錄模塊1

初始設(shè)置模塊

r

5（操作員設(shè)置、部門設(shè)置、職員設(shè)置、銀行設(shè)置、個(gè)稅稅率設(shè)置、獎(jiǎng)

懲額度設(shè)置）

會(huì)公口灸要藐分桁抬封殳#宕

業(yè)務(wù)處理模塊

66

（考勤信息、基本工資、變動(dòng)工資、銀行待發(fā)文件、個(gè)人所得稅）

報(bào)表查詢模塊

72

（工資匯總表、工資費(fèi)用分配表、福利費(fèi)分配表資詢）

合計(jì)實(shí)驗(yàn)學(xué)時(shí)18

四、建立工資管理系統(tǒng)數(shù)據(jù)庫

1、建立工資管理系統(tǒng)數(shù)據(jù)庫的SQL語句

工資管理系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)請(qǐng)參見第3章工資管理系統(tǒng)3.6工資管理系統(tǒng)數(shù)據(jù)

庫設(shè)計(jì)一節(jié)。下面給出生成工資管理系統(tǒng)數(shù)據(jù)庫的SQL語句。

工資管理系統(tǒng)數(shù)據(jù)庫的SQ.語句

CREATETABLEC_BM(

BM_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

BM_NAMEchar(20)COLLATEChinese_PRC_CI_ASNULL,

LXDI1char(15)COLLATEChincse_PRC_CI_ASNULL,

DZchar(50)COLLATEChinese_PRC_CI_ASNULL,

FZRchar(10)COLLATEChinese_PRC_CT_ASNULL,

BZchar(100)COLLATEChinese_PRC_CLASNULL

)ONPRIMARY

CREATETABLEC_CZY(

ZTHchar(10)COLLATEChinese_PRC_Cl_ASNOTNULL,

CZY_CODEchar(10)COLLATEChinesePRC_CI_ASNOTNULL,

CZY_NAMEchar(20)COLLATEChinese_PRC_CI_ASNULL,

PASSWORDchar(10)COLLATEChinese_PRC_CI_ASNULL,

CZY_SYSTEMbitNULL,

QXchar(2)COLLATEChinese_PRC_CI_ASNULL

)ONPRIMARY

CREATETABLEC_GZ_GL(

GLintNOTNULL,

GLGZdecimal(7,2)NULL

)ONPRIMARY

CREATETABLEC_GZ_GW(

GW_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

GWNAMEchar(20)COLLATEChinesePRCCIASNULL,

?274?

GWJTdecimal(7,2)NULL

)ONPRIMARY

CREATETABLEC_GZ_PDBZ(

PD_CODEchar(2)COLLATEChinese_PRC_CI_ASNOTNULL,

PD_NAMEchar(2)COLLATEChincse_PRC_CI_ASNULL

)ONPRIMARY

CREATETABLEC_GZ_XB(

XB_CODEchar(2)COLI.ATEChinese_PRC_CI_ASNOTNULL,

XB_NAMEchar(2)COLLATEChinese_PRCCIASNULL

)ONPRIMARY

CREATETABLEC_GZ_YHSZ(

YII_CODEchar(10)COLLATEChinese_PRC_Cl_ASNOTNULL,

YHZHchar(20)COLLATEChinese_PRC_CI.ASNOTNULL,

YH_NAMEchar(20)COLLATEChinese_PRC_CI_ASNULL,

FZRchar(10)COLLATEChinese_PRC_CI_ASNULL,

LXDHchar(15)COLLATEChinese_PRC_CI_ASNULL,

DZchar(50)COLLATEChinese_PRC_CI_ASNULL,

YZBMchar(6)COLLATEChinesePRCCI_ASNULL

)ONPRIMARY

CREATETABLEC_GZ_ZC(

ZC_CODEchar(10)COLLATEChinese_PRC_Cl_ASNOTNULL,

ZC_NAMEchar(20)COLLATEChinese_PRC_CI_ASNULL,

ZCGZdecimal(7,2)NULL

)ONPRIMARY

CREATETABLEC_GZ_ZYLB(

ZYLBCODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

ZYLB_NAMEchar(20)COLLATEChinese_PRC_CI_/\SNULL,

KMBMchar(16)COLLATEChinese_PRC_Cl_ASNULL

)ONPRIMARY

CREATETABLEGZ_BDGZ(

NKJQJchar(4)COLLATEChinese_PRC_CI_ASNOTNULL,

YKJQJchar(2)COLLATEChinese_PRC_CI_ASNOTNULL,

ZY_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

JBFdecimal(7,2)NULL,

JJdecimal(7,2)NULL,

CDKKdecimal(7,2)NULL,

KJSEdecimal(7,2)NULL,

SFHJdecimal(10,2)NULL

)ONPRIMARY

CREATETABLEGZ_JBGZ(

NKJQJchar(4)COLLATEChinese_PRC_CI_ASNOTNULL,

YKJQJchar(2)COLLATEChinese_PRC_CI_ASNOTNULL,

ZY_CODEchar(10)CULLAIEChinoso_EKC_Cl_ASNOTNULL,

JBGZdecimal(7,2)NULL,

GLGZdecimal(7,2)NULL,

ZCGZdecimal(7,2)NULL,

GWJTdecimal(7,2)NULL,

GDBTdecimal(7,2)NULL,

JSBJbitNULL

)ONPRIMARY

CREATETABLEGZ_JCEDB(

ZYLB_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

JBFEdecimal(7,2)NULL,

CDKKEdecimal(7,2)NULL,

BJKKEdecimal(7,2)NULL,

SJKKEdecimal(7,2)NULL,

KGKKEdecimal(7,2)NULL

)ONPRIMARY

CREATETABLEGZ_KJKM(

KMBMchar(16)COLLATEChinesePRC_CI_ASNOTNULL,

KMMCchar(30)COLLATEChinese_PRC_CI_ASNULL,

KMLBCODEchar(10)COLLATEChinese_PRC_Cl_ASNULL,

KMXZCODEchar(10)COLLATEChinese_PRC^CI_ASNULL,

MJBJbitNULL,

SJKMchar(12)COLLATEChinese_PRC_CI_ASNULL,

KMJBintNULL,

FZHS_CODEchar(10)COLLATEChinese_PRC_CI_ASNULL,

YEFXchar(2)COLLATEChinese_PRC_CI_ASNULL

)ONPRIMARY

CREATETABLEGZ_KQ(

NKJQJchar(4)COLLATEChinese_PRC_CI_ASNOTNULL,

YKJQJchar(2)COLLATEChinese_PRC_CI_ASNOTNULL,

ZY_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

JBCSintNULL,

CDCSintNULL,

BJCSintNULL,

會(huì)公口灸要藐分桁抬封殳#宕

SJCSintNULL,

KGCSintNULL

)ONPRIMARY

CREATETABLEGZ_PZMXB(

NKJQJchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

YKJQJchar(2)COLLATEChinese_PRC_CI_ASNOTNULL,

EZHchar(4)CULLA1LChinesc/KC/LAbNOTNULL,

PZLX_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

KMBMchar(16)COLLATEChinese_PRC_CT_ASNOTNULL,

ZYchar(30)COLLATEChinese_PRC_CI_ASNULL,

JFJEnumeric(14,2)NULL,

DFJEnumeric(14,2)NULL

)ONPRIMARY

CREATETABLEGZ_PZZB(

NKJQJchar(4)COLLATEChinese_PRC_CI_ASNOTNULL,

YKJQJchar(2)COLLATEChinese_PRC_CI_ASNOTNULL,

PZHchar(4)COLLATEChincse_PRC_CI_ASNOTNULL,

PZLX_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

RQchar(10)COLLATEChinese_PRC_CI_ASNULL,

FDJSnumeric(3,0)NULL,

PJHchar(10)COLLATEChinese_PRC_CI_ASNULL,

PJZLchar(8)COLLATEChinese_PRC_CI_ASNULL,

JSFSCODEchar(10)COLLATEChinesePRCCIASNULL,

WL_CODEchar(10)COLLATEChinese_PRC_CI_ASNULL,

BM_C()DEchar(10)COLLATEChinese_PRC_Cl_ASNULL,

SRCZY_CODEchar(10)COLLATEChinese_PRC_CIASNULL,

SRSJdatetimeNULL,

SH_CZ￥_CODEchar(8)COLLATEChinese_PRC_Cl_ASNULL,

SHBZbitNULL,

SHSJdatetimeNULL,

JZ_CZY_CODEchar(10)COLLATEChinese_PRC_CI_ASNULL,

JZSJdatetimeNULL,

JZBZbitNULL

)ONPRIMARY

CREATETABLEGZ_SDS(

NSSDintNOTNULL,

SLdecimal(3,2)NULL,

SSKCdecimal(7,2)NULL

)ONPRIMARY

CREATETABLEGZ_YHDF(

YHZHchar(20)COIJ.ATEChinesePRCCIASNOTNULL,

?278?

DWDHchar(5)COLLATEChinesePRCCIASNULL,

GRZHchar(20)COLLATEChinese_PRC_CI_ASNOTNULL,

FFRQdatetimeNULL,

JEdecimal(14,2)NULL

)ONPRIMARY

CREATETABLEGZ_ZY(

ZY_CODEchar(10)CULLAIEChinoso_EKC_Cl_ASNOTNULL,

ZY_NAMEchar(10)COLLATEChinese_PRC_CI_ASNULL,

XB_CODEchar(2)COLIJ\TEChinese_PRC_CT_ASNULL,

CSRQdatetimeNULL,

ZYLB_CODEchar(10)COLLATEChinese_PRC_CI_ASNULL,

BM_CODEchar(10)COLLATEChinese_PRC_CI_ASNULL,

GW_CODEchar(10)COLLATEChincsc_PRC_Cl_ASNULL,

ZC_CODEchar(10)COLLATEChinese_PRC_CI_ASNULL,

RZRQdatetimeNULL,

LZRQdatetimeNULL,

GRZHchar(20)COLLATEChinese_PRC_CI_ASNULL,

BGDHchar(15)COLLATEChinese_PRC_CI_ASNULL,

JTZZchar(50)COLLATEChinese_PRC_CI_ASNULL,

YZBMchar(6)COLLATEChinese_PRC_CI_ASNULL,

LXDHchar(15)COLLATEChinese_PRC_CI_ASNULL,

BDWbitNULL

)ONPRIMARY

CREATETABLEZZ_KMLB(

KMLB_CODEchar(10)COLLATEChinese_PRC_Cl_ASNOTNULL,

KMLBNAMEchar(20)COLLATEChinesePRCCIASNULL

)ONPRIMARY

CREATETABLEZZ_KMXZ(

KMXZ_CODEchar(10)COLLATEChinese_PRC_Cl_ASNOTNULL,

KMXZNAMEchar(20)COLLATEChinese_PRC_CI_ASNULL

)ONPRIMARY

CREATETABLEZZ_PZLX(

GZ_PZLX_CODEchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,

GZ_PZLX_NAMEchar(20)COLLATEChinese_PRC_CI_ASNULL

)ONPRIMARY

2、生成工資管理系統(tǒng)的數(shù)據(jù)庫表

建立工資管理系統(tǒng)的數(shù)據(jù)庫gdzc,并執(zhí)行建立工資管理系統(tǒng)數(shù)據(jù)庫的SQL語

會(huì)外再灸要就分桁抬"⑨#宕

句，可建立工資管理系統(tǒng)所需要的數(shù)據(jù)表。

五、系統(tǒng)定義說明

1、系統(tǒng)配置

系統(tǒng)配置信息位于程序目錄下的文件“app.config”內(nèi)，其中包含了數(shù)據(jù)庫鏈接

信息，將YourServerName設(shè)置為你的SQLServer數(shù)據(jù)庫服務(wù)器名稱。

<conneclionStrings>

<addname=,,gdzc.My.MySetlings.gdzcConneclionString"

connectionString='DataSource=YourServerName;

InitialCatalog=gz;

IntegratedSecurity-True"

providerName="System.Data.SqlClient"/>

</conncctionStrings>

2、數(shù)據(jù)庫操作類及其方法

數(shù)據(jù)庫操作類“db.vb”包含了常用的對(duì)數(shù)據(jù)的操作方法:

序

號(hào)方法名調(diào)用參數(shù)返回值類型功能

提取數(shù)據(jù)操作，得到數(shù)

1GetListStringSql01eDbDataReader據(jù)列表，用于

**DataReaderw類

StringSql,提取數(shù)據(jù)操作，得到數(shù)

2CreateDataSetDataSet

StringTb據(jù)集

StringSql,提取數(shù)據(jù)操作，得到數(shù)

3CreateDataViewDataView

StringTb據(jù)示圖

StringSql,提取數(shù)據(jù)操作，得到排

4CreateDataViewWithSortDataView

StringTb序后的數(shù)據(jù)示圖

提取數(shù)據(jù)操作，得到排

5CrcatcDataTablcStringSqlDataTable

序后的數(shù)據(jù)表

執(zhí)行無提取值的SQL語

6ExeSqlStringSqlBoolean

句

?280?

提取數(shù)據(jù)操作，得到類

7Getlnt32StringSqlInt32型為int32的單個(gè)數(shù)據(jù)

值

提取數(shù)據(jù)操作，得到類

8Getlnt64StringSqlInt64型為int64的單個(gè)數(shù)據(jù)

值

提取數(shù)據(jù)操作，得到類

9GetStringValueStringSqlString型為string的單個(gè)數(shù)

據(jù)值

提取數(shù)據(jù)操作，得到類

1()GetStringValucsStringSqlString()

型為string的數(shù)組

提取數(shù)據(jù)操作，得到類

11GetdateValueStringSqlDateTime型為DateTime的單個(gè)

數(shù)據(jù)值

提取數(shù)據(jù)操作，得到類

型為decimal的單個(gè)數(shù)

12GetIdDecStringSqlDecina1

據(jù)值，以數(shù)據(jù)排列的倒

序提取

得到某數(shù)據(jù)表中紀(jì)錄的

13GetCountStringSqlInteger

條數(shù)，返回int型值

得到某數(shù)據(jù)表中紀(jì)錄的

14GetCountDecimalStringSqlDecinal條數(shù)，返回decimal型

值

六、窗口設(shè)計(jì)說明

1>窗口frm_login

窗口名frm_login

功能系統(tǒng)登錄

會(huì)公口灸要藐分桁抬封殳#宕

窗口控件說明

控件名控件名稱說明

cbx_code登錄用戶名下拉列表，選擇登錄用戶

登錄密碼單行文本輸入框，輸入登錄密碼

btn_conform確定登錄按鈕，點(diǎn)擊后進(jìn)行登錄信息驗(yàn)證

btn_cancel取消登錄按鈕，點(diǎn)擊關(guān)閉窗口

事件腳本

DimlistAsNewDb

DimsqlstrAsString

Privatecede,pwdAsString

code=cbx_code.SelectedValue

pwd=txlmrn.Text.Trim()

sqlstr="selectcount(*)fromc_czywhereczy_code=,+code+and

password二,"+pwd+〃，〃

btn_conformIflist.GetCount(sqlstr)<>0Then

.Clickfrmmain.Show()

czy=code

Me.Hide()

Else

MsgBox("密碼錯(cuò)，請(qǐng)重新輸入〃)

txtnim.Text-

txtjnm.Focus()

EndIf

btn_cancel.

Applicaticn.Exit()

Click

2、窗口frm_czy

窗口名frm_czy

功能操作員設(shè)置

?282?

界面設(shè)計(jì)

窗口控件說明

控件名控件名稱說明

trv_czy操作員列表樹型列表，顯示操作員

txt_code操作員編號(hào)單行文本輸入框，輸入操作員編號(hào)

txt_name操作員名稱單行文本輸入框，輸入操作員名稱

lxt_pwd登錄密碼單行文本輸入框，輸入登錄密碼

txt_rpwd重且密碼單行文本輸入框.重免輸入登錄密碼

btn_add增加工具欄按鈕，點(diǎn)擊增加新操作員

btn_modi修改工具欄按鈕，點(diǎn)擊修改當(dāng)前操作員

btn_save保存工具欄按鈕，點(diǎn)擊保存修改

btn_del刪除工具欄按鈕，點(diǎn)擊刪除當(dāng)前操作員

DimlistAsNewDb

DimmydsAsNewDataSet()

窗口全局變

DimsqlstrAsString

量Privatecede,namel,bm,pwdAsString

Privateflag=0

會(huì)公口灸要藐分桁抬封殳#宕

PrivateSubcreatetreeO

Me.trv_czy.Nodes.Clear()

Me.trv_czy.Nodes.Add("操作員”)

Me.trvezy.Nodes(0).Nodes.ClearC

sqlstr="select*fromc_czy”

DimdtAsDataTable=list.CreateDataTable(sqlstr)

窗口函數(shù)ForEachdrAsDataflowIndt.Select

DimtnAsNewTreeNode

tn.Text=drCczycode").ToSinng.TrirnO+*|*+

dr("czy_name").ToString.TrirnO

Me.trv_czy.Nodes(0).Nodes.Add(tn)

Next

EndSub

事件腳本

btnadd.Enabled=True

btn_save.Enabled=False

frm_czy.Loabtn_del.Enabled=True

clbtnmodi.Enabled=True

Me.txt_code.Enabled=False

Me.createtree()

Ife.Node.Text="操作員"Then

ExitSub

Else

code=list,charcheck(e.Node.Text.TrirnO)

EndIf

sqlstr="selectczyname,passwordfromcczywhereczycode='"+code

trv_czy.Aft

erSelectmyds=list.CreateDataSet(sqlstr,"tb")

txt_code.Text=code

txt_name.Text=myds.Tables("tb").Rows(0)(0)

txt_code.Enabled=False

txt_pwd.Text=myds.Tables("tb").Rows(0)(1)

txt_rpwd.Text=myds.Tables(*tb*).Rows(0)(1)

row=trvezy.SelectedNode.Index

?284?

btnadd.Enabled=False

btn_save.Enabled=True

btndel.Enabled=False

btnmodi.Enabled=False

sqlstr="selectcount(*)fromc_czy”

Iflist.GctCount(sqlstr)>0Then

sqlstr="select,0*+cast(max(cast(czy_codeasinteger))+laschar)

fromcczy”

txt_cede.Text=list.GetStringValue(sqlstr).TrimO

btn_add.Cli

Else

cktxt_ccde.Text="01"

EndIf

Mo.txtcodc.Enabled=False

Me.txtnarre.Text=

txtpwd.Text=

txt_rpwd.Text-

Me.txt_code.Focus()

flag=0

公/口攵亥該分析它"為用妗

code=txtcode.Text.Trim()

namel=txt_name.Text.TrimO

pwd=txt_pwd.Text.Trim

Ifflag=0Then

Ifcode-""Then

MsgBox(〃操作員編號(hào)不能為空,請(qǐng)重新輸入！〃)

ExitSub

EndIf

1ftxt_name.Text=""Then

MsgBoxC操作員名稱不能為空，請(qǐng)輸入操作員名稱！”)

txt_name.Focus()

ExitSub

EndIf

sqlstr="selectcount(*)fromc_czywhei'eczy_code=>"+code

1〃，〃

Iflist.GetCount(sqlstr)<>0Then

MsgBox("輸入的操作員編號(hào)已經(jīng)存在，請(qǐng)重新輸入!〃)

txtcode.Focus()

ExitSub

EndIf

Iftxtpwd.Text.Trim()<>txtrpwd.Text.TrimOThen

MsgBox("兩次密碼輸入不一詼請(qǐng)重新輸入密碼！”)

txt_pwd.Text=

txt_rpwd.Text=

txt_pwd.Focus()

ExitSub

EndIf

sqlstr="insertinto

c_czy(zth,czy_code,czy_name,password,czy_system)values('01','"+code

+namel++pwd+'O')"

list.ExeSql(sqlstr)

DimtnnewAsNewTreeNode

tnnew.Text=code+T+namel

trv_czy.Nodes(0).Nodes.Add(tn_new)

btn_save.Cl

MsgBox（"記錄已經(jīng)加入”）

icktrv_czy.Refresh()

sqlstr="selectcount(*)fromc_czy”

TTlist.GetCuunl(sqlsli)〉0Then

sqlstr="selectJ-cast(max(cast(czycodoas

integer))+1aschar)fromc_czy”

txt_code.Text=1ist.GetStringValue(sqlstr).Trin()

Else

txt_code.Text="01”

EndTf

Me.txt_code.Enabled=False

txtname.Text='

txt_pwd.Text=

txt_rpwd.Texf286”

txtcode.Focus()

Elselfflag=1Then

Iftxt_name.Text=""Then

MsgBox("操作員名稱不能為空，請(qǐng)輸入名稱！〃)

tvtnamnFcei")

code=list.charcheck(trvczy.SelectedNodc.Text.Trim)

Iftrv_czy.SelectedNode.Text.TrimO<>"操作員"Then

sqlstr="selectczy_systemfromc_czywhereczy_code=，"+cod?+“

Iflist.GetboolcanValuo(sqlstr)=TrueThen

MsgBox("系統(tǒng)主管不能刪除！”)

Else

sqlstr="deletefromc_czywhereczy_codc='"+code+"

btn_del.Clilist.ExeSql(sqlstr)

cktrvczy.Nodes(0).Nodes(row).Remove()

MsgBoxC刪除成功！")

trv_czy.Refresh()

EndIf

Else

MsgBox(〃請(qǐng)選擇要?jiǎng)h除的操作員！”)

ExitSub

EndIf

btnadd.Enabled=True

btn_save.Enabled=False

btn_cancel.btn_del.Enabled=True

Clickbtnmodi.Enabled=True

Me.txtcode.Enabled=False

btn_add.Enabled=False

btn_save.Enabled=True

btn_modi.Clbtndel.Enabled=False

ickbtnmodi.Enabled=False

Me.txt_code.Enabled=False

flag=1

3、窗口frm_bm

窗口名frm_bm

功能部門設(shè)置

會(huì)公口灸要藐分桁抬封殳#宕

界面設(shè)計(jì)

窗口控件說明

控件名控件名稱說明

trv_bm部門列表樹型列表，顯示部門

txt_code部門編號(hào)單行文本輸入框，輸入部門編號(hào)

txt_name部門名稱單行文本輸入框，輸入部門名稱

txt_lxdh聯(lián)系電話單行文本輸入框，輸入聯(lián)系電話

txt_dz地址單行文本輸入框，輸入地址

txt_fzr負(fù)貢人單行文本輸入框，輸入負(fù)貢人

txt_bz備注單行文本輸入框，輸入備注

btn_add增加工具欄按鈕，點(diǎn)擊增加新部門

btn_modi修改工具欄按鈕，點(diǎn)擊修改當(dāng)前部門

btn_save保存工具欄按鈕，點(diǎn)擊保存修改

btn_del刪除工具欄按鈕，點(diǎn)擊刪除當(dāng)前部門

DimlistAsNewDb

DimmydsAsNewDataSet()

窗口全局變

DimsqlstrAsString

星Privatecede,namel,Ixdh,dz,fzr,bzAsString

Privateflag=0

?288?

PrivateSubcreatetreeO

Me.trv_bm.Nodes.Clear()

Me.trv_bm.Nodes.Add("減少方式”)

Me.trvbm.Nodes(0).Nodes.Clear()

sqlstr="select*fromc_bm，/

DimdtAsDataTable=list.CreateDataTable(sqlstr)

窗口函數(shù)ForEachdrAsDataRowIndt.Select

DimtnAsNewTreeNode

tn.Text=dr("bm_code").Toblring.Trim。++

dr("bm_nairc").ToString.TrimO

Me.trv_bm.Nodes(0).Nodes.Add:tn)

Next

EndSub

事件腳本

btnadd.Enabled=True

btnsave.Enabled=False

btn_del.Enabled=True

frm_bm.Loadbtnmodi.Enabled=True

Me.txtcodc.Enabled=False

Me.createtree()

Ife.Node.Text="部門"Then

ExitSub

Else

code=list.charcheck(e.Node.Text.TrimO)

EndIf

sqlstr="selectbmname,Ixdh,dz,fzr,bzfromc_bmwherebm_code='"+

code+"

trv_bm.Afte

myds=list.CreateDataSet(sqlstr,"tb")

rSelecttxt_code.7ext=code

txt_name.Text=myds.Tables("tb").Rows(0)(0)

txtcode.Enabled=False

txt_lxdh.text=myds.Tables(*tbw).Rovs(0)(1)

txtdz.text=myds.Tables("tb").Rows(0)(2)

txt_fzr.Text=myds.Tables(*tb*).Rows(0)(3)

txt_bz.Text=myds.Tables("tb").Rows[0)(4)

row=trv_bm.SelectedNode.Index

會(huì)公口灸要藐分桁抬封殳#宕

btnadd.Enabled=False

btn_save.Enabled=True

btndel.Enabled=False

btnmodi.Enabled=False

sqlstr="selectcount(*)fromc_bm”

If1ist.GetCount(sqlstr)>0Then

sqlstr="selectJ+cast(max(cast(bmeodeasinteger))+1aschar)

fromc_bmw

txt_ccde.Text=list.GetStringVa.ue(sqlstr).lrim()

Else

btn_add.Clitxt_ccde.Text="01"

ckEndIf

Me.txt_code.Enabled=True

Mo.txtnairc.Text=

txt_lxdh.Text=

txt_dz.Text=

txt_fzr.Text=

txt_bz.Text=

Me.txt_code.Focus()

flag=0

?290?

code=txtcode.Text.TrimO

namel=txt_name.Text.TrimO

1xdh=txt_lxdh.Text.TrimO

dz=txtdz.Text.TrimO

fzr=txt_fzr.Text.TrimO

bz=txt_bz.Text.Trim

Ifflag=0Then

Ifcode=""Then

MsgBox部門編號(hào)不能為空，請(qǐng)重新輸入！”)

ExitSub

EndIf

Iftxtname.Text=""Then

MsgBox("部門名稱不能為空，請(qǐng)輸入操作員名稱！〃)

txt_name.Focus()

ExitSub

EndIf

sqlstr="selectcount(*)fromc_bmwhere