odemegir.pas

Basic Marketing stock Program

unit odemegir;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, StdCtrls, Mneyedit, DBCtrls, Mask, Db, DBTables;

type
  Todemeg = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBText1: TDBText;
    DBEdit4: TDBEdit;
    MoneyEdit1: TMoneyEdit;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    SpeedButton6: TSpeedButton;
    fisbulq: TQuery;
    fisbulqFISNO: TFloatField;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit1Change(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure MoneyEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3Exit(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  odemeg: Todemeg;
  sw,yfisno:Integer;
  fistutar:Currency;
implementation

Uses unit1,unitgenel,firmagozlem, odemegozlem;

{$R *.DFM}

procedure Todemeg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Action:=cafree;
end;

procedure Todemeg.DBEdit1Change(Sender: TObject);
begin
//        Edit1.Text:=DbEdit1.Text;
end;

procedure Todemeg.SpeedButton6Click(Sender: TObject);
begin
        Application.CreateForm(Tfirmag, firmag);
        if firmag.showmodal=mrok then
          Begin
              dtaksit.odemet.Edit;
              dtaksit.odemetFIRKOD.Value:=firmag.Table1FIRKOD.Value;
              dtaksit.odemetFIRADI.Value:=firmag.Table1FIRMAADI.Value;
              DbEdit4.setfocus;
          end;
            firmag.Table1.close;


end;

procedure Todemeg.SpeedButton1Click(Sender: TObject);
begin
        dtaksit.odemet.cancel;
        dtaksit.odemet.Append;
        dtaksit.odemetTARIH.Text:=DateTostr(Date);
        MoneyEdit1.TextAsFloat:=0;
        Edit1.Text:='';
        Edit1.SetFocus;
end;

procedure Todemeg.SpeedButton2Click(Sender: TObject);
Var
firkod:Currency;
begin
            if MoneyEdit1.TextAsFloat < 1 then
              Begin
                 Moneyedit1.SetFocus;
                 Abort;
              end;
            if dbedit3.Text='' then
              Begin
               Showmessage('Firma Kodu Bo