fiyatdosya.pas

Basic Marketing stock Program

unit fiyatdosya;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables, ExtCtrls, ComCtrls, Grids, DBGrids,
  DBCtrls;

type
  Tkasa02 = class(TForm)
    sec: TRadioGroup;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DataSource1: TDataSource;
    Query1SIRKOD: TStringField;
    Query1KODU: TStringField;
    Query1ADI: TStringField;
    Query1BIRIM: TStringField;
    Query1GRUPKODU: TFloatField;
    Query1KDV: TFloatField;
    Query1ISKONTO: TFloatField;
    Query1DOVKOD: TStringField;
    Query1ALISFIYAT: TFloatField;
    Query1SFIYAT1: TFloatField;
    Query1SFIYAT2: TFloatField;
    Query1SFIYAT3: TFloatField;
    Query1KRITIKSTOK: TFloatField;
    Query1GIRMIK: TFloatField;
    Query1CIKMIK: TFloatField;
    Query1MEVCUT: TFloatField;
    Query1KDVD: TStringField;
    Query1URUNADI: TStringField;
    Query1PLUTUS: TStringField;
    Query1SATIS: TStringField;
    Query1STOKONAY: TStringField;
    Query1FTARIH: TDateField;
    StatusBar1: TStatusBar;
    ComboBox1: TComboBox;
    Label2: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    procedure hazirla;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kasa02: Tkasa02;

implementation

uses unit1,unitgenel,strutils;

{$R *.DFM}

procedure Tkasa02.BitBtn2Click(Sender: TObject);
begin
        close;
end;

procedure Tkasa02.FormShow(Sender: TObject);
begin
        query1.close;
        datetimepicker1.date:=date;

end;

procedure Tkasa02.BitBtn1Click(Sender: TObject);
begin
        Bitbtn1.Enabled:=false;
        statusbar1.Panels[0].text:='Fiyat Dosyas