unitgenel.pas

Basic Marketing stock Program

unit unitGenel;

interface

uses
	Classes, Forms, Quickrpt, Dialogs, Controls, SysUtils, ExtCtrls, QrExtra,
	ComCtrls, Mask, StdCtrls, Windows, Printers, Db, Math, Buttons,
	DBCtrls, DBGrids;

type
	TSirketBilgileri = record
		SirKod: string;
		SirketAdi: string;
		SirketTel1: string;
		SirketTel2: string;
		SirketFax: string;
		KullaniciKodu: string;
		KullaniciAdi: string;
		KullaniciSifre: string;
		SubeKodu: string;
                Yil:Integer;
                yetki: String ;
                Logno:Currency;
    KasaKodu: string;
    PerKodu: Integer;
		Oncelik: string;
	end;

const
	ALT_SATIR                          = #13+#10;
	RAPOR_REFRESH_RATE                 = 50; // dokunma !!!
	KREDI_REESKONT_REFRESH_RATE        = 15;
	BASE_PASSWORD                      = 'BIM';
	STR_DATA_BASE                      = 'MainDB';
	DIGIT_GROUPS: Char                 = '.';
  LISTE                              =VK_F4;

var
	SB: TSirketBilgileri;
	ChangeFonts: Boolean;
	nLastDay: Word;
  SabitAdi,MusStr,MamulStr:String;
  DovizKuru:Double;
	//////////////////////////////////////////////////////////////////////////////
	// STANDART RENKLER
	GRID_BASLIK_MAVI                       : Integer = $e4c6a7;		// mavi
	GRID_DETAY_SARI                        : Integer = $00CEFFFF;	// sari
	GRID_TOPLAM_YESIL                      : Integer = $aeddc0;		// yesil
	GRID_RENGI_KAHVE                       : Integer = $b0b0db;		// kahve
	GRID_RENGI_PEMBE                       : Integer = $d8b4d1;		// pembe
	GRID_RENGI_KAVUNICI                    : Integer = $92c8fa;		// kavuni鏸
  GRID_YARDIMCI_RENGI                    : Integer = $00E2E2E2; // Gri
	//////////////////////////////////////////////////////////////////////////////
	// STANDART MESAJLAR
	BASLIK_UYARI                       : PChar  = 'UYARI !';
	VERILER_KAYDEDILSINMI              : PChar  = 'Veriyi Kaydetmek 輘ter misiniz !';
	KAYIT_SILINECEK_EMINMISINIZ        : PChar  = 'Bu Kay齮 Silinecek ! Eminmisiniz';
	MUSTERI_KODU_TANIMSIZ              : string = 'Belirtilen M