📄 u_bgdcx.pas

📁 相关的销售服务管理行业的一个软件
💻 PAS
字号:
unit U_BGDCX;

interface

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

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

var
  F_BGDCX: TF_BGDCX;
  fl:Boolean;
  BGDCXshow:boolean;
implementation

uses umain,U_BGDChild,U_BGD, U_DM, U_P_BGD;

{$R *.DFM}

procedure TF_BGDCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.ADOQueryBGDCX.Close;
  F_BGDcx:=nil;
  Action:=caFree;
  Frmmain.Outlook1.Visible:=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.Label1.Caption:='';
end;
procedure TF_BGDCX.SpeedButton5Click(Sender: TObject);
begin
  Close;
end;

{*********************************
   调用打印预览窗体
  *********************************
 }
procedure TF_BGDCX.SpeedButton4Click(Sender: TObject);
begin
  Screen.Cursor := -11;
  BGDCXshow:=true;
  if F_P_BGD=nil then
    F_P_BGD:=TF_P_BGD.Create(Application);
  Screen.Cursor := 0;
  F_P_BGD.QuickRep1.Preview;
  BGDCXshow:=false;
end;
{***************
  调用查询窗口
**************** }
procedure TF_BGDCX.SpeedButton1Click(Sender: TObject);
var
  strFind:string;
begin
   DM.ADOQueryBGDCX.Active:=False;
   DM.ADOQueryBGDCX.SQL.Clear;
   DM.ADOQueryBGDChild.Active:=false;
   DM.ADOQueryBGDChild.SQL.Clear;
   if Edit1.Text='全部' then
    begin
      DM.ADOQueryBGDCX.SQL.Add('select * from xs_BGD order by IDNO desc');
      DM.ADOQueryBGDCX.open;
      DM.ADOQueryBGDChild.SQL.Add('select * From xs_BGDChild,xs_BGD where xs_BGDChild.dingdanno=xs_BGD.dingdanno');
      DM.ADOQueryBGDChild.Open;
      end else
      begin
        DM.ADOQueryBGDCX.SQL.Add('select * from xs_bgd where DingDanNo='''+Edit1.Text+'''');
        DM.ADOQueryBGDCX.Open;
        DM.ADOQueryBGDChild.SQL.Add('select * From xs_BGDChild where DingDanNo=:DingDanNo ');
        DM.ADOQueryBGDChild.Parameters.ParamByName('DingDanNo').value:=Edit1.Text;
        DM.ADOQueryBGDChild.OPen;
    end;
    //
     strFind:=DM.ADOQueryBGDCX.fieldbyname('DingDanNo').value;
        with DM.ADOQueryBGDChild do begin
          Active:=False;
          sql.clear;
          sql.add('select *  from  xs_BGDChild where DingDanNo=:strFind order by XiangHao ');
          parameters[0].value:=strFind;
          open;
        end;

end;

procedure TF_BGDCX.DBGridBGDCellClick(Column: TColumn);
begin
 { with DM.ADOQueryBGDChild do
    begin
      Active:=False;
      SQL.Clear;
      SQL.Add('select * From xs_BGDChild ');
      SQL.Add('where DingDanNo='''+DBEditDingDanNo.Text+''' ');
      SQL.Add(';');
      OPen; }
    //
        with DM.ADOQueryBGDChild do begin
          Active:=False;
          sql.clear;
          sql.add('select *  from  xs_BGDChild where DingDanNo=:dingdanno order by XiangHao ');
          Parameters.ParamByName('DingDanNo').value:=DBEditDingDanNo.Text;
          parameters[0].value:=DBEditDingDanNo.text;
          open;
        end;
end;

procedure TF_BGDCX.DBGridBGDDblClick(Sender: TObject);
begin
 // If F_BGD=nil then
 //   F_BGD:=TF_BGD.Create(self);
 // F_BGD.Show;    //调用报关单管理子窗体
end;

procedure TF_BGDCX.SpeedButton2Click(Sender: TObject);
begin
  if  DM.ADOQueryBGDCX.RecordCount<=0 then
  begin
    Application.MessageBox('没有记录可以删除！','报关单管理',0+16);
    Exit;
  end
  else
    if Application.MessageBox('确实要删除此记录？','报关单管理',4+16)=IDYES then
    begin
      with DM.ADOQueryBGDChild do
      begin
        Close;
        SQL.Clear;
        SQL.Add('delete from xs_BGDChild ');
        SQL.Add('where DingDanNo=:DingDanNo ');
        Parameters.ParamByName('DingDanNo').value := DBEditDingDanNo.Text;
        ExecSQL;
      end;
       DM.ADOQueryBGDCX.Delete;
    end;
end;

procedure TF_BGDCX.DataSourceBGDCXDataChange(Sender: TObject;
  Field: TField);
begin
  FlagBGD:=False;
end;

procedure TF_BGDCX.DataSourceBGDChildDataChange(Sender: TObject;
  Field: TField);
begin
  FlagBGDChild:=False;
end;

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

procedure TF_BGDCX.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
  frmmain.Label1.Caption:='报关单查询';
end;

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

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

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

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

procedure TF_BGDCX.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  DM.ADOQueryBGDCX.Close;
  DM.ADOQueryBGDChild.Close;
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -