家庭财务管理系统源代码
家庭财务管理系统课程设计的原代码
1、frm_borrowgo.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Str_text As StringDim strflag As StringPrivate Sub cmd_add_Click（）txt_man。
Locked = Falsetxt_way。
Locked = Falsetxt_money。
Locked = FalseCombo1。
Locked = FalseCheck1.Enabled = TrueDTPicker1。
Enabled = Truetxt_man。
Text = ”"txt_way。
Text = ””txt_money。
Text = ”"Combo1.Text = "”strflag = "添加”Cmdsave。
Enabled = TrueEnd SubPrivate Sub cmd_close_Click(）Unload MeEnd SubPrivate Sub cmd_del_Click(）Dim A As BooleanA = MsgBox("是否真的要删除这条记录？", vbOKCancel + 32 + 256, "删除"）If A = True ThenExeCutesql "delete from 借出where 得款人=’”＆txt_man。
Text & ”’", Str_textMsgBox ”记录已删除！”，, "删除"If Mydb。
RecordCount 〉0 ThenMydb.MoveNextIf Mydb.EOF Then Mydb.MoveLastCall DbCall BangdingLabel7.Caption = Mydb。
C语言财务管理系统(源代码)教案.doc
void save_to_file();
void clear_data();
fi_data *get_last();
fi_data *get_previous(fi_data *p);
void input_info(fi_info *info);
void show_info(fi_data *p[],int count);
fflush(stdin);
getchar();
}
else
{
menu_fun[selected]();
}
selected=0;
}
}
void add_income()
{
fi_data *p=(fi_data *)malloc(sizeof(fi_data));
memset(p,0,sizeof(fi_data));
void delete_payout();
void update_payout();
void count_total();
void quit();
void search_data(fi_type type);
void delete_data(fi_type type);
void update_data(fi_type type);
input_info(&(p->info));
p->info.type=payout;
if(head==NULL)
{
head=p;
}
else
{
get_last(head)->next=p;
}
}
void search_payout()
c语言编写-家庭财务管理系统
strcpy(s[recNumber].intime,Tm.intime);
s[recNumber].out=Tm.out;
strcpy(s[recNumber].outtime,Tm.outtime);
if (fp==NULL) /*判断是否打开成功*/
{
printf("\n打开文件%s失败！按任意键结束！\n",Da);
exit(0);
}
while(fread(&Tm,sizeof(money),1,fp)!=(int)NULL) /*从文件中读取数据，是否读取成功*/
fp=fopen(Da,"ab+");
if (fp==NULL) /*判断文件是否成功打开*/
{
printf("\n 打开文件 %s 失败！按任意键结束！\n",Da);
exit(0);
}
while(fread(&ch,sizeof(money),1,fp)!=(int)NULL) /*从文件中读取数据并判断是否成功*/
scanf("%f",&Tm.in);
printf("输入收入时间：");
scanf("%s",Tm.intime);
printf("输入成员支出：");
scanf("%f",&Tm.out);
printf("输入支出时间：");
{ printf("###############################################\n");
家庭支出管理系统详细代码
先在D盘先建立“密码.txt（在里面写入初始六位密码）”；“支出信息。
txt”即可。
代码：#include <stdio.h>#include <stdlib.h>#include <ctype.h>#include <string.h>#include <conio.h>#include <malloc.h>typedef struct //定义结构体{char type[20];//消费类型float Getsum;//消费金额char place[20];//消费地点int time;//消费时间}family;family fam[80];int menu()//显示该系统所具备的功能{char c;do{system("cls");//清屏printf("\t\t***************************\n");printf("\t\t**********菜单系统*********\n");printf("\t\t|1.输入消费信息|\n");printf("\t\t|2.计算消费总和|\n");printf("\t\t|3.显示消费情况|\n");printf("\t\t|4.对同种类型消费进行排序并显示|\n");printf("\t\t|5.消费情况分析|\n");printf("\t\t|6.保存数据|\n");printf("\t\t|0.退出系统|\n");printf("\t\t***************************\n");printf("\t\t***************************\n");printf("\t\t\t请对应选择所需选项(0-6):");c=getchar();}while(c<'0'||c>'6');return(c-'0');}void password()//密码验证和密码修改{int m;printf("\t\t****************登陆界面****************\n");printf("\t\t****************************************\n");printf("\t\t**\t\t1.密码修改**\n");printf("\t\t**\t\t2.登陆**\n");printf("\t\t****************************************\n");printf("\t\t****************************************\n");printf("\t\t\t请输入您所要的选项(1，2)：");scanf("%d",&m);getchar();switch(m){case 1://密码修改{int i,j;char a[7],b[7],c[7],d[7];FILE *fp1; FILE *fp2;fp1=fopen("D:\\密码.txt","r");if(!fp1){printf("file cannot be opened");exit(1);}for(i=0;!feof(fp1);i++) //feof判断文件是否结束{a[i]=fgetc(fp1);}fclose(fp1);printf("\t\t\t请输入原密码：");for(j=0;j<7;j++){scanf("%c",b+j);//判断数组b是否和原密码是否相等if(b[j]>='0'&&b[j]<='9'||b[j]>='a'&&b[j]<='z'||b[j]>='A'&&b[j]<='Z')putchar('*');}if(a[0]==b[0]&&a[1]==b[1]&&a[2]==b[2]&&a[3]==b[3]&&a[4]==b[4]&&a[5]==b[5]) {do{printf("\t\t\t请设置您的新密码: ");for(j=0;j<7;j++){scanf("%c",c+j);if(c[j]>='0'&&c[j]<='9'||c[j]>='a'&&c[j]<='z'||c[j]>='A'&&c[j]<='Z')putchar('*');}printf("\t\t\t请确认您的新密码: ");for(j=0;j<7;j++){scanf("%c",d+j);if(d[j]>='0'&&d[j]<='9'||d[j]>='a'&&d[j]<='z'||d[j]>='A'&&d[j]<='Z')putchar('*');}}while(!(c[0]==d[0]&&c[1]==d[1]&&c[2]==d[2]&&c[3]==d[3]&&c[4]==d[4]&&c[5]==d[5]));//利用do while语句进行判定两次密码是否成功！fp2=fopen("D:\\密码.txt","w+");if(!fp2){printf("the file cannot be opened!");exit(1);}i=0;while (i<6){fprintf(fp2,"%c",c[i]);i++;}fclose(fp2);printf("\t\t\t密码修改成功!\n");}else{printf("\t\t\t密码错误\n");exit(0);}}case 2://密码验证{char e[7],f[7];int n=0;int i,j;FILE *fp1;fp1=fopen("D:\\密码.txt","r");if(!fp1){printf("the file cannot be opened!");exit(1);}for(i=0;!feof(fp1);i++){ e[i]=fgetc(fp1); }do{printf("\t\t\t请输入六位数密码：");for(j=0;j<7;j++){scanf("%c",f+j);if(f[j]>='0'&&f[j]<='9'||f[j]>='a'&&f[j]<='z'||f[j]>='A'&&f[j]<='Z')putchar('*');}if(!(e[0]==f[0]&&e[1]==f[1]&&e[2]==f[2]&&e[3]==f[3]&&e[4]==f[4]&&e[5]==f[5])){printf("\n密码错误!请重新输入:\n");n++;}if (n>3){printf("error\n");exit(0);}}while(!(e[0]==f[0]&&e[1]==f[1]&&e[2]==f[2]&&e[3]==f[3]&&e[4]==f[4]&&e[5]==f[5]));//利用do~while语句进行判定密码是否错误！printf("\n\t\t\t欢迎使用!\n");}}}int Input(family sum[],int n)//输入消费信息{int i=0;char sign='y',x[10];while(sign!='n'&&sign!='N'){printf("\t\t\t种类:");scanf("\t\t\t%s",sum[n+i].type);printf("\t\t\t支出(大于0):");scanf("\t\t\t%f",&sum[n+i].Getsum);printf("\t\t\t地点:");scanf("\t\t\t%s",sum[n+i].place);printf("\t\t\t时间(0-31):");scanf("\t\t\t%d",&sum[n+i].time);if(sum[n+i].time<1||sum[n+i].time>31)return false;gets(x);printf("\t\t\t需要再次输入吗?(y/n)");scanf("\t\t\t%c",&sign);//判断是否需要重新输入i++;}}void Getsum(family sum[], int n) //计算消费总金额{float getsum=0;int i=0;for(i=0;i<n;i++){getsum+=sum[i].Getsum;}printf("\t\t\t%f\n",getsum);}void Showitems(family sum[],int n)//输出所输入的消费信息{int i;printf("\t\t\t--------------------------------------\n");printf("\t\t\t种类支出地点时间\n");printf("\t\t\t--------------------------------------\n");for(i=1;i<n+1;i++){printf("\t\t\t%-8s %-12f %-8s %-10d\n",sum[i-1].type,sum[i-1].Getsum,sum[i-1].place,sum[i-1].ti me);if(i>1&&i%10==0)//这边为什么会有i%10==0(保证输入多次信息的时候可以一次性显示) {printf("\t\t\t----------------\n");printf("\t\t\t");printf("\t\t\t----------------\n");}}printf("\t\t\t");system("pause");}void sort(family sum[],int n)//对消费信息进行归类和选择法排序升序排名{int i,j;family temp;FILE *fp;fp=fopen("D:\\支出信息.txt","a+");if(fp==NULL){printf("\t\t\tthe file cannot be opened!\n");exit(1);}for(i=0;i<n-1;i++)for(j=i+1;j<n;j++){if(strcmp(sum[i].type,sum[j].type)==1){temp=sum[j];sum[i]=temp;sum[j]=sum[i]; }elseif(strcmp(sum[j].type,sum[i].type)==0){if(sum[i].Getsum>sum[j].Getsum){temp=sum[j];sum[j]=sum[i];sum[i]=temp;}}}}fclose(fp);}//排序后是写入文件的写入数组解决不了void Analyseitems(family sum[],int n) //求各种消费类型的金额占总金额的百分比//在解决相同type的问题上可以利用数组去存储字符串，但系统一直崩溃。
家庭财务评估系统-毕业设计-源代码
附录1家庭财务评估系统源代码指导教师：王金凤组员：刘杰王剑锋张恒琳✓应用程序入口XAML：<Application x:Class="Finance.App"xmlns="/winfx/2006/xaml/presentation"xmlns:x="/winfx/2006/xaml"StartupUri="Login.xaml"ShutdownMode="OnLastWindowClose"><!--StartupUri="Login.xaml"--><Application.Resources><ResourceDictionary><ResourceDictionary.MergedDictionaries><ResourceDictionary Source="/Resource/Stylesource.xaml"/></ResourceDictionary.MergedDictionaries></ResourceDictionary></Application.Resources></Application>✓资源文件代码[Stylesource.xaml]<ResourceDictionary xmlns="/winfx/2006/xaml/presentation" xmlns:x="/winfx/2006/xaml"><Style x:Key="L_tstyle"><!--登录窗口文本框的样式--><Setter Property="Control.BorderBrush" Value="LightGray"/><Setter Property="Control.BorderThickness" Value="1"/><Style.Triggers><Trigger Property="Control.IsMouseOver" Value="True"><Setter Property="Control.BorderBrush" Value="LightBlue"/><Setter Property="Control.BorderThickness" Value="2"/></Trigger><Trigger Property="Control.IsFocused" Value="True"><Setter Property="Control.BorderBrush" Value="LightGray"/><Setter Property="Control.BorderThickness" Value="1.1"/></Trigger></Style.Triggers></Style><Style x:Key="R_tstyle" TargetType="PasswordBox"><!--注册窗口文本框的样式--><Setter Property="Control.BorderBrush" Value="LightBlue"/><Setter Property="Control.BorderThickness" Value="1.1"/><Style.Triggers><Trigger Property="Control.IsFocused" Value="True"><Setter Property="Control.BorderBrush" Value="LightGray"/><Setter Property="Control.BorderThickness" Value="1.1"/></Trigger><Trigger Property="Control.IsMouseOver" Value="true"><Setter Property="Control.BorderBrush" Value="LightGray"/><Setter Property="Control.BorderThickness" Value="1.1"/></Trigger></Style.Triggers></Style><Style x:Key="contentCenterStyle" TargetType="{x:Type TextBlock}"> <Setter Property="HorizontalAlignment" Value="Center" /><Setter Property="VerticalAlignment" Value="Center"/></Style><Style TargetType="DataGridCell"><Setter Property="FocusVisualStyle" Value="{x:Null}"/><Style.Triggers><Trigger Property="IsSelected" Value="True"><Setter Property="BorderThickness" Value="1"/><Setter Property="BorderBrush" Value="White"/><Setter Property="Foreground" Value="Black"/><Setter Property="TextBlock.FontSize" Value="20"/><Setter Property="Background" Value="AliceBlue"/></Trigger><Trigger Property="IsMouseOver" Value="true"><Setter Property="TextBlock.FontSize" Value="20"/><Setter Property="Background" Value="White"/><Setter Property="Foreground" Value="LightGray"/></Trigger></Style.Triggers></Style></ResourceDictionary>注册界面UI-Xaml：<Windowx:Class="Finance.Regedit"xmlns="/winfx/2006/xaml/presentation" xmlns:x="/winfx/2006/xaml"Title="ConchNotes注册"Height="522"Width="849"WindowStyle="SingleBorderWindow"Background="LightGray"Name="frmRegedit"WindowStartupLocation="CenterScreen"ResizeMode="NoResize"Closed="frmRegedit_Closed"Icon="/Finance;component/Images/doit.ico"xmlns:local="clr-namespace:Finance.Codes" Loaded="frmRegedit_Loaded"> <Window.Resources><Style TargetType="TextBox"><Setter Property="Control.BorderThickness" Value="1.1" /><Setter Property="Control.BorderBrush" Value="LightBlue"/><Style.Triggers><Trigger Property="IsMouseOver" Value="true"><Setter Property="Control.BorderBrush" Value="LightGray"/><Setter Property="Control.BorderThickness" Value="1.1" /></Trigger></Style.Triggers></Style><Style TargetType ="Hyperlink" ><Setter Property="TextBlock.TextDecorations" Value="{x:Null}"/><Style.Triggers><Trigger Property ="IsMouseOver" Value ="True" ><Setter Property ="Foreground" Value ="Red" /><!-- 在鼠标悬停时显示下划线--><Setter Property ="TextBlock.TextDecorations" Value="{x:Null}" /></Trigger></Style.Triggers></Style></Window.Resources><Grid><Grid.RowDefinitions><RowDefinition Height="400"/><RowDefinition Height="83*" /></Grid.RowDefinitions><Border BorderBrush="White" BorderThickness="1" Name="border1" Background="White" CornerRadius="10" Margin="20,10,20,0"><Grid><Grid.ColumnDefinitions><ColumnDefinition Width="366"/><ColumnDefinition Width="419*" /></Grid.ColumnDefinitions><StackPanel Grid.Column="0" Grid.Row="0"><TextBlock Text="您很快就拥有完美的理财能力!" FontSize="17" Margin="15,30,15,20" FontFamily="黑体"/><TextBlock TextWrapping="Wrap" Margin="15,0,0,0" FontFamily="宋体" FontSize="14"Foreground="#FF6F6C6C">"财智"它辅助你设置预算，控制乱消费，在线理财你可以更方便的去发现自己的财务漏洞。
C语言家庭财务管理系统
{
n=scanf("%s %s %f",J[i].rq,J[i].zy,&J[i].xf);
if(J[i]Biblioteka xf==0)break;/*收入和支出为0则退出*/
if(n==3)i++;
}
while(n==3);
N=i; /*修改家庭财务信息记录数*/
}
void SaveJ(char file[])/*保存家庭财务信息关系*/
{
int n,i=0;
FILE *fp=fopen("JTCWGLXT.txt","r");
char s[80];fgets(s,80,fp);
do
{
n=fscanf(fp,"%s %s %f %f",J[i].rq,J[i].zy,&J[i].xf,&J[i].ye);
if(n==4)i++;/*若读到4个数据则i加1*/
}
while(n==4);
fclose(fp);
return i;
}
void DispJ()/*显示家庭财务信息*/
{
int i;
printf("%s %8s %8.2f%8.2f\n",J[0].rq,J[0].zy,J[0].xf,J[0].ye);
for(i=1;i<N;i++)
printf("%s %8s %8.2f%8.2f\n",J[i].rq,J[i].zy,J[i].xf,J[i-1].ye+J[i].xf);
fprintf( fp,"%s %8s %8.2f%8.2f\n",J[i].rq,J[i].zy,J[i].xf,J[i-1].ye+J[i].xf);
C语言课程设计——家庭财务管理系统
课程安排报告之阳早格格创做课程安排题目：家庭财务管制系统教死姓名:博业:疑息工程班级:指挥西席:2018年 1月 8日1.需要分解根据家庭账务管制的需要，建坐一个“家庭账务管制系统”，以便当对付家庭凡是支进及开销举止记录战管制.该系统央供：①家庭月支进管制②家庭月开销管制③统计家庭总支进/总开销④系统提供支进/开销的增加、简略战建改功能.2. 总体安排根据以上分解，原家庭账务管制系统主要包罗：①从键盘键进家庭月支进、月开销数据；②查询月支进、月开销明细；③简略支进、开销数据；④建改支进、开销数据；⑤统计总支进/总开销；⑥退出系统.除main()函数除中，系统还定义了以下函数去真止各部分真质：①add_income（）：增加支进数据函数.②add_payout（）：增加开销数据函数.③search_data（）：查找数据函数.④initialize()：初初化函数，读与文原数据.⑤show_info（）：隐现数据函数.⑥count_total（）：统计函数，统计总支进、总开销.⑦update_data（）：建改疑息函数.⑧delete_data（）：简略数据函数.⑨quit():退出函数.步调结构功能图如下：3.仔细安排4.尝试截止4.1 步调运止主菜单4.2 增加支进尝试4.3 查询支进明细尝试4.4 简略支进尝试4.5 建改支进尝试4.6 增加开销尝试4.7 查询开销明细尝试4.8 简略开销尝试4.9 建改开销尝试4.10 统计总支进/开销尝试4.11 退出系统尝试5.硬件支配使用证明书籍原系统采与下令止对付话办法举止支配，运止后出现主界里（如下图所示），而后依照主界里菜单指引支配即可.编写步调之前要有一个完全的思路，不克不迭写到哪里算哪里.那样很简单遗漏，连绝性也短佳.通过原次的课程安排让尔对付于数组、文献的存搁、循环结构等知识有了越发深进的明白.期视正在以去的课程安排中对付于知识的使用不妨越发的流利.代码：#include <stdio.h>#include <stdlib.h>#include <string.h>#include <conio.h>#define MAXNAME 11 //家庭成员姓名的最大少度#define MAXDETAIL 21 //注最大少度//自定义罗列典型fi_type，用去表示支进与开销typedef enum _fi_type{income=1,//支进payout =-1 //开销} fi_type;// 家庭财务疑息结构体typedef struct _fi_info{int year;int month;fi_type type;char name[9];float money;char detail[11];}fi_info;// 保存财务数据结构的结构体typedef struct _fi_data{fi_info info;struct _fi_data* next;} fi_data;fi_data *head;//财务数据的头结面 void menu();//菜单函数void add_income();void search_income();void delete_income();void update_income();void add_payout();void search_payout();void delete_payout();void update_payout();void count_total();void quit();//void search_data(fi_type type); void delete_data(fi_type type);void update_data(fi_type type); //void initialize();void save_to_file();void clear_data();fi_data *get_last();fi_data *get_previous(fi_data *p); void input_info(fi_info *info);void show_info(fi_data *p);void menu(){printf("\n");printf("\t\t ~~~~~~~~~~~~~~~~~~~~~~\n");printf("\t\t ~~~~~~~~~~~~~~~~~~~~~~\n");printf("\t\t\t 家庭财务管制系统\n");printf("\t\t ~~~~~~~~~~~~~~~~~~~~~~\n");printf("\t\t ~~~~~~~~~~~~~~~~~~~~~~\n");printf("\t\t*******************************************\ n");printf("\t\t支进管制:");printf("1.增加支进");printf(" 2.查询支进明细\n");printf("\t\t\t 3.简略支进");printf(" 4.建改支进\n");printf("\t\t*******************************************\ n");printf("\t\t开销管制:");printf("5.增加开销");printf(" 6.查询开销明细\n");printf("\t\t\t 7.简略开销");printf(" 8.建改开销\n");printf("\t\t*******************************************\ n");printf("\t\t统计:");printf("9.统计总支进/总开销\n");printf("\t\t*******************************************\ n");printf("\t\t退出:0.退出系统\n");printf("\t\t*******************************************\ n\n\n");}void main(){int selected=0;initialize();while(selected>=0&&selected<=9){system("cls");menu();printf("\t\t>请采用要举止的支配(0-9):");if(scanf("%d",&selected)!=1||selected<0||selected>9){printf("\t\t>输进有误！请采用(0-9)之间的数字！按任性键沉试");getchar();}else{switch(selected){case 0:exit(0);clear_data();break;case 1:add_income();save_to_file();break;case 2:search_income();break;case 3:delete_income();save_to_file();break;case 4:update_income();save_to_file();break;case 5:add_payout();save_to_file();break;case 6:search_payout();break;case 7:delete_payout();save_to_file();break;case 8:update_payout();save_to_file();break;case 9:count_total();break;}}}void add_income()//增加支进{fi_data *p=(fi_data *)malloc(sizeof(fi_data)); p->next=NULL;input_info(&(p->info));p->info.type=income;if(head==NULL)head=p;elseget_last()->next=p;}void add_payout()//增加开销{fi_data *p=(fi_data *)malloc(sizeof(fi_data)); p->next=NULL;input_info(&(p->info));p->info.type=payout;if(head==NULL)head=p;elseget_last()->next=p;//输进函数void input_info(fi_info *info){printf("\t\t>请输进年月(YYYY/M)");scanf("%d/%d",&(info->year),&(info->month)); printf("\t\t>请输进家庭成员姓名（最大少度为%d):",MAXNAME-1);scanf("%s",info->name);printf("\t\t>输进金额:");scanf("%f",&(info->money));printf("\t\t>请输进备注(最大少度为%d):",20); scanf("%s",info->detail);}//查找数据函数void search_data(fi_type type){int year=0;int month=0;fi_data *p=NULL;int count=0;char input=' ';while(1){printf("\t\t>请输进要查询的年月(YYYY/M)");if(scanf("%d/%d",&year,&month)!=2){printf("\t\t>输进有误\n");}else{p=head;count=0;while(p!=NULL){if((p->info.year==year)&&(p->info.month==month)&&(p->info.type==type)){show_info(p);system("PAUSE");count++;}p=p->next;}if(count==0){printf("\t\t>不找到数据\n");}printf("\t\t>继承查找其余数据？(y or n)"); input=getchar();if(input=='y'||input=='Y')continue;elsebreak;}}}//初初化函数，读与文原数据void initialize(){FILE * fp=NULL;fi_data *p=NULL;fi_data *last=NULL;int count=0;fp=fopen("data.txt","rb");if(fp==NULL)fp=fopen("data.txt","w");fclose(fp);return;}p=(fi_data*)malloc(sizeof(fi_data));memset(p,0,sizeof(fi_data));p->next=NULL;while(fread(&(p->info),sizeof(fi_info),1,fp)==1) {if(head==NULL)head=p;else{last=get_last();last->next=p;}count++;fseek(fp,count*sizeof(fi_info),SEEK_SET);p=(fi_data *)malloc(sizeof(fi_data));memset(p,0,sizeof(fi_data));p->next=NULL;free(p);p=NULL;fclose(fp);}//隐现疑息函数void show_info(fi_data *p){int i=0;printf("|\t\t|\t\t|\t\t|\t\t|\t\t|\t\t|\n");printf("|NO.\t |年/月\t\t|典型\t\t|姓名\t\t|金额\t\t|备注\t\t|\n"); printf("|%5d\t|%4d/%02d\t|%4s\t|%10s\t|%10.2f|%20s|\n",i+1, p->info.year,p->info.month,p->info.type==income?"支进":"开销",p->,p->info.money,p->info.detail);printf("|\t\t|\t\t|\t\t|\t\t|\t\t|\t\t|\n");}//统计总支进、总开销void count_total(){float total_income=0.0;float total_payout=0.0;fi_data *p=head;while(p!=NULL){if(p->info.type==income){total_income+=p->info.money;}else{total_payout+=p->info.money;}p=p->next;}printf("\t\t+\t\t+\t\t+\n");printf("\t\t|合计支进\t|合计开销\t|结余\t|\n");printf("\t\t%12.2f|%12.2f|%12.2f|\n",total_income,total_payout,t otal_income-total_payout);printf("\t\t+\t\t+\t\t+\n");printf("\t\t>按任性键返回主菜单");getchar();getchar();}//保存到文献void save_to_file(){FILE *fp=fopen("data.txt","wb" );fi_data *p=head;while(p!=NULL){fwrite(&(p->info),sizeof(fi_info),1,fp); fseek(fp,0,SEEK_END);p=p->next;}fclose(fp);}//建改疑息函数void update_data(fi_type type){ int year=0;int month=0;fi_data *p=NULL;fi_data *pre=NULL;char input;int count=0;int i=0;while(1){ printf("\t\t>请输进要查询的年月(YYYY/M)");if(scanf("%d/%d",&year,&month)!=2){printf("\t\t>输进有误\n");}else{p=head;count=0;while(p!=NULL){if((p->info.year==year)&&(p->info.month==month)&&(p->info.type==type)){count++;show_info(p);input_info(&(p->info));printf("\t\t建改乐成\n");p=get_previous(p);}p=p->next;}if(count==0)printf("\t\t>不找到数据\n");printf("\t\t>继承查找其余数据？(y or n)"); input=getchar();if(input=='y'||input=='Y')continue;elsebreak;}}}void delete_data(fi_type type)//简略数据函数 {int year=0;int month=0;fi_data *p=NULL;fi_data *pre=NULL;int count=0;char input=' ';int i=0;{ printf("\t\t>请输进要查询的年月(YYYY/M)");if(scanf("%d/%d",&year,&month)!=2){printf("\t\t>输进有误\n");}else{p=head;count=0;while(p!=NULL){if((p->info.year==year)&&(p->info.month==month)&&(p->info.type==type)){count++;show_info(p);pre=get_previous(p);if(pre==NULL)head=head->next;elsepre->next=p->next;printf("\t\t>简略乐成\n");}p=p->next;}if(count==0)printf("\t\t>不找到数据\n");printf("\t\t>继承查找其余数据？(y or n)"); input=getchar();if(input=='y'||input=='Y')continue;elsebreak;}}}void clear_data()//浑空链表数据{fi_data *p=NULL;while(head!=NULL){if(head->next!=NULL){p=head;head=head->next;free(p);p=NULL;}else{free(head);head=NULL;}}}fi_data *get_last(){fi_data * p=head;if(p==NULL)return p;while((p!=NULL)&&(p->next!=NULL)) p=p->next;return p;}fi_data *get_previous(fi_data *p) {fi_data *previous=head;while(previous!=NULL){if(previous->next==p)break;previous=previous->next;}return previous;}void search_payout(){search_data(payout);}void delete_payout(){delete_data(payout);}void update_payout(){update_data(payout);}void search_income() {search_data(income); }void delete_income() {delete_data(income); }void update_income() {update_data(income); }。
财务管理系统附程序源代码
附程序源代码：program xmjl;usesForms,windows,main in 'main.pas' {Form1},dm in 'dm.pas' {dm2: TDataModule},about in 'about.pas' {AboutBox},report in 'report.pas' {qr1: TQuickRep},logosrc in 'logosrc.pas' {logo},login in 'login.pas' {denglu};{$R *.res}beginApplication.Initialize;logo:=tlogo.Create(application);logo.Show;logo.Update;Application.CreateForm(Tdm2, dm2);Application.CreateForm(Tdenglu, denglu);sleep(1000);logo.Hide;logo.Free;Application.Run;end.unit logosrc;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls;typeTlogo = class(TForm)Image1: TImage;private{ Private declarations }public{ Public declarations }end;varlogo: Tlogo;implementation{$R *.dfm}end.unit login;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, Buttons;typeTdenglu = class(TForm)BitBtn1: TBitBtn;BitBtn2: TBitBtn;ComboBox1: TComboBox;MaskEdit1: TMaskEdit;Label1: TLabel;Label2: TLabel;procedure BitBtn2Click(Sender: TObject);procedure FormCreate(Sender: TObject);procedure BitBtn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;vardenglu: Tdenglu;implementationuses dm,main;{$R *.dfm}procedure Tdenglu.BitBtn2Click(Sender: TObject); beginapplication.Terminate;end;procedure Tdenglu.FormCreate(Sender: TObject); beginwith dm2.ADOTable1 dobeginopen;first;while not eof dobegincombobox1.Items.Add(fields[0].Value );next;end;combobox1.ItemIndex :=0;end;end;procedure Tdenglu.BitBtn1Click(Sender: TObject); beginwith dm2.ADOTable1 dobeginif locate('us',combobox1.Text,[]) thenbeginif maskedit1.text=fields[1].Value thenbeginhide;with tform1.Create(self) doshowmodal;end;application.Terminate ;end;end;end;end.unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, DBActns, ActnList, DB,ExtCtrls, StdCtrls, Mask, DBCtrls, ImgList, Buttons, Grids, DBGrids;typeTForm1 = class(TForm)PageControl1: TPageControl;StatusBar1: TStatusBar;TabSheet1: TTabSheet;TabSheet2: TTabSheet;TabSheet3: TTabSheet;TabSheet5: TTabSheet;MainMenu1: TMainMenu;N1: TMenuItem;N2: TMenuItem;N4: TMenuItem;N5: TMenuItem;N8: TMenuItem;N9: TMenuItem;N10: TMenuItem;N12: TMenuItem;N13: TMenuItem;N14: TMenuItem;N15: TMenuItem;N16: TMenuItem;N17: TMenuItem;N18: TMenuItem;DataSource1: TDataSource;ActionList1: TActionList;DataSetFirst1: TDataSetFirst;DataSetPrior1: TDataSetPrior;DataSetNext1: TDataSetNext;DataSetLast1: TDataSetLast;DataSetInsert1: TDataSetInsert;DataSetDelete1: TDataSetDelete;DataSetEdit1: TDataSetEdit;DataSetPost1: TDataSetPost;Panel1: TPanel;Panel2: TPanel;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; Panel3: TPanel;BitBtn1: TBitBtn;BitBtn2: TBitBtn;BitBtn3: TBitBtn;BitBtn4: TBitBtn; ImageList1: TImageList; BitBtn5: TBitBtn;BitBtn10: TBitBtn;Label25: TLabel;Label26: TLabel;Panel4: TPanel;BitBtn6: TBitBtn;BitBtn7: TBitBtn;BitBtn8: TBitBtn;BitBtn9: TBitBtn;BitBtn11: TBitBtn;BitBtn12: TBitBtn;BitBtn13: TBitBtn;Panel8: TPanel;DBGrid1: TDBGrid; Panel9: TPanel;Label27: TLabel; ComboBox1: TComboBox; Label28: TLabel;Edit1: TEdit;BitBtn14: TBitBtn;BitBtn15: TBitBtn;Panel13: TPanel;DBGrid3: TDBGrid; Panel14: TPanel;Label59: TLabel;Label60: TLabel; ComboBox3: TComboBox; Edit3: TEdit;BitBtn18: TBitBtn;BitBtn19: TBitBtn;BitBtn21: TBitBtn;Timer1: TTimer;DBEdit3: TDBEdit;Panel5: TPanel;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;DBEdit4: TDBEdit;DBEdit5: TDBEdit;DBEdit6: TDBEdit;DBEdit7: TDBEdit;DBEdit8: TDBEdit;DBEdit12: TDBEdit;TabSheet4: TTabSheet;Panel6: TPanel;GroupBox1: TGroupBox;SpeedButton1: TSpeedButton;DBGrid2: TDBGrid;DBEdit13: TDBEdit;DBEdit14: TDBEdit;DBNavigator1: TDBNavigator;Label15: TLabel;Label16: TLabel;DataSource2: TDataSource;procedure N9Click(Sender: TObject);procedure N10Click(Sender: TObject);procedure N12Click(Sender: TObject);procedure N8Click(Sender: TObject);procedure N14Click(Sender: TObject);procedure N5Click(Sender: TObject);procedure BitBtn5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);procedure filldata(sender:tcombobox);procedure search(f1:tcombobox;t1:tedit);procedure dispall;procedure FormActivate(Sender: TObject);procedure BitBtn14Click(Sender: TObject);procedure BitBtn15Click(Sender: TObject);procedure BitBtn13Click(Sender: TObject);procedure BitBtn21Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);procedure BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);procedure BitBtn18Click(Sender: TObject);procedure SpeedButton1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementationuses about,dm,report,login;{$R *.dfm}procedure TForm1.N9Click(Sender: TObject);begintabsheet2.Show;end;procedure TForm1.N10Click(Sender: TObject);begintabsheet3.Show;end;procedure TForm1.N12Click(Sender: TObject);begintabsheet5.Show;end;procedure TForm1.N8Click(Sender: TObject);begintabsheet1.Show;end;procedure TForm1.N14Click(Sender: TObject);beginapplication.Terminate ;end;beginwith taboutbox.Create(self) doShowModal ;end;procedure TForm1.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);begindbedit1.Text:=inttostr(dm2.adoquery1.RecordCount+1);dbedit2.SetFocus;end;procedure TForm1.filldata(sender:tcombobox);variCount: Integer; //将从数据模块中取得的数据库表的字段名填入ComboBox中beginsender.Items.Clear; //首先清空ComboBox中Items的值for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 dobeginsender.Items.Add(DM2.ADOQuery1.Fields[iCount].FieldName); //加入字段名DM2.ADOQuery1.Next; //向下移动到下一个字段end;sender.ItemIndex := 0; //设置表单刚出现时ComboBox的值为第一个end;procedure TForm1.search(f1:tcombobox;t1:tedit); //自定义过程search(在数据库中搜寻指定条件的数据)varSearchField: string; //要查找的字段名SearchValue: string; //要查找的字段值beginSearchField := Trim(f1.Text); //将ComboBox的值赋给SearchField SearchValue := '%' + Trim(t1.Text) + '%'; //将Edit的值赋给SearchFieldwith DM2.ADOQuery1 dobeginclose; //先关闭数据模块中的ADOQuerysql.Clear; //清空ADOQuery中的SQL值sql.Add('select * from xmb where ' + SearchField + ' like ''' +SearchV alue + ''''); //进行数据查询的SQL语句（SearchFidel和SearchValue// 分别赋到SQL语句中end;Dm2.ADOQuery1.Open; //打开数据模块中的ADOQueryend;procedure TForm1.FormActivate(Sender: TObject);beginfilldata(combobox1);filldata(combobox3);tabsheet1.Show;end;procedure TForm1.BitBtn14Click(Sender: TObject);beginsearch(combobox1,edit1);end;procedure TForm1.BitBtn15Click(Sender: TObject);begindispall;end;procedure TForm1.dispall;beginwith dm2.ADOQuery1 dobeginclose;sql.clear;sql.Add('select * from xmb');open;end;end;procedure TForm1.BitBtn13Click(Sender: TObject);beginif MessageDlg('你确信要删除记录?',mtwarning,[mbok,mbcancel],0)=mrok thenDM2.ADOQuery1.Delete;end;procedure TForm1.BitBtn17Click(Sender: TObject);begindispall;end;procedure TForm1.BitBtn21Click(Sender: TObject);beginwith tqr1.Create(self) doPreview;end;procedure TForm1.Timer1Timer(Sender: TObject);beginstatusbar1.Panels[3].Text :=timetostr(now);statusbar1.Panels[4].Text :=formatdatetime('yyyy年MM月dd日',now); end;procedure TForm1.BitBtn11MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begindbedit12.SetFocus;end;procedure TForm1.BitBtn18Click(Sender: TObject);beginsearch(combobox3,edit3);end;procedure TForm1.SpeedButton1Click(Sender: TObject);beginwith dm2.ADOQuery1 dobeginclose;sql.Clear;sql.Add('delete * from xmb');ExecSQL;close;sql.Clear;sql.Add('select * from xmb');open;end;end;end.unit dm;interfaceusesSysUtils, Classes, ADODB, DB;typeTdm2 = class(TDataModule)ADOConnection1: TADOConnection;ADOQuery1: TADOQuery;ADOQuery1DSDesigner: TWideStringField;ADOQuery1DSDesigner2: TBCDField;ADOQuery1DSDesigner3: TBCDField;ADOQuery1DSDesigner4: TDateTimeField;ADOQuery1DSDesigner5: TWideStringField;ADOQuery1total: TCurrencyField;ADOTable1: TADOTable;procedure ADOQuery1CalcFields(DataSet: TDataSet); private{ Private declarations }public{ Public declarations }end;vardm2: Tdm2;implementation{$R *.dfm}procedure Tdm2.ADOQuery1CalcFields(DataSet: TDataSet); beginadoquery1total.Value :=ADOQuery1DSDesigner2.V alue -ADOQuery1DSDesigner3.value ; end;end.unit report;interfaceuses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;Tqr1 = class(TQuickRep)ColumnHeaderBand1: TQRBand;TitleBand1: TQRBand;QRLabel1: TQRLabel;DetailBand1: TQRBand;QRLabel2: TQRLabel;QRLabel3: TQRLabel;QRLabel4: TQRLabel;QRLabel5: TQRLabel;QRLabel6: TQRLabel;QRLabel7: TQRLabel;QRDBText1: TQRDBText;QRDBText2: TQRDBText;QRDBText3: TQRDBText;QRDBText4: TQRDBText;QRDBText5: TQRDBText;QRDBText6: TQRDBText;QRShape1: TQRShape;QRShape2: TQRShape;QRShape3: TQRShape;QRShape7: TQRShape;QRShape8: TQRShape;QRShape9: TQRShape;SummaryBand1: TQRBand;QRSysData1: TQRSysData;QRLabel8: TQRLabel;QRLabel9: TQRLabel;QRSysData2: TQRSysData;QRLabel10: TQRLabel;QRSysData3: TQRSysData; privatepublicend;varqr1: Tqr1;implementationuses dm;{$R *.DFM}unit about;interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls;typeTAboutBox = class(TForm)Panel1: TPanel;ProgramIcon: TImage;ProductName: TLabel;V ersion: TLabel;Copyright: TLabel;Comments: TLabel;OKButton: TButton;private{ Private declarations }public{ Public declarations }end;varAboutBox: TAboutBox;implementation{$R *.dfm}end.。
C语言家庭财务管理系统代码
#include <stdio.h>#include <stdlib.h>#include <string.h>struct Data{char name[20];char riqi[8];float money;char beizhu[50];};struct list{struct Data info;struct list *next;};struct list *Inhead=NULL;struct list *Intail=NULL;struct list *zhichuhead=NULL;struct list *zhichutail=NULL;struct list *temp=NULL;void chaxun_income();void chaxun_zhichu();void xiugai_income();void xiugai_zhichu();void Save_income(){FILE *fp;fp=fopen("D:\家庭财务管理.txt","w");struct list *p = Inhead;while(p != NULL){fwrite(&p->info, sizeof(struct Data), 1, fp);p = p->next;}fclose(fp);}void Save_zhichu(){FILE *fp;fp=fopen("D:\家庭财务管理支出.txt","w");struct list *p = zhichuhead;while(p != NULL){fwrite(&p->info, sizeof(struct Data), 1, fp);p = p->next;}fclose(fp);}void Open(){FILE *fp;fp=fopen("D:\家庭财务管理.txt","r");if(fp!=NULL){struct Data linshi;while(fread(&linshi, sizeof(struct Data), 1, fp) == 1){temp=(struct list*)malloc(sizeof(struct list));temp->info=linshi;temp->next=NULL;if(Inhead == NULL){Inhead = temp;Intail = temp;}else{Intail->next = temp;Intail = temp;}}fclose(fp);}}void Menu(){ system("cls");printf("\n");printf("\n");printf("\n");printf("\n");printf("******************\n");printf("欢迎使用家庭财务管理系统\n");printf("******************\n");printf(" \n");printf(" 1:收入操作\n");printf(" 2:支出操作\n");printf(" 3:统计操作\n");printf(" 0:退出\n");}void Openzhichu(){FILE *fp;fp=fopen("D:\家庭财务管理支出.txt","r");if(fp!=NULL){struct Data linshi;while(fread(&linshi, sizeof(struct Data), 1, fp) == 1){temp=(struct list*)malloc(sizeof(struct list));temp->info=linshi;temp->next=NULL;if(zhichuhead == NULL){zhichuhead = temp;zhichutail = temp;}else{zhichutail->next = temp;zhichutail = temp;}}fclose(fp);}}void mingzi (){char chazhao[20];printf("请输入查询的名字");gets(chazhao);struct list *p = Inhead;while(p != NULL){if(strcmp(p->,chazhao)==0){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(Inhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_income();}}}void mingzi_zhichu (){char chazhao[20];printf("请输入查询的名字");gets(chazhao);struct list *p = zhichuhead;while(p != NULL){if(strcmp(p->,chazhao)==0){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(zhichuhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_zhichu();}}}void mingzi_xiugai_income(){char xiugai[20];printf("请输入修改的名字");fflush(stdin);gets(xiugai);struct list *p = Inhead;while(p != NULL){if(strcmp(p->,xiugai)==0){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_income();if(Inhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_income();}}}void mingzi_xiugai_zhichu(){char xiugai[20];printf("请输入修改的名字");fflush(stdin);gets(xiugai);struct list *p = zhichuhead;while(p != NULL){if(strcmp(p->,xiugai)==0){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_zhichu();if(zhichuhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_zhichu();}}}void riqi(){char chazhao[20];printf("请输入查询的日期");gets(chazhao);struct list *p = Inhead;while(p != NULL){if(strcmp(p->info.riqi,chazhao)==0){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(Inhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_income();}}}void riqi_zhichu(){char chazhao[20];printf("请输入查询的日期");gets(chazhao);struct list *p = zhichuhead;while(p != NULL){if(strcmp(p->info.riqi,chazhao)==0){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(zhichuhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_zhichu();}}}void riqi_xiugai_income(){char xiugai[20];printf("请输入修改的日期");fflush(stdin);gets(xiugai);struct list *p = Inhead;while(p != NULL){if(strcmp(p->info.riqi,xiugai)==0){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_income();if(Inhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_income();}}}void riqi_xiugai_zhichu(){char xiugai[20];printf("请输入修改的日期");fflush(stdin);gets(xiugai);struct list *p = zhichuhead;while(p != NULL){if(strcmp(p->info.riqi,xiugai)==0){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_zhichu();if(zhichuhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_zhichu();}}}void money (){float chazhao;printf("请输入查询的money");scanf("%f",&chazhao);fflush(stdin);struct list *p = Inhead;while(p != NULL){if(p->info.money==chazhao){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(Inhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_income();}}}void money_zhichu (){float chazhao;printf("请输入查询的money");scanf("%f",&chazhao);fflush(stdin);struct list *p = zhichuhead;while(p != NULL){if(p->info.money==chazhao){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(zhichuhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_zhichu();}}}void money_xiugai_income(){float xiugai;printf("请输入修改的money");scanf("%f",&xiugai);fflush(stdin);struct list *p = Inhead;while(p != NULL){if(p->info.money==xiugai){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_income();if(Inhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_income();}}}void money_xiugai_zhichu(){float xiugai;printf("请输入修改的money");scanf("%f",&xiugai);fflush(stdin);struct list *p = zhichuhead;while(p != NULL){if(p->info.money==xiugai){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_zhichu();if(zhichuhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_zhichu();}}}void beizhu(){char chazhao[20];printf("请输入查询的备注");gets(chazhao);struct list *p = Inhead;while(p != NULL){if(strcmp(p->info.beizhu,chazhao)==0){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(Inhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_income();}}}void beizhu_zhichu(){char chazhao[20];printf("请输入查询的备注");gets(chazhao);struct list *p = zhichuhead;while(p != NULL){if(strcmp(p->info.beizhu,chazhao)==0){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);system("PAUSE");}p = p->next;}if(zhichuhead!=NULL){char panduan;printf("是否继续查询(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){chaxun_zhichu();}}}void beizhu_xiugai_income(){char xiugai[20];printf("请输入修改的备注");fflush(stdin);gets(xiugai);struct list *p = Inhead;while(p != NULL){if(strcmp(p->info.beizhu,xiugai)==0){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_income();if(Inhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_income();}}}void beizhu_xiugai_zhichu(){char xiugai[20];printf("请输入修改的备注");fflush(stdin);gets(xiugai);fflush(stdin);struct list *p = zhichuhead;while(p != NULL){if(strcmp(p->info.beizhu,xiugai)==0){fflush(stdin);printf("姓名：");gets(p->);fflush(stdin);printf("日期：");gets(p->info.riqi);fflush(stdin);printf("支出: ");scanf("%f",&p->info.money);fflush(stdin);printf("备注：");gets(p->info.beizhu);fflush(stdin);//------}p = p->next;}Save_zhichu();if(zhichuhead!=NULL){char panduan;printf("是否继续修改(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){xiugai_zhichu();}}}void Income_menu(){system("cls");printf("\n");printf("\n");printf("\n");printf("\n");printf("******************\n");printf("欢迎使用家庭财务管理系统\n");printf("******************\n");printf(" \n");printf(" 1.添加收入\n");printf(" 2.删除收入\n");printf(" 3.查询收入\n");printf(" 4.显示收入\n");printf(" 5.修改收入\n");printf(" 0.返回上一级\n");}void zhichu_menu(){system("cls");printf("\n");printf("\n");printf("\n");printf("\n");printf("******************\n");printf("欢迎使用家庭财务管理系统\n");printf("******************\n");printf(" \n");printf(" 1.添加支出\n");printf(" 2.删除支出\n");printf(" 3.查询支出\n");printf(" 4.显示支出\n");printf(" 5.修改支出\n");printf(" 0.返回上一级\n");}void chaxun_menu(){system("cls");printf("\n");printf("\n");printf("\n");printf("\n");printf("******************\n");printf("欢迎使用家庭财务管理系统\n");printf("******************\n");printf(" \n");printf(" 1.按名字查询\n");printf(" 2.按日期查询\n");printf(" 3.按money询\n");printf(" 4.按备注查询\n");printf(" 0.返回上一级\n"); }void xiugai_menu(){system("cls");printf("\n");printf("\n");printf("\n");printf("\n");printf("******************\n");printf("欢迎使用家庭财务管理系统\n");printf("******************\n");printf(" \n");printf(" 1.按名字修改\n");printf(" 2.按日期修改\n");printf(" 3.按money修改\n");printf(" 4.按备注修改\n");printf(" 0.返回上一级\n");}void Add_income(){char panduan;do{temp=(struct list*)malloc(sizeof(struct list));printf("姓名");gets(temp->);fflush(stdin);printf("日期（XX年XX月XX日）");gets(temp->info.riqi);fflush(stdin);printf("收入");scanf("%f",&temp->info.money);fflush(stdin);printf("备注");gets(temp->info.beizhu);fflush(stdin);printf("\n");//------自己添加temp->next=NULL;if(Inhead == NULL){Inhead = temp;Intail = temp;}else{Intail->next = temp;Intail = temp;}Save_income();//后面可以添加“继续添加功能”printf("是否(Y/N)继续添加信息\n");panduan=getchar();fflush(stdin);}while(panduan=='Y'||panduan=='y');system("PAUSE");}void Add_zhichu(){char panduan;do{temp=(struct list*)malloc(sizeof(struct list));printf("姓名");gets(temp->);fflush(stdin);printf("日期（XX年XX月XX日）");gets(temp->info.riqi);fflush(stdin);printf("支出");scanf("%f",&temp->info.money);fflush(stdin);printf("备注");gets(temp->info.beizhu);fflush(stdin);printf("\n");//------自己添加temp->next=NULL;if(zhichuhead == NULL){zhichuhead = temp;zhichutail = temp;}else{zhichutail->next = temp;zhichutail = temp;}Save_zhichu();//后面可以添加“继续添加功能”printf("是否(Y/N)继续添加信息\n");panduan=getchar();fflush(stdin);}while(panduan=='Y'||panduan=='y');system("PAUSE");}void Del_income(){char shanchu[20];struct list *p=NULL;struct list *m =NULL;struct list *n =NULL;p=Inhead;printf("请输入删除姓名");gets(shanchu);if(strcmp(Inhead->,shanchu)==0){while(Inhead!=NULL && strcmp(Inhead->,shanchu)==0) {char ch;printf("找到一个数据名字为%s,确认删除Y/N？",shanchu);ch=getchar();fflush(stdin);if(ch=='y'||ch=='Y') Inhead=Inhead->next;else break;}}else{if(strcmp(Intail->,shanchu)==0){do{ m=p;p=p->next;}while(p!=Intail);m->next=NULL;}//删除尾巴else{do{m=p;p=p->next;n=p->next;}while(strcmp(p->,shanchu)!=0&&n->next!=NULL);if(strcmp(p->,shanchu)==0)m->next=n;}}//删除除头节点之外的节点，自己课后完成Save_income();if(Inhead!=NULL){char panduan;printf("是否继续删除(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){Del_income();}}}void Del_zhichu(){char shanchu[20];struct list *p=NULL;struct list *m =NULL;struct list *n =NULL;p=zhichuhead;printf("请输入删除姓名");gets(shanchu);if(strcmp(zhichuhead->,shanchu)==0){while(zhichuhead!=NULL && strcmp(zhichuhead->,shanchu)==0) {char ch;printf("找到一个数据名字为%s,确认删除Y/N？",shanchu);ch=getchar();fflush(stdin);if(ch=='y'||ch=='Y') zhichuhead=zhichuhead->next;else break;}}else{if(strcmp(zhichutail->,shanchu)==0){do{ m=p;p=p->next;}while(p!=zhichutail);m->next=NULL;}//删除尾巴else{do{m=p;p=p->next;n=p->next;}while(strcmp(p->,shanchu)!=0&&n->next!=NULL);if(strcmp(p->,shanchu)==0)m->next=n;}}Save_zhichu();//删除除头节点之外的节点，自己课后完成if(zhichuhead!=NULL){char panduan;printf("是否继续删除(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){Del_zhichu();}}}void xiugai_income(){xiugai_menu();int choice;printf(" 请输入你的选择：");scanf("%d",&choice);fflush(stdin);switch(choice){case 1: mingzi_xiugai_income();break;case 2: riqi_xiugai_income();break;case 3: money_xiugai_income();break;case 4: beizhu_xiugai_income();break;default: printf("输入错误");break;}}void xiugai_zhichu(){xiugai_menu();int choice;printf(" 请输入你的选择：");scanf("%d",&choice);fflush(stdin);switch(choice){case 1: mingzi_xiugai_zhichu();break;case 2: riqi_xiugai_zhichu();break;case 3: money_xiugai_zhichu();break;case 4: beizhu_xiugai_zhichu();break;default: printf("输入错误");break;}}void chaxun_income(){chaxun_menu();int choice;printf(" 请输入你的选择：");scanf("%d",&choice);fflush(stdin);switch(choice){case 1: mingzi();break;case 2: riqi();break;case 3: money();break;case 4: beizhu();break;default: printf("输入错误");break;}}void chaxun_zhichu(){chaxun_menu();int choice;printf(" 请输入你的选择：");scanf("%d",&choice);fflush(stdin);switch(choice){case 1: mingzi_zhichu();break;case 2: riqi_zhichu();break;case 3: money_zhichu();break;case 4: beizhu_zhichu();break;default: printf("输入错误");break;}}void Sho_income(){struct list *p = Inhead;while(p != NULL){printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("收入：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);p = p->next;}system("PAUSE");}void Sho_zhichu(){struct list *p = zhichuhead;while(p != NULL){fflush(stdin);printf("姓名：");puts(p->);printf("日期：");puts(p->info.riqi);printf("支出：");printf("%.4f\n",p->info.money);printf("备注：");puts(p->info.beizhu);p = p->next;}system("PAUSE");}void Income(){int choice;while(1){Income_menu();printf("请输入选择");scanf("%d",&choice);fflush(stdin);if(choice==0){break;}elseswitch(choice){case 1: Add_income(); Save_income();break;case 2: Del_income(); Save_income();break;case 3: chaxun_income(); Save_income();break;case 4: Sho_income(); Save_income();break;case 5: xiugai_income(); Save_income();break;}}}void zhichu(){int choice;while(1){zhichu_menu();printf("请输入选择");scanf("%d",&choice);fflush(stdin);if(choice==0){break;}elseswitch(choice){case 1: Add_zhichu(); Save_zhichu();break;case 2: Del_zhichu(); Save_zhichu();break;case 3: chaxun_zhichu(); Save_zhichu();break;case 4: Sho_zhichu(); Save_zhichu();break;case 5: xiugai_zhichu(); Save_zhichu();break;}}}void tongji_menu(){system("cls");printf("\n");printf("\n");printf("\n");printf("\n");printf("******************\n");printf("欢迎使用家庭财务管理系统\n");printf("******************\n");printf(" \n");printf(" 1.总收入\n");printf(" 2.总支出\n");printf(" 3.总资金\n");printf(" 0.返回上一级\n");}void zongshouru(){float shouru=0;struct list *linshi;linshi=Inhead;if(linshi!=NULL){do{shouru=linshi->info.money+shouru;linshi=linshi->next;}while(linshi!=NULL);printf("%.4f",shouru);system("PAUSE");}}void zongzhichu(){float zhichu=0;struct list *linshi;linshi=zhichuhead;if(linshi!=NULL){do{zhichu=linshi->info.money+zhichu;linshi=linshi->next;}while(linshi!=NULL);printf("%.4f",zhichu);system("PAUSE");}}void zongzijin(){float zhichu=0;float zongzijin;struct list *linshi;linshi=zhichuhead;if(linshi!=NULL){do{zhichu=linshi->info.money+zhichu;linshi=linshi->next;}while(linshi!=NULL);}float shouru=0;linshi=Inhead;if(linshi!=NULL){do{shouru=linshi->info.money+shouru;linshi=linshi->next;}while(linshi!=NULL);printf("%.4f",shouru-zhichu);system("PAUSE");}}void Tongji(){while(1){tongji_menu();int choice;printf(" 请输入你的选择：");scanf("%d",&choice);if(choice==0){break;}switch(choice){case 1: zongshouru();break;case 2: zongzhichu();break;case 3: zongzijin();break;default: printf("输入错误");break;}}}void Quit(){char panduan;printf("确认退出(Y/N)");panduan=getchar();fflush(stdin);if(panduan=='Y'||panduan=='y'){exit(0);}}int main(){Open();Openzhichu();system("color 72");while(1){Menu();int choice;printf(" 请输入你的选择：");scanf("%d",&choice);fflush(stdin);switch(choice){case 1: Income();break;case 2: zhichu();break;case 3: Tongji();break;case 0: Quit();break;default: printf("输入错误");break;}}return 0;}。
家庭财务管理系统课程设计的原代码
1、frm_borrowgo.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Str_text As StringDim strflag As StringPrivate Sub cmd_add_Click()txt_man.Locked = Falsetxt_way.Locked = Falsetxt_money.Locked = FalseCombo1.Locked = FalseCheck1.Enabled = TrueDTPicker1.Enabled = Truetxt_man.Text = ""txt_way.Text = ""txt_money.Text = ""Combo1.Text = ""strflag = "添加"Cmdsave.Enabled = TrueEnd SubPrivate Sub cmd_close_Click()Unload MeEnd SubPrivate Sub cmd_del_Click()Dim A As BooleanA = MsgBox("是否真的要删除这条记录？", vbOKCancel + 32 + 256, "删除")If A = True ThenExeCutesql "delete from 借出 where 得款人='" & txt_man.Text & "'", Str_textMsgBox "记录已删除！", , "删除"If Mydb.RecordCount > 0 ThenMydb.MoveNextIf Mydb.EOF Then Mydb.MoveLastCall DbCall BangdingLabel7.Caption = Mydb.RecordCountEnd IfEnd IfEnd SubPrivate Sub cmd_edit_Click()On Error Resume NextDim A As Booleantxt_man.Locked = Falsetxt_way.Locked = Falsetxt_money.Locked = FalseCombo1.Locked = FalseCheck1.Enabled = TrueDTPicker1.Enabled = Truestrflag = "修改"Cmdsave.Enabled = TrueEnd SubPrivate Sub Cmdsave_Click()On Error Resume NextDim A As BooleanIf strflag = "添加" ThenA = MsgBox("是否添加前记录？", vbYesNo + 32, "添加记录")If A = True ThenExeCutesql "insert into 借出 values('" & txt_man.Text & "','" & txt_money.Text & "','" & Combo1.Text & "','" & DTPicker1.Value & "','" & txt_way.Text & "','" & Check1.Value & "')", Str_textMsgBox "数据已经保存！", vbOKOnly + 64, "成功"Call DbLabel7.Caption = Mydb.RecordCountEnd IfElseIf strflag = "修改" ThenA = MsgBox("是否修改前记录？", vbYesNo + 32, "添加记录")If A = True ThenMydb.Update'Mydb.RequeryCall DbMsgBox "数据修改成功！", vbOKOnly + 64, "成功"End IfEnd IfCmdsave.Enabled = Falsetxt_man.Locked = Truetxt_way.Locked = Truetxt_money.Locked = TrueCombo1.Locked = TrueCheck1.Enabled = FalseDTPicker1.Enabled = FalseEnd SubPrivate Sub Combo1_Change()Dim A As IntegerSet Mydb1 = ExeCutesql("select 姓名 from 成员", Str_text)' Set Combo1.DataSource = Mydb1A = Mydb1.RecordCountFor I = 1 To ACombo1.AddItem Mydb1.Fields(0)Mydb1.MoveNextIf Mydb1.EOF Then Exit ForNext IEnd SubPrivate Sub Command1_Click()On Error Resume Next'Call DbMydb.MoveFirstCall BangdingEnd SubPrivate Sub Command2_Click()On Error Resume Next'Call Db'If Not Mydb.BOF Then Mydb.MovePreviousMydb.MovePreviousIf Mydb.BOF ThenMsgBox "这已经是第一条记录了！", vbOKOnly + 32, "注意"Mydb.MoveFirstEnd IfCall BangdingEnd SubPrivate Sub Command3_Click()On Error Resume Next'Call Db'Mydb.MovePrevious'If Mydb.BOF Then' MsgBox "这已经是第一条记录了！", vbOKOnly + 32, "注意"' Mydb.MoveFirst'End IfMydb.MoveNextIf Mydb.EOF ThenMsgBox "这已经是最后一条记录了！", vbOKOnly + 32, "注意"Mydb.MoveLastEnd IfCall BangdingEnd SubPrivate Sub Command4_Click()On Error Resume Next'Call DbMydb.MoveLastCall BangdingEnd SubPrivate Sub Form_Load()On Error Resume Next'Set Mydb = ExeCutesql("select * from 借出", Str_text) Call Db'Call BangdingCheck1.Value = 0Label7.Caption = Mydb.RecordCountDTPicker1.Value = DateCmdsave.Enabled = Falsetxt_man.Locked = Truetxt_way.Locked = Truetxt_money.Locked = TrueCombo1.Locked = TrueCheck1.Enabled = FalseDTPicker1.Enabled = FalseEnd SubPrivate Function Db()On Error Resume NextSet Mydb = ExeCutesql("select * from 借出", Str_text) End FunctionPrivate Function Bangding()On Error Resume NextSet txt_man.DataSource = MydbSet txt_money.DataSource = MydbSet DTPicker1.DataSource = MydbSet txt_way.DataSource = MydbSet Check1.DataSource = Mydbtxt_man.DataField = "得款人"txt_money.DataField = "金额"DTPicker1.Value = "日期"txt_way.DataField = "借款原因"Check1.DataField = "已还"Set Combo1.DataSource = MydbCombo1.DataField = "出借人"End Function2、frm_borromin.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Str_text As StringDim strflag As StringPrivate Sub cmd_close_Click()Unload MeEnd SubPrivate Sub cmd_add_Click()txt_man.Locked = Falsetxt_way.Locked = Falsetxt_money.Locked = FalseCombo1.Locked = FalseCheck1.Enabled = TrueDTPicker1.Enabled = Truetxt_man.Text = ""txt_way.Text = ""txt_money.Text = ""Combo1.Text = ""strflag = "添加"Cmdsave.Enabled = TrueEnd SubPrivate Sub cmd_del_Click()Dim A As BooleanA = MsgBox("是否真的要删除这条记录？", vbOKCancel + 32 + 256, "删除")If A = True ThenExeCutesql "delete from 借入 where 得款人='" & txt_man.Text & "'", Str_textMsgBox "记录已删除！", , "删除"If Mydb.RecordCount > 0 ThenMydb.MoveNextIf Mydb.EOF Then Mydb.MoveLastCall DbCall BangdingLabel7.Caption = Mydb.RecordCountEnd IfEnd IfEnd SubPrivate Sub cmd_edit_Click()On Error Resume NextDim A As Booleantxt_man.Locked = Falsetxt_way.Locked = Falsetxt_money.Locked = FalseCombo1.Locked = FalseCheck1.Enabled = TrueDTPicker1.Enabled = Truestrflag = "修改"Cmdsave.Enabled = TrueEnd SubPrivate Sub Cmdsave_Click()On Error Resume NextDim A As BooleanIf strflag = "添加" ThenA = MsgBox("是否添加前记录？", vbYesNo + 32, "添加记录")If A = True ThenExeCutesql "insert into 借入 values('" & txt_man.Text & "','" & txt_money.Text & "','" & Combo1.Text & "','" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" & txt_way.Text & "','" & Check1.Value & "')", Str_textMsgBox "数据已经保存！", vbOKOnly + 64, "成功"Call DbLabel7.Caption = Mydb.RecordCountEnd IfElseIf strflag = "修改" ThenA = MsgBox("是否修改前记录？", vbYesNo + 32, "添加记录")If A = True ThenMydb.Update'Mydb.RequeryCall DbMsgBox "数据修改成功！", vbOKOnly + 64, "成功"End IfEnd Iftxt_man.Locked = Truetxt_way.Locked = Truetxt_money.Locked = TrueCombo1.Locked = TrueCheck1.Enabled = FalseDTPicker1.Enabled = FalseCmdsave.Enabled = FalseEnd SubPrivate Sub Combo1_Change()Set Mydb1 = ExeCutesql("select 姓名 from 成员", Str_text)'Set Combo1.DataSource = Mydb1For I = 1 To Mydb1.RecordCountCombo1.AddItem (Mydb1.Fields(0))Mydb1.MoveNextIf Mydb1.EOF Then Exit ForNext IEnd SubPrivate Sub Command1_Click()On Error Resume Next' Call DbMydb.MoveFirstCall BangdingEnd SubPrivate Sub Command3_Click()On Error Resume Next'Call DbMydb.MoveNextIf Mydb.EOF ThenMsgBox "这已经是最后一条记录了！", vbOKOnly + 32, "注意"Mydb.MoveLastEnd IfCall BangdingEnd SubPrivate Sub Command2_Click()On Error Resume NextMydb.MovePreviousIf Mydb.BOF ThenMsgBox "这已经是第一条记录了！", vbOKOnly + 32, "注意"Mydb.MoveFirstEnd IfCall BangdingEnd SubPrivate Sub Command4_Click()On Error Resume Next'Call DbMydb.MoveLastCall BangdingEnd SubPrivate Sub Form_Load()On Error Resume NextCall DbCall BangdingCmdsave.Enabled = FalseCheck1.Value = 0Label7.Caption = Mydb.RecordCountDTPicker1.Value = Datetxt_man.Locked = Truetxt_way.Locked = Truetxt_money.Locked = TrueCombo1.Locked = TrueCheck1.Enabled = FalseDTPicker1.Enabled = FalseEnd SubPrivate Function Db()Set Mydb = ExeCutesql("select * from 借入", Str_text) End FunctionPrivate Function Bangding()On Error Resume NextSet txt_man.DataSource = MydbSet txt_money.DataSource = MydbSet DTPicker1.DataSource = MydbSet txt_way.DataSource = MydbSet Check1.DataSource = Mydbtxt_man.DataField = "得款人"txt_money.DataField = "金额"DTPicker1.DataField = "日期"txt_way.DataField = "出借原因"Check1.DataField = "已还"Set Combo1.DataSource = MydbCombo1.DataField = "出借人"End Function3、frm_choose.frmPrivate Sub cmd_choose_Click()On Error Resume NextCommonDialog1.Filter = "database(*.mdb)|*.mdb"CommonDialog1.ShowOpenStr_path = CommonDialog1.FileNameText1.Text = CommonDialog1.FileNameSaveSetting "小财迷", "personal", "路径", Str_pathText2.Text = CommonDialog1.FileNameIf Text2.Text <> "" Thenfrm_login.ShowUnload MeElseShowEnd IfEnd SubPrivate Sub cmd_ok_Click()On Error Resume NextStr_path = Text1.TextSaveSetting "小财迷", "personal", "路径", Str_pathfrm_login.ShowUnload MeEnd Sub4、frm_date.frmDim Mydb As New ADODB.RecordsetDim Riqi, Riqi1, Year1, Month As StringPrivate Sub Command1_Click()'Dim Riqi, Riqi1, Year, Month As StringIf Combo1.Text = "" ThenMsgBox "请选择年份！", vbOKOnly + 32, "注意！"ElseIf Combo2.Text = "" ThenMsgBox "请选择月份！", vbOKOnly + 32, "注意！"ElseAA = TrueYear1 = Combo1.TextMonth = Combo2.TextRiqi = Year1 & "-" & MonthRiqi1 = Year1 & "-" & Month + 1'MsgBox Riqi'Set Mydb = ExeCutesql("select * from 收入where 日期between '" & Riqi & "' and '" & Riqi1 & "' ", "")Cdate1 = Format(Riqi, "yyyy-mm")Cdate2 = Format(Riqi1, "yyyy-mm")Unload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load()Dim A As IntegerA = 2000For I = 2000 To Int(Year(Now))Combo1.AddItem AA = A + 1Next IEnd Sub5、frm_expend.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Mydb2 As New ADODB.RecordsetDim Count1 As New ADODB.RecordsetDim Str_text As StringPrivate Sub cmd_add_Click()On Error Resume NextDim A, BB = 1Set Count1 = ExeCutesql("select * from 支出", Str_text)Count1.MoveLastB = Count1.Fields(7) + 1A = MsgBox("是否添加前记录？", vbYesNo + 32, "添加记录")If A = vbYes ThenIf txt_intake.Text = "" ThenMsgBox "请填写去向！", vbOKOnly + 32, "注意！"ElseExeCutesql "insert into 支出values('" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" _& Combo1.Text & "','" & txt_money.Text & "','" & Combo2.Text & "','" & txt_intake.Text _& "','" & Combo3.Text & "','" & txt_mome.Text & "','" & B & "')", Str_textMsgBox "数据已经保存！", vbOKOnly + 64, "成功"Call XiangmuCall DbEnd IfEnd IfEnd SubPrivate Sub cmd_close_Click()Unload MeEnd SubPrivate Sub cmd_del_Click()On Error Resume NextDim AA = MsgBox("是否删除当前记录？", vbYesNo + 32 + 256, "添加记录")If A = vbYes ThenExeCutesql "DELETE from 支出 where key=" & txt_note.Text & "", Str_textCall DbSet Mydb = ExeCutesql("select * from 支出 ", Str_text)Set MSHFlexGrid1.DataSource = MydbEnd IfEnd SubPrivate Sub cmd_edit_Click()On Error Resume NextDim AA = MsgBox("是否修改前记录？", vbYesNo + 32, "添加记录")If A = vbYes ThenExeCutesql "Update 支出Set 日期= '" & Format(DTPicker1.Value, "yyyy-mm-dd") & "',方式='" & Combo1.Text & "',金额=" & txt_money.Text & ", 去向='" & txt_intake.Text & "',人员='" & Combo3.Text & "',备注='" & txt_mome.Text & "' Where key = " & txt_note.Text & " ", Str_text 'Mydb.RequeryCall DbMsgBox "数据修改成功！", vbOKOnly + 64, "成功"End IfEnd SubPrivate Sub Combo2_Change()Call Db1End SubPrivate Sub Combo3_Change()Call Db2End SubPrivate Sub Form_Load()Call DbCall Db1Call Db2DTPicker1.Value = Date' Combo3.Locked = True' Combo1.Locked = TrueEnd SubPublic Function Db()Set Mydb = ExeCutesql("select * from 支出 order by key", Str_text) Set MSHFlexGrid1.DataSource = MydbEnd FunctionPublic Function Db1()On Error Resume NextDim A As IntegerSet Mydb1 = ExeCutesql("select * from 支出项目 ", Str_text)A = Mydb1.RecordCountSet Combo2.DataSource = Mydb1For I = 1 To ACombo2.AddItem Mydb1.Fields(0)Mydb1.MoveNextIf Mydb1.EOF Then Exit ForNext IEnd FunctionPublic Function Db2()On Error Resume NextDim A As IntegerSet Mydb2 = ExeCutesql("select * from 成员", Str_text)A = Mydb2.RecordCountSet Combo3.DataSource = Mydb2For I = 1 To ACombo3.AddItem Mydb2.Fields(0)Mydb2.MoveNextIf Mydb2.EOF Then Exit ForNext ICombo3.AddItem "全家"End FunctionPrivate Sub Form_Unload(Cancel As Integer)'Mydb.Close'Mydb1.Close'Mydb2.CloseEnd SubPrivate Sub MSHFlexGrid1_Click()On Error Resume NextDTPicker1.Value = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) Combo1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)txt_money.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3) Combo2.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)txt_intake.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5) Combo3.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 6)txt_mome.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 7)txt_note.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 8)End SubPrivate Sub txt_money_LostFocus()Dim A As BooleanDim CC = txt_money.TextA = IsNumeric(C)If C = "" ThenMsgBox "请输入金额！", vbOKOnly + 32, "注意！"txt_money.SetFocusElseIf A = False ThenMsgBox "金额只能输入数字！", vbOKOnly + 32, "注意！"txt_money.SetFocusEnd IfEnd IfEnd SubPrivate Function Xiangmu()Dim ADim Str_text As StringDim Db As New ADODB.RecordsetStr_text = Combo2.TextSet Db = ExeCutesql("select * from 支出项目 where value='" & Str_text & "'", "")'MsgBoxIf Not Str_text = Db.Fields(0) ThenExeCutesql "insert into 支出项目 values('" & Str_text & "')", ""End IfEnd FunctionPrivate Function Renyuan()'Dim A'Dim Str_text As String'Dim Db As New ADODB.Recordset'Str_text = Combo3.Text'Set Db = ExeCutesql("select * from 成员 where value='" & Str_text & "'", "")'MsgBox'If Not Str_text = Db.Fields(0) Then' ExeCutesql "insert into 成员 values('" & Str_text & "')", ""'End IfEnd Function6、frm_family.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Count1 As New ADODB.RecordsetDim Str_text As StringPrivate Sub cmd_add_Click()On Error Resume NextDim A, BB = 1Set Count1 = ExeCutesql("select * from 成员 ", Str_text)Count1.MoveLastB = Count1.Fields(4) + 1A = MsgBox("是否添加前记录?", vbYesNo + 32, "修改记录")If A = vbYes ThenExeCutesql "insert into 成员 values('" & Text1.Text & "','" & Text2.Text & "','" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" & Text3.Text & "'," & B & ") ", Str_textCall DbMydb.MoveLastMsgBox "数据已经保存！", vbOKOnly + 64, "成功"End IfEnd SubPrivate Sub cmd_close_Click()Unload MeEnd SubPrivate Sub cmd_del_Click()On Error Resume NextDim AA = MsgBox("是否删除当前记录", vbYesNo + 32 + 256, "删除记录")If A = vbYes ThenExeCutesql "DELETE from 成员 where key=" & txt_key.Text & "", Str_text'Mydb.Requery'If Mydb.EOF Then Mydb.MoveLast'Call DbSet Mydb = ExeCutesql("select * from 成员", Str_text)Set MSHFlexGrid1.DataSource = MydbEnd IfEnd SubPrivate Sub cmd_edit_Click()On Error Resume NextDim AA = MsgBox("是否修改前记录?", vbYesNo + 32, "修改记录")If A = vbYes ThenExeCutesql "Update 成员 set 称呼='" & Text1.Text & "',姓名='" & Text2.Text _& "',生日='" & DTPicker1.Value & "',格言='" & Text3.Text & "'where key=" & txt_key.Text & "", Str_textMsgBox "数据已经修改成功！", vbOKOnly + 64, "成功"Call DbEnd IfEnd SubPrivate Sub Form_Load()Call DbDTPicker1.Value = DateEnd SubPrivate Function Db()Set Mydb = ExeCutesql("select * from 成员", Str_text)Set MSHFlexGrid1.DataSource = MydbEnd FunctionPrivate Sub MSHFlexGrid1_Click()On Error Resume NextText1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)Text2.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)DTPicker1.Value = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3) Text3.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)txt_key.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5)End Sub7、frm_fix.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Man As New ADODB.RecordsetDim Count1 As New ADODB.RecordsetDim Str_text As StringPrivate Sub cmd_add_Click()On Error Resume NextDim A, BB = 1Set Count1 = ExeCutesql("select key from 定期存款 ", Str_text) Count1.MoveLastB = Count1.Fields(0) + 1A = MsgBox("是否添加前记录?", vbYesNo + 32, "修改记录")If A = vbYes ThenExeCutesql "insert into 定期存款values('" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" & txt_name.Text _& "','" & txt_address.Text & "','" & txt_size.Text & "'," & txt_money.Text & ",'" & txt_time.Text & "','" & Combo1.Text & "','" & Check1.Value & "'," & B & ")", Str_textCall BangdingEnd IfEnd SubPrivate Sub cmd_del_Click()On Error Resume NextDim AA = MsgBox("是否删除当前记录？", vbYesNo + 32 + 256, "添加记录")If A = vbYes ThenExeCutesql "DELETE from 定期存款 where key=" & txt_key.Text & "", Str_textCall BangdingEnd IfEnd SubPrivate Sub cmd_edit_Click()On Error Resume NextDim AA = MsgBox("是否修改前记录？", vbYesNo + 32, "添加记录")If A = vbYes ThenExeCutesql "Update 定期存款 Set 日期 = '" & DTPicker1.Value & "',银行名称='" & txt_name.Text _& "',银行地址=" & txt_address.Text & ", 银行账号='" & txt_size.Text & "',金额='" & txt_money.Text _& "',期限='" & txt_time.Text & "',存款人='" & Combo1.Text & "',取否='" & Check1.Value & "' Where key = " & txt_key.Text & " ", Str_text 'Mydb.RequeryCall BangdingMsgBox "数据修改成功！", vbOKOnly + 64, "成功"End IfEnd SubPrivate Sub cmd_quit_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim A As IntegerDTPicker1.Value = DateCall BangdingSet Mydb1 = ExeCutesql("select 姓名 from 成员 ", Str_text)A = Mydb1.RecordCountSet Combo1.DataSource = Mydb1For I = 1 To ACombo1.AddItem Mydb1.Fields(0)Mydb1.MoveNextIf Mydb1.EOF Then Exit ForNext IEnd SubPrivate Function Bangding()Set Mydb = ExeCutesql("select * from 定期存款 ", Str_text) Set MSHFlexGrid1.DataSource = MydbEnd FunctionPrivate Sub MSHFlexGrid1_Click()On Error Resume NextDTPicker1.Value = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) txt_name.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)txt_address.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3)txt_size.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)txt_money.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5) txt_time.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 6)Combo1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 7)Check1.Value = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 8)txt_key.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 9)End Sub8、frm_intake.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Mydb2 As New ADODB.RecordsetDim Count1 As New ADODB.RecordsetDim Str_text As StringPrivate Sub cmd_add_Click()On Error Resume NextDim A, BB = 1Set Count1 = ExeCutesql("select * from 收入", Str_text)Count1.MoveLastB = Count1.Fields(7) + 1A = MsgBox("是否添加前记录？", vbYesNo + 32, "添加记录")If A = vbYes ThenIf txt_intake.Text = "" ThenMsgBox "请填写来源！", vbOKOnly + 32, "注意"txt_intake.SetFocusElseExeCutesql "INSERT INTO 收入VALUES('" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" _& Combo1.Text & "'," & txt_money.Text & ",'" & Combo2.Text & "','" & txt_intake.Text _& "','" & Combo3.Text & "','" & txt_mome.Text & "'," & B & ")", Str_textMsgBox "数据已经保存！", vbOKOnly + 64, "成功"Call XiangmuCall DbEnd IfEnd IfEnd SubPrivate Sub cmd_close_Click()Unload MeEnd SubPrivate Sub cmd_del_Click()On Error Resume NextDim AA = MsgBox("是否删除当前记录？", vbYesNo + 32 + 256, "添加记录")If A = vbYes Then'Mydb.UpdateBatchExeCutesql "DELETE from 收入 where key=" & txt_note.Text & "", Str_textCall DbSet Mydb = ExeCutesql("select * from 收入 ", Str_text)Set MSHFlexGrid1.DataSource = MydbEnd IfEnd SubPrivate Sub cmd_edit_Click()'On Error Resume NextDim AA = MsgBox("是否修改当前记录？", vbYesNo + 32, "添加记录")If A = vbYes ThenExeCutesql "Update 收入 Set 日期 = '" & Format(DTPicker1.Value, "yyyy-mm-dd") & "',方式='" & Combo1.Text & "',金额=" & txt_money.Text & ", 来源='" & txt_intake.Text & "',人员='" & Combo3.Text & "',备注='" & txt_mome.Text & "' Where key = " & txt_note.Text & " ", Str_textCall DbMsgBox "数据修改成功！", vbOKOnly + 64, "成功"End If'MsgBox "Update 收入 Set 日期 = '" & DTPicker1.Value & "',方式='" & Combo1.Text & "',金额=" & txt_money.Text & ", 来源='" & txt_intake.Text & "',人员='" & Combo3.Text & "',备注='" & txt_mome.Text & "' Where key = '" & txt_note.Text & " '"End SubPrivate Sub Combo2_Change()Call Db1End SubPrivate Sub Combo3_Change()Call Db2End SubPrivate Sub Command1_Click()Call DbEnd SubPrivate Sub Form_Load()Call DbCall Db1Call Db2DTPicker1.Value = Date'Combo3.Locked = True'Combo1.Locked = TrueEnd SubPublic Function Db()Set Mydb = ExeCutesql("select * from 收入 order by key ", Str_text) Set MSHFlexGrid1.DataSource = MydbEnd FunctionPublic Function Db1()On Error Resume NextDim A As IntegerSet Mydb1 = ExeCutesql("select * from 收入项目 ", Str_text)A = Mydb1.RecordCountSet Combo2.DataSource = Mydb1For I = 1 To ACombo2.AddItem Mydb1.Fields(0)Mydb1.MoveNextIf Mydb1.EOF Then Exit ForNext IEnd FunctionPublic Function Db2()On Error Resume NextDim A As IntegerSet Mydb2 = ExeCutesql("select * from 成员", Str_text)A = Mydb2.RecordCountSet Combo3.DataSource = Mydb2For I = 1 To ACombo3.AddItem Mydb2.Fields(0)Mydb2.MoveNextIf Mydb2.EOF Then Exit ForNext ICombo3.AddItem "全家"End FunctionPrivate Sub Form_Unload(Cancel As Integer)'Mydb.Close'Mydb1.Close'Mydb2.CloseEnd SubPrivate Sub MSHFlexGrid1_Click()On Error Resume NextDTPicker1.Value = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) Combo1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)txt_money.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3) Combo2.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)txt_intake.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5) Combo3.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 6)txt_mome.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 7)txt_note.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 8)End SubPrivate Sub txt_money_LostFocus()Dim A As BooleanDim CC = txt_money.TextA = IsNumeric(C)If C = "" ThenMsgBox "请输入金额！", vbOKOnly + 32, "注意！"txt_money.SetFocusElseIf A = False ThenMsgBox "金额只能输入数字！", vbOKOnly + 32, "注意！"txt_money.SetFocusEnd IfEnd IfEnd SubPrivate Function Xiangmu()Dim ADim Str_text As StringDim Db As New ADODB.RecordsetStr_text = Combo2.TextSet Db = ExeCutesql("select * from 支出项目 where value='" &Str_text & "'", "")'MsgBoxIf Not Str_text = Db.Fields(0) ThenExeCutesql "insert into 支出项目 values('" & Str_text & "')", ""End IfEnd Function9、frm_list.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Money As New ADODB.RecordsetDim Money1 As New ADODB.RecordsetDim Str_text As StringPrivate Sub Command1_Click()frm_rate.ShowEnd SubPrivate Sub Command2_Click()frm_date.ShowEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Activate()On Error Resume NextDim A, B, C As IntegerDim D As StringDim Year1, Month1, Riqi, Riqi1, Riqi3, Riqi4If AA = True ThenSet Mydb = ExeCutesql("select * from 收入 where 日期 between '" & Cdate1 & "' and '" & Cdate2 & "' ", "")Set MSHFlexGrid1.DataSource = MydbSet Mydb1 = ExeCutesql("select * from 支出 where 日期 between '" & Cdate1 & "' and '" & Cdate2 & "' ", "")Set MSHFlexGrid2.DataSource = Mydb1Set Money = ExeCutesql("select sum(金额) from 收入 where 日期between '" & Cdate1 & "'and '" & Cdate2 & "'", "")A = Money.Fields(0)If IsNull(A) ThenA = 0。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
#include<stdio.h>#include<stdlib.h>#include<conio.h>#include<string.h>#define LEN sizeof(struct financial)#define FFORMAT "%-8d%-15s%-10d%-10d%-12.2f%-12.2f%-12.2f\n"#define DATA member[i].num,member[i].name,member[i].month,member[i].year,member[i].income,member[i ].output,member[i].totalstruct financial //定义家庭成员信息{int num; //编号char name[15]; //家庭成员姓名int month; //月份int year; //年份float income; //收入float output; //支出float total; //总金额};struct financial member[50]; //定义结构体数组void menu(); //主界面void in(); //录入家庭成员收支信息void show(); //显示家庭成员收支信息void del(); //删除家庭成员收支信息void modify(); //修改家庭成员收支信息void total(); //计算家庭成员总收入void search(); //查找家庭成员收支信息int main(){int n;menu();scanf("%d",&n); //输入数字选择功能while(n){switch(n){case 1:in(); //调用录入家庭成员信息函数break;case 2:search(); //查找家庭成员信息函数break;case 3:del(); //调用删除家庭成员信息函数break;case 4:modify(); //调用修改家庭成员信息函数break;case 5:total(); //调用汇总函数break;default:break;}printf("按任意键返回主菜单:\n");getch();menu(); //执行完功能再次显示菜单界面scanf("%d",&n);}return 0;}void menu(){system("cls");printf("|-------------------------------------------------|\n");printf("|--------------------家庭财务信息系统-------------|\n");printf("| 0. 退出|\n");printf("| 1. 录入信息|\n");printf("| 2. 查找信息|\n");printf("| 3. 删除信息|\n");printf("| 4. 修改信息|\n");printf("| 5. 统计信息|\n");printf("|-------------------------------------------------|\n");printf("选择(0-5):");}void in() //录入家庭成员信息{int i,m=0;char ch[2];FILE *fp;if((fp=fopen("家庭财务管理系统","ab+"))==NULL){printf("不能打开文件!\n");return;}while(!feof(fp)){if(fread(&member[m] ,LEN,1,fp)==1)m++; //统计当前记录条数fclose(fp);if(m==0)printf("没有找到!\n");else{//system("cls");show(); //调用show函数，显示原有信息}if((fp=fopen("家庭财务管理系统","wb"))==NULL){printf("不能打开文件!\n");return;}for(i=0;i<m;i++)fwrite(&member[i] ,LEN,1,fp); //向指定的磁盘文件写入信息printf("是否输入?(y/n):");scanf("%s",ch);while(strcmp(ch,"Y")==0||strcmp(ch,"y")==0) //判断是否要录入新信息{printf("编号:");scanf("%d",&member[m].num); //输入家庭成员编号for(i=0;i<m;i++)if(member[i].num == member[m].num){printf("该记录已经存在，按任意键继续!");getch();fclose(fp);return;}printf("家庭成员姓名:");scanf("%s",member[m].name); //输入家庭成员姓名printf("请输入月份:");scanf("%d",&member[m].month); //输入月份printf("请输入年份:");scanf("%d",&member[m].year); //输入年份printf("请输入收入:");scanf("%f",&member[m].income); //输入收入printf("请输入支出:");scanf("%f",&member[m].output); //输入支出member[m].total=member[m].income - member[m].output;if(fwrite(&member[m],LEN,1,fp)!=1) //将新录入的信息写入指定的磁盘文件{printf("不能保存!");getch();}else{printf("%s 已经保存!\n",member[m].name);m++;}printf("是否继续?(y/n):");scanf("%s",ch);}fclose(fp);printf("OK!\n");}void show(){FILE *fp;int i,m=0;fp=fopen("家庭财务管理系统","ab+");while(!feof(fp)){if(fread(&member[m] ,LEN,1,fp)==1)m++;}fclose(fp);printf("编号成员月份年分收入支出总金额\t\n");for(i=0;i<m;i++){printf(FFORMAT,DATA);}}void del(){FILE *fp;int snum,i,j,m=0;char ch[2];if((fp=fopen("家庭财务管理系统","ab+"))==NULL)printf("不能打开文件\n");return;}while(!feof(fp))if(fread(&member[m],LEN,1,fp)==1)m++;fclose(fp);if(m==0){printf("没有记录!\n");return;}printf("请输入编号:");scanf("%d",&snum);for(i=0;i<m;i++)if(snum==member[i].num)break;if(i==m){printf("没有找到!");return;}printf("已经找到该记录，是否删除?(y/n)");scanf("%s",ch);if(strcmp(ch,"Y")==0||strcmp(ch,"y")==0) //判断是否要进行删除{for(j=i;j<m;j++)member[j] = member[j+1]; //将后一个记录移到前一个记录的位置m--; //记录的总个数减1printf("成功删除!\n");}if((fp=fopen("家庭财务管理系统","wb"))==NULL){printf("不能打开!\n");return;}for(j=0;j<m;j++) //将更改后的记录重新写入指定的磁盘文件中if(fwrite(&member[j] ,LEN,1,fp)!=1){printf("不能保存!\n");getch();}fclose(fp);}void search(){FILE *fp;int snum,i,m=0;char ch[2];if((fp=fopen("家庭财务管理系统","ab+"))==NULL){printf("不能打开文件\n");return;}while(!feof(fp))if(fread(&member[m],LEN,1,fp)==1)m++;fclose(fp);if(m==0){printf("没有记录!\n");return;}printf("请输入编号:");scanf("%d",&snum);for(i=0;i<m;i++)if(snum == member[i].num){printf("已经找到该记录，是否显示?(y/n)");scanf("%s",ch);if(strcmp(ch,"Y")==0||strcmp(ch,"y")==0){printf("编号成员月份年份收入支出总金额\t\n");printf(FFORMAT,DATA);break;}elsereturn;}if(i==m)printf("没有找到相应的记录!\n");void modify(){FILE *fp;int i,j,m=0,snum;char ch[2];if((fp=fopen("家庭财务管理系统","ab+"))==NULL){printf("不能打开文件!\n");return;}while(!feof(fp))if(fread(&member[m],LEN,1,fp)==1)m++;if(m==0){printf("没有记录!\n");fclose(fp);return;}printf("请输入要修改的记录信息的编号!\n");scanf("%d",&snum);for(i=0;i<m;i++)if(snum==member[i].num) //检索记录中是否有要修改的信息{printf("已经找到该记录，是否修改?(y/n)\n");scanf("%s",ch);if(strcmp(ch,"Y")==0||strcmp(ch,"y")==0){printf("家庭成员姓名:");scanf("%s",member[i].name); //输入家庭成员姓名printf("请输入月份:");scanf("%d",&member[i].month); //输入月份printf("请输入年份:");scanf("%d",&member[i].year); //输入年份printf("请输入收入:");scanf("%f",&member[i].income); //输入收入printf("请输入支出:");scanf("%f",&member[i].output); //输入支出member[i].total=member[i].income - member[i].output; //汇总printf("保存成功!");}elsereturn;}else{printf("没有找到!");return;}if((fp=fopen("家庭财务管理系统","wb"))==NULL){printf("不能打开文件!\n");return;}for(j=0;j<m;j++) //将新修改的信息写入指定的磁盘文件中if(fwrite(&member[j] ,LEN,1,fp)!=1){printf("不能保存!");}fclose(fp);}void total() // 统计{FILE *fp;int m=0;if((fp=fopen("家庭财务管理系统","ab+"))==NULL){printf("不能打开记录!\n");return;}while(!feof(fp))if(fread(&member[m],LEN,1,fp)==1)m++; //统计记录个数if(m==0){printf("没有记录!\n");fclose(fp);return;}printf("一共有%d 条记录!\n",m); //将统计的个数输出fclose(fp); }。