unit1.~cpp

从ms-sql move data to oracle DB 的客户端

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

AnsiString __fastcall TForm1::get_opid(AnsiString operator_id)
{
        switch(StrToInt(operator_id))
        {
                case 1000: case 1001:
                        return 1000;
                        break;
                case 1003:
                        return 1012;
                        break;
                case 1004:
                        return 1013;
                        break;
                case 1005:
                        return 1011;
                        break;
                case 1006:
                        return 1015;
                        break;
                case 1007:
                        return 1016;
                        break;
                case 1008:
                        return 1017;
                        break;
                case 1012:
                        return 1008;
                        break;
                case 1013:
                        return 1010;
                        break;
                case 1018:
                        return 1020;
                        break;
                case 1019:
                        return 1021;
                        break;
                case 1023:
                        return 1022;
                        break;
                default:
                        return 1000;
                        break;
        }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TForm1::get_area_code(AnsiString area_code)
{
        switch(StrToInt(area_code))
        {
                case 1:
                        return 25;
                        break;
                case 2:
                        return 3;
                        break;
                case 3:
                        return 15;
                        break;
                case 4:
                        return 18;
                        break;
                case 6:
                        return 10;
                        break;
                case 8:
                        return 31;
                        break;
                case 9:
                        return 5;
                        break;
                case 13:
                        return 22;
                        break;
                case 18:
                        return 12;
                        break;
                case 26:
                        return 6;
                        break;
                case 27:
                        return 9;
                        break;
                case 31:
                        return 24;
                        break;
                case 33:
                        return 16;
                        break;
                default:
                        return 1;
                        break;
        }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TForm1::get_shop_id(AnsiString shop_id)
{
        switch(StrToInt(shop_id))
        {
                case 0:
                        return 0;
                        break;
                case 1:
                        return 4;
                        break;
                case 2:
                        return 5;
                        break;
                case 3:
                        return 6;
                        break;
                default:
                        return 0;
                        break;
        }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TForm1::get_sales_mgrid(AnsiString opid)
{
        switch(StrToInt(opid))
        {
                case 1000: case 1001: case 1012:
                        return 0;
                        break;
                case 1003: case 1004: case 1005:
                        return 4;
                        break;
                case 1006: case 1007: case 1008:
                        return 5;
                        break;
                case 1018: case 1019: case 1023:
                        return 6;
                        break;
                default:
                        return 0;
                        break;
        }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TForm1::get_store_id(AnsiString store_id)
{
        switch(StrToInt(store_id))
        {
                case 0:
                        return 0;
                        break;
                case 1:
                        return 4;
                        break;
                case 100:
                        return 1;
                        break;
                case 101:
                        return 2;
                        break;
                case 102:
                        return 3;
                        break;
                default:
                        return store_id;
                        break;
        }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TForm1::get_merch_code(AnsiString merch_code)
{
        if (merch_code == "bzd001")
                return 1749;

        if (merch_code == "bzd002")
                return 1750;

        if (merch_code == "bzd003")
                return 1751;

        if (merch_code == "bzd004")
                return 1752;

        if (merch_code == "bzd005")
                return 1753;


        if (merch_code == "cp0001")
                return 1767;

        if (merch_code == "cp0002")
                return 1773;


        if (merch_code == "hz0001")
                return 1754;

        if (merch_code == "ka0001")
                return 1755;

        if (merch_code == "ka0002")
                return 1756;

        if (merch_code == "lh0001")
                return 1770;


        if (merch_code == "ys0001")
                return 1759;

        if (merch_code == "ys0002")
                return 1760;

        if (merch_code == "ys0003")
                return 1762;

        if (merch_code == "ys0004")
                return 1763;

        if (merch_code == "ys0005")
                return 1761;

        if (merch_code == "ys0006")
                return 1772;

        if (merch_code == "ys0007")
                return 1757;

        if (merch_code == "ys0008")
                return 1764;

        if (merch_code == "ys0009")
                return 1765;

        if (merch_code == "ys0010")
                return 1771;

        if (merch_code == "ys0011")
                return 1766;


        if (merch_code == "zf0001")
                return 1768;

        if (merch_code == "zf0002")
                return 1769;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bt_clientClick(TObject *Sender)
{
        Memo1->Clear();
        this->tbc->Active = true;
        for(int i = 0; i != tbc->RecordCount; i++)
        {
                tempstr = "insert into tbclient(client_id,global_id,identity_no,client_name,en_name,reg_date,gender,area_code,status,sponsor_id,card_flag,phone_no,mobile_phone,fax_no,address,post_no,email,birth_date,opid,mgrid) values(";
                tempstr += tbc->Fields->FieldByName("client_id")->Value;
                tempstr += ",";
                tempstr += tbc->Fields->FieldByName("global_id")->Value;
                tempstr += ",'";
                tempstr += tbc->Fields->FieldByName("identity_no")->Value;
                tempstr += "','";
                tempstr += tbc->Fields->FieldByName("client_name")->Value;
                tempstr += "','";
                tempstr += tbc->Fields->FieldByName("ename")->Value;
                tempstr += "',to_date('";
                tempstr += tbc->Fields->FieldByName("enroll_date")->Value;
                tempstr += "','yyyy/mm/dd'),";
        if (StrToInt(tbc->Fields->FieldByName("sex")->Value) == 2)
                tempstr += "0,";
        else
                tempstr += "1,";
                tempstr += get_area_code(tbc->Fields->FieldByName("area_code")->Value);
                tempstr += ",";
        switch (StrToInt(tbc->Fields->FieldByName("agent_grade")->Value))
        {
                case 5:
                        tempstr += "1,";
                        break;
                case 6:
                        tempstr += "0,";
                        break;
                default:
                        tempstr += "2,";
                        break;
        }
                tempstr += tbc->Fields->FieldByName("sponsor_id")->Value;
                tempstr += ",";
                tempstr += tbc->Fields->FieldByName("card_flag")->Value;
                tempstr += ",'";
        if(!tbc->Fields->FieldByName("phone_no")->Value.IsNull())
                tempstr += tbc->Fields->FieldByName("phone_no")->Value;
                tempstr += "','";
        if(!tbc->Fields->FieldByName("mobile_phone")->Value.IsNull())
                tempstr += tbc->Fields->FieldByName("mobile_phone")->Value;
                tempstr += "','";
        if(!tbc->Fields->FieldByName("fax_no")->Value.IsNull())
                tempstr += tbc->Fields->FieldByName("fax_no")->Value;
                tempstr += "','";
                tempstr += tbc->Fields->FieldByName("address")->Value;
                tempstr += "','";
                tempstr += tbc->Fields->FieldByName("post_no")->Value;
                tempstr += "','";