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

📄 querypayform.h

📁 这是一个用VC++编写的人事工资管理系统,开发平台为VS2005,是开发企业管理程序的程序员的很好参考!
💻 H
📖 第 1 页 / 共 4 页
字号:
				MyRange=MyWorkSheet->Range["A5","N5"];
				break;
			case 78:
				MyRange=MyWorkSheet->Range["A5","O5"];
				break;
			case 79:
				MyRange=MyWorkSheet->Range["A5","P5"];
				break;
			case 80:
				MyRange=MyWorkSheet->Range["A5","Q5"];
				break;
			case 81:
				MyRange=MyWorkSheet->Range["A5","R5"];
				break;
			case 82:
				MyRange=MyWorkSheet->Range["A5","S5"];
				break;
			case 83:
				MyRange=MyWorkSheet->Range["A5","T5"];
				break;
			case 84:
				MyRange=MyWorkSheet->Range["A5","U5"];
				break;
			case 85:
				MyRange=MyWorkSheet->Range["A5","V5"];
				break;
			case 86:
				MyRange=MyWorkSheet->Range["A5","W5"];
				break;
			case 87:
				MyRange=MyWorkSheet->Range["A5","X5"];
				break;
			case 88:
				MyRange=MyWorkSheet->Range["A5","Y5"];
				break;
			case 89:
				MyRange=MyWorkSheet->Range["A5","Z5"];
				break;
			}			        
            Count = 0;
            for each (DataColumn^ MyNewColumn in this->MyPersonnelDataSet->工资发放表->Columns)
            {
                MyData[0, Count] = MyNewColumn->ColumnName;
                Count = Count + 1;
            }
            j = 1;
            //输出数据库记录
            for each (DataRow^ MyRow in this->MyPersonnelDataSet->工资发放表->Rows)
            {
                for (i = 0; i < this->MyPersonnelDataSet->工资发放表->Columns->Count; i++)
                {
                    MyData[j, i] = MyRow[i]->ToString();
                }
                j++;
            }
            MyRange = MyRange->Resize[this->MyPersonnelDataSet->工资发放表->Rows->Count + 1, this->MyPersonnelDataSet->工资发放表->Columns->Count];
            MyRange->Value2 = MyData;
            MyRange->EntireColumn->AutoFit();
            MyWorkSheet->Cells[2, 2] = this->MyCompany + "工资发放表";
            MyWorkSheet->Cells[4, 1] = "日期:" + this->年份ToolStripComboBox->Text + "年" + this->月份ToolStripComboBox->Text + "月";  
		 }
		private: System::Void 打印银行入帐单ToolStripButton_Click(System::Object^  sender, System::EventArgs^  e) {
            //导出Excel表格数据文件
			ApplicationClass^ MyExcel;
			Workbooks^ MyWorkBooks;
			Workbook^ MyWorkBook;
			Worksheet^ MyWorkSheet;
			char MyColumns;
			Range^ MyRange;
			array<System::Object^,2>^ MyData=gcnew array<System::Object^,2>(500,35);
			int Count, i, j;
			MyExcel = gcnew ApplicationClass();
			MyExcel->Visible = true;
			if (MyExcel == nullptr)
			{
				MessageBox::Show("Excel程序无法启动!", "信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);
				return;
			}
			MyWorkBooks = MyExcel->Workbooks;
			MyWorkBook = MyWorkBooks->Add(Missing::Value);
			MyWorkSheet = (Worksheet^)MyWorkBook->Worksheets[1];	
			MyRange = MyWorkSheet->Range["A5", "C5"];
            MyData[0, 0] = "姓名";
            MyData[0, 1] = "银行帐号";
            MyData[0, 2] = "金额";
            j = 1;
            //输出数据库记录
            for each (DataRow^ MyRow in this->MyPersonnelDataSet->工资发放表->Rows)
            {
                MyData[j, 0] = MyRow[2]->ToString();
                MyData[j, 1] = MyRow[17]->ToString();
                MyData[j, 2] = MyRow[16]->ToString();
                j++;
            }
            MyRange = MyRange->Resize[this->MyPersonnelDataSet->工资发放表->Rows->Count + 1, this->MyPersonnelDataSet->工资发放表->Columns->Count];
            MyRange->Value2 = MyData;
            MyRange->EntireColumn->AutoFit();
            MyWorkSheet->Cells[2, 2] = this->MyCompany + "员工工资银行入帐单";
            MyWorkSheet->Cells[4, 1] = "日期:" + this->年份ToolStripComboBox->Text + "年" + this->月份ToolStripComboBox->Text + "月";  
		 }
		private: System::Void 打印养老险入帐单ToolStripButton_Click(System::Object^  sender, System::EventArgs^  e) {
            //导出Excel表格数据文件
			ApplicationClass^ MyExcel;
			Workbooks^ MyWorkBooks;
			Workbook^ MyWorkBook;
			Worksheet^ MyWorkSheet;
			char MyColumns;
			Range^ MyRange;
			array<System::Object^,2>^ MyData=gcnew array<System::Object^,2>(500,35);
			int Count, i, j;
			MyExcel = gcnew ApplicationClass();
			MyExcel->Visible = true;
			if (MyExcel == nullptr)
			{
				MessageBox::Show("Excel程序无法启动!", "信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);
				return;
			}
			MyWorkBooks = MyExcel->Workbooks;
			MyWorkBook = MyWorkBooks->Add(Missing::Value);
			MyWorkSheet = (Worksheet^)MyWorkBook->Worksheets[1];	
            MyRange = MyWorkSheet->Range["A5", "C5"];
            MyData[0, 0] = "姓名";
            MyData[0, 1] = "养老保险帐号";
            MyData[0, 2] = "金额";
            j = 1;
            //输出数据库记录
            for each (DataRow^ MyRow in this->MyPersonnelDataSet->工资发放表->Rows)
            {
                MyData[j, 0] = MyRow[2]->ToString();
                MyData[j, 1] = MyRow[18]->ToString();
                MyData[j, 2] = MyRow[11]->ToString();
                j++;
            }
            MyRange = MyRange->Resize[this->MyPersonnelDataSet->工资发放表->Rows->Count + 1, this->MyPersonnelDataSet->工资发放表->Columns->Count];
            MyRange->Value2 = MyData;
            MyRange->EntireColumn->AutoFit();
            MyWorkSheet->Cells[2, 2] = this->MyCompany + "员工养老保险入帐单";
            MyWorkSheet->Cells[4, 1] = "日期:" + this->年份ToolStripComboBox->Text + "年" + this->月份ToolStripComboBox->Text + "月";  
		 }
		private: System::Void 打印医疗险入帐单ToolStripButton_Click(System::Object^  sender, System::EventArgs^  e) {
            //导出Excel表格数据文件
			ApplicationClass^ MyExcel;
			Workbooks^ MyWorkBooks;
			Workbook^ MyWorkBook;
			Worksheet^ MyWorkSheet;
			char MyColumns;
			Range^ MyRange;
			array<System::Object^,2>^ MyData=gcnew array<System::Object^,2>(500,35);
			int Count, i, j;
			MyExcel = gcnew ApplicationClass();
			MyExcel->Visible = true;
			if (MyExcel == nullptr)
			{
				MessageBox::Show("Excel程序无法启动!", "信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);
				return;
			}
			MyWorkBooks = MyExcel->Workbooks;
			MyWorkBook = MyWorkBooks->Add(Missing::Value);
			MyWorkSheet = (Worksheet^)MyWorkBook->Worksheets[1];	
            MyRange = MyWorkSheet->Range["A5", "C5"];
            MyData[0, 0] = "姓名";
            MyData[0, 1] = "医疗保险帐号";
            MyData[0, 2] = "金额";
            j = 1;
            //输出数据库记录
            for each (DataRow^ MyRow in this->MyPersonnelDataSet->工资发放表->Rows)
            {
                MyData[j, 0] = MyRow[2]->ToString();
                MyData[j, 1] = MyRow[19]->ToString();
                MyData[j, 2] = MyRow[12]->ToString();
                j++;
            }
            MyRange = MyRange->Resize[this->MyPersonnelDataSet->工资发放表->Rows->Count + 1, this->MyPersonnelDataSet->工资发放表->Columns->Count];
            MyRange->Value2 = MyData;
            MyRange->EntireColumn->AutoFit();
            MyWorkSheet->Cells[2, 2] = this->MyCompany + "员工医疗保险入帐单";
            MyWorkSheet->Cells[4, 1] = "日期:" + this->年份ToolStripComboBox->Text + "年" + this->月份ToolStripComboBox->Text + "月";  
		 }
		private: System::Void 打印住房基金入帐单ToolStripButton_Click(System::Object^  sender, System::EventArgs^  e) {
            //导出Excel表格数据文件
			ApplicationClass^ MyExcel;
			Workbooks^ MyWorkBooks;
			Workbook^ MyWorkBook;
			Worksheet^ MyWorkSheet;
			char MyColumns;
			Range^ MyRange;
			array<System::Object^,2>^ MyData=gcnew array<System::Object^,2>(500,35);
			int Count, i, j;
			MyExcel = gcnew ApplicationClass();
			MyExcel->Visible = true;
			if (MyExcel == nullptr)
			{
				MessageBox::Show("Excel程序无法启动!", "信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);
				return;
			}
			MyWorkBooks = MyExcel->Workbooks;
			MyWorkBook = MyWorkBooks->Add(Missing::Value);
			MyWorkSheet = (Worksheet^)MyWorkBook->Worksheets[1];	
            MyRange = MyWorkSheet->Range["A5", "C5"];
            MyData[0, 0] = "姓名";
            MyData[0, 1] = "住房基金帐号";
            MyData[0, 2] = "金额";
            j = 1;
            //输出数据库记录
            for each (DataRow^ MyRow in this->MyPersonnelDataSet->工资发放表->Rows)
            {
                MyData[j, 0] = MyRow[2]->ToString();
                MyData[j, 1] = MyRow[20]->ToString();
                MyData[j, 2] = MyRow[13]->ToString();
                j++;
            }
            MyRange = MyRange->Resize[this->MyPersonnelDataSet->工资发放表->Rows->Count + 1, this->MyPersonnelDataSet->工资发放表->Columns->Count];
            MyRange->Value2 = MyData;
            MyRange->EntireColumn->AutoFit();
            MyWorkSheet->Cells[2, 2] = this->MyCompany + "员工住房基金入帐单";
            MyWorkSheet->Cells[4, 1] = "日期:" + this->年份ToolStripComboBox->Text + "年" + this->月份ToolStripComboBox->Text + "月";  
		 }
	};
}

⌨️ 快捷键说明

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