u_fpcx.~pas

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

//专用发票查询
unit U_FPCX;

interface

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

type
  TF_FPCX = class(TForm)
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label2: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    t: TDBEdit;
    Label3: TLabel;
    Label9: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label10: TLabel;
    DBEdit4: TDBEdit;
    DBEdit3: TDBEdit;
    DBEditDingDanNo: TDBEdit;
    Label21: TLabel;
    Label22: TLabel;
    DBMemo3: TDBMemo;
    Label23: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label29: TLabel;
    Label26: TLabel;
    Label30: TLabel;
    Panel3: TPanel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit6: TDBEdit;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label1: TLabel;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    SpeedButton7: TSpeedButton;
    Label31: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    DBEdit1: TDBEdit;
    DataSourceFPCX: TDataSource;
    SpeedButton3: TSpeedButton;
    Label32: TLabel;
    DBRichEdit1: TDBRichEdit;
    DBImage1: TDBImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton7Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_FPCX: TF_FPCX;
  FHPCXshow:boolean;
implementation

uses  U_DM,  U_FHP,umain, U_P_FHP;

{$R *.DFM}
//释放发票管理子窗体
procedure TF_FPCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  //DM.ADOTableFHP.Cancel;
  DM.ADOQueryFPCX.Close;
  Frmmain.Outlook1.Visible :=true;
  frmmain.Panel1.Visible:=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.Label1.Caption:='';
  F_FPCX:=nil;
  Action:=caFree;
end;
procedure TF_FPCX.SpeedButton1Click(Sender: TObject);
begin
  //frmmain.Outlook1.Visible :=true;
  Close;
end;
//调用打印预览窗体
procedure TF_FPCX.SpeedButton2Click(Sender: TObject);
begin
  Screen.Cursor := -11;
  FHPCXshow:=true;
  if F_P_FHP=nil then
    F_P_FHP:=TF_P_FHP.Create(self);
  Screen.Cursor := 0;
  F_P_FHP.QuickRep1.Preview;
  FHPCXshow:=false;
end;
procedure TF_FPCX.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //if key = #13 then
    //perform(WM_NEXTDLGCTL,0,0);

end;
procedure TF_FPCX.SpeedButton7Click(Sender: TObject);
begin
   DM.ADOQueryFPCX.Active:=False;
   DM.ADOQueryFPCX.SQL.Clear;
   if Edit1.Text='全部' then
    begin
     DM.ADOQueryFPCX.SQL.Add('select * from xs_FHP Order by IDNo desc');
     DM.ADOQueryFPCX.Open;
     end else
     begin
      DM.ADOQueryFPCX.SQL.Add('select * from xs_FHP where DingDanNo='''+Edit1.Text+'''');
      DM.ADOQueryFPCX.Open;
    end;
end;

procedure TF_FPCX.DBGrid1DblClick(Sender: TObject);
begin
 // if F_FHP=nil then
 //  F_FHP:=TF_FHP.Create(self);
 // F_FHP.Show;    //调用发票管理子窗体
end;

procedure TF_FPCX.SpeedButton3Click(Sender: TObject);
begin
  if  DM.ADOQueryFPCX.RecordCount<=0 then
  begin
    Application.MessageBox('没有记录可以删除！','专用发票管理',0+16);
    Exit;
  end
  else
    if Application.MessageBox('确实要删除此记录？','专用发票管理',4+16)=IDYES then
      DM.ADOQueryFPCX.Delete;
end;

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

procedure TF_FPCX.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Label1.Caption:='发货票查询';
end;

procedure TF_FPCX.SpeedButton7MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
SpeedButton7.Cursor:=crHandPoint;
end;

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

procedure TF_FPCX.SpeedButton2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
SpeedButton2.Cursor:=crHandPoint;
end;

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

procedure TF_FPCX.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  DM.ADOQueryFPCX.Close;
end;

end.