sprcdnew.pas

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

unit sprcdnew;

interface

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

type
  Tfrm_sprcnew = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    txtspbh: TEdit;
    txtspmc: TEdit;
    txtspgg: TEdit;
    comspxz: TComboBox;
    txtdw: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    txtshdj: TEdit;
    txtdqkc: TEdit;
    Label6: TLabel;
    txtjhdj: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    txtjhje: TEdit;
    txtcbdj: TEdit;
    Label10: TLabel;
    txtjxcjl: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    txtmax: TEdit;
    Label13: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    txtjhsl: TEdit;
    Label21: TLabel;
    txtxhsl: TEdit;
    Label22: TLabel;
    txtlykl: TEdit;
    comspzt: TComboBox;
    comczzt: TComboBox;
    txtqhbz: TEdit;
    combzq: TComboBox;
    Button4: TButton;
    DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure txtspbhExit(Sender: TObject);
    procedure txtspbhKeyPress(Sender: TObject; var Key: Char);
    {procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char); }
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    {procedure Edit6KeyPress(Sender: TObject; var Key: Char);}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure txtspbhEnter(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure txtspmcEnter(Sender: TObject);
    procedure txtspggEnter(Sender: TObject);
    procedure txtdwEnter(Sender: TObject);
    procedure txtshdjEnter(Sender: TObject);
    procedure txtdqkcEnter(Sender: TObject);
    procedure txtjhdjEnter(Sender: TObject);
    procedure txtcbdjEnter(Sender: TObject);
    procedure txtjhjeEnter(Sender: TObject);
    procedure txtqhbzEnter(Sender: TObject);
    procedure txtjxcjlEnter(Sender: TObject);
    procedure txtmaxEnter(Sender: TObject);
    procedure txtjhslEnter(Sender: TObject);
    procedure txtxhslEnter(Sender: TObject);
    procedure txtlyklEnter(Sender: TObject);
    procedure txtspmcExit(Sender: TObject);
    procedure txtspggExit(Sender: TObject);
    procedure txtdwExit(Sender: TObject);
    procedure txtshdjExit(Sender: TObject);
    procedure txtdqkcExit(Sender: TObject);
    procedure txtjhdjExit(Sender: TObject);
    procedure txtcbdjExit(Sender: TObject);
    procedure txtjhjeExit(Sender: TObject);
    procedure txtqhbzExit(Sender: TObject);
    procedure txtjxcjlExit(Sender: TObject);
    procedure txtmaxExit(Sender: TObject);
    procedure txtjhslExit(Sender: TObject);
    procedure txtxhslExit(Sender: TObject);
    procedure txtlyklExit(Sender: TObject);
    procedure txtspmcKeyPress(Sender: TObject; var Key: Char);
    procedure txtspggKeyPress(Sender: TObject; var Key: Char);
    procedure txtdwKeyPress(Sender: TObject; var Key: Char);
    procedure txtshdjKeyPress(Sender: TObject; var Key: Char);
    procedure txtdqkcKeyPress(Sender: TObject; var Key: Char);
    procedure txtjhdjKeyPress(Sender: TObject; var Key: Char);
    procedure txtcbdjKeyPress(Sender: TObject; var Key: Char);
    procedure txtjhjeKeyPress(Sender: TObject; var Key: Char);
    procedure txtqhbzKeyPress(Sender: TObject; var Key: Char);
    procedure txtjxcjlKeyPress(Sender: TObject; var Key: Char);
    procedure txtmaxKeyPress(Sender: TObject; var Key: Char);
    procedure txtjhslKeyPress(Sender: TObject; var Key: Char);
    procedure txtxhslKeyPress(Sender: TObject; var Key: Char);
    procedure txtlyklKeyPress(Sender: TObject; var Key: Char);
    procedure comspxzChange(Sender: TObject);
    procedure comspztChange(Sender: TObject);
    procedure combzqChange(Sender: TObject);
    procedure sprcdnewadd;
    procedure txtclear;
    procedure txtjhslKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtspbhChange(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sprcnew: Tfrm_sprcnew;

implementation

uses  date1, sprcd;

{$R *.dfm}
function checkhcbh(str:string):boolean;
var i:integer;
begin
    checkhcbh:=false;
    for i:=1 to frm_sprcd.StringGrid1.RowCount-2 do
    begin
    if trim(str)=frm_sprcd.StringGrid1.Cells[1,i] then
       begin
       showmessage('栏目中已经存在商品编号');
       frm_sprcnew.txtspmc.Clear;
       frm_sprcnew.txtspgg.Clear;
       frm_sprcnew.txtjhdj.Clear;
       frm_sprcnew.txtdw.Clear;
       frm_sprcnew.txtdqkc.Clear;
       frm_sprcnew.txtspbh.SetFocus;
       frm_sprcnew.txtspbh.clear;
       frm_sprcnew.txtspbh.SelectAll;
       checkhcbh:=true;
       exit;
       end;
    end;
end;

procedure Tfrm_sprcnew.Button1Click(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;
   sprcdnewadd;// 新增 耗材库存
   txtspbh.SetFocus;
   txtspbh.Color:=clskyblue;
end;
procedure Tfrm_sprcnew.FormCreate(Sender: TObject);
begin
   txtclear;
end;
procedure Tfrm_sprcnew.txtspbhExit(Sender: TObject);
var i:integer;
begin
    txtspbh.Color:=clwindow;

end;
//现实状态
procedure Tfrm_sprcnew.txtspbhKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
 with data do
    begin
    aq1.Connection :=adoc1;
    with aq1 do
    begin
    //检查此耗材是否属于此供应商
    close;
    sql.Clear;
    sql.Add('select * from hcda where hcbh=:hcbh and csbh=:csbh');
    aq1.Parameters.ParamByName('hcbh').Value:=trim(txtspbh.text);
    aq1.Parameters.ParamByName('csbh').Value:=
    copy(trim(frm_sprcd.txtcsbh.items[frm_sprcd.txtcsbh.itemindex]),1,4);
    open;
   if  aq1.Recordset.RecordCount>0 then
       begin
       txtspmc.text:=trim(aq1.fieldbyname('hcmc').value);
       txtjhdj.SetFocus;
       txtjhdj.color:=clskyblue;
       end
    else
       begin
       showmessage('不存在');
       //txtspbh.setsetfoucs;
       txtspbh.color:=clskyblue;
       txtspbh.selectall;
       exit;
       end;
    end;
    end;
    end;
end;
procedure Tfrm_sprcnew.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;
   sprcdnewadd;// 新增 耗材库存
 close;
end;
procedure Tfrm_sprcnew.Button3Click(Sender: TObject);
begin
   close;
end;

{procedure Tfrm_csztnew.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
     begin
     edit6.Color:=clwindow;
     edit7.SetFocus;
     edit7.Color:=claqua;
     end;
end; }


procedure Tfrm_sprcnew.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    action:=cafree;
end;

procedure Tfrm_sprcnew.txtspbhEnter(Sender: TObject);
begin
txtspbh.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.FormShow(Sender: TObject);
begin
 txtspbh.SetFocus;
end;

procedure Tfrm_sprcnew.txtspmcEnter(Sender: TObject);
begin
//txtspbh.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtspggEnter(Sender: TObject);
begin
//txtspgg.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtdwEnter(Sender: TObject);
begin
//txtdw.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtshdjEnter(Sender: TObject);
begin
//txtshdj.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtdqkcEnter(Sender: TObject);
begin
//txthydj.Color:=clskyblue;
end;

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

procedure Tfrm_sprcnew.txtcbdjEnter(Sender: TObject);
begin
//txtcbdj.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtjhjeEnter(Sender: TObject);
begin
//txtcdbh.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtqhbzEnter(Sender: TObject);
begin
//txtqhbz.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtjxcjlEnter(Sender: TObject);
begin
//txtjxcjl.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtmaxEnter(Sender: TObject);
begin
//txtmax.Color:=clskyblue;
end;

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

procedure Tfrm_sprcnew.txtxhslEnter(Sender: TObject);
begin
//txtxhsl.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtlyklEnter(Sender: TObject);
begin
//txtlykl.Color:=clskyblue;
end;

procedure Tfrm_sprcnew.txtspmcExit(Sender: TObject);
begin
 //if not txtspmc.Focused then
  //  txtspmc.Color:=clwindow;
end;

procedure Tfrm_sprcnew.txtspggExit(Sender: TObject);