📄 u_mxd.~pas

📁 相关的销售服务管理行业的一个软件
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    dbCheckBox2.ReadOnly:=true;
    RadioGroup1.Enabled:=false;
    DateTimePicker1.Enabled:=false;
    SpeedButton2.Enabled:=false;
    FlagMXD:=True;
    F_MXD.Caption:='货物明细单管理';
    Application.MessageBox('数据保存成功！','提示',0+64);
  except
    Application.MessageBox('数据保存错误，请重新输入！', '明细单管理',0+16);
  end;
  
end;

procedure TF_MXD.DateTimePicker1Change(Sender: TObject);
begin
  if DBEditDingDanNo.Text='' then
    Exit;
  DM.ADOTableMXD.Edit;
  DM.ADOTableMXD.FieldByName('ZhuangYunDate').AsDateTime:=DateTimePicker1.Date;
end;

procedure TF_MXD.RadioGroup1Click(Sender: TObject);
begin
  DM.ADOTableMXD.Edit;
  case RadioGroup1.ItemIndex of
    0: DM.ADOTableMXD.FieldByName('HuoWuXZH').AsString:='贸易';
    1: DM.ADOTableMXD.FieldByName('HuoWuXZH').AsString:='补偿';
    2: DM.ADOTableMXD.FieldByName('HuoWuXZH').AsString:='退运';
    3: DM.ADOTableMXD.FieldByName('HuoWuXZH').AsString:='其它';
  end;
end;

procedure TF_MXD.FormShow(Sender: TObject);
var
  bMXD,dbmxd1,dbmxd2:string;

begin
 { FlagMXD:=True;
  DM.ADOTableMXD.Edit;
  if DBEditDingDanNo.Text <>'' then
    begin
      DateTimePicker1.Date:=DM.ADOTableMXD.FieldByName('ZhuangYunDate').AsDateTime;
      StrMXD:=DM.ADOTableMXD.FieldByName('HuoWuXZH').AsString;
      bmxd:=DM.ADOTableMXD.FieldByName('FenPi').Asstring;
      if StrMXD='贸易' then
        RadioGroup1.ItemIndex:=0;
        //F_MXD.RadioGroup1Click(Sender);
      if StrMXD='补偿' then
        RadioGroup1.ItemIndex:=1;
        //F_MXD.RadioGroup1Click(Sender);
      if StrMXD='退运' then
        RadioGroup1.ItemIndex:=2;
        //F_MXD.RadioGroup1Click(Sender);
      if StrMXD='其它' then
        RadioGroup1.ItemIndex:=3;
        //
      dbmxd2:=DM.ADOTableMXD.FieldByName('ZhuanYun').AsString;
      dbmxd1:=DM.ADOTableMXD.FieldByName('FenPi').Asstring;
      if dbmxd2='YES' then
        dbCheckBox2.Checked:=True
      else
        dbCheckBox2.Checked:=False;
      if dbmxd1='YES' then
        dbCheckBox1.Checked:=True
      else
        dbCheckBox1.Checked:=False;
    end
  else
    DateTimePicker1.Date:=Now; }
  case PageControl1.ActivePageIndex of
  0:  DBEditDingDanNo.SetFocus;
  1:  DBMemo1.SetFocus;
  end;
end;

procedure TF_MXD.Panel1DblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  IF F_MXDCX=NIL THEN APPLICATION.CreateForm(TF_MXDCX,F_MXDCX);
  //F_MXDCX:=TF_MXDCX.Create(self);
  F_MXDCX.PageControl1.ActivePageIndex:=0;
  F_MXDCX.Show;
end;

procedure TF_MXD.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if SpeedButton2.Enabled then
   if  (Application.MessageBox('数据尚未保存，是否保存'+#13+'该数据并退出应用程序？','提示',4+32)=IDYes) then
    SpeedButton2Click(self)
    else begin
      DM.ADOTablemxd.Cancel;
      exit;
    end;
  if SpeedButton2.Enabled then
    begin
      CanClose := False;
      Exit;
    end;
end;

procedure TF_MXD.FormActivate(Sender: TObject);
begin
  frmmain.Label1.Caption:='货物明细单管理';
  POPUPM:=0;
  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from xs_mxd where DingDanNo='''+DBEditDingDanNo.Text+'''');
  ADOQuery1.Open;
  DateTimePicker1.DateTime:=ADOQuery1.FieldByName('ZhuangYunDate').AsDateTime;
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
 { if Tmxd=true then
  begin
  if DM.ADOTableMXD.RecordCount<=0 then
    exit;
  DM.ADOTableMXD.Last;
  F_MXD.DateTimePicker1.Date:=DM.ADOTableMXD.FieldByName('ZhuangYunDate').AsDateTime;
  Tmxd:=false;
  end;}
  RegisterHotKey(Handle,0,MOD_CONTROL,83);
  RegisterHotKey(Handle,1,MOD_CONTROL,65);
end;

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

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

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

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

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

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

procedure TF_MXD.N1Click(Sender: TObject);
begin
  POPUPM:=5;
  Application.createform(Tf_xgdw,f_xgdw);
  F_XGDW.Showmodal;
end;

procedure TF_MXD.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
  {if not((key in ['0'..'9']) or (key='.')) then
    key:=#0;     }
   if key = #13 then
     DBEdit2.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEditDingDanNoKeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit2.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBMemo10.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit4.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBMemo11.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit8.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DateTimePicker1.SetFocus
   else
    exit;
end;

procedure TF_MXD.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit10.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit11.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBCheckBox1.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBCheckBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBCheckBox2.SetFocus
   else
    exit;
end;

procedure TF_MXD.DBCheckBox2KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBMemo1.SetFocus
   else
    exit;
end;

procedure TF_MXD.HandleMag(var Msg: TMessage);
begin
 case msg.wparam of
  0:SpeedButton2.Click;
  1:SpeedButton1.Click;
  end;
end;
procedure TF_MXD.FormCreate(Sender: TObject);
begin
DM.ADOTableMXD.Active:=true;
ADOQuery1.Active:=true;
end;

procedure TF_MXD.DataSourceMXDDataChange(Sender: TObject; Field: TField);
var
  dbmxd1,dbmxd2:string;
begin
 if dm.ADOTableMXD.RecNo=RecNoMXD then
  begin
    FlagMXD:=False;     //当数据有改动时，如果仍是当前记录，则设保存标志为假
  end
  else  begin
    RecNoMXD:=DM.ADOTableMXD.RecNo;   //保存新记录指针
    DM.ADOTableMXD.Edit;
    DateTimePicker1.DateTime:=DM.ADOTableMXD.FieldByName('ZhuangYunDate').AsDateTime;
    StrMXD:=DM.ADOTableMXD.FieldByName('HuoWuXZH').AsString;
    if StrMXD='贸易' then
      RadioGroup1.ItemIndex:=0;
    if StrMXD='补偿' then
      RadioGroup1.ItemIndex:=1;
    if StrMXD='退运' then
      RadioGroup1.ItemIndex:=2;
    if StrMXD='其它' then
      RadioGroup1.ItemIndex:=3;
/////////
   dbmxd2:=DM.ADOTableMXD.FieldByName('ZhuanYun').AsString;
    if dbmxd2='YES' then      //Trim()函数去掉字符串中的空格
      dbCheckBox2.Checked:=True
    else
      dbCheckBox2.Checked:=False;
    dbmxd1:=DM.ADOTableMXD.FieldByName('FenPi').AsString;
    if dbmxd1='YES' then
      dbCheckBox1.Checked:=True
    else
      dbCheckBox1.Checked:=False;
    //DM.ADOTableMXD.Cancel; //9.21
  end;
end;

end.
上一页 12
⌨️ 快捷键说明

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