unit U_CustXcCodeHelp_dx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, Buttons, DB, ADODB, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
  cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid;

type
  TfrmXcCustCodeHelp_dx = class(TForm)
    ADOQueryHelp: TADOQuery;
    btOk: TBitBtn;
    btNo: TBitBtn;
    dbGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    Tv1code: TcxGridDBColumn;
    Tv1Name: TcxGridDBColumn;
    dbGrid1Level1: TcxGridLevel;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    procedure btNoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Tv1DblClick(Sender: TObject);
  private
    procedure InitData();
  public
    Fflag:string;  //���ͱ�־
    fDivChar:string;
    pColumns:integer;
    fSelResult:string;
  end;

var
  frmXcCustCodeHelp_dx: TfrmXcCustCodeHelp_dx;

implementation
uses
  U_global;
{$R *.dfm}

procedure TfrmXcCustCodeHelp_dx.btNoClick(Sender: TObject);
begin
  ModalResult:=-1;
end;

procedure TfrmXcCustCodeHelp_dx.FormCreate(Sender: TObject);
begin
  with ADOConnection1 do
  begin
    Connected:=false;
    ConnectionString:=gConString;
    Connected:=true;
  end;
end;
////////////////////////////////////////////////
  //������
////////////////////////////////////////////////
procedure TfrmXcCustCodeHelp_dx.InitData();
begin
  with ADOQueryHelp do
  begin
    close;
    sql.clear;
    sql.Add('select * from XC_Custcode');
    sql.Add('where flag='''+Fflag+'''');
    sql.Add('and Valid=''Y''');
    sql.Add('order by orderNo');
    Open;
  end;

end;
procedure TfrmXcCustCodeHelp_dx.FormShow(Sender: TObject);
begin
  self.Caption :='�������(���'+FFlag+')';
  InitData();
end;

procedure TfrmXcCustCodeHelp_dx.btOkClick(Sender: TObject);
begin
  if ADOQueryHelp.IsEmpty then exit;
  fSelResult:=trim(ADOQueryHelp.fieldByName('Name').AsString);
  ModalResult:=1;
end;

procedure TfrmXcCustCodeHelp_dx.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmXcCustCodeHelp_dx.Tv1DblClick(Sender: TObject);
begin
  btOk.Click ;
end;

end.