hcckedit.~pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

unit HCCKedit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFRM_hcckedit = class(TForm)
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    txtspbh: TEdit;
    txtspmc: TEdit;
    txtspgg: TEdit;
    comspxz: TComboBox;
    txtdw: TEdit;
    txtshdj: TEdit;
    txtpc: TEdit;
    txtjhdj: TEdit;
    txtjhje: TEdit;
    txtcbdj: TEdit;
    txtjxcjl: TEdit;
    txtmax: TEdit;
    txtjhsl: TEdit;
    txtxhsl: TEdit;
    txtlykl: TEdit;
    comspzt: TComboBox;
    comczzt: TComboBox;
    txtqhbz: TEdit;
    combzq: TComboBox;

    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure txtjhdjEnter(Sender: TObject);
    procedure txtjhdjExit(Sender: TObject);
    procedure txtjhdjKeyPress(Sender: TObject; var Key: Char);
    procedure txtjhslKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtjhslKeyPress(Sender: TObject; var Key: Char);
    procedure txtjhslExit(Sender: TObject);
    procedure txtjhslEnter(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_hcckedit: TFRM_hcckedit;

implementation

uses  HCCKD;



{$R *.dfm}




procedure TFRM_hcckedit.Button3Click(Sender: TObject);
begin
   close;
end;
procedure TFRM_hcckedit.Button2Click(Sender: TObject);
begin
if (txtspbh.Text='') then
    begin
      showmessage(' 商品编号不能为空');
      txtspbh.SetFocus;
      txtspbh.Color:=clskyblue;
      exit;
    end;
 {if (txtspmc.Text='')  then
   begin
      showmessage(' 商品名称不能为空');
      txtspmc.SetFocus;
      txtspmc.Color:=clskyblue;
      exit;
   end; }
 if (txtjhdj.Text='')  then
   begin
      showmessage(' 进货单价不能为空');
      txtjhdj.SetFocus;
      txtjhdj.Color:=clskyblue;
      exit;
   end;
 if (txtjhsl.text='')  then
    begin
      showmessage(' 领用数量不能为空');
      txtjhsl.SetFocus;
      txtjhsl.Color:=clskyblue;
      exit;
    end;
     frm_HCCKD.StringGrid1.Cells[1,frm_HCCKD.cell]:=trim(txtspbh.text); //编号
     frm_HCCKD.StringGrid1.Cells[2,frm_HCCKD.cell]:=trim(txtspmc.Text); //名称
     frm_HCCKD.StringGrid1.Cells[3,frm_HCCKD.cell]:=trim(txtspgg.text); //地质
     frm_HCCKD.StringGrid1.Cells[4,frm_HCCKD.cell]:=trim(txtdw.text); //电话
     frm_HCCKD.StringGrid1.Cells[5,frm_HCCKD.cell]:=trim(txtjhdj.text); //传真
     frm_HCCKD.StringGrid1.Cells[6,frm_HCCKD.cell]:=trim(txtjhsl.text); //状态
     frm_HCCKD.StringGrid1.Cells[7,frm_HCCKD.cell]:=trim(txtjhje.text);
     frm_HCCKD.StringGrid1.Cells[8,frm_HCCKD.cell]:=trim(txtpc.text);  //邮政编码
     close;
end;

procedure TFRM_hcckedit.txtjhdjEnter(Sender: TObject);
begin
txtjhdj.Color:=clskyblue;
end;

procedure TFRM_hcckedit.txtjhdjExit(Sender: TObject);
begin
txtjhdj.Color:=clwindow;
end;

procedure TFRM_hcckedit.txtjhdjKeyPress(Sender: TObject; var Key: Char);
begin
if key=#8  then key:=#8
else
if key='.' then key:='.'
else
if key=#13 then
  begin
  txtjhsl.enabled:=true;
  txtjhsl.SetFocus;
  txtjhsl.Color:=clskyblue;
  end
  {if txtjhsl.text='' then
  begin
  showmessage('数量不能为空');
  txtjhje.Text:=floattostr(strtofloat(txtjhdj.Text)*strtofloat(txtjhsl.text));
  end}
else
if (key>'9') or (key<'0') then
   key:=#0;
end;


procedure TFRM_hcckedit.txtjhslKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=8 then key:=8
else
if key=13 then key:=0
else
if (key>105) or (key>57) and (key<96) or (key<48)  then key:=0
else
//[/formatfloat('0.00',(StrTo1int(stringgrid1.Cells[6,X])*StrToFloat(stringgrid1.Cells[5,X])));   //计算合计金额
  // label7.Caption:=stringgrid1.Cells[7,X];}
txtjhje.Text:=formatfloat('0.00',strtofloat(txtjhdj.Text)*strtofloat(txtjhsl.text));
end;

procedure TFRM_hcckedit.txtjhslKeyPress(Sender: TObject; var Key: Char);
begin
if key=#8  then key:=#8
else
if key=#13 then
  begin
  if txtjhsl.text='' then
  begin
  showmessage('数量不能为空');
  txtjhsl.SetFocus;
  exit;
  end;
  txtjhsl.Color:=clwindow;
  button2.SetFocus;

  end
else
if (key>'9') or (key<'0') then
   key:=#0;
end;

procedure TFRM_hcckedit.txtjhslExit(Sender: TObject);
begin
txtjhsl.Color:=clwindow;
end;

procedure TFRM_hcckedit.txtjhslEnter(Sender: TObject);
begin
txtjhsl.Color:=clskyblue;
end;

procedure TFRM_hcckedit.FormShow(Sender: TObject);
begin
txtjhdj.Enabled:=true;
txtjhdj.SetFocus;
txtjhdj.Color:=clskyblue;
end;

end.