D7myzhenyong/手机跟单管理(MobileTrack.dll)/U_MRJCCRClist.pas

unit U_MRJCCRClist;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
  cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
  cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator;

type
  TfrmMRJCCRClist = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ADOQueryMain: TADOQuery;
    ToolButton1: TToolButton;
    OrderNo: TEdit;
    cxGrid2: TcxGrid;
    cxGridLevel1: TcxGridLevel;
    Label2: TLabel;
    Label6: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    Label5: TLabel;
    RMGridReport1: TRMGridReport;
    RMDBDataSet1: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    ADOQueryPrint: TADOQuery;
    Panetime: TPanel;
    TV1: TcxGridDBBandedTableView;
    V1Column1: TcxGridDBBandedColumn;
    V1Column7: TcxGridDBBandedColumn;
    V1Column9: TcxGridDBBandedColumn;
    V1Column12: TcxGridDBBandedColumn;
    V1Column15: TcxGridDBBandedColumn;
    V1Column3: TcxGridDBBandedColumn;
    V1Column11: TcxGridDBBandedColumn;
    V1Column13: TcxGridDBBandedColumn;
    V1Column14: TcxGridDBBandedColumn;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    V1Column16: TcxGridDBBandedColumn;
    lbl1: TLabel;
    CPName: TEdit;
    cxgrdbndclmnV1Column17: TcxGridDBBandedColumn;
    V1Column2: TcxGridDBBandedColumn;
    V1Column10: TcxGridDBBandedColumn;
    DQFactoryName: TEdit;
    ToolButton2: TToolButton;
    tbKCDC: TToolButton;
    tbDCZL: TToolButton;
    Label7: TLabel;
    CheckBox1: TCheckBox;
    Panel3: TPanel;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    edtBQKCPS: TEdit;
    Label3: TLabel;
    edtBQKCQty: TEdit;
    TV1Column1: TcxGridDBBandedColumn;
    Label4: TLabel;
    CPCODE: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure DQFactoryNameChange(Sender: TObject);
    procedure CPNameChange(Sender: TObject);
    procedure tbKCDCClick(Sender: TObject);
    procedure EnddateChange(Sender: TObject);
    procedure begdateChange(Sender: TObject);
    procedure tbDCZLClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    procedure SetStatus();
    procedure InitGrid();
  public
    { Public declarations }
    RKFlag, FCYID, canshu1: string;
    fType: string;
  end;
//
//var
//  frmMRJCCRClist: TfrmMRJCCRClist;

implementation

uses
  U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttachGYS, U_KCDCList;

{$R *.dfm}
procedure TfrmMRJCCRClist.SetStatus();
begin
  tbKCDC.Visible := False;
  tbDCZL.Visible := False;
  if canshu1 = '<27><><EFBFBD><EFBFBD>' then
  begin
    tbKCDC.Visible := true;
    tbDCZL.Visible := true;
  end;
end;

procedure TfrmMRJCCRClist.InitGrid();
begin

  screen.Cursor := crsqlwait;
  Panetime.Visible := true;
  Panetime.Left := (Width - Panetime.Width) div 2;
  Panetime.top := (Height - Panetime.Height - 200) div 2;
  application.ProcessMessages;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      Filtered := False;
      sql.Add(' exec  P_View_JCCRClistNew ');
      sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
      sql.Add(',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
      if CheckBox1.Checked then
        sql.Add(',@KZFlag  =''Ϊ<><CEAA>''')
      else
        sql.Add(',@KZFlag  =''<27><>Ϊ<EFBFBD><CEAA>''');
//      ShowMessage(SQL.Text);
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_HZ);
    SInitCDSData20(ADOQueryMain, CDS_HZ);
  finally
    ADOQueryMain.EnableControls;
    Panetime.Visible := false;
    screen.Cursor := crdefault;
  end;
end;

procedure TfrmMRJCCRClist.FormDestroy(Sender: TObject);
begin
//  frmYFMXlist:=nil;
end;

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

procedure TfrmMRJCCRClist.TBCloseClick(Sender: TObject);
begin
  WriteCxBandedGrid(trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Close;
end;

procedure TfrmMRJCCRClist.FormShow(Sender: TObject);
begin
  readCxBandedGrid(trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  SetStatus();
  InitGrid();
end;

procedure TfrmMRJCCRClist.TBRafreshClick(Sender: TObject);
begin
  begdate.SetFocus;
  InitGrid();
end;

procedure TfrmMRJCCRClist.ToolButton1Click(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    Exit;
  TcxGridToExcel(self.Caption, cxgrid2);
end;

procedure TfrmMRJCCRClist.FormCreate(Sender: TObject);
begin
  cxGrid2.Align := AlClient;
  Enddate.DateTime := SGetServerDate(ADOQueryTemp);
  begdate.DateTime := Enddate.DateTime;
end;

procedure TfrmMRJCCRClist.ToolButton2Click(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
    SCreateCDS20(ADOQueryMain, CDS_HZ);
    SInitCDSData20(ADOQueryMain, CDS_HZ);
  end;
end;

procedure TfrmMRJCCRClist.DQFactoryNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmMRJCCRClist.CPNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmMRJCCRClist.tbKCDCClick(Sender: TObject);
begin
  cxGrid2.Enabled := False;
  edtBQKCPS.Text := CDS_HZ.FieldByName('BQKCPS').AsString;
  edtBQKCQty.Text := CDS_HZ.FieldByName('BQKCQty').AsString;
  Panel3.Visible := True;
end;

procedure TfrmMRJCCRClist.EnddateChange(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmMRJCCRClist.begdateChange(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmMRJCCRClist.tbDCZLClick(Sender: TObject);
begin
  try
    frmKCDCList := TfrmKCDCList.Create(Application);
    with frmKCDCList do
    begin
      if ShowModal = 1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmKCDCList.Free;
  end;
end;

procedure TfrmMRJCCRClist.CheckBox1Click(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmMRJCCRClist.Button3Click(Sender: TObject);
var
  Maxno: string;
  FBQKCPS: Integer;
  FBQKCQty: Double;
begin

  if GetLSNo(ADOQueryCmd, Maxno, 'CX', 'XH_Cloth_DH', 3, 1) = False then
  begin
    Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD>Գ<EFBFBD><D4B3><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
    Exit;
  end;

  FBQKCPS := StrToIntDef(edtBQKCPS.Text, 0);
  FBQKCQty := StrToFloatDef(edtBQKCQty.Text, 0);
  with ADOQueryCmd do
  begin
    Close;
    sql.Clear;
    sql.Add(' insert into XH_Cloth_DH(OrderNo,DQFactoryName,CPName,cpcode,DHUnit,CRQtyFlag,DHPS,DHQty,DHType,DHDate,Filler,FillerCode,FillTime,DHID)  ');
    sql.Add(' values(' + quotedstr(Trim(CDS_HZ.FieldByName('OrderNo').AsString)));
    sql.Add(',' + quotedstr(Trim(CDS_HZ.FieldByName('DQFactoryName').AsString)));
    sql.Add(',' + quotedstr(Trim(CDS_HZ.FieldByName('CPName').AsString)));
    sql.Add(',' + quotedstr(Trim(CDS_HZ.FieldByName('CPcode').AsString)));
    sql.Add(',' + quotedstr(Trim(CDS_HZ.FieldByName('DHUnit').AsString)));
    sql.Add(',-1');
    sql.Add(',' + IntToStr(FBQKCPS));
    sql.Add(',' + FloatToStr(FBQKCQty));
    sql.Add(',''<27><><EFBFBD><EFBFBD><EFBFBD>Գ<EFBFBD>'' ');
    sql.Add(',' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime))));
    sql.Add(',' + quotedstr(Trim(DName)));
    sql.Add(',' + quotedstr(Trim(DCode)));
    sql.Add(',getdate()');
    sql.Add(',' + quotedstr(Trim(Maxno)));
    sql.Add(')');
//    ShowMessage(SQL.Text);
    EXECSQL;
  end;
  Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Գ<EFBFBD><D4B3>ɹ<EFBFBD>!', '<27><>ʾ', 0);
  Panel3.Visible := False;
  cxGrid2.Enabled := True;
  InitGrid();
end;

procedure TfrmMRJCCRClist.Button4Click(Sender: TObject);
begin
  Panel3.Visible := False;
  cxGrid2.Enabled := True;
end;

end.