main.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include "SPinfo.h"
#include "SPLBinfo.h"
#include "login.h"
#include "KHinfo.h"
#include "QYinfo.h"
#include "CKinfo.h"
#include "BMinfo.h"
#include "KMinfo.h"
#include "JSinfo.h"
#include "workinfo.h"
#include "QXinfo.h"
#include "mmEdit.h"
#include "inCK_manage.h"
#include "BS_manage.h"
#include "outCK_manage.h"
#include "outSP_manage.h"
#include "TK_manage.h"
#include "ZK_manage.h"
#include "startPD.h"
#include "pdData.h"
#include "toYK.h"
#include "inoutXJ.h"
#include "mRecord.h"
#include "KemuTji.h"
#include "wage.h"
#include "BMwage.h"
#include "inoutSum.h"
#include "MdayBao.h"
#include "cageSum.h"
#include "outBG.h"
#include "YKpdSeach.h"
#include "ioSearch.h"
#include "SPyxDay.h"
#include "SPkcSeach.h"
#include "KHsum.h"
#include "KHsale.h"
#include "LBsale.h"
#include "aSPsale.h"
#include "SPiofs.h"
#include "QYsale.h"
#include "KHpay.h"
#include "help.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TmainForm *mainForm;
//---------------------------------------------------------------------------
__fastcall TmainForm::TmainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TmainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
           Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TmainForm::N14Click(TObject *Sender)
{
         TSPForm *SPForm=new TSPForm(this);
         SPForm->ShowModal();
         delete  SPForm;
}
//---------------------------------------------------------------------------
void __fastcall TmainForm::N18Click(TObject *Sender)
{
        TLBForm *LBForm=new TLBForm(this);
        LBForm->ShowModal();
        delete  LBForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N16Click(TObject *Sender)
{
        TKHForm *KHForm=new TKHForm(this);
        KHForm->ShowModal();
        delete  KHForm;
}
//---------------------------------------------------------------------------


void __fastcall TmainForm::N17Click(TObject *Sender)
{
        TQYForm *QYForm=new TQYForm(this);
        QYForm->ShowModal();
        delete  QYForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N19Click(TObject *Sender)
{
        TCKForm *CKForm=new TCKForm(this);
        CKForm->ShowModal();
        delete  CKForm;
}
//---------------------------------------------------------------------------


void __fastcall TmainForm::N23Click(TObject *Sender)
{
        TBMForm *BMForm=new TBMForm(this);
        BMForm->ShowModal();
        delete  BMForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N24Click(TObject *Sender)
{
        TKMForm *KMForm=new TKMForm(this);
        KMForm->ShowModal();
        delete  KMForm;
}
//---------------------------------------------------------------------------


void __fastcall TmainForm::N21Click(TObject *Sender)
{
        TworkForm *workForm=new TworkForm(this);
        workForm->ShowModal();
        delete  workForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N55Click(TObject *Sender)
{
        TJSForm *JSForm=new TJSForm(this);
        JSForm->ShowModal();
        delete  JSForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N56Click(TObject *Sender)
{
        TQXForm *QXForm=new TQXForm(this);
        QXForm->ShowModal();
        delete  QXForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N61Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N62Click(TObject *Sender)
{
        TmmForm *mmForm=new TmmForm(this);
        mmForm->ShowModal();
        delete  mmForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N2Click(TObject *Sender)
{
        TinForm *inForm=new TinForm(this);
        inForm->ShowModal();
        delete  inForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N3Click(TObject *Sender)
{
        ToutSPForm *outSPForm=new ToutSPForm(this);
        outSPForm->ShowModal();
        delete  outSPForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N4Click(TObject *Sender)
{
        TzkForm *zkForm=new TzkForm(this);
        zkForm->ShowModal();
        delete  zkForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N6Click(TObject *Sender)
{
        ToutCKForm *outCKForm=new ToutCKForm(this);
        outCKForm->ShowModal();
        delete  outCKForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N7Click(TObject *Sender)
{
        TtkForm *tkForm=new TtkForm(this);
        tkForm->ShowModal();
        delete  tkForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N8Click(TObject *Sender)
{
        TbsForm *bsForm=new TbsForm(this);
        bsForm->ShowModal();
        delete  bsForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N10Click(TObject *Sender)
{
        TpdForm *pdForm=new TpdForm(this);
        pdForm->ShowModal();
        delete  pdForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N11Click(TObject *Sender)
{
        TpdindataForm *pdindataForm=new TpdindataForm(this);
        pdindataForm->ShowModal();
        delete  pdindataForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N12Click(TObject *Sender)
{
        TykForm *ykForm=new TykForm(this);
        ykForm->ShowModal();
        delete  ykForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N25Click(TObject *Sender)
{
        TioXJForm *ioXJForm=new TioXJForm(this);
        ioXJForm->ShowModal();
        delete  ioXJForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N27Click(TObject *Sender)
{
        TmRecordForm *mRecordForm=new TmRecordForm(this);
        mRecordForm->ShowModal();
        delete  mRecordForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N28Click(TObject *Sender)
{
        TkmtjForm *kmtjForm=new TkmtjForm(this);
        kmtjForm->ShowModal();
        delete  kmtjForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N30Click(TObject *Sender)
{
        TwageForm *wageForm=new TwageForm(this);
        wageForm->ShowModal();
        delete  wageForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N31Click(TObject *Sender)
{
        TBMwageForm *BMwageForm=new TBMwageForm(this);
        BMwageForm->ShowModal();
        delete  BMwageForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N33Click(TObject *Sender)
{
        TioSumForm *ioSumForm=new TioSumForm(this);
        ioSumForm->ShowModal();
        delete  ioSumForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N34Click(TObject *Sender)
{
        TMdayBaoForm *MdayBaoForm=new TMdayBaoForm(this);
        MdayBaoForm->ShowModal();
        delete  MdayBaoForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N35Click(TObject *Sender)
{
        TcageSumForm *cageSumForm=new TcageSumForm(this);
        cageSumForm->ShowModal();
        delete  cageSumForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N37Click(TObject *Sender)
{
        ToutBGForm *outBGForm=new ToutBGForm(this);
        outBGForm->ShowModal();
        delete  outBGForm;
}
//---------------------------------------------------------------------------


void __fastcall TmainForm::N38Click(TObject *Sender)
{
        TYKpdSeachForm *YKpdSeachForm=new TYKpdSeachForm(this);
        YKpdSeachForm->ShowModal();
        delete  YKpdSeachForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N40Click(TObject *Sender)
{
        TioSearchForm *ioSearchForm=new TioSearchForm(this);
        ioSearchForm->ShowModal();
        delete  ioSearchForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N43Click(TObject *Sender)
{
        TSPyxDayForm *SPyxDayForm=new TSPyxDayForm(this);
        SPyxDayForm->ShowModal();
        delete  SPyxDayForm;
}
//---------------------------------------------------------------------------


void __fastcall TmainForm::N42Click(TObject *Sender)
{
        TSPkcForm *SPkcForm=new TSPkcForm(this);
        SPkcForm->ShowModal();
        delete  SPkcForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N45Click(TObject *Sender)
{
        TKHsumForm *KHsumForm=new TKHsumForm(this);
        KHsumForm->ShowModal();
        delete  KHsumForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N46Click(TObject *Sender)
{
        TKHsaleForm *KHsaleForm=new TKHsaleForm(this);
        KHsaleForm->ShowModal();
        delete  KHsaleForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N48Click(TObject *Sender)
{
        TLBsaleForm *LBsaleForm=new TLBsaleForm(this);
        LBsaleForm->ShowModal();
        delete  LBsaleForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N49Click(TObject *Sender)
{
        TaSPsaleForm *aSPsaleForm=new TaSPsaleForm(this);
        aSPsaleForm->ShowModal();
        delete  aSPsaleForm;
}
//---------------------------------------------------------------------------


void __fastcall TmainForm::N50Click(TObject *Sender)
{
        TiofsForm *iofsForm=new TiofsForm(this);
        iofsForm->ShowModal();
        delete  iofsForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N52Click(TObject *Sender)
{
        TQYsaleForm *QYsaleForm=new TQYsaleForm(this);
        QYsaleForm->ShowModal();
        delete  QYsaleForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N53Click(TObject *Sender)
{
        TKHpayForm *KHpayForm=new TKHpayForm(this);
        KHpayForm->ShowModal();
        delete  KHpayForm;
}
//---------------------------------------------------------------------------

void __fastcall TmainForm::N65Click(TObject *Sender)
{
        ShowMessage("没有帮助文件！");
}
//---------------------------------------------------------------------------


void __fastcall TmainForm::N66Click(TObject *Sender)
{
        ThelpForm *helpForm=new ThelpForm(this);
        helpForm->ShowModal();
        delete  helpForm;
}
//---------------------------------------------------------------------------