mainform.~cpp

某车友管理系统的源码

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

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
#include "SplashForm.h"
#include "AddRecordForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainFormWin *MainFormWin;
//---------------------------------------------------------------------------
__fastcall TMainFormWin::TMainFormWin(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TMainFormWin::N3Click(TObject *Sender)
{TRecordFormWin *form1;
 form1=new TRecordFormWin(this);
 form1->Visible=true;
 form1->status=0;
 CheyouDataSource->AutoEdit=false;
 CheyouTable->Active=false;

 form1->CheyouDataSource->Enabled=true;
 form1->CheyouTable->Active=true;
 form1->CheyouDataSource->AutoEdit=true;
 form1->CheyouDataSource->DataSet->Append();
}
//---------------------------------------------------------------------------

void __fastcall TMainFormWin::N5Click(TObject *Sender)
{TRecordFormWin *form1;
 form1=new TRecordFormWin(this);
 form1->Visible=true;
 form1->status=1;

 form1->CheyouDataSource->Enabled=true;
 form1->CheyouDataSource->AutoEdit=true;
 form1->CheyouTable->Active=true;
 form1->CheyouTable->Edit();
 TLocateOptions options;
 Variant value(CheyouTable->FindField("Member_ID")->AsString);
 options.Contains(loCaseInsensitive);
 if(!form1->CheyouDataSource->DataSet->Locate("Member_ID",value,options))
      Application->MessageBox("你输入的会员号没有存在！", "警告", MB_OK);
 form1->filename1=CheyouTable->FindField("Maintain_Doc")->AsString;
 form1->filename2=CheyouTable->FindField("Repair_Doc")->AsString;
 form1->filename3=CheyouTable->FindField("Violate_Doc")->AsString;
 form1->filename4=CheyouTable->FindField("Accident_Doc")->AsString;
 form1->LoadDocument();

 CheyouDataSource->AutoEdit=false;
 CheyouTable->Active=false;

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


void __fastcall TMainFormWin::FormClose(TObject *Sender,
      TCloseAction &Action)
{CheyouDataSource->DataSet->Close();
 CheyouTable->Active=false;
 SplashFormWin->Close();
}
//---------------------------------------------------------------------------

void __fastcall TMainFormWin::Button1Click(TObject *Sender)
{TLocateOptions options;
 CheyouDataSource->DataSet->Edit();
 Variant value(AnsiString(MemberEdit->Text));
 options.Contains(loCaseInsensitive);
 if(!CheyouDataSource->DataSet->Locate("Member_ID",value,options))
    Application->MessageBox("你输入的会员号没有存在！", "警告", MB_OK);
 else
    LoadDocument();
 CheyouDataSource->AutoEdit=false;
}
//---------------------------------------------------------------------------
void __fastcall TMainFormWin::LoadDocument()
{AnsiString filename;
 filename=CheyouTable->FindField("Maintain_Doc")->AsString;
 Maintain_memo->Lines->Clear();
 Maintain_memo->Lines->LoadFromFile(filename);

 filename=CheyouTable->FindField("Repair_Doc")->AsString;
 Repair_memo->Lines->Clear();
 Repair_memo->Lines->LoadFromFile(filename);

 filename=CheyouTable->FindField("Violate_Doc")->AsString;
 Violate_memo->Lines->Clear();
 Violate_memo->Lines->LoadFromFile(filename);

 filename=CheyouTable->FindField("Accident_Doc")->AsString;
 Accident_memo->Lines->Clear();
 Accident_memo->Lines->LoadFromFile(filename);
}

void __fastcall TMainFormWin::N2Click(TObject *Sender)
{AnsiString filename;
 MemberEdit->Text="";
 Maintain_memo->Lines->Clear();
 Repair_memo->Lines->Clear();
 Violate_memo->Lines->Clear();
 Accident_memo->Lines->Clear();
 CheyouDataSource->AutoEdit=true;
 filename=CheyouTable->FindField("Maintain_Doc")->AsString;
 DeleteFile(filename);
 filename=CheyouTable->FindField("Repair_Doc")->AsString;
 DeleteFile(filename);
 filename=CheyouTable->FindField("Violate_Doc")->AsString;
 DeleteFile(filename);
 filename=CheyouTable->FindField("Accident_Doc")->AsString;
 DeleteFile(filename);

 CheyouDataSource->DataSet->Delete();
 CheyouDataSource->AutoEdit=false;
}
//---------------------------------------------------------------------------