addrecordform.cpp

某车友管理系统的源码

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

#include <vcl.h>
#pragma hdrstop

#include "AddRecordForm.h"
#include "MainForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TRecordFormWin *RecordFormWin;
//---------------------------------------------------------------------------
__fastcall TRecordFormWin::TRecordFormWin(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TRecordFormWin::Button2Click(TObject *Sender)
{CheyouDataSource->AutoEdit=false;
 CheyouDataSource->Enabled=false;
 CheyouTable->Active=false;
 MainFormWin->CheyouDataSource->Enabled=true;
 MainFormWin->CheyouTable->Active=true;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TRecordFormWin::Button1Click(TObject *Sender)
{AnsiString value,outvalue;
 switch(status)
 {case 0:if(!SaveDocument())
           return;
         value=CheyouTable->Fields->Fields[0]->AsString;
         outvalue=".\\database\\"+value+"_"+"maintain.doc";
         CheyouTable->Fields->Fields[21]->AsString=outvalue;
         outvalue=".\\database\\"+value+"_"+"repair.doc";
         CheyouTable->Fields->Fields[22]->AsString=outvalue;
         outvalue=".\\database\\"+value+"_"+"violate.doc";
         CheyouTable->Fields->Fields[23]->AsString=outvalue;
         outvalue=".\\database\\"+value+"_"+"accident.doc";
         CheyouTable->Fields->Fields[24]->AsString=outvalue;
         CheyouDataSource->DataSet->Post();
         CheyouDataSource->AutoEdit=false;
         CheyouDataSource->Enabled=false;
         CheyouTable->Active=false;
         break;
 case 1:Maintain_memo->Lines->SaveToFile(filename1);
        Repair_memo->Lines->SaveToFile(filename2);
        Violate_memo->Lines->SaveToFile(filename3);
        Accident_memo->Lines->SaveToFile(filename4);
        CheyouTable->Edit();
        CheyouTable->Post();
        CheyouDataSource->AutoEdit=false;
        CheyouDataSource->Enabled=false;
        CheyouTable->Active=false;
        break;
 }
 //////////////////////////////////////////////

 MainFormWin->CheyouDataSource->Enabled=true;
 MainFormWin->CheyouTable->Active=true;
 Close();
}
//---------------------------------------------------------------------------
bool __fastcall TRecordFormWin::SaveDocument(void)
{AnsiString value,filename;
 try{
 value=CheyouTable->Fields->Fields[0]->AsString;
 filename=".\\database\\"+value+"_"+"maintain.doc";
 Maintain_memo->Lines->SaveToFile(filename);
 filename=".\\database\\"+value+"_"+"repair.doc";
 Repair_memo->Lines->SaveToFile(filename);
 filename=".\\database\\"+value+"_"+"violate.doc";
 Violate_memo->Lines->SaveToFile(filename);
 filename=".\\database\\"+value+"_"+"accident.doc";
 Accident_memo->Lines->SaveToFile(filename);
 return true;
 }
 catch(...)
  {return false;
  }
 }
//---------------------------------------------------------------------------
void __fastcall TRecordFormWin::LoadDocument(void)
{Maintain_memo->Lines->Clear();
 Maintain_memo->Lines->LoadFromFile(filename1);

 Repair_memo->Lines->Clear();
 Repair_memo->Lines->LoadFromFile(filename2);

 Violate_memo->Lines->Clear();
 Violate_memo->Lines->LoadFromFile(filename3);

 Accident_memo->Lines->Clear();
 Accident_memo->Lines->LoadFromFile(filename4);
}