📄 yhxbyxzform.cpp

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

     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 = "";
}
//---------------------------------------------------------------------------

void __fastcall Tyhxbyxz::BBt_CaleanClick(TObject *Sender)
{
     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_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("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->Query1->Close();
     Datam->Query1->SQL->Clear();
     Datam->Query1->SQL->Add("select * from tb_yhxbyxz");
     Datam->Query1->Open();
     BBt_OK->Enabled = false;
    DBGrid1->Refresh();
    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 __fastcall Tyhxbyxz::BBt_ChangClick(TObject *Sender)
{
     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);
     iButton = 2;
     ID = ComboBox1->Text;
     BBt_OK->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall Tyhxbyxz::BBt_ExitClick(TObject *Sender)
{
    Close();        
}
//---------------------------------------------------------------------------

void __fastcall Tyhxbyxz::FormClose(TObject *Sender, TCloseAction &Action)
{
       if(Datam->Query1->Active)  Datam->Query1->Close();
}
//---------------------------------------------------------------------------


void __fastcall Tyhxbyxz::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
     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 __fastcall Tyhxbyxz::DBGrid1CellClick(TColumn *Column)
{
     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);
}
//---------------------------------------------------------------------------
上一页 12
💿 文件大小 327 K
👤 上传用户 xhaibo
📂 所属分类其他行业
🏷️ 相关标签

#源代码 #操作 #电力设备 #电力行业
⌨️ 快捷键说明

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