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

📄 makerform.cpp

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

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

#include "makerForm.h"
#include "DataMod.h"
#include "LookmakerForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tmaker *maker;
//---------------------------------------------------------------------------
__fastcall Tmaker::Tmaker(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tmaker::FormCreate(TObject *Sender)
{
     if(!Datam->t_maker->Active)   Datam->t_maker->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("main_product")->AsString;
     Edit5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("linkman")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("bank")->AsString;
     Edit7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("addr")->AsString;
     Edit8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("post_code")->AsString;
     Edit9->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("tel")->AsString;
     Edit10->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("email")->AsString;
     Edit11->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("www")->AsString;
     Edit12->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall Tmaker::FormClose(TObject *Sender, TCloseAction &Action)
{
     if(Datam->t_maker->Active)  Datam->t_maker->Close();        
}
//---------------------------------------------------------------------------
void Tmaker::q_exesql(AnsiString mSql)
{
    Datam->dkqtaiz_qry->SQL->Clear();
    Datam->dkqtaiz_qry->SQL->Add(mSql);
    Datam->dkqtaiz_qry->ExecSQL();
    Datam->dkqtaiz_qry->Close();
}
//--------------------------------------------------------------------------
void __fastcall Tmaker::BBt_AddClick(TObject *Sender)
{
     Edit1->Text = "";
     Edit2->Text = "";
     Edit3->Text = "";
     Edit4->Text = "";
     Edit5->Text = "";
     Edit6->Text = "";
     Edit7->Text = "";
     Edit8->Text = "";
     Edit9->Text = "";
     Edit10->Text = "";
     Edit11->Text = "";
     Edit12->Text = "";

     iButton = 1;
     BBt_OK->Enabled = true;

        Edit1->SetFocus();

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

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

     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("main_product")->AsString;
     Edit5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("linkman")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("bank")->AsString;
     Edit7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("addr")->AsString;
     Edit8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("post_code")->AsString;
     Edit9->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("tel")->AsString;
     Edit10->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("email")->AsString;
     Edit11->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("www")->AsString;
     Edit12->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;

}
//---------------------------------------------------------------------------
void __fastcall Tmaker::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("main_product")->AsString;
     Edit5->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("linkman")->AsString;
     Edit6->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("bank")->AsString;
     Edit7->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("addr")->AsString;
     Edit8->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("post_code")->AsString;
     Edit9->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("tel")->AsString;
     Edit10->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("email")->AsString;
     Edit11->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("www")->AsString;
     Edit12->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("remark")->AsString;

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

        Edit1->SetFocus();

}
//---------------------------------------------------------------------------
void __fastcall Tmaker::BBt_OKClick(TObject *Sender)
{
     AnsiString TemSql;        //制度属性值
     AnsiString ErrorMsg;      //错误消息
     String OutDate;
     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_maker where id='" + Edit1->Text+"'";
          Datam->maker_qry->Close();
          Datam->maker_qry->SQL->Clear();
          Datam->maker_qry->SQL->Add(mSql);
          Datam->maker_qry->Prepare();
          Datam->maker_qry->Open();
          int m_count=Datam->maker_qry->RecordCount;
          Datam->maker_qry->Close();

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

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

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

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

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

          mSql = mSql+"linkman,";
          TemSql = TemSql+Edit5->Text+"','";

          mSql = mSql+"bank,";
          TemSql = TemSql+Edit6->Text+"','";

          mSql = mSql+"addr,";
          TemSql = TemSql+Edit7->Text+"','";

          mSql = mSql+"post_code,";
          TemSql = TemSql+Edit8->Text+"','";

          mSql = mSql+"tel,";
          TemSql = TemSql+Edit9->Text+"','";

          mSql = mSql+"email,";
          TemSql = TemSql+Edit10->Text+"','";

          mSql = mSql+"www,";
          TemSql = TemSql+Edit11->Text+"','";

          mSql = mSql+"remark)";
          TemSql = TemSql+Edit12->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_maker->Active = false;
          Datam->t_maker->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_maker set ";
              mSql = mSql+"name='"+Edit2->Text;
              mSql = mSql+"',description='"+Edit3->Text;
              mSql = mSql+"',main_product='"+Edit4->Text;
              mSql = mSql+"',linkman='"+Edit5->Text;
              mSql = mSql+"',bank='"+Edit6->Text;
              mSql = mSql+"',addr='"+Edit7->Text;
              mSql = mSql+"',post_code='"+Edit8->Text;
              mSql = mSql+"',tel='"+Edit9->Text;
              mSql = mSql+"',email='"+Edit10->Text;
              mSql = mSql+"',www='"+Edit11->Text;
              mSql = mSql+"',remark='"+Edit12->Text;
              mSql = mSql+"' where id='"+Edit1->Text+"'";

              q_exesql(mSql);
              Datam->t_maker->Active = false;
              Datam->t_maker->Active = true;
              DBGrid1->Refresh();

         }
     }
                   Edit1->Text = "";
              Edit2->Text = "";
              Edit3->Text = "";
              Edit4->Text = "";
              Edit5->Text = "";
              Edit6->Text = "";
              Edit7->Text = "";
              Edit8->Text = "";
              Edit9->Text = "";
              Edit10->Text = "";
              Edit11->Text = "";
              Edit12->Text = "";

}
//---------------------------------------------------------------------------
void __fastcall Tmaker::BBt_CaleanClick(TObject *Sender)
{
      Edit1->Text = "";
      Edit2->Text = "";
      Edit3->Text = "";
      Edit4->Text = "";
      Edit5->Text = "";
      Edit6->Text = "";
      Edit7->Text = "";
      Edit8->Text = "";
      Edit9->Text = "";
      Edit10->Text = "";
      Edit11->Text = "";
      Edit12->Text = "";

}
//---------------------------------------------------------------------------
void __fastcall Tmaker::BBt_RefClick(TObject *Sender)
{
12

⌨️ 快捷键说明

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