customer_unit.pas

仓库管理系统 貌似是ACCESS的数据库

unit Customer_Unit;

interface

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

type
  TfrmCustomer = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label9: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    dbGrdCustomerInfo: TDBGrid;
    edtCustomerID: TDBEdit;
    edtCustomerName: TDBEdit;
    edtCustomerSpell: TDBEdit;
    edtHandset: TDBEdit;
    edtRemark: TDBEdit;
    edtLinkman: TDBEdit;
    edtFax: TDBEdit;
    edtTel: TDBEdit;
    ControlBar1: TControlBar;
    CoolBar2: TCoolBar;
    sbtnFirst: TSpeedButton;
    sbtnPrior: TSpeedButton;
    sbtnNext: TSpeedButton;
    sbtnLast: TSpeedButton;
    CoolBar3: TCoolBar;
    sbtnAdd: TSpeedButton;
    sbtnSave: TSpeedButton;
    Bevel1: TBevel;
    sbtnExit: TSpeedButton;
    sbtnDelete: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure edtCustomerIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtCustomerNameKeyPress(Sender: TObject; var Key: Char);
    procedure edtCustomerSpellKeyPress(Sender: TObject; var Key: Char);
    procedure edtLinkmanKeyPress(Sender: TObject; var Key: Char);
    procedure edtHandsetKeyPress(Sender: TObject; var Key: Char);
    procedure edtTelKeyPress(Sender: TObject; var Key: Char);
    procedure edtFaxKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure sbtnFirstClick(Sender: TObject);
    procedure sbtnPriorClick(Sender: TObject);
    procedure sbtnNextClick(Sender: TObject);
    procedure sbtnLastClick(Sender: TObject);
    procedure sbtnAddClick(Sender: TObject);
    procedure sbtnSaveClick(Sender: TObject);
    procedure sbtnDeleteClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure sbtnExitClick(Sender: TObject);
  private
    InNo:string;                    //类型编号
  public
    { Public declarations }
  end;

var
  frmCustomer: TfrmCustomer;

implementation

uses DM_Unit, Vendor_Unit;

{$R *.dfm}

procedure TfrmCustomer.edtCustomerIDKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_RETURN then
  begin
    if trim(edtCustomerID.text)='' then
    begin
      if DM.sdsCustomer.State <> dsInsert then
        DM.DataSetInsert(DM.sdsCustomer);
      DM.OfferTypeID('select CustomerID from WMS_Customer where CustomerID like'+#39+'RK'+formatdatetime('yyyymmdd',now)+'%'+#39,InNo);
      edtCustomerID.text:='RK'+formatdatetime('yyyymmdd',now)+'000'+InNo;
      edtCustomerName.setfocus;
    end
    else
    begin
      edtCustomerName.setfocus;
    end;
  end;  
end;

procedure TfrmCustomer.edtCustomerNameKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    edtCustomerSpell.SetFocus;
end;

procedure TfrmCustomer.edtCustomerSpellKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    edtLinkman.SetFocus;
end;

procedure TfrmCustomer.edtLinkmanKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtHandset.SetFocus;
end;

procedure TfrmCustomer.edtHandsetKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtTel.SetFocus;
end;

procedure TfrmCustomer.edtTelKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtFax.SetFocus;
end;

procedure TfrmCustomer.edtFaxKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtRemark.SetFocus;
end;

procedure TfrmCustomer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.sdsCustomer.Close;
  Action:=caFree;
  frmVendor:=nil;
end;

procedure TfrmCustomer.FormCreate(Sender: TObject);
begin
  DM.sdsCustomer.Open;
end;

procedure TfrmCustomer.sbtnFirstClick(Sender: TObject);
begin
  DM.DataSetFirst(DM.sdsCustomer);
end;

procedure TfrmCustomer.sbtnPriorClick(Sender: TObject);
begin
  DM.DataSetPrior(DM.sdsCustomer);
end;

procedure TfrmCustomer.sbtnNextClick(Sender: TObject);
begin
  DM.DataSetNext(DM.sdsCustomer);
end;

procedure TfrmCustomer.sbtnLastClick(Sender: TObject);
begin
  DM.DataSetLast(DM.sdsCustomer);
end;

procedure TfrmCustomer.sbtnAddClick(Sender: TObject);
begin
  DM.DataSetInsert(DM.sdsCustomer);
  edtCustomerID.SetFocus;
end;

procedure TfrmCustomer.sbtnSaveClick(Sender: TObject);
begin
  DM.DataSetSave(DM.sdsCustomer);
end;

procedure TfrmCustomer.sbtnDeleteClick(Sender: TObject);
begin
  DM.DataSetDelete(DM.sdsCustomer);
end;

procedure TfrmCustomer.SpeedButton1Click(Sender: TObject);
begin
  DM.DataSetCancel(DM.sdsCustomer);
end;

procedure TfrmCustomer.sbtnExitClick(Sender: TObject);
begin
  Close;
end;

end.