initshfwdb.cpp

售后服务系统优质的售后服务是企业生存和市场竞争的保障

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

#include <vcl.h>
#pragma hdrstop
#include <IniFiles.hpp>
#include "InitShfwDb.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

        char buffer[100],INIFILENAME[100];
        AnsiString strbuf,def,dbpath;

        memset(buffer,'\0',100);
        getcwd(buffer, 100);
        strbuf = String(buffer).Trim();
        sprintf(INIFILENAME,"%-s\\Config.ini",strbuf.c_str());
        TIniFile *IniFile = new TIniFile( INIFILENAME );
        dbpath = IniFile->ReadString( "PathInfo", "dbpath", def);
        delete IniFile;
        if(dbpath.Trim()=="" || FileExists(dbpath)== false ) {
                Application->MessageBox("无法打开数据源路径","警告",MB_OK+MB_ICONWARNING);
                Application->Terminate();
                return;
        }
        ADOConnection1->Close();
        ADOConnection1->ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+dbpath+";Mode=ReadWrite;Persist Security Info=False";
        ADOConnection1->Open();
       
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
        ADOConnection1->Close();
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        AnsiString sql;
        if(Edit1->Text.Trim()=="") {
               Application->MessageBox("请输入密码","错误",MB_OK+MB_ICONERROR);
               Abort();
        }
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        sql ="select * from ryxx where jb='总经理' and passwd='"+Edit1->Text+"'";
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->Open();
        if(ADOQuery1->RecordCount < 1) {
               Application->MessageBox("总经理密码有误","错误",MB_OK+MB_ICONERROR);
               Abort();
        }
        ADOQuery1->Close();
        if(Application->MessageBox("该操作将删除全部数据,是否进行?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQuery1->Close();                //fwsl
        ADOQuery1->SQL->Clear();
        sql = "delete from fwsl";
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->ExecSQL();

        ADOQuery1->Close();                //fwjs
        ADOQuery1->SQL->Clear();
        sql = "delete from fwjs";
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->ExecSQL();

        ADOQuery1->Close();                //wxpjxx
        ADOQuery1->SQL->Clear();
        sql = "delete from wxpjxx";
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->ExecSQL();

        ADOQuery1->Close();                //slwxbwfy
        ADOQuery1->SQL->Clear();
        sql = "delete from slwxbwfy";
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->ExecSQL();

        if(CheckBox1->Checked == false) {
                ADOQuery1->Close();                //dzqy
                ADOQuery1->SQL->Clear();
                sql = "delete from dzqy";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //flxx
                ADOQuery1->SQL->Clear();
                sql = "delete from flxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //fwqkxx
                ADOQuery1->SQL->Clear();
                sql = "delete from fwqkxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //ggxx
                ADOQuery1->SQL->Clear();
                sql = "delete from ggxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //gysqtfyxx
                ADOQuery1->SQL->Clear();
                sql = "delete from gysqtfyxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //gysxx
                ADOQuery1->SQL->Clear();
                sql = "delete from gysxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //gzbm
                ADOQuery1->SQL->Clear();
                sql = "delete from gzbm";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //hfxx
                ADOQuery1->SQL->Clear();
                sql = "delete from hfxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //pjkc
                ADOQuery1->SQL->Clear();
                sql = "delete from pjkc";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //pjpzxx
                ADOQuery1->SQL->Clear();
                sql = "delete from pjpzxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //wxbwfyxx
                ADOQuery1->SQL->Clear();
                sql = "delete from wxbwfyxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //ppxx
                ADOQuery1->SQL->Clear();
                sql = "delete from ppxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();

                ADOQuery1->Close();                //ryxx
                ADOQuery1->SQL->Clear();
                sql = "delete from ryxx where jb<>'总经理'";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();
        }

        if(CheckBox2->Checked == false) {
                ADOQuery1->Close();                //khxx
                ADOQuery1->SQL->Clear();
                sql = "delete from khxx";
                ADOQuery1->SQL->Add(sql);
                ADOQuery1->ExecSQL();
        }

        ADOQuery1->Close();                //sysparm
        ADOQuery1->SQL->Clear();
        sql = "update sysparm set cur_khid=0,cur_daid=0";
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->ExecSQL();
        ShowMessage("执行成功！");
        ADOConnection1->Close();
        Close();
}
//---------------------------------------------------------------------------