add_baojin.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_baojin1 *add_baojin1;
//---------------------------------------------------------------------------
__fastcall Tadd_baojin1::Tadd_baojin1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

////////////////t添加成功后退出
void __fastcall Tadd_baojin1::Button2Click(TObject *Sender)
{
add_baojin1->Close();
}
//---------------------------------------------------------------------------
//////////////////添加报警记录设施
void __fastcall Tadd_baojin1::Button1Click(TObject *Sender)
{
FILE *fp;
AnsiString a1,a2,a3,a4,a5,a6,a7;
if(!FileExists("zhuhubaojing.txt"))
fp=fopen("zhuhubaojing.txt","w+");
else fp=fopen("zhuhubaojing.txt","a");
a1=cx_baojin1->Edit7->Text;
a2=ComboBox2->Text;
a3=Edit1->Text;
a4=ComboBox3->Text;
a5=ComboBox4->Text;
a6=ComboBox5->Text;
a7=Edit2->Text;

fprintf(fp,"%8s%8s%8s%8s%8s%8s%8s\n",a1,a2,a3,a4,a5,a6,a7);
fclose(fp);
////////////////关闭文件，添加成功
}
//---------------------------------------------------------------------------