Диплом: Автоматизация управленческого учета основных средств в ООО «Агровит», страницы 117-126

116

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Form_Spisok_OS.Show;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Form_Sprav.Caption:='Вид ОС';

Form_Sprav.DBGrid1.DataSource:=datamod.dm.DS_Vid;

Form_Sprav.DBNavigator1.DataSource:=datamod.dm.DS_Vid;

Form_Sprav.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form_Dvig.Show;

datamod.dm.Table_Dvig.Edit;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form_Amort.Show;

datamod.dm.Table_Amort.Edit;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form_Modern.Show;

datamod.dm.Table_Modern.Edit;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form_Spisan.Show;

datamod.dm.Table_Spisan.Edit;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form_Sprav.Caption:='Отделы';

Form_Sprav.DBGrid1.DataSource:=datamod.dm.DS_Otdel;

Form_Sprav.DBNavigator1.DataSource:=datamod.dm.DS_Otdel;

Form_Sprav.Show;

end;

end.

unit datamod;

interface

uses

System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;

117

type

Tdm = class(TDataModule)

ADOConnection1: TADOConnection;

Table_Amort: TADOTable;

Table_AmortКод_амортизации: TAutoIncField;

Table_AmortКод_ОС: TIntegerField;

Table_AmortДата_амортизации: TDateTimeField;

Table_AmortСтоимостьамортизации: TBCDField;

DS_Amort: TDataSource;

Table_Vid: TADOTable;

DS_Vid: TDataSource;

Table_VidВидОС: TWideStringField;

Table_Dvig: TADOTable;

DS_Dvig: TDataSource;

Table_Modern: TADOTable;

DS_Modern: TDataSource;

Table_DvigКод_движения: TAutoIncField;

Table_DvigОтдел: TWideStringField;

Table_DvigКод_ОС: TIntegerField;

Table_DvigДата: TDateTimeField;

Table_DvigОснованиедвижения: TWideStringField;

Table_ModernКод_модернизации: TAutoIncField;

Table_ModernКод_ОС: TIntegerField;

Table_ModernДата_модернизации: TDateTimeField;

Table_ModernСтоимостьмодернизации: TBCDField;

Table_OS: TADOTable;

DS_OS: TDataSource;

Table_OSКод_ОС: TAutoIncField;

Table_OSВид_ОС: TWideStringField;

Table_OSНаим_ОС: TWideStringField;

Table_OSГодвыпуска: TIntegerField;

Table_OSГодввода: TIntegerField;

Table_Otdel: TADOTable;

DS_Otdel: TDataSource;

Table_OtdelОтдел: TWideStringField;

Table_OtdelФИОруководителя: TWideStringField;

Table_Spisan: TADOTable;

DS_Spisan: TDataSource;

Table_SpisanКод_списания: TAutoIncField;

Table_SpisanКод_ОС: TIntegerField;

Zapros_ist_amort: TADOQuery;

DS_ist_amort: TDataSource;

Table_SpisanДата_списания: TDateTimeField;

Zapros_ist_amortКод_ОС: TAutoIncField;

Zapros_ist_amortВид_ОС: TWideStringField;

Zapros_ist_amortНаим_ОС: TWideStringField;

Zapros_ist_amortДата_амортизации: TDateTimeField;

Zapros_ist_amortСтоимостьамортизации: TBCDField;

Zapros_ist_vvoda: TADOQuery;

DS_ist_vvoda: TDataSource;

Zapros_ist_vvodaГодввода: TIntegerField;

118

Zapros_ist_vvodaКод_ОС: TAutoIncField;

Zapros_ist_vvodaНаим_ОС: TWideStringField;

Zapros_ist_dvighen: TADOQuery;

DS_ist_dvig: TDataSource;

Zapros_ist_dvighenКод_ОС: TAutoIncField;

Zapros_ist_dvighenНаим_ОС: TWideStringField;

Zapros_ist_dvighenОтдел: TWideStringField;

Zapros_ist_dvighenДата: TDateTimeField;

Zapros_ist_dvighenОснованиедвижения: TWideStringField;

Zapros_ist_modern: TADOQuery;

DS_ist_modern: TDataSource;

Zapros_ist_modernКод_ОС: TAutoIncField;

Zapros_ist_modernВид_ОС: TWideStringField;

Zapros_ist_modernНаим_ОС: TWideStringField;

Zapros_ist_modernДата_модернизации: TDateTimeField;

Zapros_ist_modernСтоимостьмодернизации: TBCDField;

Zapros_ist_spisan: TADOQuery;

DS_ist_spisan: TDataSource;

Zapros_ist_spisanДата_списания: TDateTimeField;

Zapros_ist_spisanКод_ОС: TAutoIncField;

Zapros_ist_spisanНаим_ОС: TWideStringField;

Zapros_OS_otdelov: TADOQuery;

DS_OS_otdelov: TDataSource;

Zapros_summa_amort: TADOQuery;

DS_summa_amort: TDataSource;

Zapros_OS_otdelovОтдел: TWideStringField;

Zapros_OS_otdelovНаим_ОС: TWideStringField;

Zapros_OS_otdelovДата: TDateTimeField;

Zapros_summa_amortКод_ОС: TAutoIncField;

Zapros_summa_amortВид_ОС: TWideStringField;

Zapros_summa_amortНаим_ОС: TWideStringField;

Zapros_summa_amortАмортизациясумм: TBCDField;

Zapros_summa_modern: TADOQuery;

DS_summa_modern: TDataSource;

Zapros_summa_modernКод_ОС: TAutoIncField;

Zapros_summa_modernВид_ОС: TWideStringField;

Zapros_summa_modernНаим_ОС: TWideStringField;

Zapros_summa_modernМодернизациясумм: TBCDField;

Table_OSСтоимостьначальная: TBCDField;

Zapros_prosm_OS: TADOQuery;

DS_Prosm_OS: TDataSource;

Zapros_prosm_OSКод_ОС: TAutoIncField;

Zapros_prosm_OSВид_ОС: TWideStringField;

Zapros_prosm_OSНаим_ОС: TWideStringField;

Zapros_prosm_OSГодвыпуска: TIntegerField;

Zapros_prosm_OSГодввода: TIntegerField;

Zapros_prosm_OSСтоимостьначальная: TBCDField;

private

{ Private declarations }

public

{ Public declarations }

119

end;

var

dm: Tdm;

Table1:TADOQuery;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.

unit MyWord;

//ver.100612

interface

uses Grids,SysUtils,DBGrids;

{ TODO : добавить шрифт заголов }

type

WdFonts=integer;

const

{ wdStyleNormal = $FFFFFFFF;

wdStyleBodyText = $FFFFFFBD;

wdStyleHeading1 = $FFFFFFFE;

wdStyleHeading2 = $FFFFFFFD;

wdStyleHeading3 = $FFFFFFFC; }

wdStyleNormal = -1;

wdStyleBodyText = -1;

wdStyleHeading1 = -2;

wdStyleHeading2 = -3;

wdStyleHeading3 = -4;

type

WdUnits=integer;

const

wdPage =$00000000;

wdCharacter =$00000001;

wdWord = $00000002;

wdSentence = $00000003;

wdParagraph = $00000004;

wdLine = $00000005;

wdStory = $00000006;

wdScreen = $00000007;

wdSection = $00000008;

wdColumn = $00000009;

wdRow = $0000000A;

wdWindow = $0000000B;

wdCell = $0000000C;

wdCharacterFormatting = $0000000D;

wdParagraphFormatting = $0000000E;

wdTable = $0000000F;

wdItem = $00000010;

wdAutoFitFixed =0;

wdAutoFitContent =1;

120

wdAutoFitWindow =2;

wdAdjustNone=0;

wdOrientPortrait=0;

wdOrientLandScape=1;

wdAlignParagraphCenter=1;

wdAlignParagraphLeft=0;

wdAlignParagraphRight=2;

wdMove=0;

wdExtend=1;

wdBorderTop = $FFFFFFFF;

wdBorderLeft = $FFFFFFFE;

wdBorderBottom = $FFFFFFFD;

wdBorderRight = $FFFFFFFC;

wdBorderHorizontal = $FFFFFFFB;

wdBorderVertical = $FFFFFFFA;

wdLineStyleNone=0;

wdDialogFileSaveAs = $00000054;

wdDialogFileSummaryInfo = $00000056;

wdDialogToolsTemplates = $00000057;

wdDialogFilePrint = $00000058;

wdDialogFilePrintSetup = $00000061;

wdDialogFileFind = $00000063;

wdDialogFormatAddrFonts = $00000067;

wdDialogEditPasteSpecial = $0000006F;

wdDialogEditFind = $00000070;

wdDialogEditReplace = $00000075;

Function CreateWord:boolean;

Function VisibleWord(visible:boolean):boolean;

Function AddDoc:boolean;

Function AddDocFile(FileName:string):boolean;

Function OpenDoc(file_:string):boolean;

Function SaveDocAs(file_:string):boolean;

Function CloseDoc:boolean;

Function CloseWord:boolean;

Function InsertBreak(WdBreakType:WdUnits):boolean;

Function InsertParagraphAfter:boolean;

Function InsertParagraphAfterTable(table:integer):boolean;

Function MoveInDoc(UnitType:WdUnits;Count:integer):boolean;

Function PageCount:integer;

Function WordCount:integer;

Function StartOfDoc:boolean;

121

Function EndOfDoc:boolean;

Function TypeTextDoc(text_:string):boolean;

Function SetTextToDoc(text_:string ;InsertAfter_:boolean):boolean;

Function GetDocToText(var text:string; wordNum:integer):boolean;

Function FindTextDoc(text_:string):boolean;

Function PasteTextDoc(text_:string):boolean;

Function FindAndPasteTextDoc(findtext_,pastetext_:string):boolean;

Function FindAndInsert(FindText,ReplacementText:string):boolean;

Function DialogWord(Dialog:Wdunits):boolean;

Function SetFont(FontName:WdFonts):boolean;

//Table-------

Function CreateTable(NumRows, NumColumns:integer;var index:integer):boolean;

Procedure GetWordTablesCellValue(Table,Row,Column:integer;var S:string );

Procedure SetWordTablesCellValue(Table,Row,Column:integer;S:string);

procedure GetTableInStringGrid(Table:integer;var StringGrid:TStringGrid);

procedure GetStringGridInTable(StringGrid:TStringGrid;var Table:integer);

procedure GetStringGridInTable2(StringGrid:TStringGrid;var

Table:integer;ColArr:array of integer);

procedure WordTableAddFromDBGrid(DBGrid: TDBGrid;CollSize:boolean;var

Table:integer);

Function SetSizeTable(Table:integer;RowsHeight, ColumnsWidth:real):boolean;

Function GetSizeTable(Table:integer;var RowsHeight,ColumnsWidth:real):boolean;

Function SetHeightRowTable(Table,Row:integer;RowHeight:real):boolean;

Function GetHeightRowTable(Table,Row:integer;var RowHeight:real):boolean;

Function SetWidthColumnTable(Table,Column:integer;ColumnWidth:real):boolean;

Function GetWidthColumnTable(Table,Column:integer;var ColumnWidth:real):boolean;

Function SetTextToTable(Table:integer;Row,Column:integer;text:string):boolean;

Procedure GetTextFromTable(Table:integer;Row,Column:integer;var text:string);

Function CopyHereRawFromTable(table,Row1,Row2:integer):boolean;

Function

SetLineStyleBorderTable(Table:integer;Row,Column,wdBorderType,wdBorderStyle:Wd

Units):boolean;

Function

SetMergeCellsTable(Table:integer;Row1,Column1,Row2,Column2:integer):boolean;

procedure TableAutoFit(Table:integer);

Procedure MakeNewLineInTable(Table,AfterRow,NewRowCount:integer);

Procedure DeleteRowInTable(Table,Row:integer);

//Table-------

procedure InsertPicture(FileName:string);

122

implementation

uses ComObj;

var W:variant;

Function CreateWord:boolean;

begin

CreateWord:=true;

try

W:=CreateOleObject('Word.Application');

W.Options.CheckGrammarAsYouType:=False;

W.Options.CheckSpellingAsYouType:=False;

except

CreateWord:=false;

end;

End;

Function VisibleWord(visible:boolean):boolean;

begin

VisibleWord:=true;

try

W.visible:= visible;

except

VisibleWord:=false;

end;

End;

Function AddDoc:boolean;

Var Doc_:variant;

i:integer;

begin

AddDoc:=true;

try

Doc_:=W.Documents;

Doc_.Add;

except

AddDoc:=false;

end;

End;

Function AddDocFile(FileName:string):boolean;

Var Doc_:variant;

begin;

AddDocFile:=true;

try

Doc_:=W.Documents;

Doc_.Add(FileName);

except

AddDocfile:=false;

end;

123

Function InsertBreak(WdBreakType:WdUnits):boolean;

begin

W.Selection.InsertBreak(WdBreakType);

end;

Function InsertParagraphAfter:boolean;

begin

W.Selection.InsertParagraphAfter;

W.Selection.Move(wdParagraph,1);

end;

Function InsertParagraphAfterTable(table:integer):boolean;

begin

W.Selection.Start:=W.ActiveDocument.Tables.Item(Table).Range.End;

W.Selection.End:=W.ActiveDocument.Tables.Item(Table).Range.End;

W.Selection.InsertParagraphAfter;

end;

Function MoveInDoc(UnitType:WdUnits;Count:integer):boolean;

begin

W.Selection.Move(UnitType,Count);

end;

Function PageCount:integer;

begin

result:=W.ActiveDocument.ComputeStatistics(2);

end;

Function WordCount:integer;

begin

result:=W.ActiveDocument.Words.Count;

end;

Function SetTextToDoc(text_:string ;InsertAfter_:boolean):boolean;

var Rng_:variant;

begin

SetTextToDoc:=true;

try

Rng_:=W.ActiveDocument.Range;

if InsertAfter_ then Rng_.InsertAfter(text_) else Rng_.InsertBefore(text_);

except

SetTextToDoc:=false;

end;

End;

Function GetDocToText(var text:string; wordNum:integer):boolean;

var Rng_:variant;

124

begin

GetDocToText:=true;

try

text:=W.ActiveDocument.Words.Item(wordNum).Text

except

GetDocToText:=false;

end;

End;

Function SaveDocAs(file_:string):boolean;

begin

SaveDocAs:=true;

try

W.ActiveDocument.SaveAs(file_);

except

SaveDocAs:=false;

end;

End;

Function CloseDoc:boolean;

begin

CloseDoc:=true;

try

W.ActiveDocument.Close;

except

CloseDoc:=false;

end;

End;

Function CloseWord:boolean;

begin

CloseWord:=true;

try

W.Quit;

except

CloseWord:=false;

end;

End;

Function OpenDoc(file_:string):boolean;

Var Doc_:variant;

begin

OpenDoc:=true;

try

Doc_:=W.Documents;

Doc_.Open(file_);

W.ActiveDocument.ShowSpellingErrors:=false;

except

OpenDoc:=false;

end;

End;

125

Function StartOfDoc:boolean;

begin

StartOfDoc:=true;

try

W.Selection.End:=0;

W.Selection.Start:=0;

except

StartOfDoc:=false;

end;

End;

Function EndOfDoc:boolean;

begin

EndOfDoc:=true;

try

W.Selection.End:=W.ActiveDocument.Characters.Count;

W.Selection.Start:=W.ActiveDocument.Characters.Count;

except

EndOfDoc:=false;

end;

End;

Function FindTextDoc(text_:string):boolean;

begin

FindTextDoc:=true;

Try

W.Selection.Find.Forward:=true;

W.Selection.Find.Text:=text_;

FindTextDoc := W.Selection.Find.Execute;

except

FindTextDoc:=false;

end;

End;

Function PasteTextDoc(text_:string):boolean;

begin

PasteTextDoc:=true;

Try

W.Selection.Delete;

W.Selection.InsertAfter (text_);

except

PasteTextDoc:=false;

end;

End;

Function TypeTextDoc(text_:string):boolean;

begin

TypeTextDoc:=true;

Try

W.Selection.Delete;

W.Selection.TypeText(text_);

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Agile-методология в управлении проектами на примере ООО «Ресурсный центр «Академия КлассИнфо»
Aвтoмaтизaция пpoцecca вeдeния инфopмaциoннoй бaзы o дoлжнocтяx и вaкaнcияx c укaзaниeм тpeбoвaний к уpoвню знaний и нaвыкoв кaндидaтoв для гpуппы кaдpoв вoйcкoвoй чacти 3474»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
Cовершенствование управления рентабельности предприятия (на примере гуипп «бендерская типография «полиграфист»)
Event - менеджмент: реализация проекта (на примере ООО "АГРОПАК")