unitanaform.pas

Basic Marketing stock Program

unit Unitanaform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ImgList, BiosInfo, ExtCtrls;

type
  Tanaform = class(TForm)
    MainMenu1: TMainMenu;
    Geneltanmlar1: TMenuItem;
    StokTakip1: TMenuItem;
    CariKartlar1: TMenuItem;
    ekSenetTakip1: TMenuItem;
    Yardm1: TMenuItem;
    ProgramHakknda1: TMenuItem;
    Programdank1: TMenuItem;
    StatusBar1: TStatusBar;
    irketBilgileriGirii1: TMenuItem;
    KullancTantma1: TMenuItem;
    FirmalarnTantm1: TMenuItem;
    demelerinlenmesi1: TMenuItem;
    Tahsilatlarnlenmesi1: TMenuItem;
    Raporlar1: TMenuItem;
    FirmalarnListesi1: TMenuItem;
    CariHesapEkstresi1: TMenuItem;
    demelerinListesi1: TMenuItem;
    TahsilatlarnListesi1: TMenuItem;
    rnGruplarTantma1: TMenuItem;
    StokMallarKayd1: TMenuItem;
    StokMalGirii1: TMenuItem;
    StokMalk1: TMenuItem;
    StokMalSaym1: TMenuItem;
    FiyatDeitirme1: TMenuItem;
    Raporlar2: TMenuItem;
    StokMalListesi1: TMenuItem;
    KritikStoklar1: TMenuItem;
    SatnAlmListesi1: TMenuItem;
    GiriFileriListesi1: TMenuItem;
    kFileriListesi1: TMenuItem;
    StokkEkstresi1: TMenuItem;
    Kasalemleri1: TMenuItem;
    Firmaekleri1: TMenuItem;
    Verilenekler1: TMenuItem;
    FirmaSenetleri1: TMenuItem;
    VerilenSenetler1: TMenuItem;
    FirmaekleriGirii1: TMenuItem;
    TahsilEdileneklerinGirii1: TMenuItem;
    TahsilEdilecekekListesi1: TMenuItem;
    VadeTarihineGreekler1: TMenuItem;
    TahsilEdilenekListesi1: TMenuItem;
    VerileneklerinGirii1: TMenuItem;
    deneneklerinGirii1: TMenuItem;
    denecekeklerinListesi1: TMenuItem;
    VadeTari1: TMenuItem;
    deneneklerinListesi1: TMenuItem;
    FirmaSenetleriGirii1: TMenuItem;
    TahsilEdilenSenetlerinGirii1: TMenuItem;
    TahsilEdilecekSenetListesi1: TMenuItem;
    VadeTarihineGreSenetler1: TMenuItem;
    TahsilEdilenSenetlerListesi1: TMenuItem;
    VerilenSenetlerGirii1: TMenuItem;
    denenSenetlerGirii1: TMenuItem;
    denecekSenetlerListesi1: TMenuItem;
    VadeTarihineGreSenetListesi1: TMenuItem;
    denenSenetListesi1: TMenuItem;
    ifreDeitirme1: TMenuItem;
    KasaGirik1: TMenuItem;
    KasaGiriRaporu1: TMenuItem;
    KasakRaporu1: TMenuItem;
    GenelKasaRaporu1: TMenuItem;
    TelefonKaytlarGirii1: TMenuItem;
    TelefonKaytlarListesi1: TMenuItem;
    BankaTantma1: TMenuItem;
    SatnAlmSat1: TMenuItem;
    SatnAlmGirii2: TMenuItem;
    Sat1: TMenuItem;
    SatnAlmRaporu1: TMenuItem;
    SatRaporu1: TMenuItem;
    StokBakiyeListesi1: TMenuItem;
    ImageList1: TImageList;
    KdvDeitirme1: TMenuItem;
    Programdank2: TMenuItem;
    PrekandeSat1: TMenuItem;
    PrekandeSat2: TMenuItem;
    SatRaporu2: TMenuItem;
    KullancBazndaSatRaporu1: TMenuItem;
    VeresiyeTakip1: TMenuItem;
    MteriTantma1: TMenuItem;
    VeresiyeSat1: TMenuItem;
    TahsilatGiri1: TMenuItem;
    MteriBazndaSatRaporu1: TMenuItem;
    MteriHesapEksteresi1: TMenuItem;
    VeresiyeSatRaporu1: TMenuItem;
    BarkodBasm1: TMenuItem;
    BarkodEtiketBasm1: TMenuItem;
    AlFiiHazrlama1: TMenuItem;
    StokDzenleme1: TMenuItem;
    VeresiyeDEfteriDzenleme1: TMenuItem;
    YazarKasa1: TMenuItem;
    StokKart1: TMenuItem;
    FiyatDosyasHazrlama1: TMenuItem;
    FiyatlarnKasayaAktarlmas1: TMenuItem;
    bb1: TMenuItem;
    SatRaporu3: TMenuItem;
    skontoSatRaporu1: TMenuItem;
    MteriTahsilatRaporu1: TMenuItem;
    FirmaGruplarTantma1: TMenuItem;
    TelefonRehberi1: TMenuItem;
    GruplaraGreStokListesi1: TMenuItem;
    GruplaraGreFirmaListesi1: TMenuItem;
    GrupMalListesiAl1: TMenuItem;
    MamulAacGirii1: TMenuItem;
    rsaliyeVeFatura1: TMenuItem;
    kFiindenrsaliyeHazrlama1: TMenuItem;
    rsaliyeGirii1: TMenuItem;
    rsaliyeDkm1: TMenuItem;
    FaturaHazrlama1: TMenuItem;
    FaturaDkm1: TMenuItem;
    SarfFiiHazrlama1: TMenuItem;
    procedure irketBilgileriGirii1Click(Sender: TObject);
    procedure KullancTantma1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure rnGruplarTantma1Click(Sender: TObject);
    procedure ifreDeitirme1Click(Sender: TObject);
    procedure FirmalarnTantm1Click(Sender: TObject);
    procedure demelerinlenmesi1Click(Sender: TObject);
    procedure Tahsilatlarnlenmesi1Click(Sender: TObject);
    procedure demelerinListesi1Click(Sender: TObject);
    procedure TahsilatlarnListesi1Click(Sender: TObject);
    procedure StokMallarKayd1Click(Sender: TObject);
    procedure StokMalGirii1Click(Sender: TObject);
    procedure KasaGirik1Click(Sender: TObject);
    procedure KasakRaporu1Click(Sender: TObject);
    procedure KasaGiriRaporu1Click(Sender: TObject);
    procedure GenelKasaRaporu1Click(Sender: TObject);
    procedure TelefonKaytlarGirii1Click(Sender: TObject);
    procedure TelefonKaytlarListesi1Click(Sender: TObject);
    procedure ProgramHakknda1Click(Sender: TObject);
    procedure FirmaekleriGirii1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BankaTantma1Click(Sender: TObject);
    procedure SatnAlmGirii2Click(Sender: TObject);
    procedure Sat1Click(Sender: TObject);
    procedure TahsilEdileneklerinGirii1Click(Sender: TObject);
    procedure TahsilEdilecekekListesi1Click(Sender: TObject);
    procedure VadeTarihineGreekler1Click(Sender: TObject);
    procedure TahsilEdilenekListesi1Click(Sender: TObject);
    procedure VerileneklerinGirii1Click(Sender: TObject);
    procedure deneneklerinGirii1Click(Sender: TObject);
    procedure denecekeklerinListesi1Click(Sender: TObject);
    procedure VadeTari1Click(Sender: TObject);
    procedure deneneklerinListesi1Click(Sender: TObject);
    procedure SatnAlmRaporu1Click(Sender: TObject);
    procedure SatRaporu1Click(Sender: TObject);
    procedure CariHesapEkstresi1Click(Sender: TObject);
    procedure FirmalarnListesi1Click(Sender: TObject);
    procedure StokMalSaym1Click(Sender: TObject);
    procedure KritikStoklar1Click(Sender: TObject);
    procedure StokMalListesi1Click(Sender: TObject);
    procedure GiriFileriListesi1Click(Sender: TObject);
    procedure kFileriListesi1Click(Sender: TObject);
    procedure StokMalk1Click(Sender: TObject);
    procedure SatnAlmListesi1Click(Sender: TObject);
    procedure StokkEkstresi1Click(Sender: TObject);
    procedure StokBakiyeListesi1Click(Sender: TObject);
    procedure FiyatDeitirme1Click(Sender: TObject);
    procedure KdvDeitirme1Click(Sender: TObject);
    procedure Programdank2Click(Sender: TObject);
    procedure PrekandeSat2Click(Sender: TObject);
    procedure MteriTantma1Click(Sender: TObject);
    procedure VeresiyeSat1Click(Sender: TObject);
    procedure TahsilatGiri1Click(Sender: TObject);
    procedure MteriBazndaSatRaporu1Click(Sender: TObject);
    procedure SatRaporu2Click(Sender: TObject);
    procedure BarkodEtiketBasm1Click(Sender: TObject);
    procedure VeresiyeSatRaporu1Click(Sender: TObject);
    procedure MteriHesapEksteresi1Click(Sender: TObject);
    procedure AlFiiHazrlama1Click(Sender: TObject);
    procedure KullancBazndaSatRaporu1Click(Sender: TObject);
    procedure StokDzenleme1Click(Sender: TObject);
    procedure VeresiyeDEfteriDzenleme1Click(Sender: TObject);
    procedure StokKart1Click(Sender: TObject);
    procedure FiyatDosyasHazrlama1Click(Sender: TObject);
    procedure bb1Click(Sender: TObject);
    procedure SatRaporu3Click(Sender: TObject);
    procedure skontoSatRaporu1Click(Sender: TObject);
    procedure MteriTahsilatRaporu1Click(Sender: TObject);
    procedure FirmaGruplarTantma1Click(Sender: TObject);
    procedure GruplaraGreStokListesi1Click(Sender: TObject);
    procedure GruplaraGreFirmaListesi1Click(Sender: TObject);
    procedure GrupMalListesiAl1Click(Sender: TObject);
    procedure MamulAacGirii1Click(Sender: TObject);
    procedure SarfFiiHazrlama1Click(Sender: TObject);
    procedure kFiindenrsaliyeHazrlama1Click(Sender: TObject);
    procedure rsaliyeGirii1Click(Sender: TObject);
    procedure FaturaHazrlama1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  anaform: Tanaform;

implementation

Uses sirket, kullanicilar, giris,grupgir,sifdeg,firmagir,
     odemegir,tahsilgir, Unitmusodmrpt, firmatahsilraporu,
     stokgir, stokmalgir,irsaliyegiris,
     Unitkasa, Unitkasacrpt,Unitkasahrk, Unitkasagircikrpt,
     Unit13, Unit15, hakkindap, Unit1,cekagiris,
     satinalim,satis,banka,cektahsil,cektahsilrpt,cekvaderpt,
     cekodenen,cekvgiris,vcekodemegir,vcekodmrpt,vcekvaderpt,vcekodenenrpt,
  satinal,satisliste,hesapekstresi, firmaraporu,unitgenel,stokmalsay, kritikstoklar,
  stoklistrpt, stokgirisfisleri, stokcikisraporu, stokmalcik,
  satinalimraporu, stokcikisekstra, stokeksibakiyelistesi, stokzamyap,
  kdvdegistir, prekandesatis, musterigiris, veresiyesatis, musteritahsil,
  mussatrpt, prakendesatrpt, Unitseribarkod, veresiyesatrpt, mushesapeks,
  acilisfisi, prmussatrptr, stokduzenle, vermizduzenle, urunkarti,
  fiyatdosya, barkodetiket, persatisraporu, iskontosatrpt, mustahsilrpt,
  firmagrup, stokgruplistesi, firmagruplistesi, stokmalgruplist, mamulagaci,
  sarffisi, irsaliyehazirla, faturahazirlama;

{$R *.DFM}

procedure Tanaform.irketBilgileriGirii1Click(Sender: TObject);
begin
      Application.CreateForm(Tsirketf, sirketf);
      sirketf.show;
end;

procedure Tanaform.KullancTantma1Click(Sender: TObject);
begin
   if sb.KullaniciKodu <> '1' then
     Begin
       ShowMessage('Dikkat Bu B鰈黰e Girme Yerkiniz Yok');
       Abort;
     end;  

   Application.CreateForm(Tkullanicif, kullanicif);
   kullanicif.show;
end;

procedure Tanaform.FormShow(Sender: TObject);
begin
        girisf.showmodal;

end;

procedure Tanaform.rnGruplarTantma1Click(Sender: TObject);
begin
  Application.CreateForm(Tgrupf, grupf);
  grupf.show;
end;

procedure Tanaform.ifreDeitirme1Click(Sender: TObject);
begin
     Application.CreateForm(Tsifref, sifref);
    sifref.show;
end;

procedure Tanaform.FirmalarnTantm1Click(Sender: TObject);
begin
     Application.CreateForm(Tfirmaf, firmaf);
     firmaf.show;
end;

procedure Tanaform.demelerinlenmesi1Click(Sender: TObject);
begin
      Application.CreateForm(Todemeg, odemeg);
      odemeg.show;

end;

procedure Tanaform.Tahsilatlarnlenmesi1Click(Sender: TObject);
begin
     Application.CreateForm(Ttahsilf, tahsilf);
     tahsilf.show;
end;

procedure Tanaform.demelerinListesi1Click(Sender: TObject);
begin
        Application.CreateForm(Tfirodmrpt, firodmrpt);
        firodmrpt.show;
end;

procedure Tanaform.TahsilatlarnListesi1Click(Sender: TObject);
begin
        Application.CreateForm(Tfirtahsilrpt, firtahsilrpt);
        firtahsilrpt.show;
end;

procedure Tanaform.StokMallarKayd1Click(Sender: TObject);
begin
    Application.CreateForm(Tstokf, stokf);
    stokf.show;
end;

procedure Tanaform.StokMalGirii1Click(Sender: TObject);
begin
        Application.CreateForm(Tstokmgir, stokmgir);
        stokmgir.show;
end;

procedure Tanaform.KasaGirik1Click(Sender: TObject);
begin
        kasa.showmodal;
end;

procedure Tanaform.KasakRaporu1Click(Sender: TObject);
begin
     Application.CreateForm(Tkasacrpt, kasacrpt);
     kasacrpt.show;

end;

procedure Tanaform.KasaGiriRaporu1Click(Sender: TObject);
begin
     Application.CreateForm(Tkasahrk, kasahrk);
     kasahrk.show;
end;

procedure Tanaform.GenelKasaRaporu1Click(Sender: TObject);
begin
     Application.CreateForm(Tkasagircikrpt, kasagircikrpt);
     kasagircikrpt.show;
end;

procedure Tanaform.TelefonKaytlarGirii1Click(Sender: TObject);
begin
        form13.showmodal;
end;

procedure Tanaform.TelefonKaytlarListesi1Click(Sender: TObject);
begin
        quickreport15.Preview;
end;

procedure Tanaform.ProgramHakknda1Click(Sender: TObject);
begin
        hakkinda.showmodal;
end;

procedure Tanaform.FirmaekleriGirii1Click(Sender: TObject);
begin
        Application.CreateForm(Tcek010, cek010);
        cek010.show;
end;

procedure Tanaform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
         if anaform.MDIChildCount > 0 then
            Begin
              ShowMessage('Kapanmam