17542 (601214), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

// –

extern PACKAGE TFSStatProvodki *FSStatProvodki;

// –

#endif

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

// –

#include

#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

#include

#include

#include

#include «AsuTable.h»

#include

#include

// –

class PACKAGE StatProvodkiTable: public AsuTable

{

private:

char *getNameColumn (AnsiString nameField);

TFieldType getFieldType(AnsiString);

protected:

public:

__fastcall StatProvodkiTable (TComponent* Owner);

__published:

};

// –

#endif

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

// –

#include

#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);

}}

Характеристики

Список файлов курсовой работы