mainform.~cpp

销售分析,JUSCO,日月周查询,待完善.

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

#include <vcl.h>
#pragma hdrstop

#include "mainform.h"
#include "daysql.h"
//#include "Unit1.h"
#include "datam.h"
//#include "sumsql.h"
#include "sas.h"
#include "chmain.h"
#include "monsql.h"
#include "sasbk.h"
#include "goods.h"
#include "vendor.h"
#include "prt.h"
#include "stock.h"
#include "LogOn.h"
#include <IniFiles.hpp>
#include "curr.h"
//#include "weeksql.h"
#include "weekquery.h"
//#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIMainMenu"
#pragma link "SUIStatusBar"
#pragma link "SUIDlg"
#pragma link "SUISideChannel"
#pragma link "SUIToolBar"
#pragma resource "*.dfm"
Tmain *main;
 AnsiString usr;
 AnsiString pwd;
 AnsiString store;
//---------------------------------------------------------------------------
__fastcall Tmain::Tmain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tmain::N2Click(TObject *Sender)
{
Tday *form=new Tday(this);
form->ShowModal();
delete form;
}
//---------------------------------------------------------------------------

void __fastcall Tmain::N7Click(TObject *Sender)
{
Tchoice *form=new Tchoice(this);
form->ShowModal();
delete form;
}
//---------------------------------------------------------------------------



void __fastcall Tmain::N11Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------


void __fastcall Tmain::N4Click(TObject *Sender)
{
Tmonth  * form= new Tmonth(this);
form->ShowModal();
delete form;
}
//---------------------------------------------------------------------------

void __fastcall Tmain::FormCreate(TObject *Sender)
{

   
  //if(pwd!=usr){
// Application->Terminate();
 //}
 //  TIniFile *ini;
 //  ini = new TIniFile( ChangeFileExt(Application->ExeName, ".ini" )) ;
 //store=ini->ReadString( "config", "store","0005");
 //delete ini;

   TIniFile *ini;

  ini = new TIniFile( ChangeFileExt(Application->ExeName, ".ini" )) ;
   if (!FileExists(Application->ExeName+".ini" )){
  
 ini->WriteString("config", "store","0005");
   ini->WriteString("update", "version","ver1.0");
 }
  store=ini->ReadString( "config", "store","0005");
 delete ini;


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







void __fastcall Tmain::N15Click(TObject *Sender)
{
Tgoodsform * form=new Tgoodsform(this);
form->ShowModal();
delete form;

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


void __fastcall Tmain::FormShow(TObject *Sender)
{


AnsiString str;
 suiPasswordDialog1->ShowModal();
 usr=suiPasswordDialog1->Item1Text.Trim();
 pwd=suiPasswordDialog1->Item2Text.Trim();

  dm->dayseq->Active=false;
 //  dm->monseq->Active=false;
   dm->tmp->Active=false;

  //  if  (!dm->dayseq->Prepared){
 //dm->dayseq->Prepare();
  //  }
    if(!dm->tmp->Prepared){
     dm->tmp->Prepare();
    }

    str="select * from user where user='"+usr+"'";// and password='"+pwd+"'";

try{
dm->tmp->Active=false;
dm->tmp->SQL->Clear();
dm->tmp->SQL->Add(str);
 dm->tmp->Active=true;



 }catch(...){
 }

   // if(dm->tmp->RecordCount==0)
// Application->Terminate();

dm->tmp->Active=false;
}
//---------------------------------------------------------------------------


void __fastcall Tmain::suiForm1Click(TObject *Sender)
{
 suiStatusBar1->SimpleText="用户"+usr+"在"+DateTimeToStr(Now())+"登陆";

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

void __fastcall Tmain::N16Click(TObject *Sender)
{
Tvend * form =new Tvend(this);
form->ShowModal();
delete form;

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




void __fastcall Tmain::N23Click(TObject *Sender)
{
Tstockfm *form=new Tstockfm (this);
form->ShowModal();
delete form;
}
//---------------------------------------------------------------------------

void __fastcall Tmain::N3Click(TObject *Sender)
{



 Tweekqu *form=new Tweekqu(this);
form->ShowModal();
delete form;
}
//---------------------------------------------------------------------------

void __fastcall Tmain::N12Click(TObject *Sender)
{
Tcurren * form=new Tcurren(this);
form->ShowModal();
delete form;
}
//---------------------------------------------------------------------------

void __fastcall Tmain::StaticText1Click(TObject *Sender)
{
day->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tmain::StaticText2Click(TObject *Sender)
{
weekqu->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tmain::StaticText3Click(TObject *Sender)
{
month->Show();
}
//---------------------------------------------------------------------------


void __fastcall Tmain::ToolButton1Click(TObject *Sender)
{
  Application->Terminate();
}
//---------------------------------------------------------------------------