Advertisement
Guest User

naglowkowy ze zmiennymy global

a guest
Jan 17th, 2017
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //---------------------------------------------------------------------------
  2.  
  3. #ifndef Unit1H
  4. #define Unit1H
  5. //---------------------------------------------------------------------------
  6. #include <Classes.hpp>
  7. #include <Controls.hpp>
  8. #include <StdCtrls.hpp>
  9. #include <Forms.hpp>
  10. #include <Menus.hpp>
  11. #include <ExtCtrls.hpp>
  12. #include <ComCtrls.hpp>
  13. #include <Buttons.hpp>
  14. #include <Dialogs.hpp>
  15. #include <ScktComp.hpp>
  16. #include <jpeg.hpp>
  17. //---------------------------------------------------------------------------
  18. class TKartek : public TForm
  19. {
  20. __published:    // IDE-managed Components
  21.         TMainMenu *Menu;
  22.         TMenuItem *PLIK;
  23.         TMenuItem *Raport;
  24.         TMenuItem *Zaksieguj;
  25.         TMenuItem *NowaZmiana;
  26.         TMenuItem *OtworzZmiane;
  27.         TMenuItem *ZakonczZmiane;
  28.         TMenuItem *Wyjscie;
  29.         TMenuItem *TejZmiany;
  30.         TMenuItem *OtworzRaport;
  31.         TMenuItem *Dzienny;
  32.         TMenuItem *Miesieczny;
  33.         TMenuItem *Stan;
  34.         TMenuItem *Dostawa;
  35.         TPanel *Prawy1P;
  36.         TPanel *Prawy2P;
  37.         TListBox *ListazakupowLB;
  38.         TEdit *KwotaE;
  39.         TLabel *KwotaL;
  40.         TPanel *DolnyP;
  41.         TLabel *BarmanL;
  42.         TLabel *GodzinaL;
  43.         TTimer *Zegardata;
  44.         TPanel *SrodekP;
  45.         TMemo *RaportMem;
  46.         TDateTimePicker *Data;
  47.         TLabel *ZlL;
  48.         TLabel *ZaplaconoL;
  49.         TComboBox *ZmianaBox;
  50.         TLabel *WybierzDzienL;
  51.         TLabel *WybierzZmianeL;
  52.         TEdit *Art66E;
  53.         TEdit *WkasieE;
  54.         TLabel *WkasieL;
  55.         TLabel *UtargL;
  56.         TLabel *RazemL;
  57.         TLabel *KaskaL;
  58.         TLabel *KasaL;
  59.         TMenuItem *InneWplaty;
  60.         TMenuItem *InneWyplaty;
  61.         TMenuItem *Kegi;
  62.         TMenuItem *Dostawy;
  63.         TMenuItem *WplatyWyplaty;
  64.         TLabel *OpisL;
  65.         TEdit *OpisE;
  66.         TLabel *WpWyDoL;
  67.         TLabel *WpWyDo1L;
  68.         TBitBtn *Barman7B;
  69.         TBitBtn *Barman5B;
  70.         TBitBtn *Barman3B;
  71.         TBitBtn *Barman1B;
  72.         TBitBtn *Usun_pozycjeB;
  73.         TBitBtn *ZatwierdzB;
  74.         TBitBtn *GratisB;
  75.         TBitBtn *SzefB;
  76.         TBitBtn *PodgladDostawyB;
  77.         TBitBtn *DalejB;
  78.         TBitBtn *NowykegwarkaB;
  79.         TBitBtn *NowykegtyskieB;
  80.         TBitBtn *Str1B;
  81.         TBitBtn *Str2B;
  82.         TBitBtn *Str3B;
  83.         TBitBtn *Art1B;
  84.         TBitBtn *Art2B;
  85.         TBitBtn *Art7B;
  86.         TBitBtn *Art3B;
  87.         TBitBtn *Art4B;
  88.         TBitBtn *Art5B;
  89.         TBitBtn *Art6B;
  90.         TBitBtn *Art8B;
  91.         TBitBtn *Art9B;
  92.         TBitBtn *Art10B;
  93.         TBitBtn *Art11B;
  94.         TBitBtn *Art12B;
  95.         TBitBtn *Art13B;
  96.         TBitBtn *Art14B;
  97.         TBitBtn *Art15B;
  98.         TBitBtn *Art16B;
  99.         TBitBtn *Art17B;
  100.         TBitBtn *Art18B;
  101.         TBitBtn *Art19B;
  102.         TBitBtn *Art20B;
  103.         TBitBtn *Art21B;
  104.         TBitBtn *Art22B;
  105.         TBitBtn *Art23B;
  106.         TBitBtn *Art24B;
  107.         TBitBtn *Art25B;
  108.         TBitBtn *Art26B;
  109.         TBitBtn *Art27B;
  110.         TBitBtn *Art28B;
  111.         TBitBtn *Art29B;
  112.         TBitBtn *Art30B;
  113.         TBitBtn *Art31B;
  114.         TBitBtn *Art32B;
  115.         TBitBtn *Art33B;
  116.         TBitBtn *Art34B;
  117.         TBitBtn *Art35B;
  118.         TBitBtn *Art36B;
  119.         TBitBtn *Art37B;
  120.         TBitBtn *Art38B;
  121.         TBitBtn *Art39B;
  122.         TBitBtn *Art40B;
  123.         TBitBtn *Art41B;
  124.         TBitBtn *Art42B;
  125.         TBitBtn *Art43B;
  126.         TBitBtn *Art44B;
  127.         TBitBtn *Art45B;
  128.         TBitBtn *Art46B;
  129.         TBitBtn *Art47B;
  130.         TBitBtn *Art48B;
  131.         TBitBtn *Art49B;
  132.         TBitBtn *Art50B;
  133.         TBitBtn *Art51B;
  134.         TBitBtn *Art52B;
  135.         TBitBtn *Art53B;
  136.         TBitBtn *Art54B;
  137.         TBitBtn *Art55B;
  138.         TBitBtn *Art56B;
  139.         TBitBtn *Art57B;
  140.         TBitBtn *Art58B;
  141.         TBitBtn *Art59B;
  142.         TBitBtn *Art60B;
  143.         TBitBtn *Art61B;
  144.         TBitBtn *Art62B;
  145.         TBitBtn *Art63B;
  146.         TBitBtn *Art64B;
  147.         TBitBtn *Art65B;
  148.         TMenuItem *Administrator;
  149.         TMenuItem *Dostep;
  150.         TServerSocket *SerwerS;
  151.         TTimer *SerwerT;
  152.         TMemo *Memo2;
  153.         TMenuItem *Oprogramie;
  154.         TBitBtn *Barman4B;
  155.         TBitBtn *Barman6B;
  156.         TBitBtn *Barman2B;
  157.         TBitBtn *Barman8B;
  158.         TMenuItem *PrzypiszBarmanow;
  159.         TMenuItem *EdytujAsortyment;
  160.         TMenuItem *Pensja;
  161.         TMenuItem *PensjeRap;
  162.         TMenuItem *ZmienHaslo;
  163.         TPanel *AsortymentP;
  164.         TEdit *NazwaE;
  165.         TLabel *EdycjaGuzikaL;
  166.         TLabel *NazwaL;
  167.         TColorBox *KolorBox;
  168.         TEdit *CenaE;
  169.         TLabel *CenaL;
  170.         TLabel *KolorL;
  171.         TButton *Wybierz1B;
  172.         TButton *Wybierz2B;
  173.         TButton *Wybierz3B;
  174.         TLabel *EdycjaPoborowL;
  175.         TLabel *Nazwa1L;
  176.         TLabel *IloscPobieranaL;
  177.         TLabel *Kolor1L;
  178.         TEdit *Nazwa1E;
  179.         TEdit *Nazwa2E;
  180.         TEdit *Nazwa3E;
  181.         TEdit *IloscPobierana1E;
  182.         TEdit *IloscPobierana2E;
  183.         TEdit *IloscPobierana3E;
  184.         TColorBox *Kolor1Box;
  185.         TColorBox *Kolor2Box;
  186.         TColorBox *Kolor3Box;
  187.         TButton *OkiB;
  188.         TButton *AnulujB;
  189.         TBitBtn *Str4B;
  190.         TBitBtn *Str5B;
  191.         TColorBox *Kolor11Box;
  192.         TMenuItem *Aktualizacja;
  193.         TMenuItem *Aktualizacje;
  194.         TProgressBar *ProgressBar1;
  195.         TMemo *MemoWys;
  196.         TPanel *BeczkaP;
  197.         TRadioButton *RadioButton1;
  198.         TRadioButton *RadioButton2;
  199.         TButton *Button1;
  200.         TButton *Button2;
  201.         TLabel *Label1;
  202.         TBitBtn *NowykegzubrB;
  203.         TBitBtn *NowykegholbaB;
  204.         TBitBtn *NowykeglitovelB;
  205.         TBitBtn *NowykegpoutnikB;
  206.         TTabControl *WykresyTC;
  207.         TLabel *RokL;
  208.         TShape *OsYS;
  209.         TShape *OsXS;
  210.         TBitBtn *WyjscieB;
  211.         TLabel *NazwaWykresuL;
  212.         TLabel *W1L;
  213.         TLabel *LegendaYL;
  214.         TLabel *W2L;
  215.         TLabel *W6L;
  216.         TLabel *W8L;
  217.         TLabel *W9L;
  218.         TLabel *W10L;
  219.         TLabel *W4L;
  220.         TLabel *StyczenL;
  221.         TLabel *MarzecL;
  222.         TLabel *PazdziernikL;
  223.         TLabel *SierpienL;
  224.         TLabel *MajL;
  225.         TLabel *LipiecL;
  226.         TLabel *WrzesienL;
  227.         TLabel *GrudzienL;
  228.         TLabel *MiesiacL;
  229.         TLabel *ListopadL;
  230.         TLabel *CzerwiecL;
  231.         TLabel *LutyL;
  232.         TLabel *W7L;
  233.         TShape *W1S;
  234.         TShape *W2S;
  235.         TShape *W10S;
  236.         TShape *W8S;
  237.         TShape *W7S;
  238.         TShape *W6S;
  239.         TShape *W5S;
  240.         TShape *W4S;
  241.         TLabel *W3L;
  242.         TLabel *W5L;
  243.         TShape *W9S;
  244.         TShape *W3S;
  245.         TLabel *KwiecienL;
  246.         TShape *B1S;
  247.         TShape *B2S;
  248.         TShape *B3S;
  249.         TShape *B4S;
  250.         TShape *B5S;
  251.         TShape *B6S;
  252.         TShape *B7S;
  253.         TShape *B8S;
  254.         TShape *B10S;
  255.         TShape *B11S;
  256.         TShape *B12S;
  257.         TShape *B9S;
  258.         TMenuItem *Wykresy;
  259.         TButton *RokMinusB;
  260.         TButton *RokPlusB;
  261.         TLabel *SredniaL;
  262.         TLabel *SredniaRocznaL;
  263.         TLabel *Wart9L;
  264.         TLabel *Wart1L;
  265.         TLabel *Wart8L;
  266.         TLabel *Wart10L;
  267.         TLabel *Wart3L;
  268.         TLabel *Wart5L;
  269.         TLabel *Wart2L;
  270.         TLabel *Wart11L;
  271.         TLabel *Wart7L;
  272.         TLabel *Wart4L;
  273.         TLabel *Wart12L;
  274.         TLabel *Wart6L;
  275.         TPanel *KchatP;
  276.         TLabel *KchatL;
  277.         TShape *KropkaS;
  278.         TMemo *KchatM;
  279.         TButton *WyjscieChatB;
  280.         TEdit *KchatE;
  281.         TMenuItem *Wypatynatowar1;
  282.         TMenuItem *Kchat1;
  283.         TEdit *ProduktE;
  284.         TButton *PokazB;
  285.         TShape *W11S;
  286.         TLabel *W11L;
  287.         void __fastcall ZegardataTimer(TObject *Sender);
  288.         void __fastcall Art1BClick(TObject *Sender);
  289.         void __fastcall Usun_pozycjeBClick(TObject *Sender);
  290.         void __fastcall WyjscieClick(TObject *Sender);
  291.         void __fastcall NowaZmianaClick(TObject *Sender);
  292.         void __fastcall OtworzZmianeClick(TObject *Sender);
  293.         void __fastcall ZakonczZmianeClick(TObject *Sender);
  294.         void __fastcall TejZmianyClick(TObject *Sender);
  295.         void __fastcall OtworzRaportClick(TObject *Sender);
  296.         void __fastcall DziennyClick(TObject *Sender);
  297.         void __fastcall MiesiecznyClick(TObject *Sender);
  298.         void __fastcall StanClick(TObject *Sender);
  299.         void __fastcall DostawaClick(TObject *Sender);
  300.         void __fastcall DalejBClick(TObject *Sender);
  301.         void __fastcall ZatwierdzBClick(TObject *Sender);
  302.         void __fastcall GratisBClick(TObject *Sender);
  303.         void __fastcall SzefBClick(TObject *Sender);
  304.         void __fastcall Art2BClick(TObject *Sender);
  305.         void __fastcall Art3BClick(TObject *Sender);
  306.         void __fastcall Art4BClick(TObject *Sender);
  307.         void __fastcall Art5BClick(TObject *Sender);
  308.         void __fastcall Art6BClick(TObject *Sender);
  309.         void __fastcall Art7BClick(TObject *Sender);
  310.         void __fastcall Art8BClick(TObject *Sender);
  311.         void __fastcall Art9BClick(TObject *Sender);
  312.         void __fastcall Art10BClick(TObject *Sender);
  313.         void __fastcall Art11BClick(TObject *Sender);
  314.         void __fastcall Art12BClick(TObject *Sender);
  315.         void __fastcall Art13BClick(TObject *Sender);
  316.         void __fastcall Art14BClick(TObject *Sender);
  317.         void __fastcall Art15BClick(TObject *Sender);
  318.         void __fastcall Art16BClick(TObject *Sender);
  319.         void __fastcall Art17BClick(TObject *Sender);
  320.         void __fastcall Art18BClick(TObject *Sender);
  321.         void __fastcall Art19BClick(TObject *Sender);
  322.         void __fastcall Art20BClick(TObject *Sender);
  323.         void __fastcall Art21BClick(TObject *Sender);
  324.         void __fastcall Art22BClick(TObject *Sender);
  325.         void __fastcall Art23BClick(TObject *Sender);
  326.         void __fastcall Art24BClick(TObject *Sender);
  327.         void __fastcall Art25BClick(TObject *Sender);
  328.         void __fastcall Art26BClick(TObject *Sender);
  329.         void __fastcall Art27BClick(TObject *Sender);
  330.         void __fastcall Art28BClick(TObject *Sender);
  331.         void __fastcall Art29BClick(TObject *Sender);
  332.         void __fastcall Art30BClick(TObject *Sender);
  333.         void __fastcall Art31BClick(TObject *Sender);
  334.         void __fastcall Art32BClick(TObject *Sender);
  335.         void __fastcall Art33BClick(TObject *Sender);
  336.         void __fastcall Art34BClick(TObject *Sender);
  337.         void __fastcall Art35BClick(TObject *Sender);
  338.         void __fastcall Art36BClick(TObject *Sender);
  339.         void __fastcall Art37BClick(TObject *Sender);
  340.         void __fastcall Art38BClick(TObject *Sender);
  341.         void __fastcall Art39BClick(TObject *Sender);
  342.         void __fastcall Art40BClick(TObject *Sender);
  343.         void __fastcall Art41BClick(TObject *Sender);
  344.         void __fastcall Art42BClick(TObject *Sender);
  345.         void __fastcall Art43BClick(TObject *Sender);
  346.         void __fastcall Art45BClick(TObject *Sender);
  347.         void __fastcall Art44BClick(TObject *Sender);
  348.         void __fastcall Art46BClick(TObject *Sender);
  349.         void __fastcall Art47BClick(TObject *Sender);
  350.         void __fastcall Art48BClick(TObject *Sender);
  351.         void __fastcall Art49BClick(TObject *Sender);
  352.         void __fastcall Art50BClick(TObject *Sender);
  353.         void __fastcall Art51BClick(TObject *Sender);
  354.         void __fastcall Art52BClick(TObject *Sender);
  355.         void __fastcall Art53BClick(TObject *Sender);
  356.         void __fastcall Art54BClick(TObject *Sender);
  357.         void __fastcall Art55BClick(TObject *Sender);
  358.         void __fastcall Art56BClick(TObject *Sender);
  359.         void __fastcall Art57BClick(TObject *Sender);
  360.         void __fastcall Art58BClick(TObject *Sender);
  361.         void __fastcall Art59BClick(TObject *Sender);
  362.         void __fastcall Art60BClick(TObject *Sender);
  363.         void __fastcall Art61BClick(TObject *Sender);
  364.         void __fastcall Art62BClick(TObject *Sender);
  365.         void __fastcall Art63BClick(TObject *Sender);
  366.         void __fastcall Art64BClick(TObject *Sender);
  367.         void __fastcall Art65BClick(TObject *Sender);
  368.         void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  369.         void __fastcall DataChange(TObject *Sender);
  370.         void __fastcall Art66EExit(TObject *Sender);
  371.         void __fastcall Art66EEnter(TObject *Sender);
  372.         void __fastcall NowykegtyskieBClick(TObject *Sender);
  373.         void __fastcall NowykegwarkaBClick(TObject *Sender);
  374.         void __fastcall KegiClick(TObject *Sender);
  375.         void __fastcall Str2BClick(TObject *Sender);
  376.         void __fastcall Str3BClick(TObject *Sender);
  377.         void __fastcall Str1BClick(TObject *Sender);
  378.         void __fastcall PodgladDostawyBClick(TObject *Sender);
  379.         void __fastcall InneWplatyClick(TObject *Sender);
  380.         void __fastcall InneWyplatyClick(TObject *Sender);
  381.         void __fastcall DostawyClick(TObject *Sender);
  382.         void __fastcall WplatyWyplatyClick(TObject *Sender);
  383.         void __fastcall DostepClick(TObject *Sender);
  384.         void __fastcall SerwerSClientRead(TObject *Sender,
  385.           TCustomWinSocket *Socket);
  386.         void __fastcall SerwerSClientDisconnect(TObject *Sender,
  387.           TCustomWinSocket *Socket);
  388.         void __fastcall SerwerSClientError(TObject *Sender,
  389.           TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
  390.           int &ErrorCode);
  391.         void __fastcall FormCreate(TObject *Sender);
  392.         void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
  393.         void __fastcall SerwerTTimer(TObject *Sender);
  394.         void __fastcall SerwerSAccept(TObject *Sender,
  395.           TCustomWinSocket *Socket);
  396.         void __fastcall OprogramieClick(TObject *Sender);
  397.         void __fastcall Barman1BClick(TObject *Sender);
  398.         void __fastcall Barman2BClick(TObject *Sender);
  399.         void __fastcall Barman3BClick(TObject *Sender);
  400.         void __fastcall Barman4BClick(TObject *Sender);
  401.         void __fastcall Barman5BClick(TObject *Sender);
  402.         void __fastcall Barman6BClick(TObject *Sender);
  403.         void __fastcall Barman7BClick(TObject *Sender);
  404.         void __fastcall Barman8BClick(TObject *Sender);
  405.         void __fastcall PrzypiszBarmanowClick(TObject *Sender);
  406.         void __fastcall PensjaClick(TObject *Sender);
  407.         void __fastcall PensjeRapClick(TObject *Sender);
  408.         void __fastcall ZmienHasloClick(TObject *Sender);
  409.         void __fastcall EdytujAsortymentClick(TObject *Sender);
  410.         void __fastcall Str4BClick(TObject *Sender);
  411.         void __fastcall Str5BClick(TObject *Sender);
  412.         void __fastcall AnulujBClick(TObject *Sender);
  413.         void __fastcall Wybierz1BClick(TObject *Sender);
  414.         void __fastcall Wybierz2BClick(TObject *Sender);
  415.         void __fastcall Wybierz3BClick(TObject *Sender);
  416.         void __fastcall OkiBClick(TObject *Sender);
  417.         void __fastcall AktualizacjaClick(TObject *Sender);
  418.         void __fastcall AktualizacjeClick(TObject *Sender);
  419.         void __fastcall RadioButton1Click(TObject *Sender);
  420.         void __fastcall RadioButton2Click(TObject *Sender);
  421.         void __fastcall Button1Click(TObject *Sender);
  422.         void __fastcall Button2Click(TObject *Sender);
  423.         void __fastcall NowykegzubrBClick(TObject *Sender);
  424.         void __fastcall NowykegholbaBClick(TObject *Sender);
  425.         void __fastcall NowykeglitovelBClick(TObject *Sender);
  426.         void __fastcall FormResize(TObject *Sender);
  427.         void __fastcall NowykegpoutnikBClick(TObject *Sender);
  428.         void __fastcall WykresyClick(TObject *Sender);
  429.         void __fastcall WyjscieBClick(TObject *Sender);
  430.         void __fastcall RokMinusBClick(TObject *Sender);
  431.         void __fastcall RokPlusBClick(TObject *Sender);
  432.         void __fastcall WykresyTCChange(TObject *Sender);
  433.         void __fastcall KchatPMouseDown(TObject *Sender,
  434.           TMouseButton Button, TShiftState Shift, int X, int Y);
  435.         void __fastcall KchatEEnter(TObject *Sender);
  436.         void __fastcall KchatEExit(TObject *Sender);
  437.         void __fastcall WyjscieChatBClick(TObject *Sender);
  438.         void __fastcall KchatEKeyPress(TObject *Sender, char &Key);
  439.         void __fastcall Kchat1Click(TObject *Sender);
  440.         void __fastcall Wypatynatowar1Click(TObject *Sender);
  441.         void __fastcall ProduktEEnter(TObject *Sender);
  442.         void __fastcall ProduktEKeyPress(TObject *Sender, char &Key);
  443.         void __fastcall PokazBClick(TObject *Sender);
  444.  
  445.  
  446.         private:    // User declarations
  447. public:
  448.         // User declarations
  449.         void __fastcall TKartek::rysujwykres();
  450.         void __fastcall TKartek::edycjaartykulu();
  451.         void __fastcall TKartek::RaportMiesieczny();
  452.         void __fastcall TKartek::RozpoczecieZmiany();
  453.         void __fastcall TKartek::SciagajZeStanu();
  454.         void __fastcall TKartek::AktualizujStan();
  455.         void __fastcall TKartek::ZliczajProdukt();
  456.         void __fastcall TKartek::artykul();
  457.         __fastcall TKartek(TComponent* Owner);
  458.         void __fastcall TKartek::WyborStrony();
  459.         void __fastcall TKartek::DodajDoStanu();
  460.         void __fastcall TKartek::ZmianaNazwyBarmana();
  461.         void __fastcall TKartek::pensja();
  462.         void __fastcall TKartek::Przepis();
  463.  
  464. float kwota,sredniatransakcji,wyplatyinne, wplaty,wyplatynatowar, cena, utarg, cenainny,wkasie,ilosc,wkasiepocz, utarg1,wpwydo, pensjebarmanow[9], wartosci[13],skala, wartoscmax, wartoscmin;
  465. AnsiString dane,rap,nick,Zdanieklucz, xxx, xxx1,zadanieserwera, sciezkam, barman, barman1, buf,buf6,nazwa6, buf4, usun, menuwybor, nazwa, sciezka, sciezkao,sciezkaoo, sciezkawpl, sciezkawyp,sciezkawypt, miesiac1, dzien1,aaa,a, a1,a2,a3,aa;
  466. bool czy_zmiana,android,produkt,nasluch,kontynuacja, czy_dodano, haslo, TestHasla,test,edycjasciagania,koniecwys;
  467. char bufor[256],bufor1[256];
  468. int i,ii,iii,timeout,najwiekszy,najmniejszy,strona,nrbarmana,linia,i4, zmianybarmanow[9], czaspracybarmanow[9],iloscdni,ilosctransakcji, Wybierz,s,s1,s2,s3,godz,min;
  469. WORD ro,mies,dzien,rok,miesiac;
  470.  
  471. };
  472. //---------------------------------------------------------------------------
  473. extern PACKAGE TKartek *Kartek;
  474.  
  475. //---------------------------------------------------------------------------
  476. #endif
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement