Реферат Інформаційна система &Реалізація готової продукції&

fy">//---------------------------------------------------------------------------__fastcall TMainForm :: btnNewOrderClick (TObject * Sender)

{ gt; CreateForm (__ classid (TOrderForm), amp; OrderForm); gt; ShowModal ();

}

//---------------------------------------------------------------------------__fastcall TMainForm :: DBGridDblClick (TObject * Sender)

{(DataSource- gt; DataSet == ADOTable1)

{ gt; CreateForm (__ classid (TItemForm), amp; ItemForm); gt; ShowModal ();

} (DataSource- gt; DataSet == ADOTable3)

{s=ADOTable3- gt; FieldByName ( Номер замовлення ) - gt; AsString + .rtf raquo ;; (Handle, open , s.c_str (), NULL, NULL, SW_NORMAL);

}

}

//---------------------------------------------------------------------------__fastcall TMainForm :: menuAboutClick (TObject * Sender)

{(Application- gt; Handle, Shop Manager - Красовський Дмитро nГруппа напуває - 12, 2014 raquo ;, Про програму raquo ;, MB_ICONINFORMATION);

}

//---------------------------------------------------------------------------__fastcall TMainForm :: menuClearBaseClick (TObject * Sender) (MessageBoxA (Application- gt; Handle, Ви дійсно хочете очистити поточну базу? Raquo ;, Підтвердження очищення raquo ;, MB_ICONQUESTION + MB_YESNO) == IDNO); gt; DataSet- gt ; Edit (); gt; DataSet- gt; First ();

DataSource- gt; DataSet- gt; Delete (); (! DataSource- gt; DataSet- gt; Eof)

{ gt; DataSet- gt; Delete (); gt; DataSet- gt; Next ();

}

}

//---------------------------------------------------------------------------__fastcall TMainForm :: N4Click (TObject * Sender)

{(InputQuery ( Авторизація raquo ;, Введіть пароль для доступу до бази даних raquo ;, g_sBasePassword))

if (g_sBasePassword!= qwerty )

{(Application- gt; Handle, Неправильний пароль. Перевірте введені дані і повторіть спробу. raquo ;, Помилка відкриття файлу raquo ;, MB_ICONERROR);

return;

} gt; Enabled=true; gt; Enabled=true; gt; Enabled=true;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: menuEditClick (TObject * Sender)

{_ bEdit=true; (TabControl- gt; TabIndex)

{0: gt; CreateForm (__ classid (TGoodsForm), amp; GoodsForm); gt; ShowModal () ;; 1: gt; CreateForm (__ classid (TBuyerForm), amp; BuyerForm); gt; ShowModal () ;; 2: gt; CreateForm (__ classid (TOrderForm), amp; OrderForm); gt; ShowModal () ;;

}

}