oku.pas

Basic Marketing stock Program

unit OKU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables, AHMTDBAscii, Grids, DBGrids, Mask,
  DBCtrls, ExtCtrls,bde;

type
  TForm1 = class(TForm)
    OKU: TAHMDBAscii;
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1SIRKOD: TStringField;
    Table1KODU: TStringField;
    Table1ADI: TStringField;
    Table1BIRIM: TStringField;
    Table1GRUPKODU: TFloatField;
    Table1KDV: TFloatField;
    Table1ISKONTO: TFloatField;
    Table1DOVKOD: TStringField;
    Table1ALISFIYAT: TFloatField;
    Table1SFIYAT1: TFloatField;
    Table1SFIYAT2: TFloatField;
    Table1SFIYAT3: TFloatField;
    Table1KRITIKSTOK: TFloatField;
    Table1GIRMIK: TFloatField;
    Table1CIKMIK: TFloatField;
    Table1MEVCUT: TFloatField;
    Table1KDVD: TStringField;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    stkfist: TTable;
    stkdett: TTable;
    stkdettSIRKOD: TStringField;
    stkdettFISTUR: TFloatField;
    stkdettFISNO: TFloatField;
    stkdettSIRA: TFloatField;
    stkdettFISTAR: TDateField;
    stkdettFIRKOD: TFloatField;
    stkdettMALKODU: TStringField;
    stkdettMALADI: TStringField;
    stkdettBIRIMI: TStringField;
    stkdettKDV: TFloatField;
    stkdettMIKTAR: TFloatField;
    stkdettFIYATI: TFloatField;
    stkdettTUTAR: TFloatField;
    stkdettKAYIT: TFloatField;
    stkfistSIRKOD: TStringField;
    stkfistFISTUR: TFloatField;
    stkfistFISNO: TFloatField;
    stkfistFISTAR: TDateField;
    stkfistFIRKOD: TFloatField;
    stkfistKDVTUT: TFloatField;
    stkfistISKTUT: TFloatField;
    stkfistFISTUT: TFloatField;
    stkfistGENTUT: TFloatField;
    stkfistUSER: TStringField;
    stkfistSATTIP: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure BLOKTAfterPost(DataSet: TDataSet);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses strutils;
{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
        OKU.DoImport;
end;

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure TForm1.BLOKTAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
Var
dosya:Textfile;
ack1,birim,maladi,sirkod,stok,detay:String;
kdv,isk,grp,krt:Integer;
sfiyat,afiyat,girmik,cikmik,tutar:currency;
begin
    assignFile(dosya,'stok.txt');
    if FileExists('stok.txt') then
       Begin
          Reset(dosya);
          while not eof(dosya) do
          begin
            ReadLn(dosya,detay);
            sirkod:=Copy(detay,1,2);
            stok:=Copy(detay,4,15);
            maladi:=Copy(detay,20,30);
            birim:=Copy(detay,51,2);
            kdv:=StrToInt(Copy(detay,54,2));
            isk:=StrtoInt(Copy(detay,57,2));
            grp:=StrToInt(Copy(detay,65,3));
            afiyat:=StrToFloat(Copy(detay,69,10));
            sfiyat:=StrToFloat(Copy(detay,80,10));
            krt:=StrtoInt(Copy(detay,113,10));
            girmik:=StrToFloat(Copy(detay,124,10));
            cikmik:=StrToFloat(Copy(detay,135,10));

            Table1.Append;
            Table1.Edit;
            Table1SIRKOD.Text:='1';
            Table1KODU.Text:=Stok;
            ack1:=OemToAnsiStr(maladi);
            Table1ADI.Text:=ack1;
            Table1BIRIM.Text:=birim;
            Table1GRUPKODU.asInteger:=grp;
            Table1alisfiyat.Value:=afiyat;
            Table1sfiyat1.Value:=sfiyat;
            Table1KRITIKSTOK.Value:=krt;
            Table1GIRMIK.Value:=girmik;
            Table1CIKMIK.Value:=cikmik;
            Table1Mevcut.Value:=girmik-cikmik;
            Table1ISKONTO.Value:=0;
            Table1kdvd.Value:='1';
            table1Sfiyat2.value:=0;
            table1Sfiyat3.value:=0;
            table1dovkod.value:='';



//            Table1.Post;
           detay:='';
           end;
         End;
            closefile(dosya);
            Showmessage('蔺lem Tamamland