
using System;
using System.Collections.Generic;
using using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using using Microsoft.Office.Interop.Excel;
using System.Drawing.Printing;
using System.Diagnostics;
namespace EPPALR05
{
public partial class EPPALR05 : Form
{
private Microsoft.Office.Interop.Excel.Application m_objExcel = null;
private Microsoft.Office.Interop.Excel.Workbooks m_objBooks = null;
private Microsoft.Office.Interop.Excel._Workbook m_objBook = null;
private Microsoft.Office.Interop.Excel.Sheets m_objSheets = null;
private Microsoft.Office.Interop.Excel._Worksheet m_objSheet = null;
private Microsoft.Office.Interop.Excel.Range m_objRange = null;
//private Microsoft.Office.Interop.Excel.Font m_objFont = null;
//private Microsoft.Office.Interop.Excel.QueryTables m_objQryTables = null;
private Microsoft.Office.Interop.Excel._QueryTable m_objQryTable = null;
// Frequenty-used variable for optional arguments.
private object m_objOpt = System.Reflection.Missing.Value;
//DataBase-used variable
private System.Data.OracleClient.OracleConnection OracleConn = null;
private string strConnect = "Data Source=WZS_DEV;User Id=cms;Password =cms";
private System.Data.OracleClient.OracleCommand OracleCmd = null;
private int intSheetTotalSize = 0;//total record can divied sheet number
private double dbTotalSize = 0;//record total number
public EPPALR05()
{
InitializeComponent();
}
private void button2_Click(object sender, EventArgs e)
{
Close();
}
private void Form1_Load(object sender, EventArgs e)
{
}
private int GetTotalSize()
{
OracleConn = new System.Data.OracleClient.OracleConnection(strConnect);
OracleCmd = new System.Data.OracleClient.OracleCommand("SELECT Count(*) FROM cmpps021 c021,cmpps071 c071 "+
"WHERE c021.ncmp = c071.ncmp "+
"AND c021.orno = c071.orno "+
"AND c071.sorn IS NOT NULL", OracleConn);
OracleConn.Open();
dbTotalSize = Convert.ToInt32(OracleCmd.ExecuteScalar());
OracleConn.Close();
return 1;
}
private void DeclareExcelApp()
{
m_objExcel = new Microsoft.Office.Interop.Excel.Application();
m_objBooks = (Microsoft.Office.Interop.Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Microsoft.Office.Interop.Excel._Workbook)(m_objBooks.Add(m_objOpt));
m_objSheets = (Microsoft.Office.Interop.Excel.Sheets)m_objBook.Worksheets;
intSheetTotalSize = GetTotalSize();
m_objExcel.Quit();
}
private void SaveExcelApp()
{
string excelFileName = string.Empty;
SaveFileDialog sf = new SaveFileDialog();
sf.Filter = "*.xls|*.*";
if (sf.ShowDialog() == DialogResult.OK)
{
excelFileName = sf.FileName;
}
else
{
return;
}
m_objBook.SaveAs(excelFileName, m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt,
Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange,
m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt);
}
private void ExportDataByQueryTable(int intSheetNumber, bool blIsMoreThan)
{
string strQuery = string.Empty;
if (RdoPacking.Checked == true)
{
strQuery =
" SELECT" +
" C021.NCMP, C021.HCUNO" +
" FROM" +
" CMPPS021 C021, CMPPS071 C071" +
" WHERE" +
" C021.NCMP = C071.NCMP" +
" AND C021.ORNO = C071.ORNO" +
" AND C071.SORN IS NOT NULL" +
" AND C021.EPS_PAKNO = '" + txteps_pakno.Text.Trim() + "'";
}
else if (RdoContract.Checked == true)
{
strQuery =
" SELECT" +
" C021.NCMP, C021.HCUNO" +
" FROM" +
" CMPPS021 C021, CMPPS071 C071, EPPALINV EINV, EPPALCON ECON" +
" WHERE" +
" C021.NCMP = C071.NCMP" +
" AND C021.ORNO = C071.ORNO" +
" AND C071.SORN IS NOT NULL" +
" AND C021.NCMP = " +
" AND TO_CHAR (C021.PINO) = EINV.INVNO" +
" AND ECON.PACKLST = EINV.PACKLST" +
" AND ECON.CONTNO ='" + txteps_pakno.Text.Trim() + "'";
}
m_objSheet = (Microsoft.Office.Interop.Excel._Worksheet)(m_objSheets.get_Item(intSheetNumber));
m_objSheet.get_Range("A1", m_objOpt).set_Value(m_objOpt, "一");
m_objSheet.get_Range("B1", m_objOpt).set_Value(m_objOpt, "二");
m_objSheet.get_Range("C1", m_objOpt).set_Value(m_objOpt, "三");
m_objSheet.get_Range("D1", m_objOpt).set_Value(m_objOpt, "四");
m_objSheet.get_Range("E1", m_objOpt).set_Value(m_objOpt, "五");
m_objRange = m_objSheet.get_Range("A2", m_objOpt);
m_objQryTable = m_objSheet.QueryTables.Add("OLEDB;Provider=OracleOLEDB.1;" + strConnect, m_objRange, strQuery);
m_objQryTable.RefreshStyle = Microsoft.Office.Interop.Excel.XlCellInsertionMode.xlInsertEntireRows;
m_objQryTable.FieldNames = false;
m_objQryTable.Refresh(false); //重新从数据源中读取当条记录
}
private void button1_Click(object sender, EventArgs e)
{
DeclareExcelApp();
SaveExcelApp();
}
}
}
using System.Collections.Generic;
using using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using using Microsoft.Office.Interop.Excel;
using System.Drawing.Printing;
using System.Diagnostics;
namespace EPPALR05
{
public partial class EPPALR05 : Form
{
private Microsoft.Office.Interop.Excel.Application m_objExcel = null;
private Microsoft.Office.Interop.Excel.Workbooks m_objBooks = null;
private Microsoft.Office.Interop.Excel._Workbook m_objBook = null;
private Microsoft.Office.Interop.Excel.Sheets m_objSheets = null;
private Microsoft.Office.Interop.Excel._Worksheet m_objSheet = null;
private Microsoft.Office.Interop.Excel.Range m_objRange = null;
//private Microsoft.Office.Interop.Excel.Font m_objFont = null;
//private Microsoft.Office.Interop.Excel.QueryTables m_objQryTables = null;
private Microsoft.Office.Interop.Excel._QueryTable m_objQryTable = null;
// Frequenty-used variable for optional arguments.
private object m_objOpt = System.Reflection.Missing.Value;
//DataBase-used variable
private System.Data.OracleClient.OracleConnection OracleConn = null;
private string strConnect = "Data Source=WZS_DEV;User Id=cms;Password =cms";
private System.Data.OracleClient.OracleCommand OracleCmd = null;
private int intSheetTotalSize = 0;//total record can divied sheet number
private double dbTotalSize = 0;//record total number
public EPPALR05()
{
InitializeComponent();
}
private void button2_Click(object sender, EventArgs e)
{
Close();
}
private void Form1_Load(object sender, EventArgs e)
{
}
private int GetTotalSize()
{
OracleConn = new System.Data.OracleClient.OracleConnection(strConnect);
OracleCmd = new System.Data.OracleClient.OracleCommand("SELECT Count(*) FROM cmpps021 c021,cmpps071 c071 "+
"WHERE c021.ncmp = c071.ncmp "+
"AND c021.orno = c071.orno "+
"AND c071.sorn IS NOT NULL", OracleConn);
OracleConn.Open();
dbTotalSize = Convert.ToInt32(OracleCmd.ExecuteScalar());
OracleConn.Close();
return 1;
}
private void DeclareExcelApp()
{
m_objExcel = new Microsoft.Office.Interop.Excel.Application();
m_objBooks = (Microsoft.Office.Interop.Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Microsoft.Office.Interop.Excel._Workbook)(m_objBooks.Add(m_objOpt));
m_objSheets = (Microsoft.Office.Interop.Excel.Sheets)m_objBook.Worksheets;
intSheetTotalSize = GetTotalSize();
m_objExcel.Quit();
}
private void SaveExcelApp()
{
string excelFileName = string.Empty;
SaveFileDialog sf = new SaveFileDialog();
sf.Filter = "*.xls|*.*";
if (sf.ShowDialog() == DialogResult.OK)
{
excelFileName = sf.FileName;
}
else
{
return;
}
m_objBook.SaveAs(excelFileName, m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt,
Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange,
m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt);
}
private void ExportDataByQueryTable(int intSheetNumber, bool blIsMoreThan)
{
string strQuery = string.Empty;
if (RdoPacking.Checked == true)
{
strQuery =
" SELECT" +
" C021.NCMP, C021.HCUNO" +
" FROM" +
" CMPPS021 C021, CMPPS071 C071" +
" WHERE" +
" C021.NCMP = C071.NCMP" +
" AND C021.ORNO = C071.ORNO" +
" AND C071.SORN IS NOT NULL" +
" AND C021.EPS_PAKNO = '" + txteps_pakno.Text.Trim() + "'";
}
else if (RdoContract.Checked == true)
{
strQuery =
" SELECT" +
" C021.NCMP, C021.HCUNO" +
" FROM" +
" CMPPS021 C021, CMPPS071 C071, EPPALINV EINV, EPPALCON ECON" +
" WHERE" +
" C021.NCMP = C071.NCMP" +
" AND C021.ORNO = C071.ORNO" +
" AND C071.SORN IS NOT NULL" +
" AND C021.NCMP = " +
" AND TO_CHAR (C021.PINO) = EINV.INVNO" +
" AND ECON.PACKLST = EINV.PACKLST" +
" AND ECON.CONTNO ='" + txteps_pakno.Text.Trim() + "'";
}
m_objSheet = (Microsoft.Office.Interop.Excel._Worksheet)(m_objSheets.get_Item(intSheetNumber));
m_objSheet.get_Range("A1", m_objOpt).set_Value(m_objOpt, "一");
m_objSheet.get_Range("B1", m_objOpt).set_Value(m_objOpt, "二");
m_objSheet.get_Range("C1", m_objOpt).set_Value(m_objOpt, "三");
m_objSheet.get_Range("D1", m_objOpt).set_Value(m_objOpt, "四");
m_objSheet.get_Range("E1", m_objOpt).set_Value(m_objOpt, "五");
m_objRange = m_objSheet.get_Range("A2", m_objOpt);
m_objQryTable = m_objSheet.QueryTables.Add("OLEDB;Provider=OracleOLEDB.1;" + strConnect, m_objRange, strQuery);
m_objQryTable.RefreshStyle = Microsoft.Office.Interop.Excel.XlCellInsertionMode.xlInsertEntireRows;
m_objQryTable.FieldNames = false;
m_objQryTable.Refresh(false); //重新从数据源中读取当条记录
}
private void button1_Click(object sender, EventArgs e)
{
DeclareExcelApp();
SaveExcelApp();
}
}
}