u_bgjc.pas

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

unit U_BGJC;

interface

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

type
  TF_BGJC = class(TForm)
    Panel1: TPanel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    ToolBar1: TToolBar;
    Button1: TBitBtn;
    Button3: TBitBtn;
    Button4: TBitBtn;
    Button2: TBitBtn;
    DBNavigator1: TDBNavigator;
    Button5: TBitBtn;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Bevel1: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure HandleMag(var Msg: TMessage);message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  F_BGJC: TF_BGJC;
  FlagBGJC:boolean;
implementation
uses U_DM,Umain;
{$R *.DFM}

procedure TF_BGJC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  F_bgjc:=nil;
  Action:=caFree;
end;

procedure TF_BGJC.Button1Click(Sender: TObject);
begin
  DBEdit7.ReadOnly:=false;
  DBEdit1.ReadOnly:=false;
  DBEdit2.ReadOnly:=false;
  DBEdit3.ReadOnly:=false;
  DBEdit4.ReadOnly:=false;
  DBEdit5.ReadOnly:=false;
  DBEdit6.ReadOnly:=false;
  if DM.ADOTableBGJC.RecordCount<=0 then
    FlagBGJC:=False;     //如果没有记录，则将保存标志设置为假
  DBEdit7.SetFocus;
  DM.ADOTableBGJC.Close;
  DM.ADOTableBGJC.Open;
  DM.ADOTableBGJC.Append;
  FlagBGJC:=false;
  Button2.Enabled:=true;
end;

procedure TF_BGJC.Button2Click(Sender: TObject);
begin
  if FlagBGJC then
    begin
      Application.MessageBox('该数据已保存！','提示',0+64);
      Exit;
    end;
  try
///////
  DM.ADOqueryBGJC.Active:=false;
  DM.ADOqueryBGJC.SQL.Clear;
  DM.ADOqueryBGJC.SQL.Add('select * from xs_bgjc');
  DM.ADOqueryBGJC.Open;
  while not DM.ADOqueryBGJC.Eof do begin
    if DBEdit7.Text=DM.ADOqueryBGJC.FieldByName('YunShuBy').value then
      begin
      Application.MessageBox('数据库中已存有该数据！','运输方式',0+64);
      exit;
      end;
      if DBEdit1.Text=DM.ADOqueryBGJC.FieldByName('MaoYiBy').value then
      begin
      Application.MessageBox('数据库中已存有该数据！','贸易方式',0+64);
      exit;
      end;
      if DBEdit2.Text=DM.ADOqueryBGJC.FieldByName('FaHuoUnit').value then
      begin
      Application.MessageBox('数据库中已存有该数据！','发货单位',0+64);
      exit;
      end;
      if DBEdit3.Text=DM.ADOqueryBGJC.FieldByName('JieHuiBy').value then
      begin
      Application.MessageBox('数据库中已存有该数据！','结汇方式',0+64);
      exit;
      end;
      if DBEdit4.Text=DM.ADOqueryBGJC.FieldByName('YunDiCountry').value then
      begin
      Application.MessageBox('数据库中已存有该数据！','运抵国（地区）',0+64);
      exit;
      end;
      if DBEdit5.Text=DM.ADOqueryBGJC.FieldByName('ZhiYunPort').value then
      begin
      Application.MessageBox('数据库中已存有该数据！','指运港',0+64);
      exit;
      end;
      if DBEdit6.Text=DM.ADOqueryBGJC.FieldByName('ChengJiaoBy').value then
      begin
      Application.MessageBox('数据库中已存有该数据！','成交方式',0+64);
      exit;
     end;
     DM.ADOqueryBGJC.Next;
    end;
    DM.ADOqueryBGJC.Active:=false;
///////
    DM.ADOTableBGJC.edit;
    DM.ADOTableBGJC.post;
    DBEdit7.ReadOnly:=true;
    DBEdit1.ReadOnly:=true;
    DBEdit2.ReadOnly:=true;
    DBEdit3.ReadOnly:=true;
    DBEdit4.ReadOnly:=true;
    DBEdit5.ReadOnly:=true;
    DBEdit6.ReadOnly:=true;
    FlagBGJC:=True;
    Button2.Enabled:=false;
    Application.MessageBox('数据保存成功！','提示',0+64);
    F_BGJC.Caption:='报关常用信息';
  except
    begin
      Application.MessageBox('数据保存错误，请重新输入！', '报关基础信息',0+16);
      exit;
    end;
  end;
end;

procedure TF_BGJC.Button5Click(Sender: TObject);
begin
  close;
end;

procedure TF_BGJC.Button4Click(Sender: TObject);
begin
try
  if  DM.ADOTableBGJC.RecordCount<=0 then
  begin
    Application.MessageBox('没有记录可以删除！','报关常用信息管理',0+16);
    FlagBGJC:=True;
    Exit;
  end
  else
   if Application.MessageBox('确实要删除此记录？','报关常用信息管理',4+16)=IDYES then
    begin
      DM.ADOTableBGJC.Delete;
      FlagBGJC:=True;
      Button2.Enabled:=false;
    end;
except
  Application.MessageBox('无法删除该记录！','删除记录错误',0+16);
end;
end;

procedure TF_BGJC.FormShow(Sender: TObject);
begin
  DBEdit7.SetFocus;
end;

procedure TF_BGJC.Button3Click(Sender: TObject);
begin
  if DM.ADOTableBGJC.RecordCount<=0 then
  begin
    Application.MessageBox('没有记录可以修改！','报关单货物信息',0+64);
    FlagBGJC:=True;
    Exit;
  end;
  F_BGJC.Caption:='修改报关常用信息';
  F_BGjc.Show;
  DBEdit7.ReadOnly:=false;
  DBEdit1.ReadOnly:=false;
  DBEdit2.ReadOnly:=false;
  DBEdit3.ReadOnly:=false;
  DBEdit4.ReadOnly:=false;
  DBEdit5.ReadOnly:=false;
  DBEdit6.ReadOnly:=false;
  DBEdit7.SetFocus;
  FlagBGJC:=false;
  Button2.Enabled:=true;
end;

procedure TF_BGJC.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Button1.Cursor:=crHandPoint;
end;

procedure TF_BGJC.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Button2.Cursor:=crHandPoint;
end;

procedure TF_BGJC.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Button3.Cursor:=crHandPoint;
end;

procedure TF_BGJC.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Button4.Cursor:=crHandPoint;
end;

procedure TF_BGJC.Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Button5.Cursor:=crHandPoint;
end;

procedure TF_BGJC.FormActivate(Sender: TObject);
begin
 RegisterHotKey(Handle,0,MOD_CONTROL,83);
 RegisterHotKey(Handle,1,MOD_CONTROL,65);
end;
procedure TF_BGJC.HandleMag(var Msg: TMessage);
begin
  case msg.WParam of
   0: Button2.Click;
   1: Button1.Click;
   end;
end;
procedure TF_BGJC.FormCreate(Sender: TObject);
begin
  DM.ADOTableBGJC.active:=true;
end;

procedure TF_BGJC.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  if DBEdit7.ReadOnly=false then
   if key = #13 then
     DBEdit1.SetFocus
   else
    exit;
end;

procedure TF_BGJC.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if DBEdit1.ReadOnly=false then
   if key = #13 then
     DBEdit2.SetFocus
   else
    exit;
end;

procedure TF_BGJC.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit2.ReadOnly=false then
   if key = #13 then
     DBEdit3.SetFocus
   else
    exit;
end;

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

procedure TF_BGJC.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit4.ReadOnly=false then
   if key = #13 then
     DBEdit5.SetFocus
   else
    exit;
end;

procedure TF_BGJC.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit5.ReadOnly=false then
   if key = #13 then
     DBEdit6.SetFocus
   else
    exit;
end;

procedure TF_BGJC.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit6.ReadOnly=false then
   if key = #13 then
   Button2.SetFocus
   else
    exit;
end;

end.