y">// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit1.h"
# include "Unit2.h"
# include "Unit3.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form1;
// ---------------------------------------- -----------------------------------
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
{-> Table1-> Active = false; -> Show (); -> Table1-> TableName = "REZCY"; -> Table1-> Active = i = 0; i <= Form2-> Table1-> FieldCount-1; i + +)
} -> ComboBox1-> ItemIndex == 0;
}
{-> Table1-> Active = false; -> Show (); -> Table1-> TableName = "VID_REZCA"; -> Table1-> Active = i = 0; i <= Form2-> Table1-> FieldCount-1; i + +)
} -> ComboBox1-> ItemIndex == 0;
}
Show (); -> Table1-> TableName = "PARAMETRY_REZCA"; -> Table1-> Active = мм "; -> ComboBox1-> Items-> Clear (); (int i = 0; i <= Form2-> Table1-> FieldCount-1; i + +)
} -> ComboBox1-> ItemIndex == 0;
}
{-> Table1-> Active = false; -> Show (); -> Table1-> TableName = "STELLAZH"; -> Table1-> Active = стелажа "; -> ComboBox1-> Items-> Clear (); (int i = 0; i <= Form2-> Table1-> FieldCount-1; i + +)
} -> ComboBox1-> ItemIndex == 0;
}
{-> Table1-> Active = false; -> Show (); -> Table1-> TableName = "SKLAD"; -> Table1-> Active = true;
// Form2-> DBImage1-> Visible = false;
// Form2-> Button6-> Visible = false;
// i = 0; i <= Form2-> Table1-> FieldCount-1; i + +)
} -> ComboBox1-> ItemIndex == 0;
}
{-> Close ();
}
{-> Show ();
}
// ---------------------------------------- -----------------------------------
Unit2.h
// ---------------------------------------- -----------------...
