ap_invoice_select.pas

一个MRPII系统源代码版本

unit Ap_Invoice_Select;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, Grids, DBGridEh, StdCtrls, Db, AdODB;

Type
  TFrm_Ap_Invoice_Select = Class(TFrm_Base_Dialog)
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    DS_AdoQry_Tmp: TDataSource;
    Edit1: TEdit;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure DBGridEh1SortMArkingChanged(Sender: TObject);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure btn_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    InvoiceNo:String;
    procedure InitForm(AdoConnection:TAdoConnection);
  end;

var
  Frm_Ap_Invoice_Select: TFrm_Ap_Invoice_Select;

implementation

uses Ap_Invoice;

{$R *.DFM}

procedure TFrm_Ap_Invoice_Select.FormShow(Sender: TObject);
begin
  inherited;
  with AdoQry_tmp  do
  begin
    Close;
    sql.clear;
    sql.Add(' select ApInvoice.VendorCode+'' ''+ Vendor.VendorName as VendorCode,'+
                    ' ApInvoice.ApInvoiceNo ,'+
                    ' ApInvoice.ApInvoiceDate ,'+
                    ' ApInvoice.CurrencyCode+'' ''+ Currency.CurrencyName as CurrencyCodeName,'+
                    ' ApInvoice.ApInvoiceAmount '+
                    'from ApInvoice left join Vendor ' +
                    ' on ApInvoice.VendorCode=Vendor.VendorCode '+
                    ' left join Currency '+
                    ' on ApInvoice.CurrencyCode=Currency.CurrencyCode');
    open;
    if not Isempty then
      Btn_ok.Enabled:=True
    else
      Btn_ok.Enabled:=False;
  end;
end;

procedure TFrm_Ap_Invoice_Select.btn_okClick(Sender: TObject);
begin
  inherited;
  InvoiceNo:=AdoQry_tmp.fieldbyname('ApInvoiceNo').asstring;
  if InvoiceNo<>'' then
    ModalResult := mrOK
  else
    ModalResult := mrCancel;

end;

procedure TFrm_Ap_Invoice_Select.DBGridEh1SortMArkingChanged(
  Sender: TObject);
var
  i:Integer;
begin
  AdoQry_Tmp.Sort:='';
  for i:=0 to DBGridEh1.SortMArkedColumns.Count-1 do
  begin
    if DBGridEh1.SortMArkedColumns[i].Title.SortMArker=smUpEh then
      AdoQry_Tmp.Sort:=DBGridEh1.SortMArkedColumns[i].FieldName+' DESC'
    else if DBGridEh1.SortMArkedColumns[i].Title.SortMArker=smDownEh then
      AdoQry_Tmp.Sort:=DBGridEh1.SortMArkedColumns[i].FieldName+' ASc';
  end;
end;


procedure TFrm_Ap_Invoice_Select.DBGridEh1TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  inherited;
  if ACol=0 then
  begin
    DBGridEh1.Columns[0].title.color:=claqua;
    DBGridEh1.Columns[1].title.color:=clbtnface;
  end
  else
  begin
    DBGridEh1.Columns[0].title.color:=clbtnface;
    DBGridEh1.Columns[1].title.color:=claqua;
  end;
end;
procedure TFrm_Ap_Invoice_Select.btn_CancelClick(Sender: TObject);
begin
  inherited;
  InvoiceNo:='';
  ModalResult := mrCancel;
end;
procedure TFrm_Ap_Invoice_Select.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  AdoQry_Tmp.Close;
end;

procedure TFrm_Ap_Invoice_Select.Edit1Exit(Sender: TObject);
begin
  inherited;
  if(TEdit(Sender).Text<>'')then
  begin
    try
      AdoQry_Tmp.Locate('ApInvoiceNo',TEdit(Sender).Text,[lopArtialkey]);
    except
      Application.MessageBox('查找失败！','信息提示',mb_ok);
    end;
  end;
end;

procedure TFrm_Ap_Invoice_Select.InitForm(AdoConnection: TAdoConnection);
begin
  inherited;
  SetDBConnect(AdoConnection);
  AdoQry_Tmp.Connection := AdoConnection ;
  InvoiceNo:='';
end;

end.