⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 yhdkqtzform.cpp

📁 该源代码是一个关于电力设备和电力行业操作管理的管理系统
💻 CPP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
//---------------------------------------------------------------------------

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

#include "yhdkqTZForm.h"
#include "DataMod.h"
#include "Look_yhdkqForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TyhdkqtaizFrm *yhdkqtaizFrm;
//---------------------------------------------------------------------------
__fastcall TyhdkqtaizFrm::TyhdkqtaizFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::FormCreate(TObject *Sender)
{
      if(!Datam->t_yhdkqtaiz->Active)  Datam->t_yhdkqtaiz->Open();
      BBt_OK->Enabled = false;
           int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("dkq_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sb_bianhao")->AsString;

     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddl")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("yh_name")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("out_date")->AsDateTime;
     ComboBox3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("edzk")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("dkq_type")->AsString;
     ComboBox5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("edrl")->AsString;
     ComboBox6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddy")->AsString;
     ComboBox7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     ComboBox8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
       if(Datam->t_yhdkqtaiz->Active)   Datam->t_yhdkqtaiz->Close();
}
//---------------------------------------------------------------------------
void TyhdkqtaizFrm::q_exesql(AnsiString mSql)
{
    Datam->yhdkqtaiz_qry->SQL->Clear();
    Datam->yhdkqtaiz_qry->SQL->Add(mSql);
    Datam->yhdkqtaiz_qry->ExecSQL();
    Datam->yhdkqtaiz_qry->Close();
}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::BBt_AddClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      ComboBox1->Text = "";
      ComboBox2->Text = "";
      ComboBox3->Text = "";
      ComboBox4->Text = "";
      ComboBox5->Text = "";
      ComboBox6->Text = "";
      ComboBox7->Text = "";
      ComboBox8->Text = "";

      iButton = 1;
      BBt_OK->Enabled= true;

        Edit1->SetFocus();

}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::BBt_DeleteClick(TObject *Sender)
{
     AnsiString Msg;
     Msg = "你确定删除电抗器台帐资料吗？";
     if(MessageBox(Handle,Msg.c_str() ,"警告",MB_OKCANCEL)==IDOK)
        DBGrid1->SelectedRows->Delete();

              Datam->t_yhdkqtaiz->Active = false;
      Datam->t_yhdkqtaiz->Active = true;
      DBGrid1->Refresh();

      int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("dkq_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sb_bianhao")->AsString;

     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddl")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("yh_name")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("out_date")->AsDateTime;
     ComboBox3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("edzk")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("dkq_type")->AsString;
     ComboBox5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("edrl")->AsString;
     ComboBox6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddy")->AsString;
     ComboBox7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     ComboBox8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;         
}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::BBt_ChangClick(TObject *Sender)
{
     int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("dkq_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sb_bianhao")->AsString;

     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddl")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("yh_name")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("out_date")->AsDateTime;
     ComboBox3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("edzk")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("dkq_type")->AsString;
     ComboBox5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("edrl")->AsString;
     ComboBox6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("eddy")->AsString;
     ComboBox7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("maked_by")->AsString;
     ComboBox8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;

     iButton = 2;
     ID = Edit1->Text;
     BBt_OK->Enabled = true;

        Edit1->SetFocus();

}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::BBt_OKClick(TObject *Sender)
{
     AnsiString TemSql;        //制度属性值
     AnsiString ErrorMsg;      //错误消息
     String OutDate;
     AnsiString mSql;          //制度属性项

     if(iButton==1)
     {
          if(Edit1->Text=="" || ComboBox2->Text==""||ComboBox3->Text==""||Edit2->Text=="")
          {
               ErrorMsg = "电抗器ID、用户名称、电抗器型号和设备型号不能为空！请重新输入。";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
          }

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

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


          OutDate = DateToStr(DateTimePicker1->Date);

//          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_u_dkq(dkq_id,";
          TemSql = "values('"+Edit1->Text+"','";

          mSql = mSql+"yh_name,";
          TemSql = TemSql+ComboBox2->Text+"','";

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

          mSql = mSql+"dkq_type,";
          TemSql = TemSql+ComboBox4->Text+"','";

          mSql = mSql+"edzk,";
          TemSql = TemSql+ComboBox3->Text+"','";

          mSql = mSql+"eddy,";
          TemSql = TemSql+ComboBox6->Text+"','";

          mSql = mSql+"eddl,";
          TemSql = TemSql+ComboBox1->Text+"','";

          mSql = mSql+"edrl,";
          TemSql = TemSql+ComboBox5->Text+"','";

          mSql = mSql+"maked_by,";
          TemSql = TemSql+ComboBox7->Text+"',";

          mSql = mSql+"out_date,";
          TemSql = TemSql+"to_date('";
          TemSql = TemSql+OutDate+"','YYYY-MM-DD'),'";

          mSql = mSql+"department,";
          TemSql = TemSql+ComboBox8->Text+"','";

          mSql = mSql+"remark)";
          TemSql = TemSql+Edit3->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_yhdkqtaiz->Active = false;
          Datam->t_yhdkqtaiz->Active = true;
          DBGrid1->Refresh();
     }

     else if(iButton==2)
     {
         if(ID!=Edit1->Text)
         {
               ErrorMsg = "ID值唯一标识用户设备电抗器台帐信息，不能被更改！";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
         }
         else
         {
              mSql = "update tb_u_dkq set ";
              mSql = mSql+"yh_name='"+ComboBox2->Text;
              mSql = mSql+"',edzk='"+ComboBox3->Text;
              mSql = mSql+"',dkq_type='"+ComboBox4->Text;
              mSql = mSql+"',edrl='"+ComboBox5->Text;
              mSql = mSql+"',eddy='"+ComboBox6->Text;
              mSql = mSql+"',eddl='"+ComboBox1->Text;
              mSql = mSql+"',maked_by='"+ComboBox7->Text;
              mSql = mSql+"',Out_date=to_date('"+DateToStr(DateTimePicker1->Date)+"','YYYY-MM-DD')";
              mSql = mSql+",sb_bianhao='"+Edit2->Text;
              mSql = mSql+"',department='"+ComboBox8->Text;
              mSql = mSql+"',remark='"+Edit3->Text;
              mSql = mSql+"' where dkq_id='"+Edit1->Text+"'";

              q_exesql(mSql);
              Datam->t_yhdkqtaiz->Active = false;
              Datam->t_yhdkqtaiz->Active = true;
              DBGrid1->Refresh();
         }
     }
              Edit1->Text = "";
              Edit2->Text = "";
              Edit3->Text = "";
              ComboBox2->Text = "";
              ComboBox3->Text = "";
              ComboBox4->Text = "";
              ComboBox5->Text = "";
              ComboBox6->Text = "";
              ComboBox7->Text = "";
              ComboBox8->Text = "";
              DateTimePicker1->Date = StrToDate("2000-01-01");
              ComboBox1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::BBt_CaleanClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      ComboBox2->Text = "";
      ComboBox3->Text = "";
      ComboBox4->Text = "";
      ComboBox5->Text = "";
      ComboBox6->Text = "";
      ComboBox7->Text = "";
      ComboBox8->Text = "";
      DateTimePicker1->Date = StrToDate("2000-01-01");
      ComboBox1->Text = "";          
}
//---------------------------------------------------------------------------
void __fastcall TyhdkqtaizFrm::BBt_RefClick(TObject *Sender)
{
      Datam->t_yhdkqtaiz->Filtered = false;
      Datam->t_yhdkqtaiz->Active = false;
      Datam->t_yhdkqtaiz->Active = true;
      DBGrid1->Refresh();

      int row;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("dkq_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sb_bianhao")->AsString;
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -