sys.cpp

来自「一个用VC写的超市管理系统」· C++ 代码 · 共 72 行

CPP
72
字号
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "sys.h"
#include "data.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfm_sys *fm_sys;
//---------------------------------------------------------------------------
__fastcall Tfm_sys::Tfm_sys(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfm_sys::FormShow(TObject *Sender)
{
    dm_data->ds_passwd->Close();
    dm_data->ds_passwd->Open();
    pass1->Text="";
    pass2->Text="";

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

void __fastcall Tfm_sys::pass1Exit(TObject *Sender)
{
    pass2->Text="";
}
//---------------------------------------------------------------------------

void __fastcall Tfm_sys::pass2Exit(TObject *Sender)
{
    if(pass1->Text!=pass2->Text)
    {
        Application->MessageBoxA("两次输入的密码不一致,请重新输入","提示",MB_OK);
        pass1->Text="";
        pass2->Text="";
        pass1->SetFocus();
    }
}
//---------------------------------------------------------------------------

void __fastcall Tfm_sys::Button1Click(TObject *Sender)
{
    if(pass1->Text=="" || pass2->Text=="")
    {
        Application->MessageBoxA("密码不能为空,请重新输入","提示",MB_OK);
        pass1->Text="";
        pass2->Text="";
        pass1->SetFocus();
        return;
    }
    dm_data->ds_passwd->Edit();
    dm_data->ds_passwd->FieldByName("code")->AsString=pass1->Text;
    dm_data->ds_passwd->Post();
    dm_data->ds_passwd->Close();
    Close();
}
//---------------------------------------------------------------------------

void __fastcall Tfm_sys::Button2Click(TObject *Sender)
{
    dm_data->ds_passwd->Close();
    Close();

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?