ugetstockplan.pas

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

unit uGetStockPlan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit,
  dbcgrids, ExtCtrls, DB, DBClient, DBCtrls, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData,
  cxGridCustomTableView, cxGridCardView, cxGridDBCardView, cxClasses,
  cxGridCustomView, cxGridLevel, cxGrid, cxCalendar;

type
  TfrmGetStockPlan = class(TForm)
    Panel1: TPanel;
    cxTextEdit1: TcxTextEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    dsStockPlan: TDataSource;
    cdStockPlan: TClientDataSet;
    Bevel1: TBevel;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    CardPlan: TcxGridDBCardView;
    CardPlanDBCardViewRow1: TcxGridDBCardViewRow;
    CardPlanDBCardViewRow2: TcxGridDBCardViewRow;
    CardPlanDBCardViewRow3: TcxGridDBCardViewRow;
    CardPlanDBCardViewRow4: TcxGridDBCardViewRow;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cxTextEdit1PropertiesChange(Sender: TObject);
  private
     procedure init;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGetStockPlan: TfrmGetStockPlan;

implementation
uses
   uMain, uGlobal, DateUtils;

{$R *.dfm}

procedure TfrmGetStockPlan.init;
VAR CYEA: STRING;
begin
   IF MonthOf(date) = 1 then
      cYea := intTostr(yearOf(date) - 1)
   Else
      cYea := intTostr(yearOf(date));
   cdStockPlan.RemoteServer := frmMain.DCOMcN;
   cdStockPlan.ProviderName := 'pPub';
   cdStockPlan.Close;
   cdStockPlan.CommandText := 'SELECT k.ccode,k.cname,M.CDH,m.ddateJH '+
      ' FROM T_StockPlanMasterZB m'+#13+
      'INNER JOIN T_pubClient k on (m.iKeyClient = k.iKey)'+#13+
      'Where Year(m.dDatePz) = '''+cYea+'''';
   cdStockPlan.Open;
end;

procedure TfrmGetStockPlan.SpeedButton1Click(Sender: TObject);
begin
   close;
end;

procedure TfrmGetStockPlan.SpeedButton2Click(Sender: TObject);
begin
   IF (cdStockPlan.IsEmpty) AND (Not cdStockPlan.Active) then exit;
   self.ModalResult := mrOk;
end;

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

procedure TfrmGetStockPlan.cxTextEdit1PropertiesChange(Sender: TObject);
begin
   if not cdStockPlan.Active then exit;
   cdStockPlan.Filtered := false;
   cdStockPlan.Filter := 'cdh = '''+cxTextEdit1.Text+'*''';
   cdStockPlan.Filtered := true;
   //cdStockPlan.Locate('cdh',cxTextEdit1.Text,[loPartialKey]);
end;

end.