D7snShanfengT/山峰贸易管理/U_JGSXKNewList_TBCX.pas

unit U_JGSXKNewList_TBCX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
  cxCalendar, cxButtonEdit, cxTextEdit, cxPC;

type
  TfrmJGSXNewList_TBCX = class(TForm)
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    cxGridPopupMenu1: TcxGridPopupMenu;
    CDS_Main: TClientDataSet;
    RM1: TRMGridReport;
    RMDBMain: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    RMDBHZ: TRMDBDataSet;
    CDS_HZ: TClientDataSet;
    CDS_PRT: TClientDataSet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    cxGrid2: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1FactoryName: TcxGridDBColumn;
    v1YLName: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    v1YLQName: TcxGridDBColumn;
    TSsel: TToolButton;
    Panel1: TPanel;
    Label6: TLabel;
    FactoryName: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ConNoMChange(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure SPIDKeyPress(Sender: TObject; var Key: Char);
    procedure TSselClick(Sender: TObject);
    procedure FactoryNameChange(Sender: TObject);
  private
    canshu1,canshu2,canshu3:string;
    procedure InitGrid();
    procedure setstatus();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmJGSXNewList_TBCX: TfrmJGSXNewList_TBCX;

implementation
uses
  U_DataLink,U_RTFun,U_SXCKInPut, U_JGSXCKInPut;

{$R *.dfm}
procedure TfrmJGSXNewList_TBCX.setstatus();
begin
  
end;

procedure TfrmJGSXNewList_TBCX.FormDestroy(Sender: TObject);
begin
  frmJGSXNewList_TBCX:=nil;
end;

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

procedure TfrmJGSXNewList_TBCX.FormCreate(Sender: TObject);
begin
  //cxGrid1.Align:=alClient;
  canshu1:=Trim(DParameters1);
  canshu2:=Trim(DParameters2);
  canshu3:=Trim(DParameters3);
end;

procedure TfrmJGSXNewList_TBCX.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select distinct FactoryName,YLQName,YLName ');
      sql.Add(' from CK_SXPB_CR A');
      sql.add(' where isnull(CKName,'''')=''ԭ<><D4AD>''');
      SQL.Add(' and CRFlag=''<27><><EFBFBD><EFBFBD>''  ');
      sql.Add(' and YLName=''<27><><EFBFBD>Ӽ<EFBFBD>''');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmJGSXNewList_TBCX.ConNoMChange(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  end;
end;

procedure TfrmJGSXNewList_TBCX.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('ԭ<><D4AD><EFBFBD>ű<EFBFBD><C5B1>б<EFBFBD>FM',Tv1,'ԭ<>ϲֿ<CFB2>');
  Close;
end;

procedure TfrmJGSXNewList_TBCX.FormShow(Sender: TObject);
begin
  ReadCxGrid('ԭ<><D4AD><EFBFBD>ű<EFBFBD><C5B1>б<EFBFBD>FM',Tv1,'ԭ<>ϲֿ<CFB2>');
  InitGrid();
end;

procedure TfrmJGSXNewList_TBCX.N1Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,True);
end;

procedure TfrmJGSXNewList_TBCX.N2Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,False);
end;

procedure TfrmJGSXNewList_TBCX.SPIDKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    {if Length(Trim(SPID.Text))<4 then Exit;
    try
      ADOQueryMain.DisableControls;
      with ADOQueryMain do
      begin
        Filtered:=False;
        Close;
        sql.Clear;
        sql.Add(' select A.* ');
        sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)');
        //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )');
        sql.Add(' from CK_SXPB_CR A');
        sql.add(' where SPID like :SXID');
        Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%';
        Open;
        //ShowMessage(SQL.Text);
      end;
      SCreateCDS20(ADOQueryMain,CDS_Main);
      SInitCDSData20(ADOQueryMain,CDS_Main);
    finally
      ADOQueryMain.EnableControls;
    end;  }
  end;
end;

procedure TfrmJGSXNewList_TBCX.TSselClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then exit;
  ModalResult:=1;
end;

procedure TfrmJGSXNewList_TBCX.FactoryNameChange(Sender: TObject);
begin
  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  SCreateCDS20(ADOQueryMain,CDS_Main);
  SInitCDSData20(ADOQueryMain,CDS_Main);
end;

end.