unitkasa.pas

Basic Marketing stock Program

unit Unitkasa;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mneyedit, DBCtrls, Mask, ColorBtns, ExtCtrls, ToolEdit,
  CurrEdit, Db, DBTables,bde;

type
  Tkasa = class(TForm)
    Panel3: TPanel;
    Color95Button13: TColor95Button;
    Color95Button14: TColor95Button;
    Color95Button15: TColor95Button;
    Color95Button16: TColor95Button;
    Color95Button17: TColor95Button;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    DBComboBox1: TDBComboBox;
    Label3: TLabel;
    fisbulq: TQuery;
    fisbulqFISNO: TFloatField;
    DBEdit3: TDBEdit;
    Query1: TQuery;
    Query1SIRKOD: TStringField;
    Query1KASAFISNO: TFloatField;
    Query1KASATARIH: TDateField;
    Query1KASAACIKLAMA: TStringField;
    Query1KASAISLEM: TStringField;
    Query1KASATUTAR: TFloatField;
    procedure Color95Button17Click(Sender: TObject);
    procedure Color95Button13Click(Sender: TObject);
    procedure Color95Button14Click(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Color95Button16Click(Sender: TObject);
    procedure Color95Button15Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Query1AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kasa: Tkasa;

implementation

Uses Unit1, Unitkasagozlem,Unitgenel;

{$R *.DFM}

procedure Tkasa.Color95Button17Click(Sender: TObject);
begin
        close;
end;

procedure Tkasa.Color95Button13Click(Sender: TObject);
begin
        dtaksit.kasa.Cancel;
        dtaksit.kasa.Append;
        DbEdit2.Text:=DateToStr(Date);
        Dbcombobox1.SetFocus;
end;

procedure Tkasa.Color95Button14Click(Sender: TObject);
Var
yfisno:Integer;
begin
        yfisno:=0;
        fisbulq.Close;
        fisbulq.ParamByName('XSIRKOD').VALUE:=sb.sirkod;
        fisbulq.Prepare;
        fisbulq.Open;
        yfisno:=fisbulqfisno.asinteger + 1;
        dtaksit.kasa.Edit;
        dtaksit.KASASIRKOD.Value:=sb.sirkod;
        dtaksit.KASAKASAFISNO.AsInteger:=yfisno;
        if DBEdit2.Text='' then
          DBEdit2.Text:=DateToStr(Date);
        dtaksit.kasa.Post;
        dtaksit.kasa.Append;
        DbEdit2.Text:=DateToStr(Date);
        query1.ExecSQL;
        query1.close;
        Dbcombobox1.SetFocus;

end;

procedure Tkasa.DBEdit1Change(Sender: TObject);
begin
        Edit1.Text:=DBEdit1.Text;
end;

procedure Tkasa.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if Key = 13 then
          Begin
             Dtaksit.kasa.Edit;
             if not Dtaksit.kasa.Locate('SIRKOD;KASAFISNO',Vararrayof([Sb.sirkod,Edit1.Text]),[]) then
               Begin
                  dtaksit.kasa.append;
                  ShowMessage('Fi