add_zh.cpp

软件工程

//---------------------------------------------------------------------------
#include"stdio.h"
#include"io.h"
#include <vcl.h>
#pragma hdrstop

#include"add_baojin.h"
#include"add_bj.h"
#include"add_zh.h"
#include"cx_baojin.h"
#include"cxbj.h"
#include"zh_bj.h"
#include"zh_gl.h"
#include"zh_jfgl.h"
#include"zh_jl.h"
#include"zh_liulan.h"
#include"zh_xx.h"
#include"zh_zlgl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tadd_zh1 *add_zh1;
//---------------------------------------------------------------------------
__fastcall Tadd_zh1::Tadd_zh1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------




////////////进行住户的添加
void __fastcall Tadd_zh1::Button1Click(TObject *Sender)
{
zhuhu zh_new;
zhuhu zh_fm;
FILE *fp,*fm,*zhuhuming;
AnsiString a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15;
AnsiString zhm;
a1=ComboBox1->Text; a2=ComboBox2->Text;
a3=ComboBox3->Text; a4=ComboBox4->Text;
a5=Edit1->Text;     a6=ComboBox5->Text;
a7=Edit2->Text;     a8=Edit3->Text;
a9=Edit4->Text;     a10=Edit5->Text;
a11=Edit6->Text;    a12=Edit7->Text;
a13=Edit8->Text;    a14=Edit30->Text;
Edit44->Text=ComboBox1->Text+ComboBox2->Text+ComboBox3->Text+ComboBox4->Text;
a15=Edit44->Text;
zhm="c:\\zhm\\"+a15;
if(!(DirectoryExists("c:\\zhm")))
CreateDir("c:\\zhm");
zhuhuming=fopen(zhm.c_str(),"w+");
fclose(zhuhuming);
    if(Edit1->Text==""||Edit29->Text==""||Edit2->Text==""||Edit3->Text==""||Edit4->Text==""||Edit5->Text==""||Edit6->Text==""||Edit7->Text==""||Edit8->Text==""||Edit9->Text==""||Edit10->Text==""||Edit11->Text==""||Edit12->Text==""||Edit13->Text==""||Edit14->Text==""||Edit15->Text==""||Edit16->Text==""||Edit17->Text==""||Edit18->Text==""||Edit19->Text==""||Edit20->Text==""||Edit21->Text==""||Edit22->Text==""||Edit23->Text==""||Edit24->Text==""||Edit25->Text==""||Edit26->Text==""||Edit27->Text==""||Edit28->Text==""||Edit30->Text==""||ComboBox1->Text==""||ComboBox2->Text==""||ComboBox3->Text==""||ComboBox4->Text==""||ComboBox5->Text==""||ComboBox6->Text==""||ComboBox7->Text==""||ComboBox8->Text=="")ShowMessage("信息输入不完整");
    else
        {
        fp=fopen("zhuhuinfo1.txt","a");
        //zh_new.addzhuhu(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15);
        fprintf(fp,"%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s",a15,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14);
        Edit1->Clear();
        Edit2->Clear();
        Edit3->Clear();
        Edit4->Clear();
        Edit5->Clear();
        Edit6->Clear();
        Edit7->Clear();
        Edit8->Clear();
        Edit30->Clear();
        ShowMessage("添加成功");
        fclose(fp);
////////////////// 追加家庭成员信息拉


        if(!FileExists("zhuhuinfo2.txt"))
        fm=fopen("zhuhuinfo2.txt","w+");
        else fm=fopen("zhuhuinfo2.txt","a");
        zh_fm.addfamly(Edit9->Text,ComboBox6->Text,Edit10->Text,Edit11->Text,Edit12->Text,Edit13->Text,Edit14->Text,Edit15->Text);
        fprintf(fm,"%8s%10s%6s%10s%30s%40s%15s%15s%15s",a15,zh_fm.zh_fmname,zh_fm.zh_fmsex,zh_fm.zh_fmtel,zh_fm.zh_fmworkun,zh_fm.zh_fmworkpl,zh_fm.zh_fmworkcell,zh_fm.zh_fmworkcall,zh_fm.zh_fmrela);

        zh_fm.addfamly(Edit16->Text,ComboBox7->Text,Edit17->Text,Edit18->Text,Edit19->Text,Edit20->Text,Edit21->Text,Edit22->Text);
        fprintf(fm,"%10s%6s%10s%30s%40s%15s%15s%15s",zh_fm.zh_fmname,zh_fm.zh_fmsex,zh_fm.zh_fmtel,zh_fm.zh_fmworkun,zh_fm.zh_fmworkpl,zh_fm.zh_fmworkcell,zh_fm.zh_fmworkcall,zh_fm.zh_fmrela);

        zh_fm.addfamly(Edit23->Text,ComboBox8->Text,Edit24->Text,Edit25->Text,Edit26->Text,Edit27->Text,Edit28->Text,Edit29->Text);
        fprintf(fm,"%10s%6s%10s%30s%40s%15s%15s%15s",zh_fm.zh_fmname,zh_fm.zh_fmsex,zh_fm.zh_fmtel,zh_fm.zh_fmworkun,zh_fm.zh_fmworkpl,zh_fm.zh_fmworkcell,zh_fm.zh_fmworkcall,zh_fm.zh_fmrela);

        Edit9->Clear();Edit10->Clear();Edit11->Clear();Edit12->Clear();Edit13->Clear();Edit14->Clear();Edit15->Clear();
        Edit16->Clear();Edit17->Clear();Edit18->Clear();Edit19->Clear();Edit20->Clear();Edit21->Clear();Edit22->Clear();
        Edit23->Clear();Edit25->Clear();Edit24->Clear();Edit26->Clear();Edit27->Clear();Edit28->Clear();Edit29->Clear();
        fclose(fp);
        }
}
//////////////添加住户完成
//---------------------------------------------------------------------------
/////////退出添加模块
void __fastcall Tadd_zh1::Button2Click(TObject *Sender)
{
add_zh1->Close();        
}
//---------------------------------------------------------------------------