yaochukugldan.pas

delphi制作的校医院收费系统

unit yaochukugldan;

interface

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

type
  Tyaochukugl = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yaochukugl: Tyaochukugl;

implementation

{$R *.dfm} uses dmgl,login,yaochukudd;


procedure Tyaochukugl.BitBtn4Click(Sender: TObject);
begin
     close;
end;

procedure Tyaochukugl.BitBtn3Click(Sender: TObject);
begin
    dmgl.dm_yaopingl.chuku.Cancel;
end;

procedure Tyaochukugl.BitBtn2Click(Sender: TObject);
begin
          dmgl.dm_yaopingl.ADOQuery1.Close;
          dmgl.dm_yaopingl.ADOQuery1.SQL.Clear;
          dmgl.dm_yaopingl.ADOQuery1.SQL.Add('select * from 药品库存表 where 药品名称=');
          dmgl.dm_yaopingl.ADOQuery1.SQL.Add(''''+dmgl.dm_yaopingl.chuku.Fields[3].AsString+'''');
          dmgl.dm_yaopingl.ADOQuery1.Open;
          if dmgl.dm_yaopingl.ADOQuery1.FieldCount<>0 then
          begin
                dmgl.dm_yaopingl.ADOQuery1.Edit;
                dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger:=dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger-dmgl.dm_yaopingl.chuku.Fields[6].AsInteger;
                dmgl.dm_yaopingl.ADOQuery1.Post;
          end ;
    dmgl.dm_yaopingl.chuku.Delete;
end;

procedure Tyaochukugl.BitBtn1Click(Sender: TObject);
begin
    yaochukudd.yaochukud:=yaochukudd.Tyaochukud.Create(application);
    yaochukudd.yaochukud.showmodal;
     if yaochukudd.yaochukud.ShowModal=mrok then
     begin
         if  yaochukudd.yaochukud.Edit1.Text='' then
         begin
                yaochukudd.yaochukud.Free;
                exit;
         end;
          dmgl.dm_yaopingl.chuku.Active:=true;
          dmgl.dm_yaopingl.chuku.Append;
          dmgl.dm_yaopingl.chuku.Fields[1].AsString:=login.Form1.DBEdit1.Text;
          dmgl.dm_yaopingl.chuku.Fields[2].AsDateTime:=strtodate(formatdatetime('yyyy-mm-dd',now));
          dmgl.dm_yaopingl.chuku.Fields[3].AsString:=yaochukudd.yaochukud.Edit1.Text;
          dmgl.dm_yaopingl.chuku.Fields[4].AsString:=yaochukudd.yaochukud.ComboBox1.Items[yaochukudd.yaochukud.ComboBox1.itemindex];
          dmgl.dm_yaopingl.chuku.Fields[5].AsFloat:=strtofloat(yaochukudd.yaochukud.Edit3.Text);
          dmgl.dm_yaopingl.chuku.Fields[7].AsString:=yaochukudd.yaochukud.Edit4.Text;
          dmgl.dm_yaopingl.chuku.Fields[6].AsInteger:=strtoint(yaochukudd.yaochukud.Edit2.Text);
           dmgl.dm_yaopingl.ADOQuery1.Close;
          dmgl.dm_yaopingl.ADOQuery1.SQL.Clear;
         dmgl.dm_yaopingl.ADOQuery1.SQL.Add('select * from 药品库存表 where 药品名称=');
          dmgl.dm_yaopingl.ADOQuery1.SQL.Add(''''+yaochukudd.yaochukud.Edit1.Text+'''');
         dmgl.dm_yaopingl.ADOQuery1.Open;
         if dmgl.dm_yaopingl.ADOQuery1.FieldCount<>0 then
         begin
               dmgl.dm_yaopingl.ADOQuery1.Edit;
               dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger:=dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger-dmgl.dm_yaopingl.chuku.Fields[6].AsInteger;
                dmgl.dm_yaopingl.ADOQuery1.Post;
          end ;
          dmgl.dm_yaopingl.chuku.Post;
          yaochukudd.yaochukud.Free;
    end;
end;

end.