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

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

Delphi控件源码

开发平台：

Delphi

vcekvaderpt.pas：源码内容
  1. unit vcekvaderpt;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Mask, StdCtrls, Buttons, ComCtrls, ExtCtrls, Db, DBTables, Grids, DBGrids,
  8.   Qrctrls, QuickRpt;
  10. type
  11.   Tvcek040 = class(TForm)
  12.     DBGrid1: TDBGrid;
  13.     Query1: TQuery;
  14.     Query1SIRKOD: TStringField;
  15.     Query1SNO: TIntegerField;
  16.     Query1CEKNO: TStringField;
  17.     Query1ATAR: TDateField;
  18.     Query1MUSNO: TFloatField;
  19.     Query1FIRADI: TStringField;
  20.     Query1VADE: TDateField;
  21.     Query1TAHSIL: TDateField;
  22.     Query1TIP: TStringField;
  23.     Query1BANKA: TStringField;
  24.     Query1SUBE: TStringField;
  25.     Query1TUTAR: TFloatField;
  26.     DataSource1: TDataSource;
  27.     Panel1: TPanel;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Label3: TLabel;
  31.     Edit2: TEdit;
  32.     Edit1: TEdit;
  33.     DateTimePicker2: TDateTimePicker;
  34.     DateTimePicker1: TDateTimePicker;
  35.     BitBtn1: TBitBtn;
  36.     MaskEdit1: TMaskEdit;
  37.     BitBtn2: TBitBtn;
  38.     BitBtn3: TBitBtn;
  39.     Quickrep1: TQuickRep;
  40.     QRBand1: TQRBand;
  41.     QRLabel1: TQRLabel;
  42.     QRLabel14: TQRLabel;
  43.     QRLabel15: TQRLabel;
  44.     QRLabel6: TQRLabel;
  45.     QRBand2: TQRBand;
  46.     QRLabel2: TQRLabel;
  47.     QRLabel3: TQRLabel;
  48.     QRLabel5: TQRLabel;
  49.     QRLabel9: TQRLabel;
  50.     QRShape1: TQRShape;
  51.     QRLabel4: TQRLabel;
  52.     QRLabel7: TQRLabel;
  53.     QRBand3: TQRBand;
  54.     QRDBText2: TQRDBText;
  55.     QRDBText1: TQRDBText;
  56.     QRDBText6: TQRDBText;
  57.     QRDBText10: TQRDBText;
  58.     QRDBText3: TQRDBText;
  59.     QRDBText4: TQRDBText;
  60.     QRDBText5: TQRDBText;
  61.     QRBand4: TQRBand;
  62.     QRExpr1: TQRExpr;
  63.     QRLabel16: TQRLabel;
  64.     procedure BitBtn2Click(Sender: TObject);
  65.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  66.     procedure BitBtn1Click(Sender: TObject);
  67.     procedure BitBtn3Click(Sender: TObject);
  68.     procedure FormShow(Sender: TObject);
  69.   private
  70.     { Private declarations }
  71.   public
  72.     { Public declarations }
  73.   end;
  75. var
  76.   vcek040: Tvcek040;
  78. implementation
  80. uses unit1,unitgenel;
  82. {$R *.DFM}
  84. procedure Tvcek040.BitBtn2Click(Sender: TObject);
  85. begin
  86.       close;
  87. end;
  89. procedure Tvcek040.FormClose(Sender: TObject; var Action: TCloseAction);
  90. begin
  91.         action:=cafree;
  92. end;
  94. procedure Tvcek040.BitBtn1Click(Sender: TObject);
  95. Var
  96. toplam:Currency;
  97. begin
  98.     Edit1.Text:=DateToStr(DateTimePicker1.Date);
  99.     Edit2.Text:=DateToStr(DateTimePicker2.Date);
  100.     Query1.Close;
  101.     Query1.ParamByName( 'XSIRKOD' ).Text :=sb.sirkod;
  102.     Query1.ParamByName( 'TAR' ).Text :=Edit1.Text;
  103.     Query1.ParamByName( 'TAR1' ).Text :=Edit2.Text;
  104.     Query1.Prepare;
  105.     Query1.Open;
  106.     toplam:=0;
  107.     MaskEdit1.Text:='';
  108.     Query1.First;
  109.      While not Query1.EOF
  110.      do begin
  111.        toplam:=toplam + Query1TUTAR.AsCurrency;
  112.        Query1.Next;
  113.      end;
  114.       MaskEdit1.Text:=FloatToStr(toplam);
  117. end;
  119. procedure Tvcek040.BitBtn3Click(Sender: TObject);
  120. begin
  121.      Qrlabel14.Caption:=Edit1.Text;
  122.      Qrlabel15.Caption:=Edit2.Text;
  123.      Quickrep1.Preview;
  126. end;
  128. procedure Tvcek040.FormShow(Sender: TObject);
  129. begin
  130.       DateTimePicker1.Date:=Date;
  131.       DateTimePicker2.Date:=Date;
  133. end;
  135. end.