sdxscx1.pas

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

unit sdxscx1;

interface

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

type
  Tsdxscx = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Button1: TButton;
    Bevel1: TBevel;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    Bevel2: TBevel;
    Label3: TLabel;
    DateTimePicker3: TDateTimePicker;
    Button2: TButton;
    DataSource2: TDataSource;
    Query1: TADOQuery;
    Query2: TADOQuery;
    dxDBGrid1: TdxDBGrid;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    dxComponentPrinter2: TdxComponentPrinter;
    dxDBGridReportLink1: TdxDBGridReportLink;
    dxDBGrid2: TdxDBGrid;
    Query1xssd: TStringField;
    Query1COLUMN1: TBCDField;
    Query1COLUMN2: TBCDField;
    Query1COLUMN3: TIntegerField;
    Query1COLUMN4: TBCDField;
    dxDBGrid1xssd: TdxDBGridMaskColumn;
    dxDBGrid1COLUMN1: TdxDBGridMaskColumn;
    dxDBGrid1COLUMN2: TdxDBGridMaskColumn;
    dxDBGrid1COLUMN3: TdxDBGridMaskColumn;
    dxDBGrid1COLUMN4: TdxDBGridMaskColumn;
    Query2COLUMN1: TBCDField;
    Query2COLUMN2: TBCDField;
    Query2COLUMN3: TIntegerField;
    Query2COLUMN4: TBCDField;
    dxDBGrid2xssd: TdxDBGridMaskColumn;
    dxDBGrid2COLUMN1: TdxDBGridMaskColumn;
    dxDBGrid2COLUMN2: TdxDBGridMaskColumn;
    dxDBGrid2COLUMN3: TdxDBGridMaskColumn;
    dxDBGrid2COLUMN4: TdxDBGridMaskColumn;
    Query2xsrq: TDateTimeField;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sdxscx: Tsdxscx;

implementation

uses MainForm1;

{$R *.DFM}

procedure Tsdxscx.Button1Click(Sender: TObject);
begin
  Query1.close;
  Query1.Parameters[0].Value := datetostr(DateTimePicker1.Date);
  Query1.open;
end;

procedure Tsdxscx.Button2Click(Sender: TObject);
begin
  Query2.close;
  Query2.Parameters[0].Value := DateTimePicker2.date;
  Query2.Parameters[1].Value := DateTimePicker3.date;
  Query2.open;
end;

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

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

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

procedure Tsdxscx.BitBtn2Click(Sender: TObject);
begin
  dxComponentPrinter2.Preview(true, nil);
end;

end.