end if
Net=messagebox('提示','是否真要需要对码表进行初始化？',exclamation!,yesno!,2)
if Net=2 then return
if tab_mb.tabpage_ggmb.cbx_kmlb.checked=true then
delete from c_zz_kmlb;//科目类别码表 c_zz_kmlb 初始化
INSERT INTO c_zz_kmlb( kmlb_code,kmlb_name) VALUES ( '1','资产');
INSERT INTO c_zz_kmlb( kmlb_code,kmlb_name) VALUES ( '2','负债');
INSERT INTO c_zz_kmlb( kmlb_code,kmlb_name) VALUES ( '3','权益');
INSERT INTO c_zz_kmlb( kmlb_code,kmlb_name) VALUES ( '4','成本');
INSERT INTO c_zz_kmlb( kmlb_code,kmlb_name) VALUES ( '5','损益');
end if
if tab_mb.tabpage_ggmb.cbx_kmxz.checked=true then
delete from c_zz_kmxz;//科目性质码表 c_zz_kmxz 初始化
INSERT INTO c_zz_kmxz( kmxz_code,kmxz_name) VALUES ( '01','现金');
INSERT INTO c_zz_kmxz( kmxz_code,kmxz_name) VALUES ( '02','银行');
INSERT INTO c_zz_kmxz( kmxz_code,kmxz_name) VALUES ( '03','应收');
INSERT INTO c_zz_kmxz( kmxz_code,kmxz_name) VALUES ( '04','应付');
INSERT INTO c_zz_kmxz( kmxz_code,kmxz_name) VALUES ( '05','存货');
INSERT INTO c_zz_kmxz( kmxz_code,kmxz_name) VALUES ( '06','其它');
end if
if tab_mb.tabpage_ggmb.cbx_yefx.checked=true then
delete from c_zz_yefx;//余额方向码表 c_zz_yefx 初始化
INSERT INTO c_zz_yefx( yefx_code,yefx_name) VALUES ( '借','借方' );
INSERT INTO c_zz_yefx( yefx_code,yefx_name) VALUES ( '贷方','贷方' );
end if
if tab_mb.tabpage_ggmb.cbx_mjbj.checked=true then
delete from c_zz_mjbj;//末级标记码表 c_zz_mjbj 初始化
INSERT INTO c_zz_mjbj( mjbj_code,mjbj_name) VALUES ( 'Y','是' );
INSERT INTO c_zz_mjbj( mjbj_code,mjbj_name) VALUES ( 'N','否' );
end if
if tab_mb.tabpage_ggmb.cbx_pzlx.checked=true then
delete from c_zz_pzlx;//凭证类型码表 c_zz_pzlx 初始化
INSERT INTO c_zz_pzlx( pzlx_code,pzlx_name,lxjm,jfbykm1,jfbykm2,dfbykm1,dfbykm2,bwkm1,bwkm2)
VALUES ( '收','收款凭证','收款','101','102','','','','');
INSERT INTO c_zz_pzlx( pzlx_code,pzlx_name,lxjm,jfbykm1,jfbykm2,dfbykm1,dfbykm2,bwkm1,bwkm2)
VALUES ( '付','付款凭证','付款','','','101','102','','');
INSERT INTO c_zz_pzlx( pzlx_code,pzlx_name,lxjm,jfbykm1,jfbykm2,dfbykm1,dfbykm2,bwkm1,bwkm2)
VALUES ( '转'
论文范文http://www.chuibin.com/ ,'转账凭证','转账','','','','','101','102');
end if
if tab_mb.tabpage_ggmb.cbx_qx.checked=true then
delete from c_zz_qx;//权限码表 c_zz_qx 初始化
INSERT INTO c_zz_qx( qx_code,qx_name) VALUES ( '00','建账');
INSERT INTO c_zz_qx( qx_code,qx_name) VALUES ( '01','制单');
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]
账务处理系统基本表管理模块 第10页下载如图片无法显示或论文不完整，请联系qq752018766
