yh.cpp

来自「软件工程」· C++ 代码 · 共 94 行

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

#include <vcl.h>
#pragma hdrstop

#include "yh.h"
#include "login.h"
#include"cxbj.h"
#include "SS_sy.h"
#include"add_baojin.h"
#include"add_bj.h"
#include"add_zh.h"
#include"cx_baojin.h"
#include"cxbj.h"
#include"zh_bj.h"
#include"zh_gl.h"
#include"zh_jfgl.h"
#include"zh_jl.h"
#include"zh_liulan.h"
#include"zh_xx.h"
#include"zh_zlgl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tyh1 *yh1;
//---------------------------------------------------------------------------
__fastcall Tyh1::Tyh1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tyh1::Button2Click(TObject *Sender)
{
log->Close();
}
//---------------------------------------------------------------------------

void __fastcall Tyh1::yh_ssClick(TObject *Sender)
{
SheS_ss->add->Visible = false;
SheS_ss->fixed->Visible = false;
SheS_ss->del->Visible = false;
SheS_ss->print->Visible = false;
SheS_ss->exit->Visible = false;
SheS_ss->yh_exit->Visible = true;
SheS_ss->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tyh1::yh_bjClick(TObject *Sender)
{
  cx_bj1->Button5->Visible = false;
  cx_bj1->Button2->Visible = false;
  cx_bj1->Button3->Visible = false;
  cx_bj1->exit->Visible    = true;
  cx_bj1->Edit8->ReadOnly  = true;
  cx_bj1->Show();
}
//---------------------------------------------------------------------------


void __fastcall Tyh1::yh_zlClick(TObject *Sender)
{
zh_xx1->Button2->Visible = false;
zh_xx1->Button3->Visible = false;
zh_xx1->Button4->Visible = false;
zh_xx1->exit   ->Visible = true;
zh_xx1->Edit1->ReadOnly =  true;
zh_xx1->Show();
}
//---------------------------------------------------------------------------


void __fastcall Tyh1::yh_feiyongClick(TObject *Sender)
{
zh_jfgl1->Edit38->ReadOnly = true;
zh_jfgl1->Button2->Visible = false;
zh_jfgl1->Button3->Visible = false;
zh_jfgl1->exit->Visible   =  true;
zh_jfgl1->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tyh1::Button1Click(TObject *Sender)
{
yh1->Close();
log->Show();
}
//---------------------------------------------------------------------------