u_zhxdcx.pas

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

unit U_ZHXDCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Buttons, ExtCtrls, StdCtrls, DBCtrls, Mask, ComCtrls, Db;

type
  TF_ZHXDCX = class(TForm)
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Panel3: TPanel;
    Label8: TLabel;
    TabSheet2: TTabSheet;
    Panel4: TPanel;
    DBGridBGD: TDBGrid;
    Splitter1: TSplitter;
    Label20: TLabel;
    DBEditDingDanNo: TDBEdit;
    Label21: TLabel;
    Edit1: TEdit;
    DataSourceZHXDCX: TDataSource;
    SpeedButton1: TSpeedButton;
    Label19: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit5: TDBEdit;
    Label11: TLabel;
    Label13: TLabel;
    DBEdit7: TDBEdit;
    DBMemo2: TDBMemo;
    DBRichEdit1: TDBRichEdit;
    DBRichEdit2: TDBRichEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGridBGDDblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGridBGDDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_ZHXDCX: TF_ZHXDCX;
  ZHXDCXshow:boolean;
implementation

uses U_DM, U_P_ZHXD, umain,U_ZHXD, U_P_Choose;



{$R *.DFM}
//释放装箱单子窗体
procedure TF_ZHXDCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  F_ZHXDCX:=nil;
  Action:=caFree;
  Frmmain.Outlook1.Visible :=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.Panel1.Visible:=true;
  frmmain.Label1.Caption:='';
end;

procedure TF_ZHXDCX.SpeedButton5Click(Sender: TObject);
begin

  close;
end;

procedure TF_ZHXDCX.SpeedButton4Click(Sender: TObject);
begin
 { if F_P_ZHXD=nil then
    F_P_ZHXD:=TF_P_ZHXD.Create(self);
  F_P_ZHXD.QuickRep1.Preview; }
  //
  ZHXDCXshow:=true;
  strP_ZHXD := DBEditDingDanNo.Text;
  if DBEditDingDanNo.Text='' then
    exit;
  if F_P_choose =nil then
    Application.CreateForm(TF_P_choose,F_P_choose);
  F_P_choose.ShowModal;
end;

procedure TF_ZHXDCX.SpeedButton3Click(Sender: TObject);
begin
   DM.ADOQueryZHXDCX.Active:=False;
   DM.ADOQueryZHXDCX.SQL.Clear;
   if Edit1.Text='全部' then
    begin
      DM.ADOQueryZHXDCX.SQL.Add('select * from xs_ZHXD order by IDNO desc');
      DM.ADOQueryZHXDCX.Open;
      end else
      begin
      DM.ADOQueryZHXDCX.SQL.Add('select * from xs_ZHXD where DingDanNo='''+Edit1.Text+'''');
      DM.ADOQueryZHXDCX.Open;
    end;
end;

procedure TF_ZHXDCX.DBGridBGDDblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  if F_ZHXD=nil then
    F_ZHXD:=TF_ZHXD.Create(self);
  F_ZHXD.Show;
end;

procedure TF_ZHXDCX.SpeedButton1Click(Sender: TObject);
begin
  if  DM.ADOQueryZHXDCX.RecordCount<=0 then
  begin
    Application.MessageBox('没有记录可以删除！','装箱单管理',0+16);
    Exit;
  end
  else
    if Application.MessageBox('确实要删除此记录？','装箱单管理',4+16)=IDYES then
    begin
      DM.ADOQueryZHXDCX.Delete;
    end;
end;

procedure TF_ZHXDCX.DBGridBGDDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  If DM.ADOQueryZHXDCX.FieldByName('DingDanNo').Asstring=DBEditDingDanNo.Text then
    begin
      DBGridBGD.Canvas.Font.Color :=clBlue;
      DBGridBGD.DefaultDrawColumnCell(Rect,DataCol,Column,State);
    end;
end;

procedure TF_ZHXDCX.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Label1.Caption:='装箱单查询';
end;

procedure TF_ZHXDCX.SpeedButton3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
SpeedButton3.Cursor:=crHandPoint;
end;

procedure TF_ZHXDCX.SpeedButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
SpeedButton1.Cursor:=crHandPoint;
end;

procedure TF_ZHXDCX.SpeedButton4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
SpeedButton4.Cursor:=crHandPoint;
end;

procedure TF_ZHXDCX.SpeedButton5MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
SpeedButton5.Cursor:=crHandPoint;
end;

end.