unit24.cpp

光学仪器的控制系统 用于教学和科研的仪器

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

#include <vcl.h>
#pragma hdrstop

#include "Unit24.h"
#include "Unit1.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgCurveInfo *DlgCurveInfo;
//---------------------------------------------------------------------------
__fastcall TDlgCurveInfo::TDlgCurveInfo(TComponent* Owner)
        : TForm(Owner)
{
    m_iBtn = 0;
}
//---------------------------------------------------------------------------
int TDlgCurveInfo::ShowMe(void)
{
    AnsiString str;
    char gs[80];
    m_iBtn = 0;

    edOper->Text = Form1->ptc.oper;
    edName->Text = Form1->ptc.samp;
    
  str = "测量模式  ：";

  switch(Form1->ptc.m1)
  {
   case 1: str += "透过率";break;
   case 2: str += "吸光度";break;
   case 3: str += "能量";break;
  }
  str += '\n';

  //扫描速度
  str += "扫描速度  ：";
  switch(Form1->ptc.interval)
  {
   case 1:str += "快速(1.0 nm)";break;
   case 2:str += "中速(0.5 nm)";break;
   case 3:str += "慢速(0.1 nm)";break;
   case 4:str += "最慢(0.025 nm)";break;
  }
  str += '\n';

  //工作光源
  str += "工作光源  ：";
  switch(Form1->ptc.lamp)
  {
   case 0:str += "手动";break;
   case 1:str += "氘灯";break;
   case 2:str += "钨灯";break;
   case 3:str += "自动";break;
   case 4:str += "";break;
  }
  str += '\n';

  //狭缝宽度
  str += "狭缝宽度  ：";
  switch(Form1->ptc.slit)
  {
   case 0:str += "手动";break;
   case 1:str += "0.15 nm";break;
   case 2:str += "0.3 nm";break;
   case 3:str += "0.5 nm";break;
   case 4:str += "1.0 nm";break;
   case 5:str += "2.0 nm";break;
  }
  str += '\n';

  //范围
  sprintf(gs, "波长范围  ：%1.2f - %1.2f nm", Form1->wns, Form1->wne);
  str += gs;
  str += '\n';

  //测试日期
  str += "测试日期  ：";
  str += IntToStr(Form1->ptc.dattim[1]); str += "-";
  str += IntToStr(Form1->ptc.dattim[2]); str += "-";
  str += IntToStr(Form1->ptc.dattim[3]); str += "   ";
  str += IntToStr(Form1->ptc.dattim[4]); str += ":";
  str += IntToStr(Form1->ptc.dattim[5]); str += ":";
  str += IntToStr(Form1->ptc.dattim[6]);

  lbOther->Caption = str;

  GroupBox1->Height = lbOther->Top + lbOther->Height + 10;
  btnOK->Top = GroupBox1->Top + GroupBox1->Height + 10;
  btnCancel->Top = btnOK->Top;

  ClientHeight = btnCancel->Top + btnCancel->Height + 10;
  
    ShowModal();
    return m_iBtn;
}
//---------------------------------------------------------------------------
void __fastcall TDlgCurveInfo::btnOKClick(TObject *Sender)
{
    m_iBtn = 1;
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TDlgCurveInfo::btnCancelClick(TObject *Sender)
{
    m_iBtn = 0;
    Close();
}
//---------------------------------------------------------------------------