haibao.cpp

软件工程

//---------------------------------------------------------------------------

#include <vcl.h>
#include"stdio.h"
#include"io.h"
#include"fcntl.h"
#include"fstream.h"
#pragma hdrstop
#include "haibao.h"
#include "hb_gg.h"
#include "hb_jr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString pathx;
Thaibao1 *haibao1;
//---------------------------------------------------------------------------
__fastcall Thaibao1::Thaibao1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall Thaibao1::zidiyi1Click(TObject *Sender)
{
   Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall Thaibao1::zidingyi2Click(TObject *Sender)
{
  Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall Thaibao1::fanhuiClick(TObject *Sender)
{
  haibao1->Close();
}
//---------------------------------------------------------------------------
void __fastcall Thaibao1::FormCreate(TObject *Sender)
{ int i;
  pathx=ExpandFileName("社区管理系统");
  i=pathx.Length();
  AnsiString x = pathx.Delete(i-11,12);
  pathx=x;
  ListBox1->Items->LoadFromFile("gonggonginfo");
  ListBox2->Items->LoadFromFile("jieriinfo");
}
//--以上的函数是将文件的内容读进窗口。。还原到最后保存的数据
//
//---------------------------------------------------------------------------




void __fastcall Thaibao1::ListBox1Click(TObject *Sender)
{ AnsiString lishi;
  ListBox2->ClearSelection();
  lishi=ListBox1->Items->Strings[ListBox1->ItemIndex];
  Baozhi=lishi;
  O=0;
//  Sleep(500);
  wenbenleirong->Lines->Clear();
  wenbenleirong->Lines->LoadFromFile(lishi);
 // wenbenleirong->Refresh();
}
//以上函数是实现“点击公共类的文件时在右边显示出来
//---------------------------------------------------------------------------



void __fastcall Thaibao1::xiugaiClick(TObject *Sender)
{
   remove(Baozhi.c_str());
   Sleep(200);
   wenbenleirong->Lines->SaveToFile(Baozhi);
   ShowMessage("修改成功");

}
//---------------------------------------------------------------------------

void __fastcall Thaibao1::ListBox2Click(TObject *Sender)
{ AnsiString lishi;
  ListBox1->ClearSelection();
  lishi=ListBox2->Items->Strings[ListBox2->ItemIndex];
  Baozhi=lishi;
  O=1;
  wenbenleirong->Lines->LoadFromFile(lishi);
}
//以上函数是实现“点击节日类的文件时在右边显示出来
//---------------------------------------------------------------------------

void __fastcall Thaibao1::sannchuClick(TObject *Sender)
{AnsiString s;
 remove(Baozhi.c_str());
  if(O==0)
  { ListBox1->Items->Delete(ListBox1->ItemIndex);
    wenbenleirong->Clear();
    remove("gonggonginfo");
    ListBox1->Items->SaveToFile("gonggonginfo");
  }
if(O==1)
   { ListBox2->Items->Delete(ListBox2->ItemIndex);
     wenbenleirong->Clear();
     remove("jieriinfo");
     ListBox2->Items->SaveToFile("jieriinfo");
   }
   ShowMessage("删除成功~！");
}
//以上函数是实现删除文件
//---------------------------------------------------------------------------

void __fastcall Thaibao1::baocunClick(TObject *Sender)
{
 if(SaveDialog1->Execute())
 haibao1->wenbenleirong->Lines->SaveToFile(SaveDialog1->FileName);
 SetCurrentDir(pathx);
}
//以上函数是实现保存文件
//---------------------------------------------------------------------------


void __fastcall Thaibao1::fabuClick(TObject *Sender)
{  remove("fabu");
   haibao1->wenbenleirong->Lines->SaveToFile("fabu");
   ShowMessage("成功发布");
}
//---------------------------------------------------------------------------

 //从这到最后是实现对模版的修改如字体。颜色
void __fastcall Thaibao1::N3Click(TObject *Sender)
{
 wenbenleirong->CopyToClipboard ( );
}
//---------------------------------------------------------------------------


void __fastcall Thaibao1::N4Click(TObject *Sender)
{
 wenbenleirong->CutToClipboard ( );
       
}
//---------------------------------------------------------------------------

void __fastcall Thaibao1::dayinClick(TObject *Sender)
{
 wenbenleirong->Print("");
 SetCurrentDir(pathx);
}
//---------------------------------------------------------------------------

void __fastcall Thaibao1::N1Click(TObject *Sender)
{
   TFontStyles TF;
   if (FontDialog1->Execute ( ))
   if (wenbenleirong->SelLength >0)
   {           //用字体对话框中的设置修改被选文本的字体
      wenbenleirong->SelAttributes->Size =FontDialog1->Font->Size;
      TF = FontDialog1->Font->Style;
      wenbenleirong->SelAttributes->Style =TF;
    }
}

//---------------------------------------------------------------------------

void __fastcall Thaibao1::N5Click(TObject *Sender)
{
 wenbenleirong->PasteFromClipboard ( );
}
//---------------------------------------------------------------------------


void __fastcall Thaibao1::N2Click(TObject *Sender)
{if(ColorDialog1->Execute())
  wenbenleirong->SelAttributes->Color=ColorDialog1->Color;
}
//---------------------------------------------------------------------------