ypgl_xg_tj_.pas

医院mis系统,把数据库到入sql2000,有什么问题请直接和杨安(catan)联系 E:[e-mail] qq:48687078

unit ypgl_xg_tj_;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, ComCtrls, XPMenu;

type
  Typgl_xg_tj = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEbh: TDBEdit;
    Label2: TLabel;
    DBEmc: TDBEdit;
    Label5: TLabel;
    DBEzxjg: TDBEdit;
    Label3: TLabel;
    DBEjj: TDBEdit;
    Label4: TLabel;
    DBEsj: TDBEdit;
    Label9: TLabel;
    DateTimerk: TDateTimePicker;
    Label8: TLabel;
    DateTimedg: TDateTimePicker;
    DateTimegq: TDateTimePicker;
    Label7: TLabel;
    Label6: TLabel;
    DBEdgl: TDBEdit;
    Label10: TLabel;
    DBEgg: TDBEdit;
    Label11: TLabel;
    DBEdwsl: TDBEdit;
    Label13: TLabel;
    DBEzxdw: TDBEdit;
    Label12: TLabel;
    DBEgysbh: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn_cancel: TBitBtn;
    XPMenu1: TXPMenu;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn_cancelClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ypgl_xg_tj: Typgl_xg_tj;

implementation

uses DMypgl_;

{$R *.dfm}

procedure Typgl_xg_tj.BitBtn1Click(Sender: TObject);
begin
  //使edit,datetime为可修改状态
  dbebh.ReadOnly:=false;
  dbemc.ReadOnly:=false;
  dbejj.ReadOnly:=false;
  dbesj.ReadOnly:=false;
  dbezxjg.ReadOnly:=false;
  dbedgl.ReadOnly:=false;
  dbegg.ReadOnly:=false;
  dbedwsl.ReadOnly:=false;
  dbegysbh.ReadOnly:=false;
  Datetimedg.Enabled:=true;
  Datetimegq.Enabled:=true;
  Datetimerk.Enabled:=true;
end;

procedure Typgl_xg_tj.BitBtn5Click(Sender: TObject);
begin
if DBebh.text=''then
   showmessage('关键字段不可为空，请重新输入！！')
else   
 try
  begin
  DMypgl.ADOTypgl.Edit;
  //添加修改的记录
  DMypgl.ADOTypgl.FieldValues['编号']:=DBebh.Text;
  DMypgl.ADOTypgl.FieldValues['药品名称']:=DBemc.Text;
  DMypgl.ADOTypgl.FieldValues['进价']:=strtofloat(DBejj.Text);
  DMypgl.ADOTypgl.FieldValues['售价']:=strtofloat(DBesj.Text);
  DMypgl.ADOTypgl.FieldValues['最小价格']:=strtofloat(DBezxjg.Text);
  DMypgl.ADOTypgl.FieldValues['订购量']:=strtoint(DBedgl.Text);
  DMypgl.ADOTypgl.FieldValues['过期时间']:=DateTimegq.date;
  DMypgl.ADOTypgl.FieldValues['订购时间']:=DateTimedg.date;
  DMypgl.ADOTypgl.FieldValues['规格']:=DBEgg.text;
  DMypgl.ADOTypgl.FieldValues['入库时间']:=DateTimerk.date;
  DMypgl.ADOTypgl.FieldValues['单位数量']:=DBEdwsl.text;
  DMypgl.ADOTypgl.FieldValues['供应商编号']:=DBegysbh.text;
  Dmypgl.ADOTypgl.FieldValues['最小单位']:=DBEzxdw.Text;
  DMypgl.ADOTypgl.FieldValues['库存量']:=strtoint(DBedgl.Text);
  try
  DMypgl.ADOTypgl.Post;
  except
  end;

 //更新数据集
                DMypgl.adotgys.Close;
                DMypgl.ADOTgys.Open;

                Dmypgl.ADOQypgq.Close;
                Dmypgl.ADOQypgq.Open;

                DMypgl.ADOTypgl.Close;
                DMypgl.ADOTypgl.Open;


                DMypgl.ADOQyp_xg_tj.Close;
                DMypgl.ADOQyp_xg_tj.Open;

                DMYpgl.ADOQgys.Close;
                DMypgl.adoqgys.Open;

                DMypgl.ADOTyp.Close;
                DMypgl.ADOTyp.Open;

                DMypgl.ADOTgys2.Close;
                DMypgl.ADOTgys2.Open;

                DMypgl.ADOQgys_modify.Close;
                DMypgl.ADOQgys_modify.Open;

                DMypgl.ADOQqhgys.Close;
                DMypgl.adoqqhgys.Open;
                
  showmessage('数据修改成功！！');
  end;
 except
  showmessage('不匹配的输入');
 end;
end;


procedure Typgl_xg_tj.BitBtn_cancelClick(Sender: TObject);
begin
DMypgl.ADOTypgl.Cancel;
end;

procedure Typgl_xg_tj.FormActivate(Sender: TObject);
begin
  dbebh.ReadOnly:=true;
  dbemc.ReadOnly:=true;
  dbejj.ReadOnly:=true;
  dbesj.ReadOnly:=true;
  dbezxjg.ReadOnly:=true;
  dbedgl.ReadOnly:=true;
  dbegg.ReadOnly:=true;
  dbedwsl.ReadOnly:=true;
  dbegysbh.ReadOnly:=true;
  Datetimedg.Enabled:=false;
  Datetimegq.Enabled:=false;
  Datetimerk.Enabled:=false;
end;

end.