custlinkmansin.pas

群星医药系统源码

unit CustLinkmansIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ComCtrls, RzDTP, RzDBDTP, StdCtrls, RzCmboBx,
  RzDBCmbo, Mask, DBCtrls, RzDBEdit, RzBorder, RzLabel, ExtCtrls, RzPanel,
  RzEdit, xBaseFrm, ceGlobal;

type
  TFmCustLinkMans = class(TxBaseForm)
    RzPanel3: TRzPanel;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel13: TRzLabel;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    edName: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBComboBox1: TRzDBComboBox;
    RzDBDateTimePicker1: TRzDBDateTimePicker;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBEdit9: TRzDBEdit;
    RzDBEdit10: TRzDBEdit;
    RzDBEdit11: TRzDBEdit;
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmCustLinkMans: TFmCustLinkMans;

implementation

uses CustomerFrm;

{$R *.dfm}

procedure TFmCustLinkMans.RzBitBtn5Click(Sender: TObject);
begin
  If edName.Text='' Then Begin
    Messagebox(Handle,Pchar('联系人名称不能为空！'),'警告',16);
    Exit;
  End;
  ModalResult:=mrOk;
end;

procedure TFmCustLinkMans.RzBitBtn6Click(Sender: TObject);
begin
  Close;
end;

procedure TFmCustLinkMans.FormCreate(Sender: TObject);
begin
  Color := FormBackColor;
  //RzDBDateTimePicker1必须指定一个值，不然当用户按下下拉按钮不选择日期而点窗体
  //其它部分时，出现：You must be in Showcheckbox mode to set to this date 的错误。
  RzDBDateTimePicker1.DateTime :=Now-20*365;
end;

end.