departedfrm.pas

医药连锁经营管理系统源码

unit DepartEdFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, RzPanel, RzEdit, RzRadChk, StdCtrls, Mask,
  RzDBChk, RzDBEdit, DB, DBClient, ceGlobal;

type
  TFmDepartEd = class(TForm)
    RzPanel1: TRzPanel;
    BtnOK: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RzEdit2: TRzDBEdit;
    RzEdit3: TRzDBEdit;
    RzEdit4: TRzDBEdit;
    RzEdit5: TRzDBEdit;
    RzCheckBox1: TRzDBCheckBox;
    edNo: TRzNumericEdit;
    edPrefix: TRzEdit;
    dsDeparts: TDataSource;
    lbHint: TLabel;
    procedure BtnOKClick(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    sNewDepartNo, sNewDepartName: String;
  end;

var
  FmDepartEd: TFmDepartEd;

implementation

uses DepartFrm;

{$R *.dfm}

procedure TFmDepartEd.BtnOKClick(Sender: TObject);
begin
  sNewDepartNo := edNo.Text;
  sNewDepartName := dsDeparts.DataSet.FieldByName('DepartName').AsString;
  if (sNewDepartNo='')or(sNewDepartName='') then begin
    Application.MessageBox('请输入部门(公司)编号及名称！', '消息', MB_ICONINFORMATION);
    Exit;
  end;
  sNewDepartNo := edPrefix.Text+sNewDepartNo;
  dsDeparts.DataSet.FieldByName('DepartNo').AsString := sNewDepartNo;
  dsDeparts.DataSet.Post;
  if TClientDataSet(dsDeparts.DataSet).ApplyUpdates(0)>0 then
    raise Exception.Create('数据提交失败！');
  ModalResult := mrOK;
end;

procedure TFmDepartEd.RzBitBtn2Click(Sender: TObject);
begin
  dsDeparts.DataSet.Cancel;
  TClientDataSet(dsDeparts.DataSet).CancelUpdates;
  Close;
end;

procedure TFmDepartEd.FormShow(Sender: TObject);
var i: integer;
    s: String;
begin
  for i:=0 to edNo.MaxLength-1 do
    s := s+'0';
  edNo.DisplayFormat := s;
  RzEdit2.SetFocus;
end;

procedure TFmDepartEd.RzEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin
    btnOk.SetFocus;
    BtnOKClick(Sender);
  end;
end;

procedure TFmDepartEd.FormCreate(Sender: TObject);
begin
  Color := FormBackColor;
end;

end.