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

📄 u_bgd.pas

📁 相关的销售服务管理行业的一个软件
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
DM.ADOTableBGD.Close;
DM.ADOTableBGDChild.Close;
DM.ADOQueryBGDChild.Close;
ADOQueryBGD.Close;
ADOQueryBGDXC.Close;
Frmmain.Outlook1.Visible :=true;
Frmmain.Panel2.Visible:=True;
frmmain.Label1.Caption:='';
F_BGD:=nil;
Action:=caFree;
end;

 {*********************************
   增加新记录处理过程
  *********************************
 }
procedure TF_BGD.SpeedButton1Click(Sender: TObject);
begin
  DBComboBox1.ReadOnly:=false;
  DBComboBox2.ReadOnly:=false;
  DBComboBox3.ReadOnly:=false;
  DBComboBox4.ReadOnly:=false;
  DBComboBox5.ReadOnly:=false;
  DBComboBox6.ReadOnly:=false;
  DBComboBox7.ReadOnly:=false;
  DBEditDingDanNo.ReadOnly:=false;
  DBEdit1.ReadOnly:=false;
  DBEdit2.ReadOnly:=false;
  DBEdit3.ReadOnly:=false;
  DBEdit4.ReadOnly:=false;
  DBEdit40.ReadOnly:=false;
  DBEdit8.ReadOnly:=false;
  DBEdit7.ReadOnly:=false;
  DBEdit11.ReadOnly:=false;
  DBEdit5.ReadOnly:=false;
  DBEdit13.ReadOnly:=false;
  DBEdit17.ReadOnly:=false;
  DBEdit29.ReadOnly:=false;
  DBEdit16.ReadOnly:=false;
  DBEdit23.ReadOnly:=false;
  DBEdit25.ReadOnly:=false;
  DBEdit24.ReadOnly:=false;
  DBEdit28.ReadOnly:=false;
  DBEdit27.ReadOnly:=false;
  DBEdit22.ReadOnly:=false;
  DBEdit19.ReadOnly:=false;
  DBEdit20.ReadOnly:=false;
  DBEdit21.ReadOnly:=false;
  DBEdit26.ReadOnly:=false;
  DBEdit30.ReadOnly:=false;
  DBEdit32.ReadOnly:=false;
  DBEdit31.ReadOnly:=false;
  DBEdit33.ReadOnly:=false;
  DBEdit34.ReadOnly:=false;
  DBEdit35.ReadOnly:=false;
  DBMemo1.ReadOnly :=false;
  DBMemo2.ReadOnly:=false;
  DateTimePicker3.Enabled:=true;
  DateTimePicker1.Enabled:=true;
 // DateTimePicker2.Enabled:=true;
  SpeedButton2.Enabled:=true;
  if DM.ADOTableBGD.RecordCount<=0 then
    FlagBGD:=False;     //如果没有记录，则将保存标志设置为假
 // F_BGD.SpeedButton2Click(Sender);  //如果连续点击增加按钮，则将上一条记录保存
  DM.ADOTableBGD.Close;
  DM.ADOTableBGD.Open;
  DM.ADOTableBGD.Append;
  DateTimePicker1.Date:=Now;
 // DateTimePicker2.Date:=Now;
  DateTimePicker3.Date:=Now;
  DBEditDingDanNo.SetFocus;
//  DBGrid1.DataSource:=nil;
  DM.ADOQueryBGDChild.Close;
  FlagBGD:=False;
   F_Modal := TF_Modal.Create(self);
  F_Modal.Label1.Caption := '指运港';
  F_Modal.Label2.Caption := '订单编号';
  TN := 'xs_BGD';
  F1 := 'ZhiYunPort';
  F2 := 'DingDanNo';
  Md := 1;
  if F_Modal.ModalSet(TN, F1, F2, Md) then
    F_Modal.ShowModal
  else
    Application.MessageBox('无法生成参考模板！','提示',0+64);
  F_Modal.Free;
end;

  {*********************************
   保存记录处理过程
  *********************************
 }
procedure TF_BGD.SpeedButton2Click(Sender: TObject);
begin
  if FlagBGD then
    begin
      Application.MessageBox('该数据已保存！','提示',0+64);
      Exit;
    end;
  if DBEditDingDanNo.Text='' then
  begin
    Application.MessageBox('订单编号不许为空，请重新输入！','报关单管理',0+64);
    DBEditDingDanNo.SetFocus;
    Exit;
  end;
  if DBComboBox6.Text ='' then
   begin
    Application.MessageBox('指运港不许为空，请重新输入！','报关单管理',0+64);
    DBComboBox6.SetFocus;
    Exit;
   end;
  try
    DM.ADOTableBGD.edit;
    DM.ADOTableBGD.FieldByName('ChuKouDate').AsDateTime:=DateTimePicker1.DateTime;//在保存前将日期转为字符串类型
   // DM.ADOTableBGD.FieldByName('ShenBaoDate').AsDateTime:=DateTimePicker2.DateTime;
    DM.ADOTableBGD.FieldByName('TZHRiQi').AsDateTime:=DateTimePicker3.DateTime;
    DM.ADOTableBGD.Post;
    DBComboBox1.ReadOnly:=true;
    DBComboBox2.ReadOnly:=true;
    DBComboBox3.ReadOnly:=true;
    DBComboBox4.ReadOnly:=true;
    DBComboBox5.ReadOnly:=true;
    DBComboBox6.ReadOnly:=true;
    DBComboBox7.ReadOnly:=true;
    DBEditDingDanNo.ReadOnly:=true;
    DBEdit1.ReadOnly:=TRUE;
    DBEdit2.ReadOnly:=true;
    DBEdit3.ReadOnly:=true;
    DBEdit4.ReadOnly:=true;
    DBEdit40.ReadOnly:=true;
    DBEdit8.ReadOnly:=true;
    DBEdit7.ReadOnly:=true;
    DBEdit11.ReadOnly:=true;
    DBEdit5.ReadOnly:=true;
    DBEdit13.ReadOnly:=true;
    DBEdit17.ReadOnly:=true;
    DBEdit29.ReadOnly:=true;
    DBEdit16.ReadOnly:=true;
    DBEdit23.ReadOnly:=true;
    DBEdit25.ReadOnly:=true;
    DBEdit24.ReadOnly:=true;
    DBEdit28.ReadOnly:=true;
    DBEdit27.ReadOnly:=true;
    DBEdit22.ReadOnly:=true;
    DBEdit19.ReadOnly:=true;
    DBEdit20.ReadOnly:=true;
    DBEdit21.ReadOnly:=true;
    DBEdit26.ReadOnly:=true;
    DBEdit30.ReadOnly:=true;
    DBEdit32.ReadOnly:=true;
    DBEdit31.ReadOnly:=true;
    DBEdit33.ReadOnly:=true;
    DBEdit34.ReadOnly:=true;
    DBEdit35.ReadOnly:=true;
    DBMemo1.ReadOnly :=true;
    DBMemo2.ReadOnly:=true;
    DateTimePicker3.Enabled:=false;
    DateTimePicker1.Enabled:=false;
    //DateTimePicker2.Enabled:=false;
    SpeedButton2.Enabled:=false;
    //
    DM.ADOQueryBGDChild.Close;
    DM.ADOQueryBGDChild.SQL.Clear;
    DM.ADOQueryBGDChild.SQL.Add('select * from xs_bgdchild where DingDanNo='''+DBEditDingDanNo.Text+'''');
    DM.ADOQueryBGDChild.Open;
    //
    FlagBGD:=True;
    F_BGD.Caption:='报关单管理';
    Application.MessageBox('数据保存成功！', '提示',0+64);
  except
    Application.MessageBox('数据保存错误，请重新输入！', '报关单管理',0+16);
  end;
  

end;

{*********************************
   删除记录处理过程
  ********************************* }

procedure TF_BGD.SpeedButton5Click(Sender: TObject);
begin
  close;
end;

procedure TF_BGD.SpeedButton3Click(Sender: TObject);
begin
  if  DM.ADOTableBGD.RecordCount<=0 then
  begin
    Application.MessageBox('没有记录可以删除！','报关单管理',0+16);
    FlagBGD:=True;
    Exit;
  end
  else
    if Application.MessageBox('确实要删除此记录？','报关单管理',4+16)=IDYES then
    begin
      with DM.ADOQueryBGDChild do
      begin
        Active:=False;
        SQL.Clear;
        SQL.Add('delete from xs_BGDChild ');
        SQL.Add('where DingDanNo='''+F_BGD.DBEditDingDanNo.Text+'''');
        ExecSQL;
      end;
      DM.ADOTableBGD.Delete;
      FlagBGD:=True;
      SpeedButton2.Enabled:=false;
    end;
end;
procedure TF_BGD.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=False;
  frmmain.Label1.Caption:='报关单管理';
  WindowState:=wsMaximized;
  POPUPM:=0;
  Dm.ADOTableBGD.Last;
  ADOQueryBGDXC.Active:=false;
  ADOQueryBGDXC.SQL.Clear;
  ADOQueryBGDXC.SQL.Add('select * from xs_bgjc');
  ADOQueryBGDXC.Open;
  DBComboBox1.Items.Clear;
  DBComboBox2.Items.Clear;
  DBComboBox3.Items.Clear;
  DBComboBox4.Items.Clear;
  DBComboBox5.Items.Clear;
  DBComboBox6.Items.Clear;
  DBComboBox7.Items.Clear;
  while not ADOQueryBGDXC.Eof do begin
    DBComboBox1.Items.Add(ADOQueryBGDXC.fieldbyname('YunShuBy').asstring);
    DBComboBox2.Items.Add(ADOQueryBGDXC.fieldbyname('MaoYiBy').asstring);
    DBComboBox3.Items.Add(ADOQueryBGDXC.fieldbyname('FaHuoUnit').asstring);
    DBComboBox4.Items.Add(ADOQueryBGDXC.fieldbyname('JieHuiBy').asstring);
    DBComboBox5.Items.Add(ADOQueryBGDXC.fieldbyname('YunDiCountry').asstring);
    DBComboBox6.Items.Add(ADOQueryBGDXC.fieldbyname('ZhiYunPort').asstring);
    DBComboBox7.Items.Add(ADOQueryBGDXC.fieldbyname('ChengJiaoBy').asstring);
    ADOQueryBGDXC.Next;
  end;
  DM.ADOQueryBGDChild.Close;
  DM.ADOQueryBGDChild.SQL.Clear;
  DM.ADOQueryBGDChild.SQL.Add('select * from xs_bgdchild where DingDanNo='''+DBEditDingDanNo.Text+'''');
  DM.ADOQueryBGDChild.Open;
  //ADOQueryBGDXC.Active:=false;
  RegisterHotKey(Handle,0,MOD_CONTROL,83);
  RegisterHotKey(Handle,1,MOD_CONTROL,65);
end;

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

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

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

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

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

procedure TF_BGD.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
BitBtn4.Cursor:=crHandPoint;
end;

procedure TF_BGD.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
BitBtn5.Cursor:=crHandPoint;
end;

procedure TF_BGD.BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
BitBtn6.Cursor:=crHandPoint;
end;

procedure TF_BGD.DBEdit35KeyPress(Sender: TObject; var Key: Char);
begin
  if not((key in ['0'..'9']) or (key in ['(',')','-',#8])) then
    key:=#0;
  if key = #13 then
     DBmemo1.SetFocus
   else
    exit;
end;

procedure TF_BGD.N3Click(Sender: TObject);
begin
  close;
end;

procedure TF_BGD.N1Click(Sender: TObject);
begin
  POPUPM:=3;
  Application.createform(Tf_xgdw,f_xgdw);
  F_XGDW.Showmodal;
end;
procedure TF_BGD.HandleMag(var Msg: TMessage);
begin
 case msg.WParam of
   0: SpeedButton2.Click;
   1: SpeedButton1.Click;
   end;
end;
procedure TF_BGD.FormCreate(Sender: TObject);
begin
 Dm.ADOTableBGD.Active:=true;
 Dm.ADOTableBGDChild.Active:=true;
 DM.ADOQueryBGDChild.Active:=true;
end;

procedure TF_BGD.DataSourceBGDDataChange(Sender: TObject; Field: TField);
begin
  if Dm.ADOTableBGD.RecNo=RecNoBGD then
  begin
    FlagBGD:=False;     //当数据有改动时，如果仍是当前记录，则设保存标志为假
  end
  else  begin
    RecNoBGD:=Dm.ADOTableBGD.RecNo;   //保存新记录指针
    if Dm.ADOTableBGD.RecordCount>0 then
    begin
      //DateTimePicker1.DateTime:=StrtoDateTime(Dm.ADOTableBGD.FieldByName('ChuKouDate').AsString);
      DateTimePicker1.DateTime:=Dm.ADOTableBGD.FieldByName('ChuKouDate').AsDateTime;
     // DateTimePicker2.DateTime:=Dm.ADOTableBGD.FieldByName('ShenBaoDate').AsDateTime;
      DateTimePicker3.DateTime:=Dm.ADOTableBGD.FieldByName('TZHRiQi').AsDateTime;
    end;
    {if DBEditDingDanNo.Text<>'' then
    begin
      with DM.ADOQueryBGDChild do
      begin
        Close;//Active:=False;
        SQL.Clear;
        //SQL.Add('select * from xs_BGDChild ');
        SQL.Add('select * from xs_BGDChild where DingDanNo='''+DBEditDingDanNo.Text+''' ');
        open;
        //Active:=True;
      end;
    end;}
   // Dm.ADOTableBGD.Cancel;
  end;

end;

procedure TF_BGD.DataSourceBGDChildDataChange(Sender: TObject;
  Field: TField);
begin
 FlagBGDChild:=False;
 if not Dm.ADOTableBGDChild.Active then
    Dm.ADOTableBGDChild.Active:=true;
 if Dm.ADOTableBGDChild.RecNo=RecNoBGD then
  begin
    FlagBGD:=False;     //当数据有改动时，如果仍是当前记录，则设保存标志为假
  end
  else  begin
    RecNoBGD:=Dm.ADOTableBGDChild.RecNo;   //保存新记录指针
    if Dm.ADOTableBGD.RecordCount>0 then
    begin

    end;
    if DBEditDingDanNo.Text<>'' then
    begin
123

⌨️ 快捷键说明

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