jinhuo_gl.cpp

一个基于MFC的编程的图书管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "jinhuo_gl.h"
#include "data.h"
#include "newname.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfm_jinhuo_gl *fm_jinhuo_gl;
//---------------------------------------------------------------------------
__fastcall Tfm_jinhuo_gl::Tfm_jinhuo_gl(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfm_jinhuo_gl::FormShow(TObject *Sender)
{
    jindt->DateTime=Now();
    guoqidt->DateTime=Now();

    Left=170;
    Top=100;
    dm_data->ds_jinhuo_gl->Close();
    dm_data->ds_jinhuo_gl->Open();
    no->SetFocus();

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

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

void __fastcall Tfm_jinhuo_gl::shuliangKeyPress(TObject *Sender, char &Key)
{
    if(Key==VK_RETURN)
        jinjia->SetFocus();

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

void __fastcall Tfm_jinhuo_gl::jinjiaKeyPress(TObject *Sender, char &Key)
{
    if(Key==VK_RETURN)
        shoujia->SetFocus();

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

void __fastcall Tfm_jinhuo_gl::shoujiaKeyPress(TObject *Sender, char &Key)
{
    if(Key==VK_RETURN)
        add->SetFocus();

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

void __fastcall Tfm_jinhuo_gl::addClick(TObject *Sender)
{
    if(no->Text=="" || shuliang->Text=="" || jinjia->Text=="" || shoujia->Text=="")
    {
        Application->MessageBoxA("有些项目为空,请重新输入","提示",MB_OK);
        no->SetFocus();
        return;
    }
    dm_data->ds_guest->Close();
    dm_data->ds_guest->CommandText="select * from jinhuo where code=''";
    dm_data->ds_guest->Open();

    dm_data->ds_guest->Append();
    dm_data->ds_guest->FieldByName("code")->AsString=no->Text;
    dm_data->ds_guest->FieldByName("shuliang")->AsString=shuliang->Text;
    dm_data->ds_guest->FieldByName("jinjia")->AsString=jinjia->Text;
    dm_data->ds_guest->FieldByName("shoujia")->AsString=shoujia->Text;
    dm_data->ds_guest->FieldByName("changjia")->AsString=changjia->Text;
    dm_data->ds_guest->FieldValues["jindt"]=jindt->DateTime;
    dm_data->ds_guest->FieldValues["guoqidt"]=guoqidt->DateTime;
    dm_data->ds_guest->Post();
    dm_data->ds_guest->Close();

    dm_data->ds_jinhuo_gl->Close();
    dm_data->ds_jinhuo_gl->Open();

    no->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tfm_jinhuo_gl::cancelClick(TObject *Sender)
{
    no->Text="";
    shuliang->Text="";
    jinjia->Text="";
    shoujia->Text="";
    no->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tfm_jinhuo_gl::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    dm_data->ds_jinhuo_gl->Cancel();
    dm_data->ds_jinhuo_gl->Close();

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

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






void __fastcall Tfm_jinhuo_gl::noExit(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<1 && cancel->Focused()==false && close->Focused()==false && brow->Focused()==false && del->Focused()==false)
    {
        newcode=no->Text;
        fm_newname->ShowModal();
        if(newname=="")
            no->SetFocus();
        else
            name->Text=newname;
    }
    else
        name->Text=dm_data->ds_guest->FieldByName("name")->AsString;
    dm_data->ds_guest->Close();
}
//---------------------------------------------------------------------------

void __fastcall Tfm_jinhuo_gl::delClick(TObject *Sender)
{
    AnsiString ids,codes;
    ids=dm_data->ds_jinhuo_gl->FieldByName("id")->AsString;
    codes=dm_data->ds_jinhuo_gl->FieldByName("code")->AsString;

    dm_data->ds_guest->Close();
    dm_data->ds_guest->CommandText="select * from xiaoshou 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((codes+"的本条进货记录将被删除").c_str(),"提示",MB_OKCANCEL)==IDOK)
    {
        dm_data->ds_jinhuo_gl->Close();
        dm_data->ds_guest->Close();
        dm_data->ds_guest->CommandText="select * from jinhuo where id="+ids;
        dm_data->ds_guest->Open();
        dm_data->ds_guest->First();
        dm_data->ds_guest->DeleteRecords(arCurrent);
        dm_data->ds_guest->Close();


        dm_data->ds_jinhuo_gl->Close();
        dm_data->ds_jinhuo_gl->Open();

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