name_gl.cpp

一个用VC写的超市管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "name_gl.h"
#include "data.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfm_name_gl *fm_name_gl;
//---------------------------------------------------------------------------
__fastcall Tfm_name_gl::Tfm_name_gl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfm_name_gl::addClick(TObject *Sender)
{
    dm_data->ds_guest->Close();
    dm_data->ds_guest->CommandText="select * from name where code='"+no->Text+"'";
    dm_data->ds_guest->Open();
    if(dm_data->ds_guest->RecordCount>0)
    {
        Application->MessageBoxA("该货物代码已经存在,请重新输入","提示",MB_OK);
        no->SetFocus();
        dm_data->ds_guest->Close();
        return;
    }
    dm_data->ds_guest->Close();

    if(no->Text!="" && name->Text!="")
    {
         dm_data->ds_name_gl->Append();
         dm_data->ds_name_gl->FieldByName("code")->AsString=no->Text;
         dm_data->ds_name_gl->FieldByName("name")->AsString=name->Text;
         dm_data->ds_name_gl->Post();

         no->Text="";
         name->Text="";
         no->SetFocus();

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

void __fastcall Tfm_name_gl::noKeyPress(TObject *Sender, char &Key)
{
    if(Key==VK_RETURN)
        name->SetFocus();
}
//---------------------------------------------------------------------------


void __fastcall Tfm_name_gl::nameKeyPress(TObject *Sender, char &Key)
{
    if(Key==VK_RETURN)
        add->SetFocus();
}
//---------------------------------------------------------------------------


void __fastcall Tfm_name_gl::FormShow(TObject *Sender)
{
    Left=170;
    Top=100;
    no->Text="";
    name->Text="";
    no->SetFocus();
    dm_data->ds_name_gl->Close();
    dm_data->ds_name_gl->Open();
}
//---------------------------------------------------------------------------



void __fastcall Tfm_name_gl::xgClick(TObject *Sender)
{
    DBEdit2->Enabled=true;
    brow->Enabled=false;
    add->Enabled=false;
    save->Enabled=true;
    cancel->Enabled=true;
    xg->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall Tfm_name_gl::Button4Click(TObject *Sender)
{
    no->Text="";
    name->Text="";
    no->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tfm_name_gl::saveClick(TObject *Sender)
{
    dm_data->ds_name_gl->Post();
    brow->Enabled=true;
    add->Enabled=true;
    DBEdit2->Enabled=false;

    cancel->Enabled=false;
    save->Enabled=false;
    xg->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall Tfm_name_gl::cancelClick(TObject *Sender)
{
    dm_data->ds_name_gl->Cancel();
    brow->Enabled=true;
    add->Enabled=true;
    DBEdit2->Enabled=false;

    cancel->Enabled=false;
    save->Enabled=false;
    xg->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall Tfm_name_gl::Button1Click(TObject *Sender)
{
    AnsiString codes;
    codes=dm_data->ds_name_gl->FieldByName("code")->AsString;

    dm_data->ds_guest->Close();
    dm_data->ds_guest->CommandText="select * from jinhuo where code='"+codes+"'";
    dm_data->ds_guest->Open();
    if(dm_data->ds_guest->RecordCount>0)
    {
        Application->MessageBoxA((codes+"的货物有进货数据,要将其进货数据先删除才可以删除货名").c_str(),"提示",MB_OK);
        dm_data->ds_guest->Close();
        return;
    }


    if(Application->MessageBoxA((DBEdit1->Text+"的进货及销售记录将全部删除").c_str(),"警告",MB_OKCANCEL)==IDOK)
        dm_data->ds_name_gl->DeleteRecords(arCurrent);
}
//---------------------------------------------------------------------------

void __fastcall Tfm_name_gl::closeClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------


void __fastcall Tfm_name_gl::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    dm_data->ds_name_gl->Close();    
}
//---------------------------------------------------------------------------