unit U_XcCodeHelp_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
  TfrmXcCodeHelp_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
  frmXcCodeHelp_dx: TfrmXcCodeHelp_dx;

implementation
uses
  U_global;
{$R *.dfm}

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

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

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

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

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

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

end.