u_wtdcx.pas

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

unit U_WTDCX;

interface

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

type
  TF_WTDCX = class(TForm)
    Panel1: TPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label2: TLabel;
    Label23: TLabel;
    DBEditDingDanNo: TDBEdit;
    Panel3: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Panel4: TPanel;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Panel5: TPanel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    Panel6: TPanel;
    Label24: TLabel;
    Label25: TLabel;
    Panel7: TPanel;
    Label26: TLabel;
    Label27: TLabel;
    Panel8: TPanel;
    Label28: TLabel;
    Label29: TLabel;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    Panel9: TPanel;
    Label30: TLabel;
    Label31: TLabel;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    Panel10: TPanel;
    Label32: TLabel;
    Label33: TLabel;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    Panel11: TPanel;
    Label34: TLabel;
    Label35: TLabel;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    Panel12: TPanel;
    Label36: TLabel;
    Label37: TLabel;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    SpeedButton3: TSpeedButton;
    Label38: TLabel;
    Edit1: TEdit;
    DataSourceWTDCX: TDataSource;
    SpeedButton1: TSpeedButton;
    DBMemo1: TDBMemo;
    DBEdit7: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(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);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_WTDCX: TF_WTDCX;
  wtdcxshow:boolean;
implementation

uses U_DM, U_P_WTS,umain, U_WTD;



{$R *.DFM}

procedure TF_WTDCX.FormClose(Sender: TObject; var Action: TCloseAction);
  //释放委托书管理子窗体
begin

  F_WTDCX:=nil;
  Action:=caFree;
  Frmmain.Outlook1.Visible :=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.Label1.Caption:='';
end;

procedure TF_WTDCX.SpeedButton5Click(Sender: TObject);
begin
  //frmmain.OUTLOOK1.Visible :=true;
  Close;
end;

procedure TF_WTDCX.SpeedButton4Click(Sender: TObject);
begin
  Screen.Cursor := -11;
  wtdcxshow:=true;
  if F_P_WTS=nil then
    F_P_WTS:=TF_P_WTS.Create(self);
   Screen.Cursor := 0;
  F_P_WTS.QuickRep1.Preview;
  wtdcxshow:=false;
end;
procedure TF_WTDCX.SpeedButton3Click(Sender: TObject);
begin
try
  DM.ADOQueryWTDCX.Active:=False;
  DM.ADOQueryWTDCX.SQL.Clear;
  if Edit1.Text='全部' then
  begin
    DM.ADOQueryWTDCX.SQL.Add('select * from xs_WTS order by IDNO desc');
    DM.ADOQueryWTDCX.open;
    end else
    begin
    DM.ADOQueryWTDCX.SQL.Add('select * from xs_WTS where DingDanNo='''+Edit1.Text+'''');
    DM.ADOQueryWTDCX.Open;
    end;
except
  Application.MessageBox('查询出错！','出错',0+16);
end;  
end;

procedure TF_WTDCX.DBGrid1DblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  if F_WTS=nil then
    F_WTS:=TF_WTS.Create(self);
  F_WTS.Show;
end;

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

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

procedure TF_WTDCX.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
  frmmain.Label1.Caption:='委托书查询';
end;

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

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

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

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

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

end.