自制excel记账工具[VBA+PGSQL]

在XCVB

有很多很好的记账软件，但我不想财务状况在人家服务器上，就自己写了个记账的表格

写在前面：
1.需要自己配置postgresql 服务器，
2.需要自己配置收支分类
3.门槛较高，并非下载就能用的成品哦

**********
基本构造：

1.基于wps+vba+postgresql 设计；
2.控件使用了imagelist，treeview，listview及一些常规控件；
3.记录查询，统计，分类。
4.可以自己改接口数据，换其他数据库，建表SQL语句在最后。
5.工程密码：123.
**********
运行界面：



输入数据自动弹出窗口，双击选项回填。



金额输入完成，移动光标到账户列，自动弹出账户窗口：账户带余额显示。



报表：
1.查看支出，收入，项目，账户等统计，
2.单击项目，列表显示明细，
3.分页数据25条。多条记录单击，<第1页|共1页 >，这里，可以实现左右翻页效果。





*******
下载：
账本.zip (48.46 KB, 下载次数: 188)

2023-6-16 21:54 上传

点击文件名下载附件

*******
SQL建表语句：
1、基础资料（收支分类表）

1. 
   
2. <div>CREATE TABLE IF NOT EXISTS public.jczl
   
3. (
   
4.     lx text COLLATE pg_catalog."default",
   
5.     lb text COLLATE pg_catalog."default",
   
6.     xm text COLLATE pg_catalog."default",
   
7.     id integer NOT NULL DEFAULT nextval('jczl_id_seq'::regclass),
   
8.     CONSTRAINT jczl_pkey PRIMARY KEY (id)
   
9. )</div>

复制代码

2、项目成员表

1. 
   
2. <div>CREATE TABLE IF NOT EXISTS public.xmcy
   
3. (
   
4.     xm text COLLATE pg_catalog."default",
   
5.     xmsm text COLLATE pg_catalog."default",
   
6.     utime timestamp without time zone DEFAULT LOCALTIMESTAMP,
   
7.     id integer NOT NULL DEFAULT nextval('xmcy_id_seq'::regclass),
   
8.     lb text COLLATE pg_catalog."default" DEFAULT ''::text,
   
9.     CONSTRAINT xmcy_pkey PRIMARY KEY (id)
   
10. )</div>

复制代码

3、收支明细表

1. 
   
2. <div>CREATE TABLE IF NOT EXISTS public.szmx
   
3. (
   
4.     rq date,
   
5.     m money,
   
6.     zh text COLLATE pg_catalog."default",
   
7.     bz text COLLATE pg_catalog."default",
   
8.     xmu text COLLATE pg_catalog."default",
   
9.     cy text COLLATE pg_catalog."default",
   
10.     utime timestamp without time zone DEFAULT LOCALTIMESTAMP,
    
11.     id integer NOT NULL DEFAULT nextval('szmx_id_seq'::regclass),
    
12.     ru money,
    
13.     chu money,
    
14.     xmid integer DEFAULT 0,
    
15.     CONSTRAINT szmx_pkey PRIMARY KEY (id)
    
16. )</div>

复制代码

4、账户列表

1. 
   
2. <div>CREATE TABLE IF NOT EXISTS public.zhlb
   
3. (
   
4.     zhlx text COLLATE pg_catalog."default",
   
5.     zhmc text COLLATE pg_catalog."default",
   
6.     zhlb text COLLATE pg_catalog."default",
   
7.     id integer NOT NULL DEFAULT nextval('zhlb_id_seq'::regclass),
   
8.     "说明" text COLLATE pg_catalog."default" DEFAULT ''::text,
   
9.     CONSTRAINT zhlb_pkey PRIMARY KEY (id)
   
10. )</div>

复制代码

约定的童话

这年头谁还在电脑上记账，6070后可能会

hongshan2019

很多人电脑账也还没记明白

清茶小孩

约定的童话 发表于 2023-6-17 07:13
这年头谁还在电脑上记账，6070后可能会

天天座办公室对着电脑那部份人会的

micch

个人收支记账吗？我感觉直接用表格够用了，不至于用服务器。这样更符合大部分人的习惯。

zxsea_7426

在XCVB

zxsea_7426 发表于 2023-6-17 09:53

需要自己安装配置pgsql数据库

在XCVB

micch 发表于 2023-6-17 09:42
个人收支记账吗？我感觉直接用表格够用了，不至于用服务器。这样更符合大部分人的习惯。

赞同，我这是把简单的事情复杂化了。

jsgj2023

楼主有精力的话，开发一套在线版的财务记账管理系统，这个用的人可能比较多。