utrackopt.pas

-----------使用说明 1.数据库为SQL2000,用附加数据库的功能建立WeijieData数据库,连接的用户为Sa,密码为空,可用server源代码自行修改. 2.第一次运行先

unit uTrackOpt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxTextEdit,
  cxCurrencyEdit, cxDropDownEdit, cxCalc, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, jpeg, Buttons,
  cxContainer, cxMaskEdit, cxCalendar, DBClient;

type
  TfrmTrackOpt = class(TForm)
    Bevel1: TBevel;
    Shape1: TShape;
    Label1: TLabel;
    Image1: TImage;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    cxGrid4: TcxGrid;
    GridPlan: TcxGridDBTableView;
    colCode: TcxGridDBColumn;
    colName: TcxGridDBColumn;
    colHd: TcxGridDBColumn;
    colKD: TcxGridDBColumn;
    colColor: TcxGridDBColumn;
    colDw: TcxGridDBColumn;
    colSL: TcxGridDBColumn;
    colFsl1: TcxGridDBColumn;
    colNil: TcxGridDBColumn;
    lvPlan: TcxGridLevel;
    Bevel2: TBevel;
    cxDateEdit1: TcxDateEdit;
    cxDateEdit2: TcxDateEdit;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    cdPlan: TClientDataSet;
    dsStockPlan: TDataSource;
    cdStock: TClientDataSet;
    dsStock: TDataSource;
    cdHGoods: TClientDataSet;
    dsHGoods: TDataSource;
    lvStock: TcxGridLevel;
    lvHGoods: TcxGridLevel;
    gridStock: TcxGridDBTableView;
    gridHGoods: TcxGridDBTableView;
    gridStockDBColumn1: TcxGridDBColumn;
    gridStockDBColumn2: TcxGridDBColumn;
    gridStockDBColumn3: TcxGridDBColumn;
    gridStockDBColumn4: TcxGridDBColumn;
    gridStockDBColumn5: TcxGridDBColumn;
    gridStockDBColumn6: TcxGridDBColumn;
    gridStockDBColumn7: TcxGridDBColumn;
    gridStockDBColumn8: TcxGridDBColumn;
    gridStockDBColumn9: TcxGridDBColumn;
    gridHGoodsDBColumn1: TcxGridDBColumn;
    gridHGoodsDBColumn2: TcxGridDBColumn;
    gridHGoodsDBColumn3: TcxGridDBColumn;
    gridHGoodsDBColumn4: TcxGridDBColumn;
    gridHGoodsDBColumn5: TcxGridDBColumn;
    gridHGoodsDBColumn6: TcxGridDBColumn;
    gridHGoodsDBColumn7: TcxGridDBColumn;
    gridHGoodsDBColumn8: TcxGridDBColumn;
    gridHGoodsDBColumn9: TcxGridDBColumn;
    gridStockDBColumn10: TcxGridDBColumn;
    gridStockDBColumn11: TcxGridDBColumn;
    colNilS: TcxGridDBColumn;
    gridHGoodsDBColumn10: TcxGridDBColumn;
    gridHGoodsDBColumn11: TcxGridDBColumn;
    colNilH: TcxGridDBColumn;
    colCodeClt: TcxGridDBColumn;
    colNameClt: TcxGridDBColumn;
    colDH: TcxGridDBColumn;
    colDateJH: TcxGridDBColumn;
    colcodeClt1: TcxGridDBColumn;
    colNameClt1: TcxGridDBColumn;
    colDH1: TcxGridDBColumn;
    colDATEJH1: TcxGridDBColumn;
    colSL11: TcxGridDBColumn;
    lbLittle: TLabel;
    Label4: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
     procedure init;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTrackOpt: TfrmTrackOpt;

implementation
USES
   uGlobal, uGetData, uPublic;

{$R *.dfm}

procedure TfrmTrackOpt.init;
begin
   lbLittle.Caption := '操作步骤：';
   ActiveControl := cxDateEdit1;
   Top := frmMain.Top + iTop;
   Left := frmMain.Left + iLeft;
   width := frmMain.Width - iWidth;
   height := frmMain.Height - iHeight;
   cxDateEdit1.Date := date - 7;
   cxDateEdit2.Date := date;
end;

procedure TfrmTrackOpt.SpeedButton1Click(Sender: TObject);
begin
   if cxDateEdit2.Date < cxDateEdit1.Date then begin
      infownd('结束日期必须不小于开始日期！');
      exit;
   end;
   WITH frmMain.cdPub do Begin
      close;
      commandText := 'execute GetTracePlan @dsource = '''+formatDatetime('yyyy-MM-dd',cxDateEdit1.Date)+''''+
                     ',@ddest = '''+formatDatetime('yyyy-MM-dd',cxDateEdit2.Date)+'''';
      open;
      cdPlan.Data := data;
      close;
   end;
end;

procedure TfrmTrackOpt.FormCreate(Sender: TObject);
begin
   init;
end;

procedure TfrmTrackOpt.SpeedButton3Click(Sender: TObject);
begin
   frmReport.ReportS(14, 0, '', cdPlan.Data);
end;

end.