pur200_01.pas.svn-base

开源的网站整站程序,功能强大带采集系统.

unit Pur200_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS200_03, dxExEdtr, ActnList, DB, ADODB, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, Buttons, dxDBTLCl,
  dxGrClms, StdCtrls, wwdbdatetimepicker;

type
  TPur200_01Form = class(TBas200_03Form)
    sbSearch: TSpeedButton;
    ADOQuery1P510A_001: TWideStringField;
    ADOQuery1P510A_003: TDateTimeField;
    ADOQuery1P510B_014: TDateTimeField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    ADOQuery1I150_004: TWideStringField;
    ADOQuery1I140_003: TWideStringField;
    ADOQuery1P510B_005: TFloatField;
    ADOQuery1P510B_016: TFloatField;
    ADOQuery1FBalance: TFloatField;
    dxDBGrid1P510A_001: TdxDBGridColumn;
    dxDBGrid1P510A_003: TdxDBGridDateColumn;
    dxDBGrid1P510B_014: TdxDBGridDateColumn;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1I150_004: TdxDBGridColumn;
    dxDBGrid1I140_003: TdxDBGridColumn;
    dxDBGrid1P510B_005: TdxDBGridMaskColumn;
    dxDBGrid1P510B_016: TdxDBGridMaskColumn;
    dxDBGrid1FBalance: TdxDBGridMaskColumn;
    lblDate: TLabel;
    edtDate: TwwDBDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Pur200_01Form: TPur200_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TPur200_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('PUR20001001');  //延迟到货报告
  lblDate.Caption:=GetDBString('PUR20001002');  //日期
  sbSearch.Caption:=GetDBString('PUR20001003');  //查询

  ADOQuery1P510A_001.DisplayLabel:=GetDBString('PUR20001004');  //采购单号
  ADOQuery1P510A_003.DisplayLabel:=GetDBString('PUR20001005');  //采购日期
  ADOQuery1P510B_014.DisplayLabel:=GetDBString('PUR20001006');  //需求日期
  ADOQuery1I150_002.DisplayLabel:=GetDBString('PUR20001007');  //产品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('PUR20001008');  //产品名称
  ADOQuery1I150_004.DisplayLabel:=GetDBString('PUR20001009');  //规格型号
  ADOQuery1I140_003.DisplayLabel:=GetDBString('PUR20001010');  //计量单位
  ADOQuery1P510B_005.DisplayLabel:=GetDBString('PUR20001011');  //采购数量
  ADOQuery1P510B_016.DisplayLabel:=GetDBString('PUR20001012');  //收货数量
  ADOQuery1FBalance.DisplayLabel:=GetDBString('PUR20001013');  //剩余数量
end;

procedure TPur200_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  edtDate.Date:=GetServerDate;
  sbSearch.Click;
end;

procedure TPur200_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TPur200_01Form.BrowseEvent;
begin
  inherited;

end;

procedure TPur200_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

procedure TPur200_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
//查询
  if edtDate.Text='' then
  begin
    ShowMsg('UMS10000638');  //日期不可为空
    edtDate.SetFocus;
    Abort;
  end;
  Screen.Cursor:=crHourGlass;
  if Assigned(SYSDM.wwFilterDialog1.Form) then SYSDM.wwFilterDialog1.ClearFilter;
  ADOQuery1.DisableControls;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select P510A_001,P510A_003,P510B_014,I150_002,I150_003,I150_004,I140_003,P510B_005,P510B_016,P510B_005-P510B_016 as FBalance');
  ADOQuery1.SQL.Add('from PUR510A,PUR510B,INV150,INV140');
  ADOQuery1.SQL.Add('where P510A_001=P510B_001 and P510B_003=I150_001 and P510B_004=I140_001 and P510B_014<'+GetDateString(edtDate.Date));
  ADOQuery1.SQL.Add('order by P510A_001');
  ADOQuery1.Open;
  ADOQuery1.EnableControls;
  Screen.Cursor:=crDefault;
end;

initialization
  RegisterClass(TPur200_01Form);

finalization
  UnRegisterClass(TPur200_01Form);

end.