当前位置: 首页>>代码示例>>C++>>正文

C++ TForm::insert方法代码示例

本文整理汇总了C++中TForm::insert方法的典型用法代码示例。如果您正苦于以下问题：C++ TForm::insert方法的具体用法？C++ TForm::insert怎么用？C++ TForm::insert使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类TForm的用法示例。


在下文中一共展示了TForm::insert方法的9个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的C++代码示例。

示例1: TSItem

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Mitarbeiter" );
	m.reset();

	p->insert( new TTextField( m, "Titel", 10 ) );

	p->insert( new TNameField( m, "Name   ", 30 ) );

	p->insert( new TNameField( m, "Vorname", 15, moNoSpace ) );

	p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ", moHor ) );
	p->lastInserted->setInfoLevel( ilNormal );

/*	p->insert( new TRadioField( m, "Geschlecht",
								2,
								new TSItem( "M�nnlich",
								new TSItem( "Weiblich",
								new TSItem( "S�ugling m�nnlich",
								new TSItem( "S�ugling weiblich",
								0 )))),
								new TSItem( "M",
								new TSItem( "W",
								new TSItem( "SM",
								new TSItem( "SW",
								0 )))),
								moDown ) ); */

	p->insert( new TTextField( m, "Abteilung/Kostenstelle", 30, moVert ) );
	p->insert( new TTextField( m, "Funktion", 30, moVert ) );
	p->insert( new TTextField( m, "Zuordnung   ", 5, moHor ) );
	p->insert( new TTextField( m, "Berechtigung", 2, moHor | moDown | moNoSpace ) );

	m.control.a.y += 3;
	m.control.b.y += 3;

	f->insert( p );

	/* Contructing Page 2... */
	p = new TPage( "Passwort" );
	m.reset();
//	m.control.a.y -= 2;
//	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Passwort", 8 ) );
	p->insert( new THiddenConstField( m, "", 288 ) );
	p->insert( new THiddenConstField( m, "#S#", 3 ) );

	f->insert( p );

	return f;
}
开发者ID:jskripsky，项目名称:ancient，代码行数:58，代码来源:DEMO2.CPP

示例2: TForm

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Kostenstelle" );
	m.reset();

	p->insert( new TSpecCardTextField( m, "Nummer", 3 ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 12, 0 );
	p->lastInserted->enableCardLabel( 0, 1 );
	p->lastInserted->setInfoLevel( ilNormal );

	p->insert( new TSpecCardTextField( m, "Bezeichnung", 29, moVert ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCardLabel( 0, 0 );
	p->lastInserted->setInfoLevel( ilNormal );

	p->insert( new THiddenConstField( m, "KOSTENSTELLE", 12 ) );
	p->lastInserted->enableCard( 0, 0 );

	p->insert( new THiddenConstField( m, "KOSTENSTELLE", 12 ) );
	p->lastInserted->enableCard( 0, 1 );

	p->insert( new THiddenConstField( m, "KOSTENSTELLE", 12 ) );
	p->lastInserted->enableCard( 0, 2 );

	f->insert( p );
	return f;
}
开发者ID:jskripsky，项目名称:ancient，代码行数:34，代码来源:KOSTENST.CPP

示例3: TSItem

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Aufnahme" );
	m.reset();

	p->insert( new TNameField( m, "Name   ", 30 ) );
	p->lastInserted->makeNecessary();

	p->insert( new TNameField( m, "Vorname", 15, moNoSpace ) );
	p->lastInserted->makeNecessary();

	m.control.a.y --; //!!!
	m.control.b.y --; //!!!

	p->insert( new TBirthDateField( m, "Geb.datum", 10, "TT.MM.JJJJ" ) );
	p->lastInserted->setInfoLevel( ilNormal );
	p->lastInserted->makeNecessary();

	p->insert( new TRadioField( m, "Geschlecht",
								1,
								new TSItem( "M�nnlich",
								new TSItem( "Weiblich", 0 )),
								new TSItem( "M",
								new TSItem( "W", 0 )),
								moDown | moNoSpace ) );

	m.control.a.y ++;
	m.control.b.y ++;

	m.control.a.y --; //!!!
	m.control.b.y --; //!!!

	p->insert( new TPNumberField( m, "Aufnahmenr.", 8, "Bereich.Ini",
								  moDown | moVert ) );
	p->lastInserted->setInfoLevel( ilNormal );
	p->lastInserted->makeNecessary();

	p->insert( new TSystemDateField( m, "Datum", 8, "TT.MM.JJ" ) );
	p->lastInserted->makeNecessary();

	p->insert( new TSystemTimeField( m, "Zeit" ) );
	p->lastInserted->makeNecessary();

	p->insert( new TTextField( m, "Strasse", 30, moHor ) );
	p->lastInserted->makeNecessary();

	p->insert( new TTextField( m, "PLZ", 8, moHor | moNoSpace ) );
	p->lastInserted->makeNecessary();

	p->insert( new TTextField( m, "Ort", 20, moHor | moNoSpace | moRight ) );
	p->lastInserted->makeNecessary();

	m.control.a.y --; //!!!
	m.control.b.y --; //!!!

	p->insert( new TTextField( m, "Kassennr.", 7, moVert ) );
	p->insert( new TTextField( m, "Krankenkassenname", 28, moRight ) );

	m.control.a.y --; //!!!
	m.control.b.y --; //!!!

	p->insert( new TTextField( m, "VersNr.", 12, moHor ) );
	p->insert( new TTextField( m, "Status", 7, moRight ) );

	p->insert( new TRadioField( m, "Allgemein/Privat", 10,
								new TSItem( "",
								new TSItem( "Allgemein",
								new TSItem( "Privat", 0 ))),
								new TSItem( "",
								new TSItem( "Akut     2",
								new TSItem( "Akut ML  1", 0 ))),
								moHor ) );
	p->lastInserted->makeNecessary();

	m.control.a.y += 2;
	m.control.b.y += 2;

	f->insert( p );

	/* Contructing Page 3... */
	p = new TPage( "Kostentr�ger" );
	m.reset();

	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TListField( m, "Kostentr�ger", 25,
							   "KOSTENTR.LST", 11, moDown | moVert ) );
	p->lastInserted->makeNecessary();

	m.control.a.y += 10;
	m.control.b.y += 10;

	p->insert( new TTextField( m, "Zusatzinfo (z.B. K�rzel, Adresse)", 38,
//.........这里部分代码省略.........
开发者ID:jskripsky，项目名称:ancient，代码行数:101，代码来源:BOGENHAU.CPP

示例4: TSItem

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Personalien I" );
	m.reset();

	p->insert( new TNumericField( m, "Patientennr.", 10, "." ) );
	p->lastInserted->makeNecessary();
//	p->lastInserted->enableCard( 0, 1 );
	p->lastInserted->enableCard( 29, 1 );
	p->lastInserted->enableCardLabel( 18, 4 );

	p->insert( new TNameField( m, "Name   ", 26 ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 0, 0 );
	p->lastInserted->enableCardLabel( 1, 0 );

	p->insert( new TNameField( m, "Vorname", 12, moNoSpace ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 26, 0 );
	p->lastInserted->enableCardLabel( 1, 1 );

	p->insert( new TTextField( m, "Strasse, Nr.", 26 ) );
	p->lastInserted->enableCard( 64, 0 );

	p->insert( new TTextField( m, "PLZ, Ort    ", 26, moNoSpace ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 38, 0 );
	p->lastInserted->enableCardLabel( 1, 2 );

	p->insert( new TNumericField( m, "Steuer-Code", 3, " ", moVert ) );

	p->insert( new TTextField( m, "Heimatort/Nat.", 18, moVert | moRight ) );

	p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ", moHor ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 9, 1 );
	p->lastInserted->enableCardLabel( 1, 3 );
	p->lastInserted->setInfoLevel( ilNormal );

	p->insert( new TRadioField( m, "Geschlecht",
								2,
								new TSItem( "M�nnlich",
								new TSItem( "Weiblich",
								new TSItem( "S�ugling m�nnlich",
								new TSItem( "S�ugling weiblich",
								0 )))),
								new TSItem( "M",
								new TSItem( "W",
								new TSItem( "SM",
								new TSItem( "SW",
								0 )))),
								moDown ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 19, 1 );
	p->lastInserted->enableCardLabel( 13, 3 );

	m.control.a.y += 3;
	m.control.b.y += 3;

	f->insert( p );

	/* Contructing Page 2... */
	p = new TPage( "Personalien II" );
	m.reset();
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TRadioField( m, "Zivilstand",
								5,
								new TSItem( "ledig",
								new TSItem( "verheiratet",
								new TSItem( "geschieden",
								new TSItem( "getrennt",
								new TSItem( "verwitwet", 0 ))))),
								new TSItem( "LEDIG",
								new TSItem( "VERH.",
								new TSItem( "GESCH",
								new TSItem( "GETR.",
								new TSItem( "VERW.", 0 ))))),
								moDown ) );

	m.control.a.y += 4;
	m.control.b.y += 4;

	p->insert( new TRadioField( m, "Konfession",
								5,
								new TSItem( "reformiert",
								new TSItem( "r�misch-katholisch",
								new TSItem( "christlich-katholisch",
								new TSItem( "neuapostolisch",
								new TSItem( "freikirchlich",
								new TSItem( "j�disch",
								new TSItem( "islamisch",
								new TSItem( "budhistisch",
//.........这里部分代码省略.........
开发者ID:jskripsky，项目名称:ancient，代码行数:101，代码来源:HERZOGEN.CPP

示例5: TSItem

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Personalien I" );
	m.reset();

	p->insert( new TNameField( m, "Name   ", 25 ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 10, 0 );
	p->lastInserted->enableCardLabel( 0, 0 );

	p->insert( new TNameField( m, "Vorname", 18, moNoSpace ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 35, 0 );
	p->lastInserted->enableCardLabel( 0, 1, 15 );

	p->insert( new TRadioField( m, "Geschlecht",
								1,
								new TSItem( "M�nnlich",
								new TSItem( "Weiblich", 0 )),
								new TSItem( "M",
								new TSItem( "W", 0 )),
								moDown ) );
	p->lastInserted->enableCard( 63, 0 );
	p->lastInserted->enableCardLabel( 11, 2 );

	m.control.a.y++;
	m.control.b.y++;

	p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ" ) );
	p->lastInserted->makeNecessary();
	p->lastInserted->enableCard( 53, 0 );
	p->lastInserted->enableCardLabel( 0, 2 );
	p->lastInserted->setInfoLevel( ilNormal );

	p->insert( new TRadioField( m, "Religion",
								3,
								new TSItem( "-",
								new TSItem( "r�m.kath.",
								new TSItem( "evangelisch",
								new TSItem( "orthodox",
								new TSItem( "Moslem",
								new TSItem( "andere",
								new TSItem( "konf.-los", 0 ))))))),
								new TSItem( "-",
								new TSItem( "RK",
								new TSItem( "EVA",
								new TSItem( "ORT",
								new TSItem( "MOS",
								new TSItem( "APND",
								new TSItem( "KEI", 0 ))))))),
								moDown ) );
	p->lastInserted->enableCard( 67, 0 );

	m.control.a.y += 5;
	m.control.b.y += 5;

	f->insert( p );

	/* Contructing Page 2... */
	p = new TPage( "Adresse/Eintritt" );
	m.reset();
//	m.control.a.y -= 2;
//	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Strasse", 25 ) );
	p->lastInserted->enableCard( 70, 0 );

	p->insert( new TTextField( m, "PLZ", 5 ) );
	p->lastInserted->enableCard( 95, 0 );

	p->insert( new TTextField( m, "Ort", 20 ) );
	p->lastInserted->enableCard( 100, 0 );

	p->insert( new TRadioField( m, "Eintritts-Typ",
								4,
								new TSItem( "NOTF",
								new TSItem( "ACHI",
								new TSItem( "AMB",
								new TSItem( "APG�",
								new TSItem( "APHO",
								new TSItem( "APLI",
								new TSItem( "APWE",
								new TSItem( "ATAG",
								new TSItem( "SCHR",
								new TSItem( "STAT",
								new TSItem( "VOR", 0 ))))))))))),
								new TSItem( "NOTF",
								new TSItem( "ACHI",
								new TSItem( "AMB",
								new TSItem( "APG�",
								new TSItem( "APHO",
								new TSItem( "APLI",
								new TSItem( "APWE",
								new TSItem( "ATAG",
//.........这里部分代码省略.........
开发者ID:jskripsky，项目名称:ancient，代码行数:101，代码来源:SCHWYZ.CPP

示例6: TForm

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Personalien I" );
	m.reset();

	p->insert( new TNameField( m, "Name", 28 ) );
//	p->lastInserted->enableCard( 0, 0 );
//	p->lastInserted->enableCardLabel( 0, 0, 27 );

	p->insert( new TTextField( m, "Geb./Ledigername", 20 ) );
//	p->lastInserted->enableCard( 30, 0 );
//	p->lastInserted->enableCardLabel( 0, 1 );

	p->insert( new THiddenConstField( m, "", 8 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TNameField( m, "Vorname", 18 ) );

	p->insert( new THiddenConstField( m, "", 10 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Anrede", 20 ) );
	p->insert( new TTextField( m, "Pflegeklasse", 10 ) );

	p->insert( new THiddenConstField( m, "", 10 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TDateField( m, "Geb.Datum", 10, "TT.MM.JJJJ" ) );
	p->insert( new TDateField( m, "E-Datum", 10, "TT.MM.JJJJ", moVert | moDown ) );
	p->insert( new TTextField( m, "Fallnummer", 8, moVert ) );
	p->insert( new TTextField( m, "PLZ, Ort", 30, moHor ) );
	p->insert( new TTextField( m, "Strasse ", 24, moNoSpace ) );

	p->insert( new THiddenConstField( m, "", 6 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	f->insert( p );

	/* Contructing Page 2... */
	p = new TPage( "Personalien II" );
	m.reset();

	p->insert( new TTextField( m, "Geschlecht", 1 ) );
//	p->insert( new TRadioField( m, "Geschlecht",
//								1,
//								new TSItem( "M�nnlich",
//								new TSItem( "Weiblich", 0 )),
//								new TSItem( "M",
//								new TSItem( "W", 0 )),
//								moDown ) );

	p->insert( new THiddenConstField( m, "", 9 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Behand.Bereich-Text", 10 ) );

	p->insert( new THiddenConstField( m, "", 96 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Einweisender Arzt", 28 ) );
	p->insert( new TTextField( m, "Hausarzt", 28 ) );

	p->insert( new THiddenConstField( m, "", 20 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Konfession", 10 ) );

	p->insert( new THiddenConstField( m, "", 10 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Beruf", 20 ) );

	p->insert( new THiddenConstField( m, "", 8 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TTextField( m, "Telefon priv.", 15 ) );

	p->insert( new THiddenConstField( m, "", 113 ) );
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	f->insert( p );

	/* Contructing Page 3... */
	p = new TPage( "Personalien III" );
//.........这里部分代码省略.........
开发者ID:jskripsky，项目名称:ancient，代码行数:101，代码来源:TEMP.CPP

示例7: TForm

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Patientendaten I" );
	m.reset();

	p->insert( new TTextField( m, "Aufnahmenummer",  8 ) );
	p->insert( new TNameField( m, "Name", 32, moVert ) );
	p->insert( new TTextField( m, "Geburtsname", 20, moHor ) );
	p->insert( new TTextField( m, "Geburtsdatum", 8 ) );
	p->insert( new TTextField( m, "PLZ", 5, moDown ) );
	p->insert( new TTextField( m, "Wohnort", 23 ) );
	p->insert( new TTextField( m, "Strasse", 29 ) );
	p->insert( new TTextField( m, "Familienstand", 1 ) );
	p->insert( new TTextField( m, "Geschlecht", 1, moRight ) );

	f->insert( p );

	/* Contructing Page 2... */
	p = new TPage( "Patientendaten II" );
	m.reset();

	p->insert( new TTextField( m, "Herkunftsschl�ssel", 2 ) );
	p->insert( new TTextField( m, "Staatsangeh�rigkeit", 2, moDown ) );
	p->insert( new TTextField( m, "Religion", 1, moDown ) );
	p->insert( new TTextField( m, "Einweisungsart", 2, moDown ) );
	p->insert( new TTextField( m, "Aufnahmedatum", 6, moDown ) );
	p->insert( new TTextField( m, "Aufnahmeuhrzeit", 4, moDown ) );
	p->insert( new TTextField( m, "Klinik/Station", 4, moDown ) );
	p->insert( new TTextField( m, "Pflegesatzschl�ssel", 2, moDown ) );
	p->insert( new TTextField( m, "Zimmerzuschlagkennz.", 2, moDown ) );

	f->insert( p );

	/* Contructing Page 3... */
	p = new TPage( "Entlass./Kostentr." );
	m.reset();

	p->insert( new TTextField( m, "Liquidationskennz.", 2 ) );
	p->insert( new TTextField( m, "Entlassungsdatum", 4 ) );
	p->insert( new TTextField( m, "Entlassungsuhrzeit", 4 ) );
	p->insert( new TTextField( m, "Entlassungsart", 1 ) );
	p->insert( new TTextField( m, "Externes Krankenhaus", 1 ) );
	p->insert( new TTextField( m, "Kostentr�gerschl�ssel", 4 ) );
	p->insert( new TTextField( m, "Kostentr�gername", 29, moVert ) );
	p->insert( new TTextField( m, "PLZ", 5, moVert ) );
	p->insert( new TTextField( m, "Ort", 11 ) );

	f->insert( p );

	/* Contructing Page 4... */
	p = new TPage( "Stammversicherter" );
	m.reset();
	m.control.a.y++; m.control.b.y++;

	p->insert( new TTextField( m, "Aktenzeichen Kostentr�ger", 30, moVert ) );
	p->insert( new TTextField( m, "Mitgliedsart", 1, moHor ) );
	p->insert( new TTextField( m, "Name Stammversicherter", 26, moVert ) );
	p->insert( new TTextField( m, "Geburtsdatum Stammvers.", 8, moHor ) );
	p->insert( new TTextField( m, "Beruf Stammvers.", 20, moVert ) );
	p->insert( new TTextField( m, "Arbeitgeber Stammvers.", 25, moVert ) );

	f->insert( p );

	/* Contructing Page 5... */
	p = new TPage( "Angeh�rige/Arzt" );
	m.reset();
	m.control.a.y++; m.control.b.y++;

	p->insert( new TTextField( m, "Name n�chster Angeh�riger", 32, moVert ) );
	p->insert( new TTextField( m, "PLZ", 5, moVert ) );
	p->insert( new TTextField( m, "Wohnort", 23 ) );
	p->insert( new TTextField( m, "Strasse", 30 ) );
	p->insert( new TTextField( m, "Telefon Angeh.", 12, moHor ) );
	p->insert( new TTextField( m, "Schl�ssel einweisender Arzt", 4 ) );
	p->insert( new TTextField( m, "Name einweisender Arzt", 28, moVert ) );

	f->insert( p );



	return f;
}
开发者ID:jskripsky，项目名称:ancient，代码行数:88，代码来源:SPECDEF.CPP

示例8: TSItem

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Personalien I" );
	m.reset();

	p->insert( new TNumericField( m, "Patientennr.", 8, "." ) );
	p->lastInserted->enableCard( 0, 1 );
	p->lastInserted->enableCardLabel( 20, 4 );

	p->insert( new TNameField( m, "Name, Vorname", 30, moVert ) );
	p->lastInserted->enableCard( 0, 0 );
	p->lastInserted->enableCardLabel( 0, 1, 28 );

	p->insert( new TTextField( m, "Strasse, Nr.", 30, moVert ) );
	p->lastInserted->enableCard( 30, 0 );
	p->lastInserted->enableCardLabel( 0, 2, 28 );

	p->insert( new TTextField( m, "PLZ, Wohnort", 30, moVert ) );
	p->lastInserted->enableCard( 60, 0 );
	p->lastInserted->enableCardLabel( 0, 3, 28 );

	p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ", moDown ) );
	p->lastInserted->enableCard( 105, 0 );
	p->lastInserted->enableCardLabel( 0, 4 );

	p->insert( new TTextField( m, "Geschlecht", 1, moHor ) );
	p->lastInserted->enableCard( 115, 0 );
	p->lastInserted->enableCardLabel( 11, 4 );

	p->insert( new TDateField( m, "Eintrittsdatum", 10, "TT.MM.JJJJ",
							   moDown ) );
	p->lastInserted->enableCard( 98, 1 );

	m.control.a.y += 3;
	m.control.b.y += 3;

	f->insert( p );

	/* Contructing Page 2... */
	p = new TPage( "Personalien II" );
	m.reset();
	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TRadioField( m, "Zivilstand",
								5,
								new TSItem( "ledig",
								new TSItem( "verheiratet",
								new TSItem( "geschieden",
								new TSItem( "getrennt",
								new TSItem( "verwitwet", 0 ))))),
								new TSItem( "ledig       ",
								new TSItem( "verheiratet ",
								new TSItem( "geschieden  ",
								new TSItem( "getrennt    ",
								new TSItem( "verwitwet   ", 0 ))))),
								moDown ) );

	p->lastInserted->enableCard( 0, 2 );

	m.control.a.y += 4;
	m.control.b.y += 4;

	p->insert( new TRadioField( m, "Klasse    ",
								5,
								new TSItem( "PRIV.",
								new TSItem( "PRIV. AKUT",
								new TSItem( "PRIV. E",
								new TSItem( "HALBPRIV.",
								new TSItem( "HP AKUT",
								new TSItem( "HP E+B4",
								new TSItem( "ALLG.",
								new TSItem( "ALLG. AKUT",
								new TSItem( "BLI",
								new TSItem( "UNBEK.", 0 )))))))))),
								new TSItem( "PRIVAT      ",
								new TSItem( "PRIVAT AKUT ",
								new TSItem( "PRIVAT E    ",
								new TSItem( "HALBPRIVAT  ",
								new TSItem( "HP AKUT     ",
								new TSItem( "HP E+E4     ",
								new TSItem( "ALLGEMEIN   ",
								new TSItem( "ALLG. AKUT  ",
								new TSItem( "BLI         ",
								new TSItem( "UNBEKANNT   ", 0 )))))))))),
								moDown ) );
	p->lastInserted->enableCard( 108, 1);

	f->insert( p );

	return f;
}
开发者ID:jskripsky，项目名称:ancient，代码行数:98，代码来源:KILCHPAT.CPP

示例9: TSItem

TForm *TSpecDefinition::initForm()
{
	TForm *f = new TForm();
	TPage *p;

	TMeasurements m = TMeasurements();

	/* Contructing Page 1... */
	p = new TPage( "Personalien I" );
	m.reset();

	p->insert( new TNumericField( m, "Patientennr.  ", 7, "." ) );
	p->lastInserted->enableCard( 0, 1 );
	p->lastInserted->enableCardLabel( 20, 1 );

	p->insert( new TNameField( m, "Name   ", 30 ) );
	p->lastInserted->enableCard( 0, 0 );
	p->lastInserted->enableCardLabel( 0, 0, 27 );

	p->insert( new TNameField( m, "Vorname", 18 ) );
	p->lastInserted->enableCard( 30, 0 );
	p->lastInserted->enableCardLabel( 0, 1 );

	p->insert( new TTextField( m, "Strasse, Nr.", 24 ) );
	p->lastInserted->enableCard( 48, 0 );

	p->insert( new TTextField( m, "PLZ, Ort    ", 24 ) );
	p->lastInserted->enableCard( 72, 0 );

	p->insert( new TRadioField( m, "Geschlecht",
								1,
								new TSItem( "M�nnlich",
								new TSItem( "Weiblich", 0 )),
								new TSItem( "M",
								new TSItem( "W", 0 )),
								moDown ) );
	p->lastInserted->enableCard( 115, 2 );
	p->lastInserted->enableCardLabel( 26, 2 );

	m.control.a.y ++;
	m.control.b.y ++;

	p->insert( new TDateField( m, "Geburtsdatum  ", 8, "TT.MM.JJ", moDown ) );
	p->lastInserted->enableCard( 7, 1 );
	p->lastInserted->enableCardLabel( 15, 2 );

	p->insert( new TNumericField( m, "Telefon Privat", 15, " .-/" ) );
	p->lastInserted->enableCard( 96, 2 );

	f->insert( p );

	/* Contructing Page 2... */
	p = new TPage( "Konf./Zivilst." );
	m.reset();

	m.control.a.y -= 2;
	m.control.b.y -= 2;

	p->insert( new TRadioField( m, "Konfession",
								1,
								new TSItem( " ",
								new TSItem( "reformiert",
								new TSItem( "katholisch",
								new TSItem( "orthodox",
								new TSItem( "neuap.",
								new TSItem( "diverse",
								new TSItem( "konfessionslos", 0 ))))))),

								new TSItem( " ",
								new TSItem( "R",
								new TSItem( "K",
								new TSItem( "O",
								new TSItem( "N",
								new TSItem( "D",
								new TSItem( "-", 0 ))))))),
								moDown ) );
	m.control.a.y += 6;
	m.control.b.y += 6;

	p->insert( new TRadioField( m, "Zivilstand",
								3,
								new TSItem( " ",
								new TSItem( "ledig",
								new TSItem( "verheiratet",
								new TSItem( "verwitwet",
								new TSItem( "geschieden",
								new TSItem( "keine Angaben", 0 )))))),
								new TSItem( " ",
								new TSItem( "led",
								new TSItem( "vrh",
								new TSItem( "vrw",
								new TSItem( "gsc",
								new TSItem( "k.A", 0 )))))),
								moDown ) );

	m.control.a.y += 5;
	m.control.b.y += 5;

	f->insert( p );

//.........这里部分代码省略.........
开发者ID:jskripsky，项目名称:ancient，代码行数:101，代码来源:HERISAU.CPP


注：本文中的TForm::insert方法示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台，相关代码片段筛选自各路编程大神贡献的开源项目，源码版权归原作者所有，传播和使用请参考对应项目的License；未经允许，请勿转载。