giris.pas

Basic Marketing stock Program

unit giris;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ArtLabel, ExtCtrls, StdCtrls, Gradient, Buttons, DBCtrls;


type
  Tgirisf = class(TForm)
    DfGradient1: TDfGradient;
    ArtLabel2: TArtLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    firlist: TDBLookupComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure firlistClick(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  girisf: Tgirisf;

implementation

Uses unit1,unitgenel, Unitanaform;

{$R *.DFM}

procedure Tgirisf.SpeedButton1Click(Sender: TObject);
begin
        application.Terminate;
end;

procedure Tgirisf.firlistClick(Sender: TObject);
begin
        Edit1.SetFocus;
end;

procedure Tgirisf.Edit1Click(Sender: TObject);
begin
        if firlist.Text='' then
          Begin
            ShowMessage('L黷fen 辤rket Se鏸niz');
            firlist.SetFocus;
            Abort;
          End;

end;

procedure Tgirisf.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if Key = #13 then
      Begin
        if not dtaksit.kullanici.Locate('KODU',(Edit1.Text),[]) then
          Begin
               ShowMessage('Dikkat..! Kullan齝