开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
stoklistrpt.pas
资源名称：1.ertstok.zip　[点击查看]
上传用户：hbycfrp
上传日期：2014-09-15
资源大小：603k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

stoklistrpt.pas：源码内容
  1. unit stoklistrpt;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, ExtCtrls, Db, DBTables, Grids, DBGrids, ComCtrls,
  8.   Qrctrls, QuickRpt;
  10. type
  11.   Tstokrpt = class(TForm)
  12.     DBGrid1: TDBGrid;
  13.     Query1: TQuery;
  14.     Query1SIRKOD: TStringField;
  15.     Query1KODU: TStringField;
  16.     Query1ADI: TStringField;
  17.     Query1BIRIM: TStringField;
  18.     Query1GRUPKODU: TFloatField;
  19.     Query1KDV: TFloatField;
  20.     Query1ISKONTO: TFloatField;
  21.     Query1DOVKOD: TStringField;
  22.     Query1ALISFIYAT: TFloatField;
  23.     Query1SFIYAT1: TFloatField;
  24.     Query1SFIYAT2: TFloatField;
  25.     Query1SFIYAT3: TFloatField;
  26.     Query1KRITIKSTOK: TFloatField;
  27.     Query1GIRMIK: TFloatField;
  28.     Query1CIKMIK: TFloatField;
  29.     Query1MEVCUT: TFloatField;
  30.     DataSource1: TDataSource;
  31.     Panel1: TPanel;
  32.     Label4: TLabel;
  33.     Label5: TLabel;
  34.     BitBtn4: TBitBtn;
  35.     Edit3: TEdit;
  36.     Edit4: TEdit;
  37.     Edit1: TEdit;
  38.     Edit2: TEdit;
  39.     BitBtn1: TBitBtn;
  40.     BitBtn2: TBitBtn;
  41.     BitBtn3: TBitBtn;
  42.     QuickRep1: TQuickRep;
  43.     QRBand1: TQRBand;
  44.     QRLabel4: TQRLabel;
  45.     QRSysData1: TQRSysData;
  46.     QRLabel3: TQRLabel;
  47.     QRBand2: TQRBand;
  48.     QRLabel5: TQRLabel;
  49.     QRLabel6: TQRLabel;
  50.     QRLabel7: TQRLabel;
  51.     QRLabel8: TQRLabel;
  52.     QRLabel9: TQRLabel;
  53.     QRShape1: TQRShape;
  54.     QRLabel1: TQRLabel;
  55.     QRLabel2: TQRLabel;
  56.     QRBand3: TQRBand;
  57.     QRDBText1: TQRDBText;
  58.     QRDBText2: TQRDBText;
  59.     QRDBText3: TQRDBText;
  60.     QRDBText4: TQRDBText;
  61.     QRDBText5: TQRDBText;
  62.     QRDBText6: TQRDBText;
  63.     QRDBText7: TQRDBText;
  64.     StatusBar1: TStatusBar;
  65.     QRLabel10: TQRLabel;
  66.     QRDBText8: TQRDBText;
  67.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  68.     procedure BitBtn4Click(Sender: TObject);
  69.     procedure BitBtn1Click(Sender: TObject);
  70.     procedure BitBtn3Click(Sender: TObject);
  71.     procedure BitBtn2Click(Sender: TObject);
  72.   private
  73.     { Private declarations }
  74.   public
  75.     { Public declarations }
  76.   end;
  78. var
  79.   stokrpt: Tstokrpt;
  81. implementation
  83. uses unit1,unitgenel,stoklistesi;
  85. {$R *.DFM}
  87. procedure Tstokrpt.FormClose(Sender: TObject; var Action: TCloseAction);
  88. begin
  89.         action:=cafree;
  90. end;
  92. procedure Tstokrpt.BitBtn4Click(Sender: TObject);
  93. begin
  94.       try
  95.         Application.CreateForm(Tstoklist, stoklist);
  96.         stoklist.showmodal;
  97.       finally
  98.         stoklist.free;
  99.         edit3.Text:=dtaksit.STOKTKODU.Text;
  100.       end;
  101. end;
  103. procedure Tstokrpt.BitBtn1Click(Sender: TObject);
  104. begin
  105.      if Edit3.Text='' then
  106.        Edit3.Text:='1';
  107.      if Edit4.Text='' then
  108.        Edit4.Text:='9999999999999';
  109.      Query1.Close;
  110.      Query1.ParamByName('XSIRKOD').Value:=sb.sirkod;
  111.      Query1.ParamByName('XBKODU').Value:=Edit3.Text;
  112.      Query1.ParamByName('XSKODU').Value:=Edit4.Text;
  113.      Query1.Prepare;
  114.      Query1.open;
  115.      if Query1.IsEmpty then
  116.        Begin
  117.          ShowMessage('輘tenilen Kay齮lar Bulunamad