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

📄 gasregisterform.h

📁 小区物业管理系统
💻 H
📖 第 1 页 / 共 3 页
字号:
			// dataGridViewTextBoxColumn14
			// 
			this->dataGridViewTextBoxColumn14->DataPropertyName = L"收据编号";
			this->dataGridViewTextBoxColumn14->HeaderText = L"收据编号";
			this->dataGridViewTextBoxColumn14->Name = L"dataGridViewTextBoxColumn14";
			this->dataGridViewTextBoxColumn14->Visible = false;
			// 
			// dataGridViewTextBoxColumn15
			// 
			this->dataGridViewTextBoxColumn15->DataPropertyName = L"业主姓名";
			this->dataGridViewTextBoxColumn15->HeaderText = L"业主姓名";
			this->dataGridViewTextBoxColumn15->Name = L"dataGridViewTextBoxColumn15";
			this->dataGridViewTextBoxColumn15->ReadOnly = true;
			// 
			// dataGridViewTextBoxColumn16
			// 
			this->dataGridViewTextBoxColumn16->DataPropertyName = L"表编号";
			this->dataGridViewTextBoxColumn16->HeaderText = L"表编号";
			this->dataGridViewTextBoxColumn16->Name = L"dataGridViewTextBoxColumn16";
			// 
			// dataGridViewTextBoxColumn17
			// 
			this->dataGridViewTextBoxColumn17->DataPropertyName = L"表底数";
			this->dataGridViewTextBoxColumn17->HeaderText = L"表底数";
			this->dataGridViewTextBoxColumn17->Name = L"dataGridViewTextBoxColumn17";
			// 
			// dataGridViewTextBoxColumn18
			// 
			this->dataGridViewTextBoxColumn18->DataPropertyName = L"表止数";
			this->dataGridViewTextBoxColumn18->HeaderText = L"表止数";
			this->dataGridViewTextBoxColumn18->Name = L"dataGridViewTextBoxColumn18";
			// 
			// dataGridViewTextBoxColumn19
			// 
			this->dataGridViewTextBoxColumn19->DataPropertyName = L"计费单价";
			this->dataGridViewTextBoxColumn19->HeaderText = L"计费单价";
			this->dataGridViewTextBoxColumn19->Name = L"dataGridViewTextBoxColumn19";
			// 
			// dataGridViewTextBoxColumn20
			// 
			this->dataGridViewTextBoxColumn20->DataPropertyName = L"费用类型";
			this->dataGridViewTextBoxColumn20->HeaderText = L"费用类型";
			this->dataGridViewTextBoxColumn20->Name = L"dataGridViewTextBoxColumn20";
			this->dataGridViewTextBoxColumn20->ReadOnly = true;
			// 
			// dataGridViewTextBoxColumn21
			// 
			this->dataGridViewTextBoxColumn21->DataPropertyName = L"计费年份";
			this->dataGridViewTextBoxColumn21->HeaderText = L"计费年份";
			this->dataGridViewTextBoxColumn21->Name = L"dataGridViewTextBoxColumn21";
			this->dataGridViewTextBoxColumn21->ReadOnly = true;
			// 
			// dataGridViewTextBoxColumn22
			// 
			this->dataGridViewTextBoxColumn22->DataPropertyName = L"计费月份";
			this->dataGridViewTextBoxColumn22->HeaderText = L"计费月份";
			this->dataGridViewTextBoxColumn22->Name = L"dataGridViewTextBoxColumn22";
			this->dataGridViewTextBoxColumn22->ReadOnly = true;
			// 
			// dataGridViewTextBoxColumn23
			// 
			this->dataGridViewTextBoxColumn23->DataPropertyName = L"楼栋名称";
			this->dataGridViewTextBoxColumn23->HeaderText = L"楼栋名称";
			this->dataGridViewTextBoxColumn23->Name = L"dataGridViewTextBoxColumn23";
			this->dataGridViewTextBoxColumn23->ReadOnly = true;
			// 
			// dataGridViewTextBoxColumn24
			// 
			this->dataGridViewTextBoxColumn24->DataPropertyName = L"业主编号";
			this->dataGridViewTextBoxColumn24->HeaderText = L"业主编号";
			this->dataGridViewTextBoxColumn24->Name = L"dataGridViewTextBoxColumn24";
			this->dataGridViewTextBoxColumn24->ReadOnly = true;
			// 
			// dataGridViewTextBoxColumn25
			// 
			this->dataGridViewTextBoxColumn25->DataPropertyName = L"自动编号";
			this->dataGridViewTextBoxColumn25->HeaderText = L"自动编号";
			this->dataGridViewTextBoxColumn25->Name = L"dataGridViewTextBoxColumn25";
			this->dataGridViewTextBoxColumn25->ReadOnly = true;
			this->dataGridViewTextBoxColumn25->Visible = false;
			// 
			// dataGridViewTextBoxColumn26
			// 
			this->dataGridViewTextBoxColumn26->DataPropertyName = L"登记标志";
			this->dataGridViewTextBoxColumn26->HeaderText = L"登记标志";
			this->dataGridViewTextBoxColumn26->Name = L"dataGridViewTextBoxColumn26";
			this->dataGridViewTextBoxColumn26->Visible = false;
			// 
			// dataGridViewTextBoxColumn27
			// 
			this->dataGridViewTextBoxColumn27->DataPropertyName = L"费用状态";
			this->dataGridViewTextBoxColumn27->HeaderText = L"费用状态";
			this->dataGridViewTextBoxColumn27->Name = L"dataGridViewTextBoxColumn27";
			this->dataGridViewTextBoxColumn27->Visible = false;
			// 
			// dataGridViewTextBoxColumn28
			// 
			this->dataGridViewTextBoxColumn28->DataPropertyName = L"收据编号";
			this->dataGridViewTextBoxColumn28->HeaderText = L"收据编号";
			this->dataGridViewTextBoxColumn28->Name = L"dataGridViewTextBoxColumn28";
			this->dataGridViewTextBoxColumn28->Visible = false;
			// 
			// GasRegisterForm
			// 
			this->AutoScaleDimensions = System::Drawing::SizeF(6, 12);
			this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
			this->ClientSize = System::Drawing::Size(551, 416);
			this->Controls->Add(this->水电气费DataGridView);
			this->Controls->Add(this->水电气费BindingNavigator);
			this->Name = L"GasRegisterForm";
			this->ShowInTaskbar = false;
			this->StartPosition = System::Windows::Forms::FormStartPosition::CenterParent;
			this->Text = L"费用管理[水电气费登记]";
			this->Load += gcnew System::EventHandler(this, &GasRegisterForm::GasRegisterForm_Load);
			(cli::safe_cast<System::ComponentModel::ISupportInitialize^  >(this->DBCommunityDataSet))->EndInit();
			(cli::safe_cast<System::ComponentModel::ISupportInitialize^  >(this->水电气费BindingSource))->EndInit();
			(cli::safe_cast<System::ComponentModel::ISupportInitialize^  >(this->水电气费BindingNavigator))->EndInit();
			this->水电气费BindingNavigator->ResumeLayout(false);
			this->水电气费BindingNavigator->PerformLayout();
			(cli::safe_cast<System::ComponentModel::ISupportInitialize^  >(this->水电气费DataGridView))->EndInit();
			this->ResumeLayout(false);
			this->PerformLayout();

		}
#pragma endregion
	public:String^ MySQLConnectionString;            
	private: System::Void 水电气费BindingNavigatorSaveItem_Click(System::Object^  sender, System::EventArgs^  e) 
	{
	  this->Validate();
	  this->水电气费BindingSource->EndEdit();
	  this->水电气费TableAdapter->Update(this->DBCommunityDataSet->水电气费);
	}
	private: System::Void GasRegisterForm_Load(System::Object^  sender, System::EventArgs^  e) 
	{
	  for (int i = 2006; i <= 2030; i++)
      {
        this->计费年份ToolStripComboBox->Items->Add(i.ToString());
      }
      for (int i = 1; i <= 12; i++)
      {
        this->计费月份ToolStripComboBox->Items->Add(i.ToString());
      }
      this->费用类型ToolStripComboBox->Items->Add("水费");
      this->费用类型ToolStripComboBox->Items->Add("电费");
      this->费用类型ToolStripComboBox->Items->Add("气费");
      String^ MySQL = "SELECT * FROM [楼栋信息]";
      SqlConnection^ MyConnection = gcnew SqlConnection(MySQLConnectionString);
      MyConnection->Open();
	  System::Data::DataTable^ MyTable = gcnew System::Data::DataTable();
      SqlDataAdapter^ MyAdapter = gcnew SqlDataAdapter(MySQL, MyConnection);
      MyAdapter->Fill(MyTable);
      for each(DataRow^ MyRow in MyTable->Rows)
      {
        this->楼栋名称ToolStripComboBox->Items->Add(MyRow["楼栋名称"]->ToString());
      }
	  if (MyConnection->State == ConnectionState::Open)
      {
        MyConnection->Close();
      }
	}
	private: System::Void 查询ToolStripButton_Click(System::Object^  sender, System::EventArgs^  e) 
	{
	  try 
	  {
	    this->水电气费TableAdapter->Fill(this->DBCommunityDataSet->水电气费, 楼栋名称ToolStripComboBox->Text, System::Nullable<System::Int32 >((*cli::safe_cast<System::Int32^>(System::Convert::ChangeType(计费年份ToolStripComboBox->Text,System::Int32::typeid)))), System::Nullable<System::Int32 >((*cli::safe_cast<System::Int32^>(System::Convert::ChangeType(计费月份ToolStripComboBox->Text,System::Int32::typeid)))), 费用类型ToolStripComboBox->Text, "正在登记");
 	  }
	  catch (System::Exception^ ex) 
	  {
		 System::Windows::Forms::MessageBox::Show(ex->Message);
	  }
	}
	private: System::Void 新增ToolStripButton_Click(System::Object^  sender, System::EventArgs^  e) 
	{//新增水电气费
      String^ MyAddInfo = "现在将新增指定月份的水电气费数据,是否继续?";
	  if (MessageBox::Show(MyAddInfo, "信息提示", MessageBoxButtons::YesNo, MessageBoxIcon::Question) == System::Windows::Forms::DialogResult::No)
      {
        return;
      }
      SqlConnection^ MyConnection = gcnew SqlConnection(MySQLConnectionString);
      MyConnection->Open();
      String^ MySQL = "Select Count(*) From 水电气费 WHERE 计费年份=" + this->计费年份ToolStripComboBox->Text + " AND 计费月份=" + this->计费月份ToolStripComboBox->Text + " AND 费用类型='" + this->费用类型ToolStripComboBox->Text + "' AND 楼栋名称='" + this->楼栋名称ToolStripComboBox->Text+ "'";
      SqlCommand^ MyCommand = MyConnection->CreateCommand();
      MyCommand->CommandText = MySQL;
      String^ MyCount = MyCommand->ExecuteScalar()->ToString();
      if (Convert::ToInt16(MyCount) == 0)
      {//插入新月份费用的业主基本信息
        MySQL = "INSERT INTO 水电气费 (楼栋名称,业主编号,业主姓名) SELECT 楼栋名称,业主编号,业主姓名 FROM 业主信息 WHERE (业主编号 NOT IN (SELECT 业主编号 FROM dbo.迁出信息)) AND (楼栋名称='" + this->楼栋名称ToolStripComboBox->Text + "')";
        MyCommand->CommandText = MySQL;
        MyCommand->ExecuteNonQuery();
        MySQL = "UPDATE 水电气费 SET 登记标志='正在登记',费用类型='" + this->费用类型ToolStripComboBox->Text + "',计费年份=" + this->计费年份ToolStripComboBox->Text + ",计费月份=" + this->计费月份ToolStripComboBox->Text+ " WHERE 登记标志 IS NULL";
        MyCommand->CommandText = MySQL;
        MyCommand->ExecuteNonQuery();
        int MyLastMonth = Convert::ToInt16(this->计费月份ToolStripComboBox->Text) - 1;
        int MyLastYear = Convert::ToInt16(this->计费年份ToolStripComboBox->Text);
        if (MyLastMonth == 0)
        {
          MyLastMonth = 12;
          MyLastYear = Convert::ToInt16(this->计费年份ToolStripComboBox->Text) - 1;
        }
        //将上月止数作为新月份底数
        MySQL = "Select 楼栋名称,业主编号,业主姓名,计费年份,计费月份,费用类型,表编号,表底数,表止数,计费单价 FROM 水电气费 WHERE 计费年份=" + MyLastYear.ToString() + " AND 计费月份=" + MyLastMonth.ToString() + " AND 费用类型='" + this->费用类型ToolStripComboBox->Text + "' AND 楼栋名称='" + this->楼栋名称ToolStripComboBox->Text+ "' AND 登记标志='完成登记'";
		System::Data::DataTable^ MyComputeTable = gcnew System::Data::DataTable();
        SqlDataAdapter^ MyAdatper = gcnew SqlDataAdapter(MySQL, MyConnection);
        MyAdatper->Fill(MyComputeTable);
        for each (DataRow^ MyRow in MyComputeTable->Rows)
        {
          String^ My楼栋名称 = MyRow[0]->ToString();
          String^ My业主编号 = MyRow[1]->ToString();
          String^ My业主姓名 = MyRow[2]->ToString();
          String^ My计费年份 = MyRow[3]->ToString();
          String^ My计费月份 = MyRow[4]->ToString();
          String^ My费用类型 = MyRow[5]->ToString();
          String^ My表编号 = MyRow[6]->ToString();
          String^ My表底数 = MyRow[7]->ToString();
          String^ My表止数 = MyRow[8]->ToString();
          String^ My计费单价 = MyRow[9]->ToString();
          MySQL = "UPDATE 水电气费 SET 表编号='" + My表编号 + "',表底数=" + My表止数 + ",计费单价=" + My计费单价 + " WHERE 计费年份=" + this->计费年份ToolStripComboBox->Text + " AND 计费月份=" + this->计费月份ToolStripComboBox->Text + " AND 费用类型='" + this->费用类型ToolStripComboBox->Text + "' AND 楼栋名称='" + this->楼栋名称ToolStripComboBox->Text + "' AND 业主编号='" + My业主编号 + "'";
          MyCommand->CommandText = MySQL;
          MyCommand->ExecuteNonQuery();
        }
      }
      if (MyConnection->State == ConnectionState::Open)
      {
        MyConnection->Close();
      }
      try 
      {
        this->水电气费TableAdapter->Fill(this->DBCommunityDataSet->水电气费, 楼栋名称ToolStripComboBox->Text, System::Nullable<System::Int32 >((*cli::safe_cast<System::Int32^>(System::Convert::ChangeType(计费年份ToolStripComboBox->Text,System::Int32::typeid)))), System::Nullable<System::Int32 >((*cli::safe_cast<System::Int32^>(System::Convert::ChangeType(计费月份ToolStripComboBox->Text,System::Int32::typeid)))), 费用类型ToolStripComboBox->Text, "正在登记");
      }
      catch (System::Exception^ ex) 
      {
		 System::Windows::Forms::MessageBox::Show(ex->Message);
	  }
	}
	private: System::Void 登记ToolStripButton_Click(System::Object^  sender, System::EventArgs^  e) 
	{
	  String^ MyRegInfo = "登记水电气费数据意味着本月正在登记的数据将无法再修改,是否继续?";
	  if (MessageBox::Show(MyRegInfo, "信息提示", MessageBoxButtons::YesNo, MessageBoxIcon::Question) == System::Windows::Forms::DialogResult::No)
      {
        return;
      }
      SqlConnection^ MyConnection = gcnew SqlConnection(MySQLConnectionString);
      MyConnection->Open();
      String^ MySQL = "UPDATE 水电气费 SET 登记标志='完成登记',费用状态='未交费' WHERE 计费年份=" + this->计费年份ToolStripComboBox->Text + " AND 计费月份=" + this->计费月份ToolStripComboBox->Text + " AND 费用类型='" + this->费用类型ToolStripComboBox->Text + "' AND 楼栋名称='" + this->楼栋名称ToolStripComboBox->Text + "'";
      SqlCommand^ MyCommand = MyConnection->CreateCommand();
      MyCommand->CommandText = MySQL;
      MyCommand->ExecuteNonQuery();
  	  if (MyConnection->State == ConnectionState::Open)
      {
        MyConnection->Close();
      }
      查询ToolStripButton_Click(nullptr, nullptr);
	 }
   };
 }

⌨️ 快捷键说明

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