Поможем в ✍️ написании учебной работы

Имя

Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Выберите тип работыЧасть дипломаДипломная работаКурсовая работаКонтрольная работаРешение задачРефератНаучно - исследовательская работаОтчет по практикеОтветы на билетыТест/экзамен onlineМонографияЭссеДокладКомпьютерный набор текстаКомпьютерный чертежРецензияПереводРепетиторБизнес-планКонспектыПроверка качестваЭкзамен на сайтеАспирантский рефератМагистерская работаНаучная статьяНаучный трудТехническая редакция текстаЧертеж от рукиДиаграммы, таблицыПрезентация к защитеТезисный планРечь к дипломуДоработка заказа клиентаОтзыв на дипломПубликация статьи в ВАКПубликация статьи в ScopusДипломная работа MBAПовышение оригинальностиКопирайтингДругое

Нажимая кнопку "Продолжить", я принимаю политику конфиденциальности

// –

 

#ifndef USStatProvodkiFormH

#define USStatProvodkiFormH

// –

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include «ASUBUTEX.h»

#include «AsuDBGrd.h»

#include «AsuTable.h»

#include «AsuForm.h»

#include «StatProvodkiTable.h»

#include <Db.hpp>

#include <DBGrids.hpp>

#include <DBTables.hpp>

#include <Grids.hpp>

#include «ASUQUERY.h»

// –

class TFSStatProvodki: public AsuForm

{

__published:   // IDE-managed Components

TButton *SearchButton;

AsuButtonExit *AsuButtonExit1;

StatProvodkiTable *StatProvodkiTable1;

AsuQuery *AsuQuery1;

void __fastcall SearchButtonClick (TObject *Sender);

void __fastcall AsuButtonExit1Click (TObject *Sender);

private:  // User declarations

public: // User declarations

__fastcall TFSStatProvodki (TComponent* Owner);

};

// –

extern PACKAGE TFSStatProvodki *FSStatProvodki;

// –

#endif

Программа USStatProvodkiForm.cpp

// –

 

#include <vcl.h>

#pragma hdrstop

#include «AsuObj.h»

#include «USStatProvodkiForm.h»

// –

#pragma package (smart_init)

#pragma link «ASUBUTEX»

#pragma link «AsuDBGrd»

#pragma link «AsuTable»

#pragma link «StatProvodkiTable»

#include «SearchWn.h»

#pragma link «ASUQUERY»

#pragma resource «*.dfm»

TFSStatRashod *FSStatProvodki;

// –

__fastcall TFSStatProvodki:TFSStatProvodki (TComponent* Owner)

: AsuForm(Owner)

{

}

// –

 

void __fastcall TFSStatProvodki: SearchButtonClick (TObject *Sender)

{

SearchForm->searchList = NULL;

SearchForm->gridSearch = StatProvodkiDBGrid;

SearchForm->ShowModal();

}

// –

 

void __fastcall TFSStatProvodki: AsuButtonExit1Click (TObject *Sender)

{

((AsuForm *) Owner)->Close();

}

// –

Программа USStatProvodkiForm.dfm

object FSStatProvodki: TFSStatProvodki

Left = 194

Top = 9

Width = 544

Height = 501

Caption = 'Проводки'

Color = clBtnFace

Font. Charset = DEFAULT_CHARSET

Font. Color = clWindowText

Font. Height = -11

Font. Name = 'MS Sans Serif'

Font. Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object StatProvodkiDBGrid: AsuDBGrid

Tag = 4

Left = 0

Top = 0

Width = 536

Height = 417

Align = alTop

TabOrder = 0

TitleFont. Charset = DEFAULT_CHARSET

TitleFont. Color = clWindowText

TitleFont. Height = -11

TitleFont. Name = 'MS Sans Serif'

TitleFont. Style = []

AsuDataSet = StatProvodkiTable1

Update = True

end

object SearchButton: TButton

Left = 16

Top = 432

Width = 75

Height = 25

Caption = '&Найти'

TabOrder = 1

OnClick = SearchButtonClick

end

object AsuButtonExit1: AsuButtonExit

Left = 144

Top = 432

Width = 75

Height = 25

Cancel = True

Caption = 'Выход'

TabOrder = 2

OnClick = AsuButtonExit1Click

end

object StatProvodkiTable1: StatProvodkiTable

Exclusive = True

TableName = 'StatProvodki'

Left = 232

Top = 72

end

object AsuQuery1: AsuQuery

SQL. Strings = (

'Select CodeProvodki, IdDsf, IdCsf from'

' StatProvodki'

'Order by CodeProvodki')

Left = 184

Top = 104

end

end

Программа StatProvodki.h

// –

 

#ifndef StatProvodkiTableH

#define StatProvodkiTableH

// –

#include <SysUtils.hpp>

#include <Controls.hpp>

#include <Classes.hpp>

#include <Forms.hpp>

#include «AsuTable.h»

#include <Db.hpp>

#include <DBTables.hpp>

// –

class PACKAGE StatProvodkiTable: public AsuTable

{

private:

char *getNameColumn (AnsiString nameField);

TFieldType getFieldType(AnsiString);

protected:

public:

__fastcall StatProvodkiTable (TComponent* Owner);

__published:

};

// –

#endif

Программа StatProvodki.h

// –

#include <vcl.h>

#pragma hdrstop

#include «AsuObj.h»

#include «StatProvodkiTable.h»

#include «OValKursTp.h»

#pragma link «AsuTable»

#pragma package (smart_init)

// –

// ValidCtrCheck is used to assure that the components created do not have

// any pure virtual functions.

static inline void ValidCtrCheck (StatProvodkiTable *)

{

new StatProvodkiTable(NULL);

}

// –

__fastcall StatProvodkiTable: StatProvodkiTable (TComponent* Owner)

: AsuTable(Owner)

{

TableName = «StatProvodki»;

}

// –

char *StatProvodkiTable:getNameColumn (AnsiString nameField)

{

if (! nameField. AnsiCompareIC («CodeProvodki»)) return «Код проводки»;

if (! nameField. AnsiCompareIC («IdDsf»)) return «Номер дебита»;

if (! nameField. AnsiCompareIC («IdСsf»)) return «Номер кредита»;

return 0;

}

// –

TFieldType StatProvodkiTable:getFieldType (AnsiString nameField)

{

return ftString;

}

namespace StatProvodkiTable

{

void __fastcall PACKAGE Register()

{

TComponentClass classes[1] = {__classid(StatProvodkiTable)};

RegisterComponents («АСУ-таблицы», classes, 0);

}}