⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 u_xgdw.~pas

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,db, Buttons;

type
  TF_XGDW = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TBitBtn;
    Button2: TBitBtn;
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_XGDW: TF_XGDW;
  POPUPM:integer;

implementation
uses U_DM,Umain,Uorder,U_WTD,U_ZHXD,U_MXD,U_BGD,U_FHP;
{$R *.DFM}

procedure TF_XGDW.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TF_XGDW.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  F_XGDW:=nil;
  action:=cafree;
end;

procedure TF_XGDW.Button1Click(Sender: TObject);
begin

end;
//
if popupm=2 then  //发货票
begin
if edit1.Text='' then
    begin
    Application.MessageBox('请输入发货票单号！','提示',0+64);
    exit;
    end;
if DM.ADOTableFHP.Locate('DingDanNo',edit1.Text,[loCaseInsensitive])=True then
begin
  F_FHP.DBEditDingDanNo.ReadOnly:=false;
  F_FHP.DBEdit1.ReadOnly:=false;
  F_FHP.DBEdit3.ReadOnly:=false;
  F_FHP.DBEdit4.ReadOnly:=false;
  F_FHP.dw.ReadOnly:=false;
  F_FHP.DBMemo1.ReadOnly:=false;
  F_FHP.DBEdit6.ReadOnly:=false;
  F_FHP.DBMemo2.ReadOnly:=false;
  F_FHP.DBEdit8.ReadOnly:=false;
  F_FHP.DBEdit7.ReadOnly:=false;
  F_FHP.DBMemo8.ReadOnly:=false;
  F_FHP.DBRichEdit1.ReadOnly:=false;
  F_FHP.SpeedButton4.Enabled:=true;
 // F_FHP.DateTimePicker1.Enabled:=true;
  If DM.ADOTableFHP.RecordCount<=0 then
    FlagFHP:=False;     //如果没有记录，则将保存标志设置为假
  DM.ADOTableFHP.Close;
  DM.ADOTableFHP.Open;
  DM.ADOTableFHP.Refresh;
  FlagFHP:=False;
  DM.ADOTableFHP.Locate('DingDanNo',edit1.Text,[loCaseInsensitive]);
  F_FHP.Caption:='专用发票修改';
  end else
   begin
    Application.MessageBox('数据库中没有此纪录！','提示',0+64);
    exit;
    end;
  close;
//
end;
if POPUPM=3 then  //报关单
begin
  if edit1.Text='' then
    begin
    Application.MessageBox('请输入报关单号！','提示',0+64);
    exit;
    end;
if DM.ADOTableBGD.Locate('DingDanNo',edit1.Text,[loCaseInsensitive])=True then
begin
  F_BGD.DBComboBox1.ReadOnly:=false;
  F_BGD.DBComboBox2.ReadOnly:=false;
  F_BGD.DBComboBox3.ReadOnly:=false;
  F_BGD.DBComboBox4.ReadOnly:=false;
  F_BGD.DBComboBox5.ReadOnly:=false;
  F_BGD.DBComboBox6.ReadOnly:=false;
  F_BGD.DBComboBox7.ReadOnly:=false;
  F_BGD.DBEditDingDanNo.ReadOnly:=false;
  F_BGD.DBEdit1.ReadOnly:=false;
  F_BGD.DBEdit2.ReadOnly:=false;
  F_BGD.DBEdit3.ReadOnly:=false;
  F_BGD.DBEdit4.ReadOnly:=false;
  F_BGD.DBEdit40.ReadOnly:=false;
  F_BGD.DBEdit8.ReadOnly:=false;
  F_BGD.DBEdit7.ReadOnly:=false;
  F_BGD.DBEdit11.ReadOnly:=false;
  F_BGD.DBEdit5.ReadOnly:=false;
  F_BGD.DBEdit13.ReadOnly:=false;
  F_BGD.DBEdit17.ReadOnly:=false;
  F_BGD.DBEdit29.ReadOnly:=false;
  F_BGD.DBEdit16.ReadOnly:=false;
  F_BGD.DBEdit23.ReadOnly:=false;
  F_BGD.DBEdit25.ReadOnly:=false;
  F_BGD.DBEdit24.ReadOnly:=false;
  F_BGD.DBEdit28.ReadOnly:=false;
  F_BGD.DBEdit27.ReadOnly:=false;
  F_BGD.DBEdit22.ReadOnly:=false;
  F_BGD.DBEdit19.ReadOnly:=false;
  F_BGD.DBEdit20.ReadOnly:=false;
  F_BGD.DBEdit21.ReadOnly:=false;
  F_BGD.DBEdit26.ReadOnly:=false;
  F_BGD.DBEdit30.ReadOnly:=false;
  F_BGD.DBEdit32.ReadOnly:=false;
  F_BGD.DBEdit31.ReadOnly:=false;
  F_BGD.DBEdit33.ReadOnly:=false;
  F_BGD.DBEdit34.ReadOnly:=false;
  F_BGD.DBEdit35.ReadOnly:=false;
  F_BGD.DBMemo1.ReadOnly :=false;
  F_BGD.DBMemo2.ReadOnly:=false;
  F_BGD.DateTimePicker3.Enabled:=true;
  F_BGD.DateTimePicker1.Enabled:=true;
  //F_BGD.DateTimePicker2.Enabled:=true;
  F_BGD.SpeedButton2.Enabled:=true;
  if DM.ADOTableBGD.RecordCount<=0 then
    FlagBGD:=False;     //如果没有记录，则将保存标志设置为假
  DM.ADOTableBGD.Close;
  DM.ADOTableBGD.Open;
  DM.ADOTableBGD.Refresh;
  DM.ADOTableBGD.Locate('DingDanNo',edit1.Text,[loCaseInsensitive]);
  ////
  DM.ADOQueryBGDChild.Close;
  DM.ADOQueryBGDChild.SQL.Clear;
  DM.ADOQueryBGDChild.SQL.Add('select * from xs_bgdchild where DingDanNo='''+F_BGD.DBEditDingDanNo.Text+'''');
  DM.ADOQueryBGDChild.Open;
  ////
  F_BGD.Caption:='报关单修改';
  end else
    Application.MessageBox('数据库中没有此纪录！','提示',0+64);
  close;
//
end;
if POPUPM=4 then  //装箱单
begin
  if edit1.Text='' then
    begin
    begin
    Application.MessageBox('数据库中没有此纪录！','提示',0+64);
    exit;
    end;
    exit;
    end;
if DM.ADOTableZHXD.Locate('DingDanNo',edit1.Text,[loCaseInsensitive])=True then
begin
 F_ZHXD.DBEditDingDanNo.ReadOnly:=false;
 F_ZHXD.DBEdit1.ReadOnly:=false;
 F_ZHXD.DBEdit2.ReadOnly:=false;
 F_ZHXD.DBMemo11.ReadOnly:=false;
 F_ZHXD.DBEdit4.ReadOnly:=false;
 F_ZHXD.DBEdit6.ReadOnly:=false;
 F_ZHXD.DBEdit5.ReadOnly:=false;
 F_ZHXD.DBEdit7.ReadOnly:=false;
 F_ZHXD.DBRichEdit1.ReadOnly:=false;
 F_ZHXD.DBRichEdit2.ReadOnly:=false;
 F_ZHXD.SpeedButton2.Enabled:=true;
 if DM.ADOTableZHXD.RecordCount<=0 then
    FlagZHXD:=False;     //如果没有记录，则将保存标志设置为假
  //F_ZHXD.SpeedButton2Click(Sender);  //如果连续点击增加按钮，则将上一条记录保存
  DM.ADOTableZHXD.Close;
  DM.ADOTableZHXD.Open;
  DM.ADOTableZHXD.Refresh;
  FlagZHXD:=False;
  DM.ADOTableZHXD.Locate('DingDanNo',edit1.Text,[loCaseInsensitive]);
  F_ZHXD.Caption:='装箱单修改';
end else
    begin
    Application.MessageBox('数据库中没有此纪录！','提示',0+64);
    exit;
    end;
  close;
//
end;
if POPUPM=5 then  //货物明细单
begin
if edit1.Text='' then
    begin
    Application.MessageBox('请输入货物明细单号！','提示',0+64);
    exit;
    end;

if DM.ADOTableMXD.Locate('DingDanNo',edit1.Text,[loCaseInsensitive])=True then
begin
  F_MXD.DBEditDingDanNo.ReadOnly:=false;
  F_MXD.DBEdit2.ReadOnly:=false;
  F_MXD.DBMemo10.ReadOnly:=false;
  F_MXD.DBEdit3.ReadOnly:=false;
  F_MXD.DBEdit4.ReadOnly:=false;
  F_MXD.DBMemo11.ReadOnly:=false;
  F_MXD.DBEdit7.ReadOnly:=false;
  F_MXD.DBEdit8.ReadOnly:=false;
  F_MXD.DBMemo12.ReadOnly:=false;
  F_MXD.DBEdit10.ReadOnly:=false;
  F_MXD.DBEdit12.ReadOnly:=false;
  F_MXD.DBMemo1.ReadOnly:=false;
  F_MXD.DBMemo2.ReadOnly:=false;
  F_MXD.DBMemo3.ReadOnly:=false;
  F_MXD.DBMemo4.ReadOnly:=false;
  F_MXD.DBMemo5.ReadOnly:=false;
  F_MXD.DBMemo6.ReadOnly:=false;
  F_MXD.DBMemo7.ReadOnly:=false;
  F_MXD.DBEdit12.ReadOnly:=false;
  F_MXD.DBMemo8.ReadOnly:=false;
  F_MXD.DBMemo9.ReadOnly:=false;
  F_MXD.dbCheckBox1.ReadOnly:=false; //
  F_MXD.dbCheckBox2.ReadOnly:=false;
  F_MXD.RadioGroup1.Enabled:=true;
  F_MXD.SpeedButton2.Enabled:=true;
  F_MXD.DateTimePicker1.Enabled:=true;
  if DM.ADOTableMXD.RecordCount<=0 then
    FlagMXD:=False;     //如果没有记录，则将保存标志设置为假
  if F_MXD.PageControl1.ActivePageIndex<>0 then
    F_MXD.PageControl1.ActivePage:=F_MXD.TabSheet1;   //修改新记录时将基本信息页设置为当前活动页
  F_MXD.DBEditDingDanNo.SetFocus;
  DM.ADOTableMXD.Close;
  DM.ADOTableMXD.Open;
  DM.ADOTableMXD.Refresh;
  FlagMXD:=False;
  DM.ADOTableMXD.Locate('DingDanNo',edit1.Text,[loCaseInsensitive]);
  F_MXD.Caption:='明细单修改';
end else
    begin
    Application.MessageBox('数据库中没有此纪录！','提示',0+64);
    exit;
    end;
  close;
//
end;
if POPUPM=6 then  //委托书
begin
  if edit1.Text='' then
    begin
    Application.MessageBox('请输入委托书单号！','提示',0+64);
    exit;
    end;
 if DM.ADOTableWTS.Locate('DingDanNo',edit1.Text,[loCaseInsensitive])=True then
 begin
  F_WTS.DBEditDingDanNo.ReadOnly:=false;
  F_WTS.DBEdit1.ReadOnly:=false;
  F_WTS.DBEdit2.ReadOnly:=false;
  F_WTS.DBEdit5.ReadOnly:=false;
  F_WTS.DBEdit6.ReadOnly:=false;
  F_WTS.DBEdit4.ReadOnly:=false;
  F_WTS.DBEdit3.ReadOnly:=false;
  F_WTS.DBEdit9.ReadOnly:=false;
  F_WTS.DBComboBox2.ReadOnly:=false;
  F_WTS.DBEdit12.ReadOnly:=false;
  F_WTS.DBEdit15.ReadOnly:=false;
  F_WTS.DBEdit11.ReadOnly:=false;
  F_WTS.DBEdit14.ReadOnly:=false;
  F_WTS.DBEdit20.ReadOnly:=false;
  F_WTS.DBEdit21.ReadOnly:=false;
  F_WTS.DBEdit17.ReadOnly:=false;
  F_WTS.DBEdit19.ReadOnly:=false;
  F_WTS.DBEdit16.ReadOnly:=false;
  F_WTS.DBEdit13.ReadOnly:=false;
  F_WTS.DBMemo1.ReadOnly:=false;
  F_WTS.DBEdit23.ReadOnly:=false;
  F_WTS.DBEdit24.ReadOnly:=false;
  F_WTS.DBEdit25.ReadOnly:=false;
  F_WTS.DBEdit26.ReadOnly:=false;
  F_WTS.DBEdit27.ReadOnly:=false;
  F_WTS.DBEdit28.ReadOnly:=false;
  F_WTS.DBEdit29.ReadOnly:=false;
  F_WTS.DBEdit30.ReadOnly:=false;
  F_WTS.DBEdit31.ReadOnly:=false;
  F_WTS.DBEdit32.ReadOnly:=false;
  F_WTS.DBEdit33.ReadOnly:=false;
  F_WTS.DBEdit34.ReadOnly:=false;
  F_WTS.DBEdit35.ReadOnly:=false;
  F_WTS.DBEdit36.ReadOnly:=false;
  F_WTS.dbComboBox1.ReadOnly:=false;
  F_WTS.SpeedButton2.Enabled:=true;
  F_WTS.DateTimePicker1.Enabled:=true;
  if DM.ADOTableWTS.RecordCount<=0 then
    FlagWTS:=False;     //如果没有记录，则将保存标志设置为假
  DM.ADOTableWTS.Close;
  DM.ADOTableWTS.Open;
  DM.ADOTableWTS.Refresh;
  FlagWTS:=False;
  DM.ADOTableWTS.Locate('DingDanNo',edit1.Text,[loCaseInsensitive]);
  F_WTS.Caption:='委托单修改';
  end else
    begin
    Application.MessageBox('数据库中没有此纪录！','提示',0+64);
    exit;
    end;
  close;
end;

end;

procedure TF_XGDW.FormShow(Sender: TObject);
begin
  Edit1.SetFocus;   
end;

procedure TF_XGDW.FormCreate(Sender: TObject);
begin
{if POPUPM=1 then
  begin
    Label2.Visible:=true;
    Edit2.Visible:=true;
    Label3.Visible:=true;
    Edit3.Visible:=true;
  end;}
end;

end.

⌨️ 快捷键说明

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