ar_qry_ardetailbill_c.pas

一个MRPII系统源代码版本

unit Ar_Qry_ArDetailBill_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Db, AdODB, StdCtrls, linkedit;

Type
  TFrm_Ar_Qry_ArDetailBill_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    LEdt_CustomerCode: TLinkEdit;
    Edt_CustomerName: TEdit;
    Label2: TLabel;
    Edt_BegMonth: TEdit;
    Label3: TLabel;
    Edt_EndMonth: TEdit;
    procedure LEdt_CustomerCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LEdt_CustomerCodeButtonClick(Sender: TObject);
    procedure LEdt_CustomerCodeExit(Sender: TObject);
    procedure Edt_EndMonthExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    VendorCode:String;
    beginMonth:String;
    endMonth:string;
    procedure InitForm(AdOConnection:TAdOConnection);
  end;

var
  Frm_Ar_Qry_ArDetailBill_C: TFrm_Ar_Qry_ArDetailBill_C;

implementation

uses Sys_Global;

{$R *.DFM}



procedure TFrm_Ar_Qry_ArDetailBill_C.LEdt_CustomerCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'CustomerName','客户名称','CustomerCode',
    '客户代码','Customer','DisableShip=0');
end;

procedure TFrm_Ar_Qry_ArDetailBill_C.LEdt_CustomerCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'CustomerName','客户名称','CustomerCode',
  '客户代码','Customer','DisableShip=0');
end;

procedure TFrm_Ar_Qry_ArDetailBill_C.LEdt_CustomerCodeExit(
  Sender: TObject);
begin
  inherited;
  With AdoQry_Tmp do
  begin
    Close;
    sql.text:=' select CustomerName from Customer '+
              ' where CustomerCode='''+Trim(LEdt_CustomerCode.text)+'''';
    open;
    if not eof then
      Edt_CustomerName.text:=fieldbyname('CustomerName').asstring;
  end;
end;

procedure TFrm_Ar_Qry_ArDetailBill_C.Edt_EndMonthExit(Sender: TObject);
begin
  inherited;
  MonthCheck(Edt_EndMonth);
  if Edt_EndMonth.text< Edt_BegMonth.Text then
  begin
    DispInfo('开始月份不能大于终止月份！',3);
    abort;
  end;
end;

procedure TFrm_Ar_Qry_ArDetailBill_C.FormCreate(Sender: TObject);
begin
  inherited;
  Edt_EndMonth.text:=formatdatetime('yyyy.mm',date()) ;
  Edt_BegMonth.text:=formatdatetime('yyyy.mm',incMonth(date(),-2)) ;
  SetDBConnect(dbconnect);
end;

procedure TFrm_Ar_Qry_ArDetailBill_C.btn_okClick(Sender: TObject);
begin
  inherited;
  IF Trim(LEdt_CustomerCode.text)='' then
  begin
    DispInfo('销售客户不能为空！',3);
    LEdt_CustomerCode.setfocus;
    abort;
  end;
  IF Trim(Edt_BegMonth.text)='' then
  begin
    DispInfo('开始月份不能为空！',3);
    Edt_BegMonth.setfocus;
    abort;
  end;
  IF Trim(Edt_EndMonth.text)='' then
  begin
    DispInfo('终止月份不能为空！',3);
    Edt_EndMonth.setfocus;
    abort;
  end;
  beginMonth:=Edt_BegMonth.Text;
  endMonth:=Edt_EndMonth.Text;
  VendorCode:=LEdt_CustomerCode.Text;

  ConditionHint:='销售客户：'+Edt_CustomerName.text+' 开始月份：'+Edt_BegMonth.text+
                 ' 终止月份：'+Edt_EndMonth.text;
  ModalResult:=MrOk;
end;



procedure TFrm_Ar_Qry_ArDetailBill_C.InitForm(
  AdOConnection: TAdOConnection);
begin
    SetDBConnect(AdOConnection);
end;

end.