uorder.pas

相关的销售服务管理行业的一个软件

//-----------------------------------------------------------------------------
end;

procedure Tfrmorder.BitBtn13Click(Sender: TObject);
begin
  if not ADOQueryNDD3.Active then exit;
  if  ADOQueryNDD3.RecordCount<=0 then exit;
  if Application.MessageBox('确定删除该明细吗？','确认',MB_YESNO + MB_ICONQUESTION) = IDYES then
      ADOQueryNDD3.Delete;
end;

procedure Tfrmorder.BitBtn14Click(Sender: TObject);
begin
   if (DBEdit1_1.text = '') then
      begin
        Application.MessageBox('请输入订单编号','提示',64);
        exit;
      end;

   if (DBLCBks.text = '') then
      begin
        Application.MessageBox('请输入款式','提示',64);
        exit;
      end;

   if (DBEdit2.text = '') then
      begin
        Application.MessageBox('请输入颜色','提示',64);
        exit;
      end;
   if (DBedit3_2.text = '') then
      begin
        Application.MessageBox('请输入尺码','提示',64);
        exit;
      end;
   if (DBedit3_3.text = '') then
      begin
        Application.MessageBox('请输入数量','提示',64);
        exit;
      end;
   if not ADOQueryNdd3.Active then exit;
   with ADOQueryNdd3 do
     begin
       try
         edit;
         FieldByName('OrderNo').asstring := DBEdit1_1.Text;
         DBEdit1.text:=DBEDit2.text;
         FieldbyName('R_name').asstring:=DBLCBks.Text;
         post;
       except
         Application.MessageBox('保存数据失败！','错误',16);
         Cancel;
       end  ;
   end;
end;

procedure Tfrmorder.BitBtn8Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmorder.BitBtn11Click(Sender: TObject);
var
 rect:trect;
 externname:string;
 jpg:tjpegimage;
  pnh, pnw: Integer;
  pch, pcw: Integer;
begin
 try
  if OpenPictureDialog1.Execute then
   begin
      externname:=ExtractFileExt(OpenPictureDialog1.FileName);
      if StrComp(pchar(uppercase(externname)),pchar(uppercase('.bmp')))=0 then
      begin
          dbimage1.Picture.LoadFromFile(OpenPictureDialog1.filename);
      end
      else
         if StrComp(pchar(uppercase(externname)),pchar(uppercase('.jpg')))=0 then
         begin
          jpg:=tjpegimage.create;
          jpg.LoadFromFile(OpenPictureDialog1.filename);
          dbimage1.Picture.Graphic.Assign (jpg);
          end;
    end;

  pnh := Panel5.Height-4;
  pnw := Panel5.Width-4;
  pch := DBImage1.Picture.Height;
  pcw := DBImage1.Picture.Width;

  with DBImage1 do
  begin
    if (pcw <= pnw) and (pch <= pnh) then
    begin
      Left := 2 + (pnw-pcw) div 2 ;
      Top := 2 + (pnh-pch) div 2;
      Height := pch;
      Width := pcw;
      Exit;
    end;

    if pnh/pnw >= pch/pcw then
    begin
      Left := 2;
      Width := pnw;
      Height := pch * pnw div pcw;
      Top := 2 + (pnh - Height) div 2;
    end
    else begin
      Top := 2;
      Height := pnh;
      Width := pnh * pcw div pch;
      Left := 2 + (pnw -Width) div 2;
    end;
  end;

except
    messagebox(handle,'此文件格式无效！','错误',mb_ok+mb_iconerror);
end;
end;

procedure Tfrmorder.BitBtn10Click(Sender: TObject);
begin
  with ADOSPcal do
    begin
      close;
      Parameters[1].Value :=DBEdit1_1.text;
      ExecProc;
    end;

  with ADOQorder4 do
    begin
      close;
      Parameters[0].Value :=DBEdit1_1.text;
      Open;
    end;
end;

procedure Tfrmorder.N2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmorder.DBImage2DblClick(Sender: TObject);
var
 rect:trect;
 externname:string;
 jpg:tjpegimage;
begin
try
  if OpenPictureDialog2.Execute then
   begin
      externname:=ExtractFileExt(OpenPictureDialog2.FileName);
      if StrComp(pchar(uppercase(externname)),pchar(uppercase('.bmp')))=0 then
      begin
          dbimage2.Picture.LoadFromFile(OpenPictureDialog2.filename);
      end
      else
         if StrComp(pchar(uppercase(externname)),pchar(uppercase('.jpg')))=0 then
         begin
          jpg:=tjpegimage.create;
          jpg.LoadFromFile(OpenPictureDialog2.filename);
          dbimage2.Picture.Graphic.Assign (jpg);
          end;
    end;
except
    messagebox(handle,'此文件格式无效！','错误',mb_ok+mb_iconerror);
end;
end;

procedure Tfrmorder.BitBtn9Click(Sender: TObject);

begin
  if (DBLCBks.text='') or (DBEdit1_1.text='') then
    begin
      application.MessageBox('请确定订单号和款式','提示',64);
      exit;
    end;
  If FrmBZHFF=nil then FrmBZHFF:=TFrmBZHFF.Create(Application);
  FrmBZHFF.ShowModal;
end;

procedure Tfrmorder.DBEdit3_3KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9',#8])  then
    key:=#0;
end;

procedure Tfrmorder.BitBtn15Click(Sender: TObject);
begin
 If frmselorder=nil then frmselorder:=Tfrmselorder.Create(Application);
  frmselorder.showmodal;
end;

procedure Tfrmorder.opendata(id1:string);
begin
  ADOQueryNDD1.close;
  ADOQueryNDD1.Parameters[0].value:=id1;
  ADOQueryNDD1.open;

  ADOQueryNDD2.close;
  ADOQueryNDD2.Parameters[0].Value :=id1;
  ADOQueryNDD2.Open;
end;

procedure Tfrmorder.DSDD2DataChange(Sender: TObject; Field: TField);
begin
  with ADOQueryNDD3 do
    begin
      close;
      Parameters[0].Value :=DBEdit1_1.text;
      Parameters[1].Value :=DBLCBks.Text;
      Open;
    end;

  with ADOQorder4 do
    begin
      close;
      Parameters[0].Value :=DBEdit1_1.text;
      Open;
    end;

  with ADOcolor do
    begin
      close;
      Parameters[0].Value :=DBLCBks.Text;
      Open;
    end;
end;

procedure Tfrmorder.DataSourceDD3DataChange(Sender: TObject;
  Field: TField);
begin
  with ADOQorder4 do
    begin
      close;
      Parameters[0].Value :=DBEdit1_1.text;
      Open;
    end;
end;

procedure Tfrmorder.BitBtn16Click(Sender: TObject);
begin
  if not ADOQorder4.Active then exit;
  if ADOQorder4.RecordCount<=0 then exit;
  if Application.MessageBox('确定删除该明细吗？','确认',MB_YESNO + MB_ICONQUESTION) = IDYES then
     ADOQorder4.Delete;
end;

procedure Tfrmorder.BitBtn7Click(Sender: TObject);
var
  MySize:array of  string;
  sSql,sSum,sm:String;
  i,z,horTotal,j,maxSizeCount,maxRegWidth,unitWidth,leftPar,sumTotal:integer;
  pause,sizeX,t,v,tColor,curSize:string;
  Printerlist,tableList,createTableSQL:Tstringlist;
  lQRLabel: TQRLabel;
  lQRDBText: TQRDBText;
  lQRShape: TQRShape;
begin
  Screen.Cursor := -11;
  ///////////////////////////////
  if mainreport=nil then
    begin
     application.Createform(Tmainreport,mainreport);
     Screen.Cursor := 0;
    end;
  if clreport=nil then
    begin
     application.createform(Tclreport,clreport);
     Screen.Cursor := 0;
    end; 
  ////////////////////////////////
  if DBEdit1_1.Text='' then
     exit;
   mainreport.QRLDDBM.Caption:=frmorder.DBEdit1_1.Text;
   mainreport.QRLDDRQ.Caption:=DateToStr(DTP1.date);
   mainreport.QRLabel35.Caption:=frmorder.DBLookupComboBox1.Text;
   mainreport.QRLabel10.Caption:=frmorder.Label4.Caption;
   ADOQuerydy.Active:=false;
   ADOQuerydy.SQL.Clear;
   ADOQuerydy.SQL.Add('select * from xs_order2 where orderno='''+DBEdit1_1.Text+'''');
   ADOQuerydy.Open;
  try
  begin
    clreport.QuickRep1.DataSet := DM.ADOQreport;
    mainreport.QuickRep1.DataSet:=ADOQuerydy;
    with DM.ADOQreport do
    begin
      close;
      sql.Clear;
      sql.Add('select * from xs_order3 where orderno='''+DBEdit1_1.text+'''');
      open;
    end;
  ///////////////
    Screen.Cursor := 0;
    mainreport.ComRepOrder.Preview;
  end   
  finally
    if mainreport<>nil then
    begin
      mainreport.Free;
      mainreport := nil;
    end;
    if clreport<>nil then
    begin
      clreport.Free;
      clreport := nil;
    end;
  end;
end;

end.