unit3.~cpp

一个医学的软件

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit3.h"

//#include "fun1_def.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIEdit"
#pragma link "SUIButton"
#pragma link "SUIComboBox"
#pragma resource "*.dfm"

//extern struct REALTIME_T record_clock;
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
    int i;
    Form3->ShowHint=true;
    Form3->ShowHint=true;
    SetWindowLong(suiEdit1->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit1->Handle, GWL_STYLE));
    SetWindowLong(suiEdit2->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit2->Handle, GWL_STYLE));
    SetWindowLong(suiEdit3->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit3->Handle, GWL_STYLE));
    SetWindowLong(suiEdit4->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit4->Handle, GWL_STYLE));
    SetWindowLong(suiEdit5->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit5->Handle, GWL_STYLE));
    SetWindowLong(suiEdit6->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit6->Handle, GWL_STYLE));
    SetWindowLong(suiEdit7->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit7->Handle, GWL_STYLE));
    SetWindowLong(suiEdit8->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit8->Handle, GWL_STYLE));
    /*
    SetWindowLong(suiEdit1->Handle,
                GWL_STYLE,
                ES_NUMBER | GetWindowLong(suiEdit1->Handle, GWL_STYLE));
    */

}
//---------------------------------------------------------------------------
void __fastcall TForm3::suiButton3Click(TObject *Sender)
{
    this->Close();
}
//---------------------------------------------------------------------------


void __fastcall TForm3::suiButton4Click(TObject *Sender)
{
    Saveable=true;
    trial_time_change();
    trial_data_change();
    Form1->Button3->Click();
    this->Close();
}
//---------------------------------------------------------------------------
void TForm3::trial_time_change()
{
    int i;
    //sys_date.da_year=StrToInt(suiComboBox1->Text);
    i=StrToInt(suiComboBox1->Text);

    Form1->sys_date.da_year=i;
    i=StrToInt(suiComboBox2->Text);
    Form1->sys_date.da_mon=char(i);
    i=StrToInt(suiComboBox3->Text);
    Form1->sys_date.da_day=char(i);

    i=StrToInt(suiComboBox4->Text);
    Form1->record_clock.hour=char(i);
    i=StrToInt(suiComboBox5->Text);
    Form1->record_clock.minute=char(i);
    i=StrToInt(suiComboBox6->Text);
    Form1->record_clock.second=char(i);


}
//---------------------------------------------------------------------------
void TForm3::trial_data_change()
{
    Form1->temp_value_apparam.vmax=0;
    Form1->temp_value_apparam.rp=0;
    Form1->temp_value_apparam.apa=0;
    Form1->temp_value_apparam.apd20=0;
    Form1->temp_value_apparam.apd50=0;
    Form1->temp_value_apparam.apd90=0;
    Form1->temp_value_apparam.fc=0;
    if(suiEdit1->Text!=NULL)
        Form1->temp_value_apparam.vmax=StrToFloat(suiEdit1->Text);
    if(suiEdit2->Text!=NULL)
        Form1->temp_value_apparam.rp=StrToInt(suiEdit2->Text);

    //没有直接存贮os
    if(suiEdit4->Text!=NULL)
        Form1->temp_value_apparam.apa=StrToInt(suiEdit4->Text);
    if(suiEdit5->Text!=NULL)
        Form1->temp_value_apparam.apd20=StrToInt(suiEdit5->Text);
    if(suiEdit6->Text!=NULL)
        Form1->temp_value_apparam.apd50=StrToInt(suiEdit6->Text);
    if(suiEdit7->Text!=NULL)
        Form1->temp_value_apparam.apd90=StrToInt(suiEdit7->Text);
    if(suiEdit8->Text!=NULL)
        Form1->temp_value_apparam.fc=StrToInt(suiEdit8->Text);
    Form1->Button2->Click();


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