u_mxdcx.pas

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

unit U_MXDCX;

interface

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

type
  TF_MXDCX = class(TForm)
    Panel1: TPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    RadioGroup1: TRadioGroup;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBEdit5: TDBEdit;
    GroupBox2: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    TabSheet2: TTabSheet;
    Panel4: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    DBMemo6: TDBMemo;
    DBMemo7: TDBMemo;
    DBEdit12: TDBEdit;
    Panel5: TPanel;
    Label27: TLabel;
    Label28: TLabel;
    DBMemo8: TDBMemo;
    DBMemo9: TDBMemo;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Label29: TLabel;
    DBEditDingDanNo: TDBEdit;
    Label30: TLabel;
    Label31: TLabel;
    SpeedButton1: TSpeedButton;
    DBEdit9: TDBEdit;
    DataSourceMXDCX: TDataSource;
    SpeedButton2: TSpeedButton;
    Label32: TLabel;
    Edit1: TEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton2MouseMove(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 DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_MXDCX: TF_MXDCX;
  StrMXD: string;
  mxdcxshow:boolean;
implementation
uses  U_DM, U_P_MXD,umain, U_MXD;

{$R *.DFM}
//释放明细单子窗体
procedure TF_MXDCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.ADOTableMXD.Cancel; ////ly
  F_MXDCX:=nil;
  Action:=caFree;
  Frmmain.Outlook1.Visible :=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.Panel1.Visible:=true;
  frmmain.Label1.Caption:='';
end;

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

procedure TF_MXDCX.SpeedButton4Click(Sender: TObject);
begin
  Screen.Cursor := -11;
  mxdcxshow:=true;
  if F_P_MXD=nil then
    F_P_MXD:=TF_P_MXD.Create(self);
  Screen.Cursor := 0;
  F_P_MXD.QuickRep1.Preview;
  mxdcxshow:=false;
end;
procedure TF_MXDCX.FormShow(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:  DBEditDingDanNo.SetFocus;
  1:  DBMemo1.SetFocus;
  end;
end;

procedure TF_MXDCX.SpeedButton1Click(Sender: TObject);
begin
try
  DM.ADOQueryMXDCX.Active:=False;
  DM.ADOQueryMXDCX.SQL.Clear;
  if Edit1.Text='全部' then
  begin
    DM.ADOQueryMXDCX.SQL.Add('select * from xs_MXD order by IDNO desc');
    DM.ADOQueryMXDCX.Open;
  end else
  begin
    DM.ADOQueryMXDCX.SQL.Add('select * from xs_MXD where DingDanNo='''+Edit1.Text+'''');
    DM.ADOQueryMXDCX.open;
    if DM.ADOQueryMXDCX.RecordCount<>0 then
     begin
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='贸易' then
       RadioGroup1.ItemIndex:=0;
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='补偿' then
       RadioGroup1.ItemIndex:=1;
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='退运' then
       RadioGroup1.ItemIndex:=2;
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='其它' then
       RadioGroup1.ItemIndex:=3
     else
      exit;
     end; 
  end;
  except
     Application.MessageBox('无数据!','系统提示!',0+64);
  end;
end;

procedure TF_MXDCX.DBGrid1DblClick(Sender: TObject);
begin
  if F_MXD=nil then
    F_MXD:=TF_MXD.Create(self);
  F_MXD.Show;
end;

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

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

procedure TF_MXDCX.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  Checkbox1 ,Checkbox2:TDbCheckBox;
begin
  If DM.ADOQueryMXDCX.FieldByName('DingDanNo').Asstring=DBEditDingDanNo.Text then
  begin
    DBGrid1.Canvas.Font.Color :=clBlue;
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
  //
     CheckBox1:=TDbCheckBox.Create(self);
     CheckBox1.DataSource:=DataSourceMXDCX;
     CheckBox1.DataField:='FenPi';
  if (gdFocused in State) and (Column.Title.Caption='FenPi') then
    begin
     CheckBox1.SetBounds(Rect.Left+DBgrid1.Left+1,
      Rect.Top+Dbgrid1.Top+1,Rect.Right-Rect.Left,
      Rect.Bottom-Rect.Top);
    end;

      CheckBox2:=TDbCheckBox.Create(self);
     CheckBox2.DataSource:=DataSourceMXDCX;
     CheckBox2.DataField:='zhuanyun';
  if (gdFocused in State) and (Column.Title.Caption='zhuanyun') then
    begin
     CheckBox2.SetBounds(Rect.Left+DBgrid1.Left+1,
      Rect.Top+Dbgrid1.Top+1,Rect.Right-Rect.Left,
      Rect.Bottom-Rect.Top);
    end; 
end;

procedure TF_MXDCX.FormActivate(Sender: TObject);
begin
  frmmain.Panel1.Visible:=true;
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
  frmmain.Label1.Caption:='货物明细查询';
end;

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

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

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

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

procedure TF_MXDCX.DBGrid1CellClick(Column: TColumn);
begin
  try
   if dbgrid1<>nil then
     begin
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='贸易' then
       RadioGroup1.ItemIndex:=0;
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='补偿' then
       RadioGroup1.ItemIndex:=1;
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='退运' then
       RadioGroup1.ItemIndex:=2;
     if DM.ADOQueryMXDCX.FieldByName('HuoWuXZH').asstring='其它' then
       RadioGroup1.ItemIndex:=3
     else
      exit;
     end; 
    except
     Application.MessageBox('无数据!','系统提示!',0+64);
   end;
end;

end.