formset.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "FormSet.h"
#include "QuForm.h"
#include "gvar.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmFormSet *frmFormSet;
//---------------------------------------------------------------------------
__fastcall TfrmFormSet::TfrmFormSet(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

__fastcall TfrmFormSet::TfrmFormSet(TComponent* Owner,AnsiString FormName)
  : TForm(Owner)
{
  fFormName=FormName;
}
//---------------------------------------------------------------------------

int __fastcall TfrmFormSet::GetAutoQuery()
{
  return ckQuery->Checked ?1:0; 
}

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

void __fastcall TfrmFormSet::SetAutoQuery(int value)
{
  if(value==1)
    ckQuery->Checked=true;
  else
    ckQuery->Checked=false;
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmFormSet::GetQueryString()
{
  return seQuery->Text;
}

//---------------------------------------------------------------------------
void __fastcall TfrmFormSet::SetQueryString(AnsiString value)
{
  seQuery->Text=value;
}
//---------------------------------------------------------------------------

int __fastcall TfrmFormSet::GetAutoGenrate()
{
  return ckGenrate->Checked?1:0;
}

void __fastcall TfrmFormSet::SetAutoGenrate(int value)
{
  if(value==1)
    ckGenrate->Checked=true;
  else
    ckGenrate->Checked=false;
}

void __fastcall TfrmFormSet::ckQueryClick(TObject *Sender)
{
  if(ckQuery->Checked)
    sbQuery->Enabled=true;
  else
  {
    seQuery->Text="";
    sbQuery->Enabled=false;
  }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFormSet::ckGenrateClick(TObject *Sender)
{
  AnsiString SqlStr;
  if(ckGenrate->Checked)
  {
    TComResultSet *CanAutoDoc;
    CanAutoDoc=NewResultSet();
    SqlStr="select * from sdfuc where fucFormName='"+fFormName+"'";
    CanAutoDoc->Open(SqlStr,"");
    if(CanAutoDoc->RecordCount==0)
    {
      ckGenrate->Checked=false;
      CanAutoDoc->Close();
      throw Exception("该功能模块不能自动编号");
    }
    CanAutoDoc->Close();
    delete CanAutoDoc;
  }
}
//---------------------------------------------------------------------------


void __fastcall TfrmFormSet::bbCancelClick(TObject *Sender)
{
  fCancelFormSet=true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFormSet::bbOKClick(TObject *Sender)
{
  fCancelFormSet=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFormSet::sbQueryClick(TObject *Sender)
{
  TfrmQuForm *QuForm=new TfrmQuForm(this,fFormName);
  QuForm->ShowModal();
  if(!QuForm->CancelQuery)
    seQuery->Text=QuForm->CreateSqlString;
  delete QuForm;
}
//---------------------------------------------------------------------------