hyxfcx1.pas

不错的代码 希望大家喜欢 别忘了看完以后联系我

unit hyxfcx1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner,
  dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBGrLnk, StdCtrls, Buttons,
  ExtCtrls, ADODB, ComCtrls, Mask, ToolEdit, CurrEdit;

type
  Thyxfcx = class(TForm)
    DataSource1: TDataSource;
    dxComponentPrinter1: TdxComponentPrinter;
    Query1: TADOQuery;
    Query1hyid: TStringField;
    Query1hyname: TStringField;
    Query1xsid: TStringField;
    Query1xsrq: TDateTimeField;
    Query1code: TStringField;
    Query1barcode: TStringField;
    Query1name: TStringField;
    Query1dj: TCurrencyField;
    Query1sl: TFloatField;
    Query1je: TCurrencyField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    dxDBGrid1: TdxDBGrid;
    DataSource2: TDataSource;
    ADOQuery1: TADOQuery;
    dxDBGrid2: TdxDBGrid;
    Panel2: TPanel;
    ADOQuery1code: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1jf: TBCDField;
    dxDBGrid2code: TdxDBGridMaskColumn;
    dxDBGrid2name: TdxDBGridMaskColumn;
    dxDBGrid2jf: TdxDBGridMaskColumn;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    RxCalcEdit1: TRxCalcEdit;
    Label6: TLabel;
    RxCalcEdit2: TRxCalcEdit;
    BitBtn3: TBitBtn;
    Label7: TLabel;
    RxCalcEdit3: TRxCalcEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn4: TBitBtn;
    ADOQuery2: TADOQuery;
    dxComponentPrinter2: TdxComponentPrinter;
    dxComponentPrinter2Link1: TdxDBGridReportLink;
    BitBtn5: TBitBtn;
    Query1lsj: TBCDField;
    Query1jhj: TBCDField;
    Query1lsje: TBCDField;
    Query1jhje: TBCDField;
    Query1lshyc: TBCDField;
    Query1hyjxc: TBCDField;
    dxDBGrid1hyid: TdxDBGridMaskColumn;
    dxDBGrid1hyname: TdxDBGridMaskColumn;
    dxDBGrid1xsid: TdxDBGridMaskColumn;
    dxDBGrid1xsrq: TdxDBGridDateColumn;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1barcode: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1dj: TdxDBGridCurrencyColumn;
    dxDBGrid1sl: TdxDBGridMaskColumn;
    dxDBGrid1je: TdxDBGridCurrencyColumn;
    dxDBGrid1lsj: TdxDBGridMaskColumn;
    dxDBGrid1jhj: TdxDBGridMaskColumn;
    dxDBGrid1lsje: TdxDBGridMaskColumn;
    dxDBGrid1jhje: TdxDBGridMaskColumn;
    dxDBGrid1lshyc: TdxDBGridMaskColumn;
    dxDBGrid1hyjxc: TdxDBGridMaskColumn;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyxfcx: Thyxfcx;

implementation

uses MainForm1;

{$R *.DFM}

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

procedure Thyxfcx.BitBtn1Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
end;

procedure Thyxfcx.BitBtn2Click(Sender: TObject);
begin
  Query1.close;
  Query1.Parameters[0].Value := Edit1.Text + '%';
  Query1.Parameters[1].Value := Edit1.Text + '%';
  Query1.Parameters[2].Value := DateTimePicker1.DateTime;
  Query1.Parameters[3].Value := DateTimePicker2.DateTime;
  Query1.open;
end;

procedure Thyxfcx.FormCreate(Sender: TObject);
begin
  DateTimePicker1.DateTime := MainForm.DateTimePicker2.DateTime;
  DateTimePicker2.DateTime := MainForm.DateTimePicker1.DateTime;
end;

procedure Thyxfcx.BitBtn3Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select code,name,jf/' + RxCalcEdit3.Text + ' as jf from hyda where jf>=:fs1 and jf<=:jf2 and code like :code');
  ADOQuery1.Parameters[0].Value := RxCalcEdit1.Value * RxCalcEdit3.Value;
  ADOQuery1.Parameters[1].Value := RxCalcEdit2.Value * RxCalcEdit3.Value;
  if Edit1.Text = '' then ADOQuery1.Parameters[2].Value := '%' else ADOQuery1.Parameters[2].Value := Edit1.Text;
  ADOQuery1.Open;
end;

procedure Thyxfcx.BitBtn4Click(Sender: TObject);
begin
  if Application.MessageBox('是否将此会员的积分清除,重新记分？', '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('update hyda set jf=0 where code=:code');
  ADOQuery2.Parameters[0].Value := ADOQuery1code.Value;
  ADOQuery2.ExecSQL;
end;

procedure Thyxfcx.BitBtn5Click(Sender: TObject);
begin
  dxComponentPrinter2.Preview(true, nil);
end;

end.