D7DJmingqing/检验管理/U_MJSJFX.pas

unit U_MJSJFX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
  cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;

type
  TfrmMJSJFX = class(TForm)
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    OrderNo: TEdit;
    ADOTmp: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOCmd: TADOQuery;
    DataSource1: TDataSource;
    Order_YC: TClientDataSet;
    Label2: TLabel;
    Ma: TLabel;
    Label7: TLabel;
    MJQty1: TEdit;
    Label5: TLabel;
    Label8: TLabel;
    MJFK: TEdit;
    Label9: TLabel;
    Label3: TLabel;
    Label11: TLabel;
    MJSJKZ: TEdit;
    Label13: TLabel;
    MJQty2: TEdit;
    Panel2: TPanel;
    Order_CD: TClientDataSet;
    DataSource2: TDataSource;
    Order_XG: TClientDataSet;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Order_Del: TClientDataSet;
    Label4: TLabel;
    Panel4: TPanel;
    cxGrid3: TcxGrid;
    TV3: TcxGridDBTableView;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridDBColumn10: TcxGridDBColumn;
    cxGridDBColumn11: TcxGridDBColumn;
    cxGridDBColumn12: TcxGridDBColumn;
    TV3Column1: TcxGridDBColumn;
    TV3Column2: TcxGridDBColumn;
    TV3Column3: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    Panel5: TPanel;
    Panel6: TPanel;
    cxGrid1: TcxGrid;
    TV1: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    TV1Column1: TcxGridDBColumn;
    TV1Column2: TcxGridDBColumn;
    TV1Column3: TcxGridDBColumn;
    TV1Column4: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    Panel7: TPanel;
    Panel9: TPanel;
    cxGrid4: TcxGrid;
    TV4: TcxGridDBTableView;
    cxGridDBColumn19: TcxGridDBColumn;
    cxGridLevel4: TcxGridLevel;
    Panel8: TPanel;
    cxGrid2: TcxGrid;
    TV2: TcxGridDBTableView;
    cxGridDBColumn13: TcxGridDBColumn;
    cxGridDBColumn14: TcxGridDBColumn;
    cxGridDBColumn15: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    TV4Column1: TcxGridDBColumn;
    TV4Column2: TcxGridDBColumn;
    Panel3: TPanel;
    cxGrid5: TcxGrid;
    Tv5: TcxGridDBTableView;
    cxGridDBColumn20: TcxGridDBColumn;
    cxGridDBColumn21: TcxGridDBColumn;
    cxGridDBColumn22: TcxGridDBColumn;
    cxGridLevel5: TcxGridLevel;
    Order_TH: TClientDataSet;
    DataSource5: TDataSource;
    TV1Column5: TcxGridDBColumn;
    TV1Column6: TcxGridDBColumn;
    PBhuif: TButton;
    ADOQueryCmd: TADOQuery;
    ADOQueryTemp: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
    procedure PBhuifClick(Sender: TObject);
  private
    { Private declarations }
    function SaveData(): Boolean;
  public
    { Public declarations }
  end;

var
  frmMJSJFX: TfrmMJSJFX;

implementation

uses
  U_Fun, U_ZDYHelp, U_DataLink;

{$R *.dfm}

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

procedure TfrmMJSJFX.FormDestroy(Sender: TObject);
begin
  frmMJSJFX := nil;
end;

function TfrmMJSJFX.SaveData(): Boolean;
begin

end;

procedure TfrmMJSJFX.TBCloseClick(Sender: TObject);
begin
  Close;
  WriteCxGrid('<27><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>', Tv2, '<27><><EFBFBD>ݷ<EFBFBD><DDB7><EFBFBD>');
end;

procedure TfrmMJSJFX.FormShow(Sender: TObject);
var
  key: Char;
begin

  key := #13;
  OrderNoKeyPress(OrderNo, key);
end;

procedure TfrmMJSJFX.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.Add('exec P_Get_YichangData ''' + trim(orderno.Text) + ''' ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, Order_YC);
    SInitCDSData20(ADOQueryMain, Order_YC);

    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''0'' ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, Order_CD);
    SInitCDSData20(ADOQueryMain, Order_CD);

    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''1'' ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, Order_XG);
    SInitCDSData20(ADOQueryMain, Order_XG);

    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''2'' ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, Order_Del);
    SInitCDSData20(ADOQueryMain, Order_Del);
    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''3'' ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, Order_TH);             
    SInitCDSData20(ADOQueryMain, Order_TH);
  end;
end;

procedure TfrmMJSJFX.PBhuifClick(Sender: TObject);
begin
  if order_del.Locate('ssel', true, []) = false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 0);
    exit;
  end;
//  if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
//    Exit;

    Order_Del.DisableControls;
    with Order_Del do
    begin
      First;
      while not Eof do
      begin
        if Order_Del.FieldByName('SSel').AsBoolean = True then
        begin
          with ADOQueryTemp do
          begin
            Close;
            sql.Clear;
            sql.Add('select * from WFB_MJJY where MJID=''' + Trim(Order_Del.fieldbyname('MJID').AsString) + '''');
//            showmessage(sql.text);
            Open;
          end;
          if ADOQueryTemp.IsEmpty = False then
          begin
            Order_Del.EnableControls;
            Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ҫ<EFBFBD>ָ<EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end
          else
          begin
            with ADOQueryCmd do
            begin
              Close;
              sql.Clear;
              sql.add('insert into WFB_MJJY select * from WFB_MJJY_Del where mjid=''' + trim(Order_Del.fieldbyname('MJID').AsString) + ''' ');
              sql.Add('update WFB_MJJY Set Note=''<27>ָ<EFBFBD>'' where mjid=''' + trim(Order_Del.fieldbyname('MJID').AsString) + ''' ');
//               showmessage(sql.text);
              ExecSQL;
            end;

          end;
            edit;
      fieldbyname('Ssel').AsBoolean := False;
        end
        else
          Next;
      end;                         
    end;                                
    Order_Del.EnableControls;

end;

end.