l;System.Data;System.Drawing;System.Linq;System.Text;System.Windows.Forms;Excel =Microsoft.Office.Interop.Excel; System.Data.OleDb; System.IO; Практика
{partial class Відомість: Form
{Відомість ()
{();
} void Ведомость_Load (object sender, EventArgs e)
{
//TODO: дана рядок коду дозволяє завантажити дані в таблицю данних_БазаDataSet.Рабочіе raquo ;. При необхідності вона може бути переміщена або удалена..рабочиеTableAdapter.Fill(this.данных_БазаDataSet.Рабочие);
}
//????? Excel.Range excelcells; int progresbar, li; void listBox1_SelectedIndexChanged (object sender, EventArgs e)
{t=listBox1.Text; .Items.Add ( + t + );
} void button1_Click (object sender, EventArgs e)
{
{sd=listBox2.SelectedItems.Count; (int i=0; i lt; sd; i ++)
{. Items.RemoveAt (listBox2.SelectedIndex);
}
}
{. Show ( Вибіріте групу зі списку яку ви хочете видалити. );
}
} void button2_Click (object sender, EventArgs e)
{= 2;=li; aa=new test ();
aa.Show () ;. label1.Text= Створення документа raquo ;;. label1.Text= Оформлення полів raquo ;;
OleDbConnection con=new OleDbConnection ( Provider=Microsoft.ACE.OLEDB.12.0; Data Source=| DataDirectory | даних База.accdb ) ;. progressBar1.Value +=progresbar; .Office.Interop.Excel.Application Excel_=new Microsoft.Office.Interop.Excel.Application () ;. Office.Interop.Excel.Workbook ObjWorkBook;=Excel_.Workbooks.Open (Environment.CurrentDirectory + FormT13.xls ) ; .Office.Interop.Excel.Worksheet m_workSheet=null; _workSheet=Excel_.ActiveSheet; a1, a2, a3, a4, a5, A6, A7;=24;=24;=25;=24;=25;=26 ;=27; cur_date=DateTime.Today.ToShortDateString (); _. Cells [13, 149]= + Cur_date + raquo ;;. Range range;
Excel_.Cells [16, I ]= Прізвище, ім'я, по батькові, посада (спеціальність, професія) raquo ;; _. Cells [16, AW ]= laquo ; Відмітки про проведені роботах по числах місяця raquo ;;
int nom=1, rt=24; t=24, u=27; (int i=0; i lt; listBox2.Items.Count; i ++)
{_. Cells [rt, A ]= + Nom + raquo ;;=rt + 4;=nom + 1;=Excel_.get_Range ( A + t, H + u) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( I + t, AI + u) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( AJ + t, AV + u) .Cells;.Merge (Type.Missing) ;. progressBar1.Value +=progresbar;
//day
//1 рядок днів=Excel_.get_Range ( AW + a1, AZ + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BA + a1, BD + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BE + a1, BH + a1) .Cells; .Merge (Type. Missing);=Excel_.get_Range ( BI + a1, BL + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BM + a1, BP + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BI + a1, BL + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BQ + a1, BT + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BU + a1, BX + a1) .Cells; .Merge (Type. Missing);=Excel_.get_Range ( BI + a1, BL + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BY + a1, CB + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( CC + a1, CF + A1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( CG + a1, CJ + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( laquo ; CK + a1, CN + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( CG + a1, CJ + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( CO + a1, CR + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( CS + a1, CV + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( CW + a1, CZ + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( laquo ; DA + a1, DD + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( DE + a1, DH + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( DI + a1, DS + a1) .Cells; .Merge (Type.Missing) ;. progressBar1.Value +=progresbar;
//2 рядок днів=a1 + 1;=Excel_.get_Range ( AW + a1, AZ + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BA + a1, BD + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BE + a1, BH + a1) .Cells;.Merge (Type.Missing);=Excel_.get_Range ( BI + a1, BL + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BM + a1, BP + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BI + a1, BL + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BQ + a1, BT + a1) .Cells; .Merge (Type.Missing);=Excel_.get_Range ( BU + a1, BX + a1) .Cells;.Merge (Type.Missing);=Excel_.get_Rang...
