zh_gl.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"
#include"guanliyuan.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tzh_gl1 *zh_gl1;
//---------------------------------------------------------------------------
__fastcall Tzh_gl1::Tzh_gl1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
zhuhu::addzhuhu(AnsiString a1,AnsiString a2,AnsiString a3,AnsiString a4,AnsiString a5,AnsiString a6,AnsiString a7,AnsiString a8,AnsiString a9,AnsiString a10,AnsiString a11,AnsiString a12,AnsiString a13,AnsiString a14,AnsiString a15)
{
//初使化住户信息
  zh_area=a1;   zh_floor=a2;    zh_unit=a3;     zh_house=a4;    zh_id=a5;
  zh_name=a6;   zh_house=a7;    zh_tel1=a8;     zh_tel2=a9;     zh_call=10;
  zh_cell=a11;   zh_workpl=a12;  zh_worktel=a13;   zh_workarea=a14;  zh_time=a15;
  return 1;     //TODO: Add your source code here
}
zhuhu::addfamly(AnsiString b1,AnsiString b2,AnsiString b3,AnsiString b4,AnsiString b5,AnsiString b6,AnsiString b7,AnsiString b8)
{

        zh_fmname=b1;
        zh_fmsex=b2;
        zh_fmtel=b3;
        zh_fmworkun=b4;
        zh_fmworkpl=b5;
        zh_fmworkcell=b6;
        zh_fmworkcall=b7;
        zh_fmrela=b8;
return true;
        }

void __fastcall Tzh_gl1::Button1Click(TObject *Sender)
{
zh_zlgl1-> Show();
}
//---------------------------------------------------------------------------


void __fastcall Tzh_gl1::Button2Click(TObject *Sender)
{
zh_jfgl1->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tzh_gl1::Button3Click(TObject *Sender)
{
zh_bj1->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tzh_gl1::Button4Click(TObject *Sender)
{
cx_baojin1->Show();
}
//---------------------------------------------------------------------------


void __fastcall Tzh_gl1::Button7Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------



void __fastcall Tzh_gl1::Button6Click(TObject *Sender)
{
zh_gl1->Close();        
}
//---------------------------------------------------------------------------

void __fastcall Tzh_gl1::Button5Click(TObject *Sender)
{
guanliyuan1->Show();
zh_gl1->Close();
}
//---------------------------------------------------------------------------