bossmanage.cpp

用C++ Builder编写的个人财务管理软件

int __fastcall TMainForm::SaveParame()
{
    AnsiString selfPath = ExtractFilePath( Application->ExeName );
    AnsiString iniFilename = ChangeFileExt( Application->ExeName, ".INI" );

    TIniFile *ini;

    ini = new TIniFile( iniFilename );
    ini->WriteInteger("Form","Left",this->Left );
    ini->WriteInteger("Form","Top",this->Top );
    ini->WriteInteger("Form","Width",this->Width );
    ini->WriteInteger("Form","Height",this->Height  );
    //AnsiString sval;
    //ini->WriteString("DataBase","UserName",Users[1].GetUserName() );

    //sval = IntToStr(GGNo-1);
//   ini->WriteString("DataBase","GGNO", sval );
//    ini->WriteString("DataBase","LastDate",LastDate );

    SaveCombox(ini ,  ComboBoxCity );
    SaveCombox(ini ,  MakerNameComboBox );

    delete ini;

 /*   TRegistry *Reg = new TRegistry;
    try
    {
     Reg->RootKey = HKEY_LOCAL_MACHINE ;

      if (Reg->OpenKey("\\Software\\sdk2000\\Common", true ))
       {
        Reg->WriteString("PicPath" ,PicPath );
        Reg->CloseKey();
       }
   }

  __finally
  {
    delete Reg;

  }  */
    return 1;
}
//---------------------------------------------------------------------------
void  __fastcall TMainForm::LoadCombox(TIniFile *ini, TComboBox *mBox )
{
    AnsiString sSection = mBox->Name;
    try{

        int iCount  = ini->ReadInteger(sSection,"Count",0 );
        AnsiString s1;

        for ( int i = 0; i < iCount ; i++ )
           {
            s1 = ini->ReadString(sSection ,"Item"+IntToStr(i),"");
            mBox->Items->Add( s1 );
           }
        s1 = ini->ReadString(sSection ,"Txt","" );
        mBox->Text = s1;
        }
     catch(...)
       {
      }

}
//---------------------------------------------------------------------------
int __fastcall TMainForm::ResetParame()
{
    AnsiString selfPath = ExtractFilePath( Application->ExeName );
    AnsiString iniFilename =   ChangeFileExt( Application->ExeName, ".INI" );
    TIniFile *ini;
    ini = new TIniFile( iniFilename );

    this->Left = ini->ReadInteger("Form","Left",5);
    this->Top = ini->ReadInteger("Form","Top",5);
    this->Width = ini->ReadInteger("Form","Width",1020);
    this->Height = ini->ReadInteger("Form","Height",760);

    LoadCombox(ini ,  ComboBoxCity );
    LoadCombox(ini ,  MakerNameComboBox);

    delete ini;
    return 1;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FirstRecordClick(TObject *Sender)
{
    if(DingWeiFlag)
{
 SetJLForm->QueryDingWei->First();
 StatusBarMain->Panels->Items[2]->Text = "第 " + String (SetJLForm->QueryDingWei->RecNo) + " / " + String(SetJLForm->QueryDingWei->RecordCount) + "个 记录";
 DisplayDwRecord( );
 NextRecord->Enabled  = true;
 PreRecord->Enabled = false;
 LastRecord->Enabled = true;
}
else
{
try
 {
   if( !CheckUpdate ( ))
       return;
 //   TableSpdCarInfo->Active = true ;
//    TableSpdCarInfo->Open();
    TableSpdCarInfo->First() ;
    DisplayRecord();
    NextRecord->Enabled  = true;
    PreRecord->Enabled = false;
    LastRecord->Enabled = true;
    StatusBarMain->Panels->Items[2]->Text = "第 " + String (TableSpdCarInfo->RecNo) + " / " + String(TableSpdCarInfo->RecordCount) + "个 记录";

 }
 catch(...)
 {}
 }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::PreRecordClick(TObject *Sender)
{
    if(DingWeiFlag)
{
 SetJLForm->QueryDingWei->Prior();
 StatusBarMain->Panels->Items[2]->Text = "第 " + String (SetJLForm->QueryDingWei->RecNo) + " / " + String(SetJLForm->QueryDingWei->RecordCount) + "个 记录";
 DisplayDwRecord( );
  NextRecord->Enabled  = true;
  LastRecord->Enabled = true;
}
else
{
  try
    {
    if( !CheckUpdate ( ))
        return;
     if(!TableSpdCarInfo->Active)
    {
    TableSpdCarInfo->Open();
    }
      TableSpdCarInfo->MoveBy(-1);
      DisplayRecord();
      NextRecord->Enabled  = true;
      LastRecord->Enabled = true;
      StatusBarMain->Panels->Items[2]->Text = "第 " + String (TableSpdCarInfo->RecNo) + " / " + String(TableSpdCarInfo->RecordCount) + "个 记录";

    }
    catch(...)
    {}
   }

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

void __fastcall TMainForm::NextRecordClick(TObject *Sender)
{
   if(DingWeiFlag)
{
 SetJLForm->QueryDingWei->Next();
 StatusBarMain->Panels->Items[2]->Text = "第 " + String (SetJLForm->QueryDingWei->RecNo) + " / " + String(SetJLForm->QueryDingWei->RecordCount) + "个 记录";
 DisplayDwRecord( );
 PreRecord->Enabled  = true;
 FirstRecord->Enabled = true;
 LastRecord->Enabled = true;
}
else
{
 try
    {
       if( !CheckUpdate ( ))
         return;
if(!TableSpdCarInfo->Active)
    {
    TableSpdCarInfo->Open();
    }
      TableSpdCarInfo->MoveBy( 1);
      DisplayRecord();
      PreRecord->Enabled  = true;
      FirstRecord->Enabled = true;
      LastRecord->Enabled = true;
      StatusBarMain->Panels->Items[2]->Text = "第 " + String (TableSpdCarInfo->RecNo) + " / " + String(TableSpdCarInfo->RecordCount) + "个 记录";

     }
     catch(...)
     {}
 }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::LastRecordClick(TObject *Sender)
{
    if(DingWeiFlag)
{
 SetJLForm->QueryDingWei->Last();
 StatusBarMain->Panels->Items[2]->Text = "第 " + String (SetJLForm->QueryDingWei->RecNo) + " / " + String(SetJLForm->QueryDingWei->RecordCount) + "个 记录";
 DisplayDwRecord( );
  NextRecord->Enabled  = false;
    PreRecord->Enabled = true;
    FirstRecord->Enabled = true;
}
else
{
try
 {
    if( !CheckUpdate ( ))
       return;
//    TableSpdCarInfo->Active = true ;
//    TableSpdCarInfo->Open();
    TableSpdCarInfo->Last() ;
    DisplayRecord();
    NextRecord->Enabled  = false;
    PreRecord->Enabled = true;
    FirstRecord->Enabled = true;
    StatusBarMain->Panels->Items[2]->Text = "第 " + String (TableSpdCarInfo->RecNo) + " / " + String(TableSpdCarInfo->RecordCount) + "个 记录";
 }
 catch(...)
 {}
 }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::DeleteRecordClick(TObject *Sender)
{
   if(DingWeiFlag)
{
   SetJLForm->QueryDingWei->RecNo;
    if( SetJLForm->QueryDingWei->RecordCount >0 )
    {
     SetJLForm->QueryDingWei->Delete();
// StatusBarMain->Panels->Items[2]->Text = "第 " + String (SetJLForm->QueryDingWei->RecNo) + " / " + String(SetJLForm->QueryDingWei->RecordCount) + "个 记录";
    DisplayDwRecord( );
    }
}
else
{
 if(!TableSpdCarInfo->Active)//////
 TableSpdCarInfo->Active=true;/////
 TableSpdCarInfo->RecNo;
    if( TableSpdCarInfo->RecordCount >0 )
    {
       //AnsiString Skey =  TableSpdCarInfo->FieldByName("Skey")->AsString;
      TableSpdCarInfo->Delete();
    }
   DisplayRecord();
 }  
}
//---------------------------------------------------------------------------



void __fastcall TMainForm::Timer2Timer(TObject *Sender)
{
Panel3->Top=Panel3->Top-1;
if(Panel3->Top+Panel3->Height==0)
Panel3->Top=Panel2->Height;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Timer3Timer(TObject *Sender)
{
Label10->Font->Color=(Graphics::TColor)random(65535);//随机取颜色
Label11->Font->Color=(Graphics::TColor)random(65535);//随机取颜色
Label12->Font->Color=(Graphics::TColor)random(65535);//随机取颜色
Label13->Font->Color=(Graphics::TColor)random(65535);//随机取颜色
Label14->Font->Color=(Graphics::TColor)random(65535);//随机取颜色
Label15->Font->Color=(Graphics::TColor)random(65535);//随机取颜色
//CountBitBtn->Font->Color=(Graphics::TColor)random(65535);//随机取颜色
//Panel2->Color=(Graphics::TColor)random(65535);//随机取颜色
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::CityAddClick(TObject *Sender)
{
// AddDelForm->ShowModal();
if(AddDelForm->ShowModal()==mrOk)
{
if(AddDelForm->ZoneEdit->Text=="")
{
ShowMessage("您输入的地区/城市不能为空！");
return;
}
else
{
ShowMessage("确定要添加您输入的地区/城市！");
ComboBoxCity->Items->Add(AddDelForm->ZoneEdit->Text.Trim());
//int CurPosi = ComboBoxCity->ItemIndex ;
//ComboBoxCity->Items->Move(CurPosi, 0);

}
}

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

void __fastcall TMainForm::CityDelClick(TObject *Sender)
{
if(CityDeleteForm->ShowModal()==mrOk)
{
 if(CityDeleteForm->ZoneEdit1->Text=="")
 {
  ShowMessage("您输入的地区/城市为空！");
  return;
 }
 else
 {
 AnsiString delcity;
 delcity=CityDeleteForm->ZoneEdit1->Text.Trim();
 int index;
 index=ComboBoxCity->Items->Count;
 for(int i=0;i<index;i++)
 {
  if(ComboBoxCity->Items->Strings[i]==delcity)
  {
  ComboBoxCity->ItemIndex=i;
  ComboBoxCity->DeleteSelected();
  break;
  }
 }
 //pmDeleteDDClick(NULL);
 }
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::QueryRecClick(TObject *Sender)
{
QueryDataForm->ComboBoxQueryCity->Items=ComboBoxCity->Items;
QueryDataForm->StaZoneComboBox->Items=ComboBoxCity->Items;
QueryDataForm->ShowModal();

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

void __fastcall TMainForm::pmDeleteDDClick(TObject *Sender)
{
TComponent *pComponent = PopupMenuDelete->PopupComponent;
 TComboBox *Combox0;
 if( !pComponent )
     return;

 if (pComponent->ClassNameIs("TComboBox"))
      Combox0 = (TComboBox *)pComponent;
 else
     return;

 AnsiString s1 =  Combox0->Text;
 int index0;
 if(   (index0 = Combox0->Items->IndexOf(s1)) != -1)
     Combox0->Items->Delete(index0);
 if( Combox0->Items->Count >0)
     Combox0->ItemIndex = 0;
 else
     Combox0->Text = "";        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::PreBrowseClick(TObject *Sender)
{
 FormStatistic->tablemakername=MakerNameComboBox->Text.Trim();
FormStatistic->Show();
 FormStatistic->ComboBoxStatistic->Items=ComboBoxCity->Items;
 //FormStatistic->ComboBoxStatistic->Items=ComboBoxCity->Items;
 //FormStatistic->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::DataOutClick(TObject *Sender)
{
Dat_OutForm->ComboBoxDataOut->Items=ComboBoxCity->Items;
Dat_OutForm->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::DataInClick(TObject *Sender)
{
Dat_InForm->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Panel3MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Timer2->Enabled=false;
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::GroupBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Timer2->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Timer2->Enabled=true;        
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall  TMainForm::ButtonStatus( )
{
 if(browserecord)
 {
 FirstRecord->Enabled=true;
 PreRecord->Enabled=true;
 NextRecord->Enabled=true;
 LastRecord->Enabled=true;
 LocateRecord->Enabled=true;
 DeleteRecord->Enabled=true;
 }
if(enterrecord)
{
 FirstRecord->Enabled=false;
 PreRecord->Enabled=false;
 NextRecord->Enabled=false;
 LastRecord->Enabled=false;
 LocateRecord->Enabled=false;
 DeleteRecord->Enabled=false;
}

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

void __fastcall TMainForm::LocateRecordClick(TObject *Sender)
{
if( !CheckUpdate ( ))
        return;
SetJLForm->LocateComboBoxCity->Items=ComboBoxCity->Items;
if(SetJLForm->ShowModal()==mrOk)
{
DingWeiFlag=true;
 SetJLForm->QueryDingWei->Last();
  StatusBarMain->Panels->Items[2]->Text = "第 " + String (SetJLForm->QueryDingWei->RecNo) + " / " + String(SetJLForm->QueryDingWei->RecordCount) + "个 记录";
DisplayDwRecord( );
}        
}
//---------------------------------------------------------------------------
void __fastcall  TMainForm::DisplayDwRecord( )
{
try
  {
    ComboBoxCity->Text = SetJLForm->QueryDingWei->FieldByName("DiShi")->AsString.Trim();
  EnterDate->Text = SetJLForm->QueryDingWei->FieldByName("RiQi")->AsString.Trim();
  EnterTime->Text = SetJLForm->QueryDingWei->FieldByName("ShiJian")->AsString.Trim();
  CashIn->Text =  SetJLForm->QueryDingWei->FieldByName("ShouRu")->AsString.Trim();
  CashOut->Text  = SetJLForm->QueryDingWei->FieldByName("ZhiChu")->AsString.Trim();
  CashNet->Text  = SetJLForm->QueryDingWei->FieldByName("YuE")->AsString.Trim() ;
  AbstractEdit->Text = SetJLForm->QueryDingWei->FieldByName("ZhaiYao")->AsString.Trim() ;
}
    __finally
  {

   HaveModified = false;
   UpdateRecord->Enabled = false;
   mDisplayRecord = false;
   };

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

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




void __fastcall TMainForm::BrowseInfoAllClick(TObject *Sender)
{
 AllBrowseForm->ShowModal();       
}
//---------------------------------------------------------------------------



void __fastcall TMainForm::MakerNameComboBoxKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{

TComboBox *Combox0;
if (Sender->ClassNameIs("TComboBox") )
    Combox0 = (TComboBox *)Sender;
else
    return;
AnsiString s1 =  Combox0->Text;
 if(Key == 0xd)
  {
   if(    Combox0->Items->IndexOf(s1) == -1)
     Combox0->Items->Add( s1 );

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