D7DJkairan/坯布码单待检(PBMDDJ.dll)/U_CPTPJHListSel.pas

unit U_CPTPJHListSel; //

interface

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

type
  TfrmCPTPJHListSel = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBClose: TToolButton;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    Order_Main: TClientDataSet;
    Panel1: TPanel;
    Label4: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    GDName: TEdit;
    Label2: TLabel;
    FromFactoryName: TEdit;
    Label10: TLabel;
    ToFactoryName: TEdit;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1Column1: TcxGridDBColumn;
    v1PSName: TcxGridDBColumn;
    v1Column20: TcxGridDBColumn;
    v1Column8: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    v1Column3: TcxGridDBColumn;
    v1GDPerson: TcxGridDBColumn;
    v1FactoryName: TcxGridDBColumn;
    v1ToFactoryName: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    v1Column5: TcxGridDBColumn;
    v1Column9: TcxGridDBColumn;
    v1QtyUnit: TcxGridDBColumn;
    v1Column21: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    Label5: TLabel;
    SPName: TEdit;
    v1Column12: TcxGridDBColumn;
    v1Column13: TcxGridDBColumn;
    CheckBox1: TCheckBox;
    Label6: TLabel;
    SPSpec: TEdit;
    v1Column41: TcxGridDBColumn;
    DataSource2: TDataSource;
    ClientDataSet2: TClientDataSet;
    cxGridPopupMenu2: TcxGridPopupMenu;
    cxGridPopupMenu3: TcxGridPopupMenu;
    v1Column45: TcxGridDBColumn;
    Label11: TLabel;
    BatchNo: TEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    v1Column47: TcxGridDBColumn;
    Label3: TLabel;
    SPCode: TEdit;
    v1Column48: TcxGridDBColumn;
    ADOQueryPrint: TADOQuery;
    RM1: TRMGridReport;
    CDS_Print: TClientDataSet;
    RMDBMain: TRMDBDataSet;
    Tv1Column1: TcxGridDBColumn;
    Tv1Column2: TcxGridDBColumn;
    Tv1Column3: TcxGridDBColumn;
    OpenDialog1: TOpenDialog;
    DSImage: TDataSource;
    ADOQueryImage: TADOQuery;
    Tv1Column4: TcxGridDBColumn;
    Tv1Column5: TcxGridDBColumn;
    Tv1Column6: TcxGridDBColumn;
    Pan_image: TPanel;
    Picture4: TcxDBImage;
    Tv1Column7: TcxGridDBColumn;
    ToolButton1: TToolButton;
    Label1: TLabel;
    CKOrderNo: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure FPNoChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
    procedure cxTabControl1Change(Sender: TObject);
    procedure FromFactoryNameKeyPress(Sender: TObject; var Key: Char);
    procedure cxPageControl1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    FInt, PFInt: Integer;
    canshu1: string;
    procedure InitGrid();
    procedure InitGridWSql(fsj: string);
    procedure InitForm();
    function DelData(): Boolean;
    procedure InitSubGrid();
    procedure InitImage();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCPTPJHListSel: TfrmCPTPJHListSel;

implementation

uses
  U_DataLink, U_RTFun, U_ModuleNote, U_ZDYHelp;

{$R *.dfm}

procedure TfrmCPTPJHListSel.FormDestroy(Sender: TObject);
begin
  frmCPTPJHListSel := nil;
end;

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

procedure TfrmCPTPJHListSel.TBCloseClick(Sender: TObject);
begin
  Close;
  WriteCxGrid('<27><>Ʒ<EFBFBD>ƻ<EFBFBD><C6BB>б<EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure TfrmCPTPJHListSel.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;
      sql.Add(' select A.* ');
      sql.Add(' from CK_GenDan_CR A ');
      sql.Add(' where 1=1 ');
      sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
      sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');

      sql.Add(' and crflag=''<27><><EFBFBD><EFBFBD>'' and  CKName=''<27><>Ʒ'' and CRType=''<27>زֳ<D8B2><D6B3><EFBFBD>'' ');

      sql.Add(' and isnull(status,0) = ''1'' ');

      Open;
    end;
    SCreateCDS20(ADOQueryMain, Order_Main);
    SInitCDSData20(ADOQueryMain, Order_Main);
  finally
    ADOQueryMain.EnableControls;
  end;

end;

procedure TfrmCPTPJHListSel.InitGridWSql(fsj: string);
begin

end;

procedure TfrmCPTPJHListSel.InitForm();
begin
  ReadCxGrid('<27><>Ʒ<EFBFBD>ƻ<EFBFBD><C6BB>б<EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
  BegDate.DateTime := SGetServerDateMBeg(ADOQueryTemp);
end;

procedure TfrmCPTPJHListSel.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active = False then
    Exit;
  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  SCreateCDS20(ADOQueryMain, Order_Main);
  SInitCDSData20(ADOQueryMain, Order_Main);
end;

function TfrmCPTPJHListSel.DelData(): Boolean;
begin

end;

procedure TfrmCPTPJHListSel.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
  TBFind.Click;
end;

procedure TfrmCPTPJHListSel.FPNoChange(Sender: TObject);
begin
  if ADOQueryMain.Active = False then
    Exit;
  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  SCreateCDS20(ADOQueryMain, Order_Main);
  SInitCDSData20(ADOQueryMain, Order_Main);
end;

procedure TfrmCPTPJHListSel.FormShow(Sender: TObject);
begin
  InitForm();
end;

procedure TfrmCPTPJHListSel.FormCreate(Sender: TObject);
begin
  canshu1 := Trim(DParameters1);
end;

procedure TfrmCPTPJHListSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
var
  fsj: string;
begin

end;

procedure TfrmCPTPJHListSel.cxTabControl1Change(Sender: TObject);
begin
  InitGrid();
  TBFind.Click;
end;

procedure TfrmCPTPJHListSel.FromFactoryNameKeyPress(Sender: TObject; var Key: Char);
var
  fsj: string;
  FName: string;
begin
  if Key = #13 then
  begin
    if Trim(TEdit(Sender).Text) = '' then
      Exit;
    FName := TEdit(Sender).Hint;
    fsj := ' and ' + FName + ' like ''' + '%' + Trim(TEdit(Sender).Text) + '%' + '''';
    InitGridWSql(fsj);
    TBFind.Click;
  end;
end;

procedure TfrmCPTPJHListSel.InitSubGrid();
begin

end;

procedure TfrmCPTPJHListSel.cxPageControl1Change(Sender: TObject);
begin
  InitSubGrid();
end;

procedure TfrmCPTPJHListSel.N1Click(Sender: TObject);
begin
  SelOKNo(Order_Main, True);
end;

procedure TfrmCPTPJHListSel.N2Click(Sender: TObject);
begin
  SelOKNo(Order_Main, False);
end;

procedure TfrmCPTPJHListSel.InitImage();
begin
  with ADOQueryImage do
  begin
    close;
    sql.Clear;
    sql.Add('select top 1 * from TP_File A');
    sql.Add('where WBID=' + quotedstr(trim(Order_Main.fieldbyname('SPid').AsString)));
//    ShowMessage(sql.Text);
    open;
  end;
end;

procedure TfrmCPTPJHListSel.ToolButton1Click(Sender: TObject);
begin
  if Order_Main.IsEmpty then
    exit;
  ModalResult := 1;
end;

end.