cekagiris.pas

Basic Marketing stock Program

unit cekagiris;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask, ComCtrls, ToolEdit, RXDBCtrl;

type
  Tcek010 = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    kaydet: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBText1: TDBText;
    DBText2: TDBText;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    t2: TDateTimePicker;
    bl: TDBLookupComboBox;
    SpeedButton6: TSpeedButton;
    DBDateEdit1: TDBDateEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7Exit(Sender: TObject);
    procedure blKeyPress(Sender: TObject; var Key: Char);
    procedure blClick(Sender: TObject);
    procedure kaydetClick(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure DBDateEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cek010: Tcek010;
  firkod,cektutar:Currency;


implementation

uses unit1,unitgenel,firmagozlem, cekagozlem;

{$R *.DFM}

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

procedure Tcek010.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
        if key= #13 then
          Begin
             dtaksit.CEKAT.Locate('SIRKOD;CEKNO',VarArrayof([Sb.sirkod,dbedit1.Text]),[]) ;
             cektutar:=dtaksit.CEKATTUTAR.AsCurrency;
             Key:=#0;
             PostMessage( Handle,WM_KEYDOWN,09,0);
        end;
end;

procedure Tcek010.FormShow(Sender: TObject);
begin
        t2.DateTime:=date;
        dtaksit.CEKAT.Append;
        dtaksit.CEKATATAR.Value:=date;
        Dbedit1.Setfocus;
end;

procedure Tcek010.SpeedButton1Click(Sender: TObject);
begin
        dtaksit.CEKAT.cancel;
        dtaksit.CEKAT.Append;
        dtaksit.CEKATATAR.Value:=date;
        Dbedit1.Setfocus;

end;

procedure Tcek010.SpeedButton5Click(Sender: TObject);
begin
        close;
end;

procedure Tcek010.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
        if key= #13 then
          Begin
              Key:=#0;
             PostMessage( Handle,WM_KEYDOWN,09,0);
        end;

end;

procedure Tcek010.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
        if key= #13 then
          Begin
              dtaksit.firmat.Close;
              firkod:=StrToFloat(DBEdit3.Text);
              dtaksit.firmat.ParamByName('XSIRKOD').value:=sb.sirkod;
              dtaksit.firmat.ParamByName('XFIRKOD').value:=firkod;
              dtaksit.firmat.Prepare;
              dtaksit.firmat.Open;
              if dtaksit.firmat.IsEmpty then
                 Begin
                   ShowMessage('Firma Kayd