RtTool/Delphi7/开发档案/马国钢开发代码/ThreeFun/helpForm/U_MachHelp.pas

unit U_MachHelp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
  cxGridCustomView, cxGrid, ImgList, ComCtrls, ToolWin, ADODB, cxTL,
  cxMaskEdit, cxInplaceContainer, cxDBTL, StdCtrls, ExtCtrls, cxTLData;

type
  TfrmMachHelp = class(TForm)
    ToolBar2: TToolBar;
    TOk: TToolButton;
    Tclose: TToolButton;
    pics: TImageList;
    cxGrid2: TcxGrid;
    tv2: TcxGridDBTableView;
    tv2deviceNo: TcxGridDBColumn;
    tv2deviceName: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1frameNo: TcxGridDBColumn;
    v1frameName: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    DataSource1: TDataSource;
    ADOQueryDept: TADOQuery;
    DataSource2: TDataSource;
    ADOQueryHelp: TADOQuery;
    ADOConnection1: TADOConnection;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    cxStyle_gridRow: TcxStyle;
    cxStyle_gridFoot: TcxStyle;
    cxStyle_gridHead: TcxStyle;
    cxStyle_gridGroupBox: TcxStyle;
    cxStyle_yellow: TcxStyle;
    cxStyle_Red: TcxStyle;
    v1frameTop: TcxGridDBColumn;
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
      ANewItemRecordFocusingChanged: Boolean);
    procedure TcloseClick(Sender: TObject);
    procedure TOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure tv2DblClick(Sender: TObject);
  private

    procedure IntDeptGrid();
    procedure IntMachGrid();
  public
    fFrameNo:string;
    fMachGroup:string;
    fSelDept:string;
  end;

var
  frmMachHelp: TfrmMachHelp;

implementation
uses
  U_global;
{$R *.dfm}

procedure TfrmMachHelp.FormCreate(Sender: TObject);
begin
  cxGrid2.Align :=alClient;
  with ADOConnection1 do
  begin
    Connected:=false;
    ConnectionString:=gConString;
    Connected:=true;
  end;

end;
//////////////////////////////////////////////////////////
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>
/////////////////////////////////////////////////////////
procedure TfrmMachHelp.IntDeptGrid();
begin
  with ADOQueryDept do
  begin
    close;
    sql.clear;
    sql.Add('select distinct B.frameNo,B.frameName,B.frameTop,');
    sql.Add('frameTopName=(select frameName from yc_frame where frameNo=B.frameTop)'); 
    sql.Add('from dc_machine A');
    sql.Add('inner join yc_frame B on A.dept=B.frameNO');
    if trim(fFrameNo)<>'' then
      sql.Add('where A.dept='''+trim(fFrameNo)+'''');
    if trim(fMachGroup)<>'' then
      sql.Add('where A.MachGroup like ''%'+trim(fMachGroup)+'%''');
    Open;
  end;
end;
procedure TfrmMachHelp.Tv1FocusedRecordChanged(
  Sender: TcxCustomGridTableView; APrevFocusedRecord,
  AFocusedRecord: TcxCustomGridRecord;
  ANewItemRecordFocusingChanged: Boolean);
begin
  IntMachGrid();
end;
//////////////////////////////////////////////////////////
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>
/////////////////////////////////////////////////////////
procedure TfrmMachHelp.IntMachGrid();
begin
  with ADOQueryHelp do
  begin
    close;
    sql.clear;
    sql.Add('select *');
    sql.Add('from dc_machine A');
    sql.Add('where A.dept='''+trim(ADOQueryDept.fieldByName('frameNo').asString)+'''');
    if trim(fMachGroup)<>'' then
      sql.Add('and A.MachGroup like ''%'+trim(fMachGroup)+'%''');    
    Open;
  end;
end;
procedure TfrmMachHelp.TcloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmMachHelp.TOkClick(Sender: TObject);
begin
  if ADOQueryHelp.IsEmpty then
    ModalResult:=-1
  else
  begin
    fSelDept:=trim(ADOQueryDept.fieldByName('frameNo').asString);
    ModalResult:=1;
  end;
end;

procedure TfrmMachHelp.FormShow(Sender: TObject);
begin
  if trim(fMachGroup)<>'' then
    self.Caption:='<27><><EFBFBD>顾'+fMachGroup+'<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>̨ѡ<CCA8><D1A1>';
  if trim(fFrameNo)<>'' then
    self.Caption:='<27><><EFBFBD>ű<EFBFBD><C5B1>š<EFBFBD>'+fMachGroup+'<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>̨ѡ<CCA8><D1A1>';
  IntDeptGrid();
end;

procedure TfrmMachHelp.tv2DblClick(Sender: TObject);
begin
  Tok.Click ;
end;

end.