inoutxj.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "inoutXJ.h"
#include "DataModule.h"
#include "oneJSD.h"
#include "fdJSD.h"
#include "addKH.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TioXJForm *ioXJForm;
//---------------------------------------------------------------------------
__fastcall TioXJForm::TioXJForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TioXJForm::FormCreate(TObject *Sender)
{
       //1610000001结算单号 
}
//---------------------------------------------------------------------------
void __fastcall TioXJForm::JSBtnClick(TObject *Sender)
{
      if(RadioGroup1->ItemIndex==0)
      {
                TfdJSForm *fdJSForm=new TfdJSForm(this);
                fdJSForm->KHname->Text=KHname->Text;
                if(Edit2->Text.ToDouble()==0)
                {
                      fdJSForm->postBtn->Enabled=false;
                      fdJSForm->printBtn->Enabled=false;
                }else{
                        if(Edit2->Text.ToDouble()>0){
                                fdJSForm->Label4->Caption="收款单";
                                fdJSForm->Label5->Caption="今收到";
                                fdJSForm->Money->Text=Edit2->Text;
                        }else if(Edit2->Text.ToDouble()<0){
                                fdJSForm->Label4->Caption="付款单";
                                fdJSForm->Label5->Caption="今付给";
                                fdJSForm->Money->Text=0-Edit2->Text.ToDouble();
                        }
                        DM->ADOQ->Last();
                        if(DM->ADOQ->FieldByName("事务")->AsString.Trim()=="一次结算")
                        {
                                 AnsiString str=DM->ADOQ->FieldByName("单号")->AsString.Trim();
                                 str+="结余";
                                 str+=DM->ADOQ->FieldByName("结余金额")->AsString.Trim();
                                 fdJSForm->CheckListBox1->Items->Add(str);
                                 fdJSForm->CheckListBox1->Checked[0]=true;
                        }else{
                                 DM->ADOQ->First();
                                 int n=0;
                                 while(!DM->ADOQ->Eof){
                                        AnsiString str=DM->ADOQ->FieldByName("单号")->AsString.Trim();
                                        str+=DM->ADOQ->FieldByName("事务")->AsString.Trim();
                                        str+=DM->ADOQ->FieldByName("结余金额")->AsString.Trim();
                                        fdJSForm->CheckListBox1->Items->Add(str);
                                        fdJSForm->CheckListBox1->Checked[n]=true;
                                        n++;
                                        DM->ADOQ->Next();
                                 }
                        }
                }
                fdJSForm->ShowModal();
                delete  fdJSForm;
      }else if(RadioGroup1->ItemIndex==1){
                ToneJSForm *oneJSForm=new ToneJSForm(this);
                double n;
                n=Edit2->Text.ToDouble();
                if(n>0){
                        oneJSForm->RadioGroup1->ItemIndex=0;
                        oneJSForm->Label4->Caption="收款单";
                        oneJSForm->Label5->Caption="今收到";
                }else if(n<0){
                        oneJSForm->RadioGroup1->ItemIndex=1;
                        oneJSForm->Label4->Caption="付款单";
                        oneJSForm->Label5->Caption="今付给";
                }

                oneJSForm->noSum->Text=Edit2->Text;
                oneJSForm->KHname->Text=KHname->Text;
                oneJSForm->ShowModal();
                delete  oneJSForm;
      }
      getDataBtn->Click();
}
//---------------------------------------------------------------------------
void __fastcall TioXJForm::SpeedButton1Click(TObject *Sender)
{
        DM->ADOQ_KHinfo->Close();
        DM->ADOQ_KHinfo->SQL->Clear();
        DM->ADOQ_KHinfo->SQL->Add("select * from 客户资料表");
        DM->ADOQ_KHinfo->Open();
        //打开增加客户窗口
        TaddKHForm *addKHForm=new TaddKHForm(this);
        addKHForm->ShowModal();
        KHname->Text=addKHForm->KHname;
        delete addKHForm;
}
//---------------------------------------------------------------------------


void __fastcall TioXJForm::getDataBtnClick(TObject *Sender)
{
        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        AnsiString str="select * from 应收应付明细表 where 结算单号 is null and 客户名称='";
        str+=KHname->Text;
        str+="'";
        DM->ADOQ->SQL->Add(str);
        DM->ADOQ->Open();
        DM->ADOQ->Last();
        double sum;
        if(DM->ADOQ->FieldByName("事务")->AsString.Trim()=="分单结算")
                Edit2->Text="0.00";
        else if(DM->ADOQ->FieldByName("事务")->AsString.Trim()=="一次结算")
                Edit2->Text=DM->ADOQ->FieldByName("结余金额")->AsString;
        else{
                DM->ADOQ->First();
                sum=0.0;
                while(!DM->ADOQ->Eof){
                            sum+=DM->ADOQ->FieldByName("结余金额")->AsString.ToDouble();
                            DM->ADOQ->Next();
                }
                Edit2->Text=sum;
        }
}
//---------------------------------------------------------------------------

void __fastcall TioXJForm::closeBtnClick(TObject *Sender)
{

       Close();
}
//---------------------------------------------------------------------------

void __fastcall TioXJForm::CheckBox1Click(TObject *Sender)
{
       if(CheckBox1->Checked){
                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                AnsiString str="select * from 应收应付明细表 where 结算单号 is null and 客户名称='";
                str+=KHname->Text;
                str+="'";
                //ShowMessage(str);
                DM->ADOQ->SQL->Add(str);
                DM->ADOQ->Open();
       }else{
                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                AnsiString str="select * from 应收应付明细表 where 客户名称='";
                str+=KHname->Text;
                str+="'";
                DM->ADOQ->SQL->Add(str);
                DM->ADOQ->Open();
       }
}
//---------------------------------------------------------------------------


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