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

#include <vcl.h>
#pragma hdrstop

#include "BookOrder.h"
#include "SelectBook.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmBookOrder *fmBookOrder;
//---------------------------------------------------------------------------
__fastcall TfmBookOrder::TfmBookOrder(TComponent* Owner)
    : TfmParent(Owner)
{
    this->szCondition1 = "征訂編號";
    this->szCondition2 = "圖書編號";
    this->szCondition3 = "圖書名稱";
    // 設置查詢條件
    this->SetSeekEditStatus();
    // 和以前的窗體不一樣,我們在這里打開Table1
    Table1->Active = true;
    Edit4->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TfmBookOrder::btSelectBookClick(TObject *Sender)
{
    TfmSelectBook* pForm = new TfmSelectBook(NULL);
    pForm->ShowModal();
    EditDBEdit2->Text = pForm->m_szBookCode;
    delete pForm; 
}
//---------------------------------------------------------------------------
void __fastcall TfmBookOrder::EditDBEdit2Change(TObject *Sender)
{
    TQuery* pQuery = new TQuery(NULL);
    AnsiString sql;
    pQuery->DatabaseName = "db";
    sql = "select 書名 from 圖書信息 where 編號='";
    sql += EditDBEdit2->Text;
    sql += "'";
    pQuery->SQL->Add(sql);
    pQuery->Open();
    Edit4->Text = pQuery->FieldByName("書名")->AsString;
    delete pQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfmBookOrder::btNewClick(TObject *Sender)
{
    // 獲取最大的編號,自動計算
    TQuery* pQuery = new TQuery(NULL);
    AnsiString sql;
    AnsiString szCode;
    pQuery->DatabaseName = "db";
    sql = "select max(征訂編號) as 編號 from 圖書征訂";
    pQuery->SQL->Add(sql);
    pQuery->Open();
    szCode = pQuery->FieldByName("編號")->AsString;
    delete pQuery;
    // 調用父窗體的新建方法
    TfmParent::btNewClick(Sender);
    int nCode;
    nCode = StrToInt(szCode);
    nCode ++;
    szCode = IntToStr(nCode);
    AnsiString szT = "0000000";
    szCode = szT.SubString(1,7-szCode.Length())+szCode;
    // 設置編號
    EditDBEdit->Text = szCode;
    // 設置征訂日期
    TDateTime dt;
    dt = dt.CurrentDate();
    EditDBEdit7->Text = dt.DateString();
}
//---------------------------------------------------------------------------

void __fastcall TfmBookOrder::BitBtn2Click(TObject *Sender)
{
    TQuery* pQuery = new TQuery(NULL);
    AnsiString sql;
    pQuery->DatabaseName = "db";
    sql = "exec sf_圖書征訂";
    pQuery->SQL->Add(sql);
    pQuery->ExecSQL();
    delete pQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfmBookOrder::BitBtn1Click(TObject *Sender)
{
    // 注意這里的代碼
    // 因為DBGrid只顯示沒有驗收的數據
    // 所以要繼承搜索按鈕
    // 添加filter屬性
    TfmParent::BitBtn1Click(Sender);
    AnsiString szFilter;
    szFilter = Table1->Filter;
    if(szFilter.Length()>0)
       szFilter += " and ";
    szFilter += "是否驗收=0";
    Table1->Filtered = false;
    Table1->Filter = szFilter;
    Table1->Filtered = true;
    lblCount->Caption = "記錄數: " + IntToStr(Table1->RecordCount) ;
}
//---------------------------------------------------------------------------