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

📄 yhxbyxzform.cpp

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

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

#include "yhxbyxzForm.h"
#include "DataMod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tyhxbyxz *yhxbyxz;
//---------------------------------------------------------------------------
__fastcall Tyhxbyxz::Tyhxbyxz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tyhxbyxz::FormCreate(TObject *Sender)
{
//     if(!Datam->t_yhxbyxz->Active)  Datam->t_yhxbyxz->Open();
     Datam->Query1->Close();
     Datam->Query1->SQL->Clear();
     Datam->Query1->SQL->Add("select * from tb_yhxbyxz");
     Datam->Query1->Open();
     BBt_OK->Enabled = false;
     int row;
     row = DBGrid1->SelectedIndex;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("user_name")->AsString;
     Edit1->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i1")->AsFloat);
     Edit2->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i2")->AsFloat);
     Edit3->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i3")->AsFloat);
     Edit4->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i4")->AsFloat);
     Edit5->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i5")->AsFloat);
     Edit6->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i6")->AsFloat);
     Edit7->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i7")->AsFloat);
     Edit8->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i8")->AsFloat);
     Edit9->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i9")->AsFloat);
     Edit10->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i10")->AsFloat);
     Edit11->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i11")->AsFloat);
     Edit12->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i12")->AsFloat);
     Edit13->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i13")->AsFloat);
     Edit14->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i14")->AsFloat);
     Edit15->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i15")->AsFloat);
     Edit16->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i16")->AsFloat);
     Edit17->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i17")->AsFloat);
     Edit18->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i18")->AsFloat);
     Edit19->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i19")->AsFloat);
     Edit20->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i20")->AsFloat);
     Edit21->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i21")->AsFloat);
     Edit22->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i22")->AsFloat);
     Edit23->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i23")->AsFloat);
     Edit24->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i24")->AsFloat);
     Edit25->Text = FormatFloat("0.00",DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("i25")->AsFloat);

}
void Tyhxbyxz::q_exesql(AnsiString mSql)
{
    Datam->yhxbyxz_qry->SQL->Clear();
    Datam->yhxbyxz_qry->SQL->Add(mSql);
    Datam->yhxbyxz_qry->ExecSQL();
    Datam->yhxbyxz_qry->Close();
}
//---------------------------------------------------------------------------
void __fastcall Tyhxbyxz::BBt_AddClick(TObject *Sender)
{
     iButton = 1;
     ComboBox1->Text="";
     Edit1->Text = "";
     Edit2->Text = "";
     Edit3->Text = "";
     Edit4->Text = "";
     Edit5->Text = "";
     Edit6->Text = "";
     Edit7->Text = "";
     Edit8->Text = "";
     Edit9->Text = "";
     Edit10->Text = "";
     Edit11->Text = "";
     Edit12->Text = "";
     Edit13->Text = "";
     Edit14->Text = "";
     Edit15->Text = "";
     Edit16->Text = "";
     Edit17->Text = "";
     Edit18->Text = "";
     Edit19->Text = "";
     Edit20->Text = "";
     Edit21->Text = "";
     Edit22->Text = "";
     Edit23->Text = "";
     Edit24->Text = "";
     Edit25->Text = "";
     BBt_OK->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall Tyhxbyxz::BBt_OKClick(TObject *Sender)
{
     AnsiString TemSql;        //制度属性值
     AnsiString ErrorMsg;      //错误消息
     String OutDate;
     AnsiString mSql;          //制度属性项

     if(Edit1->Text=="") Edit1->Text = "0";
     if(Edit2->Text=="") Edit2->Text = "0";
     if(Edit3->Text=="") Edit3->Text = "0";
     if(Edit4->Text=="") Edit4->Text = "0";
     if(Edit5->Text=="") Edit5->Text = "0";
     if(Edit6->Text=="") Edit6->Text = "0";
     if(Edit7->Text=="") Edit7->Text = "0";
     if(Edit8->Text=="") Edit8->Text = "0";
     if(Edit9->Text=="") Edit9->Text = "0";
     if(Edit10->Text=="") Edit10->Text = "0";
     if(Edit11->Text=="") Edit11->Text = "0";
     if(Edit12->Text=="") Edit12->Text = "0";
     if(Edit13->Text=="") Edit13->Text = "0";
     if(Edit14->Text=="") Edit14->Text = "0";
     if(Edit15->Text=="") Edit15->Text = "0";
     if(Edit16->Text=="") Edit16->Text = "0";
     if(Edit17->Text=="") Edit17->Text = "0";
     if(Edit18->Text=="") Edit18->Text = "0";
     if(Edit19->Text=="") Edit19->Text = "0";
     if(Edit20->Text=="") Edit20->Text = "0";
     if(Edit21->Text=="") Edit21->Text = "0";
     if(Edit22->Text=="") Edit22->Text = "0";
     if(Edit23->Text=="") Edit23->Text = "0";
     if(Edit24->Text=="") Edit24->Text = "0";
     if(Edit25->Text=="") Edit25->Text = "0";

     if(iButton==1)
     {
          if(ComboBox1->Text=="")
          {
              ErrorMsg = "用户名称不能为空！请重新输入。";
              MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
              return;
          }
          mSql="select * from tb_yhxbyxz where user_name='" + ComboBox1->Text+"'";
          Datam->yhxbyxz_qry->Close();
          Datam->yhxbyxz_qry->SQL->Clear();
          Datam->yhxbyxz_qry->SQL->Add(mSql);
          Datam->yhxbyxz_qry->Prepare();
          Datam->yhxbyxz_qry->Open();
          int m_count=Datam->yhxbyxz_qry->RecordCount;
          Datam->yhxbyxz_qry->Close();
          if(m_count>0)
          {
               ErrorMsg = "已存该用户“"+ ComboBox1->Text+"”,请重新输入！";
               MessageBox(Handle,ErrorMsg.c_str() ,"错误",MB_ICONERROR);
               return;
          }
           Datam->yhxbyxz_qry->SQL->Clear();
           Datam->yhxbyxz_qry->SQL->Add("insert into tb_yhxbyxz(user_name,i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25) values(:user_name,:i1,:i2,:i3,:i4,:i5,:i6,:i7,:i8,:i9,:i10,:i11,:i12,:i13,:i14,:i15,:i16,:i17,:i18,:i19,:i20,:i21,:i22,:i23,:i24,:i25)");
           Datam->yhxbyxz_qry->ParamByName("user_name")->AsString = ComboBox1->Text;
           Datam->yhxbyxz_qry->ParamByName("i1")->AsFloat = StrToFloat(Edit1->Text);
           Datam->yhxbyxz_qry->ParamByName("i2")->AsFloat = StrToFloat(Edit2->Text);
           Datam->yhxbyxz_qry->ParamByName("i3")->AsFloat = StrToFloat(Edit3->Text);
           Datam->yhxbyxz_qry->ParamByName("i4")->AsFloat = StrToFloat(Edit4->Text);
           Datam->yhxbyxz_qry->ParamByName("i5")->AsFloat = StrToFloat(Edit5->Text);
           Datam->yhxbyxz_qry->ParamByName("i6")->AsFloat = StrToFloat(Edit6->Text);
           Datam->yhxbyxz_qry->ParamByName("i7")->AsFloat = StrToFloat(Edit7->Text);
           Datam->yhxbyxz_qry->ParamByName("i8")->AsFloat = StrToFloat(Edit8->Text);
           Datam->yhxbyxz_qry->ParamByName("i9")->AsFloat = StrToFloat(Edit9->Text);
           Datam->yhxbyxz_qry->ParamByName("i10")->AsFloat = StrToFloat(Edit10->Text);
           Datam->yhxbyxz_qry->ParamByName("i11")->AsFloat = StrToFloat(Edit11->Text);
           Datam->yhxbyxz_qry->ParamByName("i12")->AsFloat = StrToFloat(Edit12->Text);
           Datam->yhxbyxz_qry->ParamByName("i13")->AsFloat = StrToFloat(Edit13->Text);
           Datam->yhxbyxz_qry->ParamByName("i14")->AsFloat = StrToFloat(Edit14->Text);
           Datam->yhxbyxz_qry->ParamByName("i15")->AsFloat = StrToFloat(Edit15->Text);
           Datam->yhxbyxz_qry->ParamByName("i16")->AsFloat = StrToFloat(Edit16->Text);
           Datam->yhxbyxz_qry->ParamByName("i17")->AsFloat = StrToFloat(Edit17->Text);
           Datam->yhxbyxz_qry->ParamByName("i18")->AsFloat = StrToFloat(Edit18->Text);
           Datam->yhxbyxz_qry->ParamByName("i19")->AsFloat = StrToFloat(Edit19->Text);
           Datam->yhxbyxz_qry->ParamByName("i20")->AsFloat = StrToFloat(Edit20->Text);
           Datam->yhxbyxz_qry->ParamByName("i21")->AsFloat = StrToFloat(Edit21->Text);
           Datam->yhxbyxz_qry->ParamByName("i22")->AsFloat = StrToFloat(Edit22->Text);
           Datam->yhxbyxz_qry->ParamByName("i23")->AsFloat = StrToFloat(Edit23->Text);
           Datam->yhxbyxz_qry->ParamByName("i24")->AsFloat = StrToFloat(Edit24->Text);
           Datam->yhxbyxz_qry->ParamByName("i25")->AsFloat = StrToFloat(Edit25->Text);

           Datam->yhxbyxz_qry->ExecSQL();
           Datam->yhxbyxz_qry->Close();
     }
     else if(iButton==2)
     {
         String Record = DBGrid1->Columns->Items[DBGrid1->SelectedIndex]->Field->DataSet->FieldByName("user_name")->AsString;
         Datam->yhxbyxz_qry->SQL->Clear();
         Datam->yhxbyxz_qry->SQL->Add("delete from tb_yhxbyxz where user_name='"+Record+"'");
         Datam->yhxbyxz_qry->ExecSQL();
         Datam->yhxbyxz_qry->Close();

           Datam->yhxbyxz_qry->SQL->Clear();
           Datam->yhxbyxz_qry->SQL->Add("insert into tb_yhxbyxz(user_name,i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25) values(:user_name,:i1,:i2,:i3,:i4,:i5,:i6,:i7,:i8,:i9,:i10,:i11,:i12,:i13,:i14,:i15,:i16,:i17,:i18,:i19,:i20,:i21,:i22,:i23,:i24,:i25)");
           Datam->yhxbyxz_qry->ParamByName("user_name")->AsString = ComboBox1->Text;
           Datam->yhxbyxz_qry->ParamByName("i1")->AsFloat = StrToFloat(Edit1->Text);
           Datam->yhxbyxz_qry->ParamByName("i2")->AsFloat = StrToFloat(Edit2->Text);
           Datam->yhxbyxz_qry->ParamByName("i3")->AsFloat = StrToFloat(Edit3->Text);
           Datam->yhxbyxz_qry->ParamByName("i4")->AsFloat = StrToFloat(Edit4->Text);
           Datam->yhxbyxz_qry->ParamByName("i5")->AsFloat = StrToFloat(Edit5->Text);
           Datam->yhxbyxz_qry->ParamByName("i6")->AsFloat = StrToFloat(Edit6->Text);
           Datam->yhxbyxz_qry->ParamByName("i7")->AsFloat = StrToFloat(Edit7->Text);
           Datam->yhxbyxz_qry->ParamByName("i8")->AsFloat = StrToFloat(Edit8->Text);
           Datam->yhxbyxz_qry->ParamByName("i9")->AsFloat = StrToFloat(Edit9->Text);
           Datam->yhxbyxz_qry->ParamByName("i10")->AsFloat = StrToFloat(Edit10->Text);
           Datam->yhxbyxz_qry->ParamByName("i11")->AsFloat = StrToFloat(Edit11->Text);
           Datam->yhxbyxz_qry->ParamByName("i12")->AsFloat = StrToFloat(Edit12->Text);
           Datam->yhxbyxz_qry->ParamByName("i13")->AsFloat = StrToFloat(Edit13->Text);
           Datam->yhxbyxz_qry->ParamByName("i14")->AsFloat = StrToFloat(Edit14->Text);
           Datam->yhxbyxz_qry->ParamByName("i15")->AsFloat = StrToFloat(Edit15->Text);
           Datam->yhxbyxz_qry->ParamByName("i16")->AsFloat = StrToFloat(Edit16->Text);
           Datam->yhxbyxz_qry->ParamByName("i17")->AsFloat = StrToFloat(Edit17->Text);
           Datam->yhxbyxz_qry->ParamByName("i18")->AsFloat = StrToFloat(Edit18->Text);
           Datam->yhxbyxz_qry->ParamByName("i19")->AsFloat = StrToFloat(Edit19->Text);
           Datam->yhxbyxz_qry->ParamByName("i20")->AsFloat = StrToFloat(Edit20->Text);
           Datam->yhxbyxz_qry->ParamByName("i21")->AsFloat = StrToFloat(Edit21->Text);
           Datam->yhxbyxz_qry->ParamByName("i22")->AsFloat = StrToFloat(Edit22->Text);
           Datam->yhxbyxz_qry->ParamByName("i23")->AsFloat = StrToFloat(Edit23->Text);
           Datam->yhxbyxz_qry->ParamByName("i24")->AsFloat = StrToFloat(Edit24->Text);
           Datam->yhxbyxz_qry->ParamByName("i25")->AsFloat = StrToFloat(Edit25->Text);

           Datam->yhxbyxz_qry->ExecSQL();
           Datam->yhxbyxz_qry->Close();
     }

     Datam->Query1->Close();
     Datam->Query1->SQL->Clear();
     Datam->Query1->SQL->Add("select * from tb_yhxbyxz");
     Datam->Query1->Open();
     DBGrid1->Refresh();
12

⌨️ 快捷键说明

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