Создание нового товара
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;Button1Click(Sender: TObject);btn1Click(Sender: TObject);btn2Click(Sender: TObject);btn4Click(Sender: TObject);btn5Click(Sender: TObject);btn6Click(Sender: TObject);btn7Click(Sender: TObject);btn8Click(Sender: TObject);btn9Click(Sender: TObject);btn10Click(Sender: TObject);btn11Click(Sender: TObject);btn12Click(Sender: TObject);btn14Click(Sender: TObject);btn15Click(Sender: TObject);btn3Click(Sender: TObject);btn13Click(Sender: TObject);statistic1Click(Sender: TObject);Goods1Click(Sender: TObject);Marketadequacy1Click(Sender: TObject);Multicriteriaestimation1Click(Sender: TObject);Forecasts1Click(Sender: TObject);Goods2Click(Sender: TObject);Marketadequacy2Click(Sender: TObject);Multicriteriaestimation2Click(Sender: TObject);Forecasts2Click(Sender: TObject);Marketadequacy3Click(Sender: TObject);Multicriteriaestimation3Click(Sender: TObject);Forecasts3Click(Sender: TObject);hereportonthegoods3Click(Sender: TObject);Clear1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;, b, c, d, e, f: Real;Unit2, DataModule, QueryModule;
{$R *.dfm}TForm1.Button1Click(Sender: TObject);.show;;TForm1.btn1Click(Sender: TObject);.tbl1.Edit;;TForm1.btn2Click(Sender: TObject);.tbl1.Post;;TForm1.btn4Click(Sender: TObject);.tbl2.Edit;;TForm1.btn5Click(Sender: TObject);.tbl2.Post;;TForm1.btn6Click(Sender: TObject);.tbl2.Edit;:=DataModuleUnit.tbl2.FieldValues[Direct_marketing_researches];:=DataModuleUnit.tbl2.FieldValues[Laboratory_marketing_researches];:=DataModuleUnit.tbl2.FieldValues[Analytical_modeling];:=DataModuleUnit.tbl2.FieldValues[Multidimensional_computer_modeling];.tbl2.FieldValues[The_general_estimation_of_market_adequacy]:=a*b*c*d;.tbl2.Post;.tbl2.Refresh;;TForm1.btn7Click(Sender: TObject);.tbl3.Edit;;TForm1.btn8Click(Sender: TObject);.tbl3.Post;;TForm1.btn9Click(Sender: TObject);.tbl3.Edit;:=DataModuleUnit.tbl3.FieldValues[The_expected_sales_volume];:=DataModuleUnit.tbl3.FieldValues[Conformity_to_distribution_channels];:=DataModuleUnit.tbl3.FieldValues[Realizability];:=DataModuleUnit.tbl3.FieldValues[Conformity_to_image_of_the_company];.tbl3.FieldValues[Multicriteria_estimation_points]:=a*b*c*d;rb1.Checked then DataModuleUnit.tbl3.FieldValues[Problems_with_laws_or_morals]:=1DataModuleUnit.tbl3.FieldValues[Problems_with_laws_or_morals]:=0;.tbl3.Post;.tbl3.Refresh;rb1.Checked then ShowMessage (Development of this goods is illigal! FBI is already informed about your actions...);rb1.Checked then Close;;TForm1.btn10Click(Sender: TObject);.tbl4.Edit;;TForm1.btn11Click(Sender: TObject);.tbl4.Post;;TForm1.btn12Click(Sender: TObject);.tbl4.Edit;:=DataModuleUnit.tbl4.FieldValues[Expenses_of_a_conclusion_for_the_market];:=DataModuleUnit.tbl4.FieldValues[Estimation_of_volume_of_realization];:=DataModuleUnit.tbl4.FieldValues[Predicted_profit];:=DataModuleUnit.tbl4.FieldValues[The_recommended_cost_for_unit];.tbl4.FieldValues[The_uncertainty_account]:=a*b*c*d;.tbl4.Post;.tbl4.Refresh;;TForm1.btn14Click(Sender: TObject);.tbl5.Post;;TForm1.btn15Click(Sender: TObject);.tbl2.Edit;.tbl3.Edit;.tbl4.Edit;.tbl5.Edit;.tbl5.FieldValues[Multicriteria_estimation_points]:=DataModuleUnit.tbl3.FieldValues[Multicriteria_estimation_points];.tbl5.FieldValues[Expenses_of_a_conclusion_for_the_market]:=DataModuleUnit.tbl4.FieldValues[Expenses_of_a_conclusion_for_the_market];.tbl5.FieldValues[Predicted_profit]:=DataModuleUnit.tbl4.FieldValues[Predicted_profit];.tbl5.FieldValues[The_uncertainty_account]:=DataModuleUnit.tbl4.FieldValues[The_uncertainty_account];.tbl5.FieldValues[The_general_estimation_of_market_adequacy]:=DataModuleUnit.tbl2.FieldValues[The_general_estimation_of_market_adequacy];.tbl5.Post;.tbl5.Refresh;;TForm1.btn3Click(Sender: TObject);.tbl1.Edit;.tbl1.FieldValues[Goods]:=0;.tbl1.FieldValues[Idea_source]:=0;.tbl1.FieldValues[Explanatory]:=0;.tbl1.Post;.tbl2.Edit;.tbl2.FieldValues[Direct_marketing_researches]:=0;.tbl2.FieldValues[Laboratory_marketing_researches]:=0;.tbl2.FieldValues[Analytical_modeling]:=0;.tbl2.FieldValues[Multidimensional_computer_modeling]:=0;.tbl2.FieldValues[The_general_estimation_of_market_adequacy]:=0;.tbl2.Post;.tbl3.Edit;.tbl3.FieldValues[The_expected_sales_volume]:=0;.tbl3.FieldValues[Conformity_to_distribution_channels]:=0;.tbl3.FieldValues[Realizability]:=0;.tbl3.FieldValues[Conformity_to_image_of_the_company]:=0;.tbl3.FieldValues[Multicriteria_estimation_points]:=0;.tbl3.Post;.tbl4.Edit;.tbl4.FieldValues[Expenses_of_a_conclusion_for_the_market]:=0;.tbl4.FieldValues[Estimation_of_volume_of_realization]:=0;.tbl4.FieldValues[Predicted_profit]:=0;.tbl4.FieldValues[The_recommended_cost_for_unit]:=0;.tbl4.FieldValues[The_uncertainty_account]:=0;.tbl4.Post;.tbl5.Edit;.tbl5.FieldValues[Multicriteria_estimation_points]:=0;.tbl5.FieldValues[Expenses_of_a_conclusion_for_the_market]:=0;.tbl5.FieldValues[Predicted_profit]:=0;.tbl5.FieldValues[The_uncertainty_account]:=0;.tbl5.FieldValues[The_general_estimation_of_market_adequacy]:=0;.tbl5.Post;;TForm1.btn13Click(Sender: TObject);.show;;TForm1.statistic1Click(Sender: TObject);.show;;TForm1.Goods1Click(Sender: TObject);.tbl1.Edit;;TForm1.Marketadequacy1Click(Sender: TObject);.tbl2.Edit;;TForm1.Multicriteriaestimation1Click(Sender: TObject);.tbl3.Edit;;TForm1.Forecasts1Click(Sender: TObject);.tbl4.Edit;;TForm1.Goods2Click(Sender: TObject);.tbl1.Post;;TForm1.Marketadequacy2Click(Sender: TObject);.tbl2.Post;;TForm1.Multicriteriaestimation2Click(Sender: TObject);.tbl3.Post;;TForm1.Forecasts2Click(Sender: TObject);.tbl4.Post;;TForm1.Marketadequacy3Click(Sender: TObject);.tbl2.Edit;:=DataModuleUnit.tbl2.FieldValues[Direct_marketing_researches];:=DataModuleUnit.tbl2.FieldValues[Laboratory_marketing_researches];:=DataModuleUnit.tbl2.FieldValues[Analytical_modeling];:=DataModuleUnit.tbl2.FieldValues[Multidimensional_computer_modeling];.tbl2.FieldValues[The_general_estimation_of_market_adequacy]:=a*b*c*d;.tbl2.Post;.tbl2.Refresh;;TForm1.Multicriteriaestimation3Click(Sender: TObject);.tbl3.Edit;:=DataModuleUnit.tbl3.FieldValues[The_expected_sales_volume];:=DataModuleUnit.tbl3.FieldValues[Conformity_to_distribution_channels];:=DataModuleUnit.tbl3.FieldValues[Realizability];:=DataModuleUnit.tbl3.FieldValues[Conformity_to_image_of_the_company];.tbl3.FieldValues[Multicriteria_estimation_points]:=a*b*c*d;rb1.Checked then DataModuleUnit.tbl3.FieldValues[Problems_with_laws_or_morals]:=1DataModuleUnit.tbl3.FieldValues[Problems_with_laws_or_morals]:=0;.tbl3.Post;.tbl3.Refresh;rb1.Checked then ShowMessage (Development of this goods is illigal! FBI is already informed about your actions...);rb1.Checked then Close;;TForm1.Forecasts3Click(Sender: TObject);.tbl4.Edit;:=DataModuleUnit.tbl4.FieldValues[Expenses_of_a_conclusion_for_the_market];:=DataModuleUnit.tbl4.FieldValues[Estimation_of_volume_of_realization];:=DataModuleUnit.tbl4.FieldValues[Predicted_profit];:=DataModuleUnit.tbl4.FieldValues[The_recommended_cost_for_unit];.tbl4.FieldValues[The_uncertainty_account]:=a*b*c*d;.tbl4.Post;.tbl4.Refresh;;TForm1.hereportonthegoods3Click(Sender: TObject);.tbl2.Edit;.tbl3.Edit;.tbl4.Edit;.tbl5.Edit;.tbl5.FieldValues[Multicriteria_estimation_points]:=DataModuleUnit.tbl3.FieldValues[Multicriteria_estimation_points];.tbl5.FieldValues[Expenses_of_a_conclusion_for_the_market]:=DataModuleUnit.tbl4.FieldValues[Expenses_of_a_conclusion_for_the_market];.tbl5.FieldValues[Predicted_profit]:=DataModuleUnit.tbl4.FieldValues[Predicted_profit];.tbl5.FieldValues[The_uncertainty_account]:=DataModuleUnit.tbl4.FieldValues[The_uncertainty_account];.tbl5.FieldValues[The_general_estimation_of_market_adequacy]:=DataModuleUnit.tbl2.FieldValues[The_general_estimation_of_market_adequacy];.tbl5.Post;.tbl5.Refresh;;TForm1.Clear1Click(Sender: TObject);.tbl1.Edit;.tbl1.FieldValues[Goods]:=0;.tbl1.FieldValues[Idea_source]:=0;.tbl1.FieldValues[Explanatory]:=0;.tbl1.Post;.tbl2.Edit;.tbl2.FieldValues[Direct_marketing_researches]:=0;.tbl2.FieldValues[Laboratory_marketing_researches]:=0;.tbl2.FieldValues[Analytical_modeling]:=0;.tbl2.FieldValues[Multidimensional_computer_modeling]:=0;.tbl2.FieldValues[The_general_estimation_of_market_adequacy]:=0;.tbl2.Post;.tbl3.Edit;.tbl3.FieldValues[The_expected_sales_volume]:=0;.tbl3.FieldValues[Conformity_to_distribution_channels]:=0;.tbl3.FieldValues[Realizability]:=0;.tbl3.FieldValues[Conformity_to_image_of_the_company]:=0;.tbl3.FieldValues[Multicriteria_estimation_points]:=0;.tbl3.Post;.tbl4.Edit;.tbl4.FieldValues[Expenses_of_a_conclusion_for_the_market]:=0;.tbl4.FieldValues[Estimation_of_volume_of_realization]:=0;.tbl4.FieldValues[Predicted_profit]:=0;.tbl4.FieldValues[The_recommended_cost_for_unit]:=0;.tbl4.FieldValues[The_uncertainty_account]:=0;.tbl4.Post;.tbl5.Edit;.tbl5.FieldValues[Multicriteria_estimation_points]:=0;.tbl5.FieldValues[Expenses_of_a_conclusion_for_the_market]:=0;.tbl5.FieldValues[Predicted_profit]:=0;.tbl5.FieldValues[The_uncertainty_accoun