cekvgiris.pas

Basic Marketing stock Program

unit cekvgiris;

interface

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

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

var
  vcek010: Tvcek010;
  firkod,cektutar:Currency;

implementation

uses unit1,unitgenel,firmagozlem, vcekgozlemi;

{$R *.DFM}

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

procedure Tvcek010.FormShow(Sender: TObject);
begin
  //      t2.DateTime:=date;
        dtaksit.CEKBT.Append;
        dtaksit.CEKBTATAR.Value:=date;
        edit1.Text:='';
        edit1.Setfocus;

end;

procedure Tvcek010.SpeedButton1Click(Sender: TObject);
begin
        dtaksit.CEKBT.cancel;
        dtaksit.CEKBT.Append;
        dtaksit.CEKBTATAR.Value:=date;
        edit1.Text:='';
        edit1.Setfocus;

end;

procedure Tvcek010.kaydetClick(Sender: TObject);
begin
         if Edit1.Text='' then
           Edit1.Setfocus;
         dtaksit.CEKBT.edit;
         dtaksit.CEKBTSIRKOD.Value:=sb.sirkod;
         dtaksit.CEKBTCEKNO.Text:=Edit1.Text;
         dtaksit.CEKBT.post;
         firkod:=StrToFloat(DBEdit3.Text);
//  ----------------- Fi