Лабораториялық ЖҰмыс №3. «Достық» қолданушы интерфейсін құру
«Вставить в Excel» пернесін басқанда келесі код орындалады
жүктеу/скачать 2,43 Mb.
|
интерфейс пр мет
«Вставить в Excel» пернесін басқанда келесі код орындалады:procedure TForm5.BitBtn4Click(Sender: TObject); var Template,NewTemplate,ItemIndex:OleVariant; i,n,index:integer; begin try Template := EmptyParam; NewTemplate := True; ItemIndex := 1; try ExcelApplication1.Connect; except MessageDlg('ОШИБКА!!! Excel не может быть установлен!!!', mtError, [mbOk], 0); Abort; end; ExcelApplication1.Visible[1]:=true; ExcelApplication1.Caption:='Новый документ'; {Создание нового документа} Template := EmptyParam; if CheckBox1.Checked then begin ExcelApplication1.Workbooks.Add(Template,0); ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[Itemindex]); end; n:=Form5.Table1.RecordCount+2; ExcelApplication1.Range['A2','S'+IntToStr(n)].Columns.Borders.LineStyle:=xlcontinuous; ExcelApplication1.Range['A2','S'+IntToStr(n)].Columns.AutoFit; ExcelApplication1.Range['A2','S'+IntToStr(n)].Font.Name:='Times New Roman'; ExcelApplication1.Range['A2','S'+IntToStr(n)].Columns.WrapText:=true; ExcelApplication1.Range['A2','S'+IntToStr(n)].ColumnWidth:=15; ExcelApplication1.Range['A2','S2'].Font.Size:=10; ExcelApplication1.Range['A2','S2'].Font.Bold:=1; ExcelApplication1.Range['A2','S2'].HorizontalAlignment:=xlhAlignCenter; ExcelApplication1.Range['A3','S'+IntToStr(n)].Font.Size:=8; ExcelApplication1.Range['A3','S'+IntToStr(n)].Font.Bold:=0; ExcelApplication1.Range['A3','S'+IntToStr(n)].HorizontalAlignment:=xlhAlignLeft; ExcelApplication1.Range['A3','S'+IntToStr(n)].VerticalAlignment:=xlvAlignCenter; ExcelApplication1.Cells.Item[2,1].value:='Фамилия'; ExcelApplication1.Cells.Item[2,2].value:='Имя'; ExcelApplication1.Cells.Item[2,3].value:='Отчество'; ExcelApplication1.Cells.Item[2,4].value:='Номер удостоверения'; ExcelApplication1.Cells.Item[2,5].value:='Номер РНН'; ExcelApplication1.Cells.Item[2,6].value:='Номер СИК'; ExcelApplication1.Cells.Item[2,7].value:='Адрес'; ExcelApplication1.Cells.Item[2,8].value:='Телефон'; ExcelApplication1.Cells.Item[2,9].value:='Номер свидетельства о браке'; ExcelApplication1.Cells.Item[2,10].value:='Размер необходимого кредита'; ExcelApplication1.Cells.Item[2,11].value:='Годовая поцентная ставка'; ExcelApplication1.Cells.Item[2,12].value:='Срок кредитования'; ExcelApplication1.Cells.Item[2,13].value:='Размер первоначального взноса'; ExcelApplication1.Cells.Item[2,14].value:='Сумма первоначального взноса'; ExcelApplication1.Cells.Item[2,15].value:='Сумма кредита'; ExcelApplication1.Cells.Item[2,16].value:='Месячная процентная ставка'; ExcelApplication1.Cells.Item[2,17].value:='Ежемесячная плата'; ExcelApplication1.Cells.Item[2,18].value:='Общая сумма'; ExcelApplication1.Cells.Item[2,19].value:='Фактический годовой процент'; index:=3; Form5.Table1.First; for i:=0 to form5.Table1.RecordCount-1 do begin ExcelApplication1.Cells.Item[Index,1].font.size:=8; ExcelApplication1.Cells.Item[Index,1].Font.Bold:=0; ExcelApplication1.Cells.Item[index,1]:=Form5.Table1.Fields.Fields[1].AsString; ExcelApplication1.Cells.Item[index,2]:=Form5.Table1.Fields.Fields[2].AsString; ExcelApplication1.Cells.Item[index,3]:=Form5.Table1.Fields.Fields[3].AsString; ExcelApplication1.Cells.Item[index,4]:=Form5.Table1.Fields.Fields[4].AsString; ExcelApplication1.Cells.Item[index,5]:=Form5.Table1.Fields.Fields[5].AsString; ExcelApplication1.Cells.Item[index,6]:=Form5.Table1.Fields.Fields[6].AsString; ExcelApplication1.Cells.Item[index,7]:=Form5.Table1.Fields.Fields[7].AsString; ExcelApplication1.Cells.Item[index,8]:=Form5.Table1.Fields.Fields[8].AsString; ExcelApplication1.Cells.Item[index,9]:=Form5.Table1.Fields.Fields[9].AsString; ExcelApplication1.Cells.Item[index,10]:=Form5.Table1.Fields.Fields[10].AsString; ExcelApplication1.Cells.Item[index,11]:=Form5.Table1.Fields.Fields[11].AsString; ExcelApplication1.Cells.Item[index,12]:=Form5.Table1.Fields.Fields[12].AsString; ExcelApplication1.Cells.Item[index,13]:=Form5.Table1.Fields.Fields[13].AsString; ExcelApplication1.Cells.Item[index,14]:=Form5.Table1.Fields.Fields[14].AsString; ExcelApplication1.Cells.Item[index,15]:=Form5.Table1.Fields.Fields[15].AsString; ExcelApplication1.Cells.Item[index,16]:=Form5.Table1.Fields.Fields[16].AsString; ExcelApplication1.Cells.Item[index,17]:=Form5.Table1.Fields.Fields[17].AsString; ExcelApplication1.Cells.Item[index,18]:=Form5.Table1.Fields.Fields[18].AsString; ExcelApplication1.Cells.Item[index,19]:=Form5.Table1.Fields.Fields[19].AsString; inc(index); Form5.Table1.Next; end; BitBtn5.Enabled := True; except on E: Exception do begin ShowMessage(E.Message); ExcelApplication1.Disconnect; end; end; end; жүктеу/скачать 2,43 Mb. Достарыңызбен бөлісу:
|