datadict.cpp

速达开源ERP系统

{
       FloatPanel2->Visible =false;
       FloatPanel2->Align=alNone;
       sgDataDict->Visible =true;
       sgDataDict->Align=alClient;
}
//---------------------------------------------------------------------------

void __fastcall TfrmDataDict::btnCancelClick(TObject *Sender)
{
        CancelChange();
}
//---------------------------------------------------------------------------

void __fastcall TfrmDataDict::FormCreate(TObject *Sender)
{
        FormIniFile="D:\Test.Ini";
        SetGridWidth(Name,sgDataDict,FormIniFile);

        scFieldType->ClearAll();
        scFieldType->AddItems("C-字符型","C");
        scFieldType->AddItems("F-浮点型","F");
        scFieldType->AddItems("L-长整型","L");
        scFieldType->AddItems("N-整型","N");
        scFieldType->AddItems("S-短整型","S");
        scFieldType->AddItems("D-日期型(字符)","D");
        scFieldType->AddItems("B-布尔型","B");
        scFieldType->AddItems("M-文本型","M");
        scFieldType->AddItems("T-时间型","T");

        scHandWriting->ClearAll();
        scHandWriting->AddItems("0-普通(大小混)","0");
        scHandWriting->AddItems("1-大写","1");
        scHandWriting->AddItems("2-小写","2");

        scFieldStyle->ClearAll();
        scFieldStyle->AddItems("0-普通","0");
        scFieldStyle->AddItems("1-字符","1");
        scFieldStyle->AddItems("2-字母","2");
        scFieldStyle->AddItems("3-数学","3");
        scFieldStyle->AddItems("4-数字","4");

        scFieldNumbering->ClearAll();
        scFieldNumbering->AddItems("0-不编号","0");
        scFieldNumbering->AddItems("1-追加(忽略断号)","1");
        scFieldNumbering->AddItems("2-插值/追加(考虑断号)","2");
}
//---------------------------------------------------------------------------

void __fastcall TfrmDataDict::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        TBillBaseForm::FormClose(Sender,Action);
        WriteGridWidth(Name,sgDataDict,FormIniFile);
}

void __fastcall TfrmDataDict::FormShow(TObject *Sender)
{
        TBillBaseForm::MoveToFirst();
}
//---------------------------------------------------------------------------
void __fastcall TfrmDataDict::scFieldReferTableExit(TObject *Sender)
{
        if(scFieldReferTable->Text!="")
           FillComboBox(scFieldReferField,"SELECT FIELDNAME FROM SDFIELD WHERE FIELDTABLENAME='" +scFieldReferTable->Text+"' order by fieldno","FIELDNAME");
}
//---------------------------------------------------------------------------

void __fastcall TfrmDataDict::sgDataDictSelectCell(TObject *Sender,
      int ACol, int ARow, bool &CanSelect)
{
    if (ARow >   0)
         comServer->LocateItemByKey(WideString(sgDataDict->TextMatrix[ARow][2]));
    if (!comServer->Eof)
         GetDataFromComObject(2);
}
//---------------------------------------------------------------------------


void __fastcall TfrmDataDict::sgDataDictDblClick(TObject *Sender)
{
         sgDataDict->Visible=false;
         sgDataDict->Align = alNone;
         FloatPanel2->Visible=true;
         FloatPanel2->Align=alClient;
         btnOK->Enabled=false;
         btnCancel->Enabled=true;

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




void __fastcall TfrmDataDict::chkFieldForeignKeyClick(TObject *Sender)
{
  if(chkFieldForeignKey->Checked==true)
  {
    scFieldReferTable->Enabled=true;
    if(scFieldReferTable->Items->Count>0)
      scFieldReferTable->ItemIndex=0;
    scFieldReferField->Enabled=true;
  }
  else
  {
    scFieldReferTable->ItemIndex=-1;
    scFieldReferTable->Enabled=false;
    scFieldReferField->Clear();
    scFieldReferField->ItemIndex=-1;
    scFieldReferField->Enabled=false;
  }

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

void __fastcall TfrmDataDict::chkFieldAutoNoClick(TObject *Sender)
{
  if(chkFieldAutoNo->Checked==true)
  {
    scFieldNumbering->Enabled=true;
    scFieldNumbering->ItemIndex=1;
  }
  else
  {
    scFieldNumbering->Enabled=false;
    scFieldNumbering->ItemIndex=0;
  }
}
//---------------------------------------------------------------------------

void __fastcall TfrmDataDict::scFieldTypeChange(TObject *Sender)
{
    switch(scFieldType->ItemIndex)
    {
      case 0:
        seFieldWidth->Enabled=true;
        seFieldWidth->Text="18";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 1:
        seFieldWidth->Enabled=true;
        seFieldWidth->Text="12";
        seFieldDecimal->Enabled=true;
        seFieldDecimal->Text="0";
        break;
      case 2:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="10";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 3:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="5";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 4:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="1";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 5:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="10";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 6:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="1";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 7:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="10";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 8:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="8";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
    }

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

void __fastcall TfrmDataDict::scFieldTypeExit(TObject *Sender)
{
    switch(scFieldType->ItemIndex)
    {
      case 0:
        seFieldWidth->Enabled=true;
        seFieldWidth->Text="18";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 1:
        seFieldWidth->Enabled=true;
        seFieldWidth->Text="12";
        seFieldDecimal->Enabled=true;
        seFieldDecimal->Text="0";
        break;
      case 2:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="10";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 3:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="5";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 4:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="1";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 5:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="10";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 6:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="1";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 7:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="10";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
      case 8:
        seFieldWidth->Enabled=false;
        seFieldWidth->Text="8";
        seFieldDecimal->Enabled=false;
        seFieldDecimal->Text="0";
        break;
    }
}
//---------------------------------------------------------------------------


void __fastcall TfrmDataDict::scTableTypeClick(TObject *Sender)
{
  seTableClassId->Text=scTableType->ItemData[1];
}
//---------------------------------------------------------------------------



void __fastcall TfrmDataDict::seTableNameKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seTableName->Text));
      DisplayBill();
    }  
}
//---------------------------------------------------------------------------