provedfrm.pas

来自「医药连锁经营管理系统源码」· PAS 代码 · 共 159 行

unit ProvEdFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, RzCmboBx, Mask, RzEdit, ComCtrls, RzBtnEdt,Variants,
  ExtCtrls, RzPanel, Buttons, DB, DBClient, MConnect, RzDTP, DBCtrls,
  RzDBEdit, RzDBDTP, RzDBCmbo, RzButton, RzRadChk, RzDBChk, RzDBBnEd,
  RzBorder, ceGlobal;

type
  TFmProvEd = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label11: TLabel;
    Label14: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label24: TLabel;
    edProvNo: TRzDBEdit;
    edName: TRzDBEdit;
    edPostCode: TRzDBEdit;
    edAccountBank: TRzDBEdit;
    edTaxNo: TRzDBEdit;
    edPermitNo: TRzDBEdit;
    edAccountNo: TRzDBEdit;
    edCompetency: TRzDBEdit;
    edLinkMan: TRzDBEdit;
    edMobile: TRzDBEdit;
    edCorpName: TRzDBEdit;
    edFax: TRzDBEdit;
    edLinkTel: TRzDBEdit;
    edCorpDuty: TRzDBEdit;
    edWorkingBound: TRzDBEdit;
    edWorkingMode: TRzDBEdit;
    edQualityPar: TRzDBEdit;
    edOwnerKind: TRzDBEdit;
    edSubjectDept: TRzDBEdit;
    edTrade: TRzDBComboBox;
    edRelation: TRzDBComboBox;
    edCredit: TRzDBNumericEdit;
    CkPause: TRzDBCheckBox;
    edArea: TRzDBEdit;
    edAddress: TRzDBEdit;
    RzDBEdit1: TRzDBEdit;
    DlgBtnOk: TRzBitBtn;
    DlgBtnCancel: TRzBitBtn;
    edRemark: TRzDBEdit;
    CoKind: TRzDBComboBox;
    RzBorder1: TRzBorder;
    dsProvEd: TDataSource;
    Label7: TLabel;
    edEmpNo: TRzDBButtonEdit;
    Label12: TLabel;
    edProvPyCode: TRzDBEdit;
    Label15: TLabel;
    edCreditDays: TRzDBNumericEdit;
    procedure DlgBtnOkClick(Sender: TObject);
    procedure DlgBtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure edEmpNoButtonClick(Sender: TObject);
    procedure edNameChange(Sender: TObject);
  private
    { Private declarations }
    AbleClose : Boolean;
  public
    { Public declarations }
  end;

var
  FmProvEd: TFmProvEd;

implementation

uses ProviderFrm, SelectEmpFrm;

{$R *.DFM}

procedure TFmProvEd.DlgBtnOkClick(Sender: TObject);
Var VarString : String;
begin
	If (edProvNo.text='')or(edName.Text='')then begin
    Messagebox(handle,'编号和名称不能为空！','厂商资料',MB_OK);
    Exit;
  end;
  varString := coKind.text;
  If varString<>'' Then Begin
    TClientDataSet(dsProvEd.DataSet).FieldByName('PayModeNo').Value := copy(varString,1,pos(':',varString)-1);
    delete(varString,1,pos(':',varString));
  end;
  with TClientDataSet(dsProvEd.DataSet) do Begin
    FieldByName('PayModeName').Value := copy(varString,1,pos(':',varString)-1);;
    If ApplyUpdates(0)>0 Then begin
      Application.MessageBox('数据提交失败！', '消息', MB_ICONINFORMATION);
      SetForegroundWindow(Handle);
      Exit;
    end;
  end;
  AbleClose := True;
  ModalResult := MrOK;
End;

procedure TFmProvEd.DlgBtnCancelClick(Sender: TObject);
begin
  AbleClose := True;
  Close;
end;

procedure TFmProvEd.FormCreate(Sender: TObject);
begin
  AbleClose := False;
  Color := FormBackColor;
end;

procedure TFmProvEd.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := AbleClose;
end;

procedure TFmProvEd.edEmpNoButtonClick(Sender: TObject);
var EmpNo: string;
begin
  if SelectEmp(EmpNo) then
    edEmpNo.Field.AsString := EmpNo;
end;

procedure TFmProvEd.edNameChange(Sender: TObject);
var s: string;
begin
  //如果不经过中间变量s的转换，调用DLL时偶然出错
  s := edName.Text;
  s := BuildSpellHeadOfHZ(s);
  edProvPyCode.Text := s;
end;

end.