stationtuzform.~cpp

该源代码是一个关于电力设备和电力行业操作管理的管理系统

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

#include <vcl.h>
#pragma hdrstop
#include <Printers.hpp>
#include <iostream.h>
#include <oleauto.hpp>

#include "StationTuZForm.h"
#include "DataMod.h"
#include "Look_tzzlForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tstationtzgl *stationtzgl;
//---------------------------------------------------------------------------
__fastcall Tstationtzgl::Tstationtzgl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::FormCreate(TObject *Sender)
{
     Datam->cad_qry->Close();
     Datam->cad_qry->SQL->Clear();
     Datam->cad_qry->SQL->Add("select * from tb_tzzl");
     Datam->cad_qry->Open();

     BBt_OK->Enabled = false;
          int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("description")->AsString;
     Edit4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("station_name")->AsString;
     Memo1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::FormClose(TObject *Sender,
      TCloseAction &Action)
{
      Datam->cad_qry->Close();
}
//---------------------------------------------------------------------------
void Tstationtzgl::q_exesql(AnsiString mSql)
{
    Datam->tuzzl_qry->SQL->Clear();
    Datam->tuzzl_qry->SQL->Add(mSql);
    Datam->tuzzl_qry->ExecSQL();
    Datam->tuzzl_qry->Close();
}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::BBt_AddClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      Edit4->Text = "";
      Memo1->Text = "";

      BBt_OK->Enabled = true;
      iButton = 1;

      Edit1->SetFocus();

}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::BBt_DeleteClick(TObject *Sender)
{
    AnsiString Msg;
    Msg = "你确定删除变电站图纸资料吗？";
    if(MessageBox(Handle,Msg.c_str() ,"警告",MB_OKCANCEL)==IDOK)
    {
         String Record = DBGrid1->Columns->Items[DBGrid1->SelectedIndex]->Field->DataSet->FieldByName("id")->AsString;
         Datam->tuzzl_qry->SQL->Clear();
         Datam->tuzzl_qry->SQL->Add("delete from tb_tzzl where id='"+Record+"'");
         Datam->tuzzl_qry->ExecSQL();
         Datam->tuzzl_qry->Close();
    }
     Datam->cad_qry->Close();
     Datam->cad_qry->SQL->Clear();
     Datam->cad_qry->SQL->Add("select * from tb_tzzl");
     Datam->cad_qry->Open();

     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("description")->AsString;
     Edit4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("station_name")->AsString;
     Memo1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::BBt_ChangClick(TObject *Sender)
{
     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("description")->AsString;
     Edit4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("station_name")->AsString;
     Memo1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
//     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("end_date")->AsDateTime;

     iButton = 2;
     ID = Edit1->Text;

     OpenDialog1->FileName = "";

     BBt_OK->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::BBt_OKClick(TObject *Sender)
{
     AnsiString TemSql;        //制度属性值
     AnsiString ErrorMsg;      //错误消息
     AnsiString mSql;          //制度属性项

     if(iButton==1)
     {
          if(Edit1->Text=="" || Edit2->Text=="")
          {
               ErrorMsg = "图纸ID、图纸名称不能为空！请重新输入。";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
          }

          mSql="select id from tb_tzzl where id='" + Edit1->Text+"'";
          Datam->tuzzl_qry->Close();
          Datam->tuzzl_qry->SQL->Clear();
          Datam->tuzzl_qry->SQL->Add(mSql);
          Datam->tuzzl_qry->Prepare();
          Datam->tuzzl_qry->Open();
          int m_count=Datam->tuzzl_qry->RecordCount;
          Datam->tuzzl_qry->Close();

          if(m_count>0)
          {
               ErrorMsg = "已存该ID“"+ Edit1->Text+"”,请重新输入！";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
          }

          if(FileName!="")
          {
              Datam->tuzzl_qry->SQL->Clear();
              Datam->tuzzl_qry->SQL->Add("insert into tb_tzzl(id,name,description,station_name,remark,file_content) values(:id,:name,:description,:station_name,:remark,:file_content)");
              Datam->tuzzl_qry->ParamByName("id")->AsString = Edit1->Text;
              Datam->tuzzl_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->tuzzl_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->tuzzl_qry->ParamByName("station_name")->AsString = Edit4->Text;
              Datam->tuzzl_qry->ParamByName("remark")->AsString = Memo1->Text;
              TParam *p = Datam->tuzzl_qry->ParamByName("file_content");
              p->LoadFromFile(OpenDialog1->FileName,ftBlob);

              Datam->tuzzl_qry->ExecSQL();
              Datam->tuzzl_qry->Close();
          }
          else
          {
              Datam->tuzzl_qry->SQL->Clear();
              Datam->tuzzl_qry->SQL->Add("insert into tb_tzzl(id,name,description,station_name,remark) values(:id,:name,:description,:station_name,:remark)");
              Datam->tuzzl_qry->ParamByName("id")->AsString = Edit1->Text;
              Datam->tuzzl_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->tuzzl_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->tuzzl_qry->ParamByName("station_name")->AsString = Edit4->Text;
              Datam->tuzzl_qry->ParamByName("remark")->AsString = Memo1->Text;
              Datam->tuzzl_qry->ExecSQL();
              Datam->tuzzl_qry->Close();
          }

//          mSql = "insert into tb_employee(employee_id,name,sex,duty,birth,department_id)values('1111','xg','n','gao',to_date('2001-01-01','YYYY-MM-DD'),'bu')";
/*          mSql = "insert into tb_tzzl(id,";
          TemSql = "values('"+Edit1->Text+"','";

          mSql = mSql+"name,";
          TemSql = TemSql+Edit2->Text+"','";

          mSql = mSql+"description,";
          TemSql = TemSql+Edit3->Text+"','";

          mSql = mSql+"station_name,";
          TemSql = TemSql+Edit4->Text+"','";

          mSql = mSql+"remark)";
          TemSql = TemSql+Memo1->Text+"')";

//          mSql =mSql+"values('"+Edit1->Text+"','"+Edit2->Text+"','"+Edit4->Text+"','"+Edit3->Text+"',to_date('2001-01-01','YYYY-MM-DD'),'"+ComboBox4->Text+"')";

          mSql = mSql+TemSql;

          q_exesql(mSql);

          Datam->t_tuzzl->Active = false;
          Datam->t_tuzzl->Active = true;
          DBGrid1->Refresh();
*/
     }

     else if(iButton==2)
     {
         if(ID!=Edit1->Text)
         {
               ErrorMsg = "ID值唯一标识图纸信息，不能被更改！";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
         }
         if(OpenDialog1->FileName=="")
         {
              mSql = "update tb_tzzl set ";
              mSql = mSql+"name='"+Edit2->Text;
              mSql = mSql+"',description='"+Edit3->Text;
              mSql = mSql+"',station_name='"+Edit4->Text;
              mSql = mSql+"',remark='"+Memo1->Text;
              mSql = mSql+"' where id="+Edit1->Text;

              q_exesql(mSql);

         }
         else
         {
               Datam->tuzzl_qry->SQL->Clear();
               Datam->tuzzl_qry->SQL->Add("delete from tb_tzzl where id='"+ID+"'");
               Datam->tuzzl_qry->ExecSQL();
               Datam->tuzzl_qry->Close();

              Datam->tuzzl_qry->SQL->Clear();
              Datam->tuzzl_qry->SQL->Add("insert into tb_tzzl(id,name,description,station_name,remark,file_content) values(:id,:name,:description,:station_name,:remark,:file_content)");
              Datam->tuzzl_qry->ParamByName("id")->AsString = Edit1->Text;
              Datam->tuzzl_qry->ParamByName("name")->AsString = Edit2->Text;
              Datam->tuzzl_qry->ParamByName("description")->AsString = Edit3->Text;
              Datam->tuzzl_qry->ParamByName("station_name")->AsString = Edit4->Text;
              Datam->tuzzl_qry->ParamByName("remark")->AsString = Memo1->Text;
              TParam *p = Datam->tuzzl_qry->ParamByName("file_content");
              p->LoadFromFile(OpenDialog1->FileName,ftBlob);

              Datam->tuzzl_qry->ExecSQL();
              Datam->tuzzl_qry->Close();
         }
     }
     Edit1->Text = "";
     Edit2->Text = "";
     Edit3->Text = "";
     Edit4->Text = "";
     Memo1->Text = "";
     FileName = "";
     
     Datam->cad_qry->Close();
     Datam->cad_qry->SQL->Clear();
     Datam->cad_qry->SQL->Add("select * from tb_tzzl");
     Datam->cad_qry->Open();

}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::BBt_CaleanClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      Edit4->Text = "";
      Memo1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall Tstationtzgl::BBt_RefClick(TObject *Sender)
{
     Datam->cad_qry->Close();
     Datam->cad_qry->SQL->Clear();