yaorukugl.pas

delphi制作的校医院收费系统

unit yaorukugl;

interface

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

type
  Trukuf = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    ImageList1: TImageList;
    Panel2: TPanel;
    Bevel1: TBevel;
    b_add: TBitBtn;
    b_del: TBitBtn;
    b_find: TBitBtn;
    b_help: TBitBtn;
    b_print: TBitBtn;
    b_close: TBitBtn;
    b_insert: TBitBtn;
    b_save: TBitBtn;
    b_dele: TBitBtn;
    b_cancel: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure b_addClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure b_closeClick(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure b_deleClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_printClick(Sender: TObject);
    procedure b_insertClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rukuf: Trukuf;
   flag:boolean;
implementation

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

procedure Trukuf.FormShow(Sender: TObject);
begin
    dmgl.dm_yaopingl.rukuzong.Active:=true;
    dmgl.dm_yaopingl.rukuxi.Active:=true;
    dmgl.dm_yaopingl.kucunf.Active:=true;
    
end;

procedure Trukuf.b_addClick(Sender: TObject);
begin
     dmgl.dm_yaopingl.rukuzong.Append;
     dmgl.dm_yaopingl.rukuzong.Fields[1].AsString:=login.Form1.DBEdit1.Text;
     dmgl.dm_yaopingl.rukuzong.Fields[2].AsDateTime:=strtodate(formatdatetime('yyyy-mm-dd',now));
     dmgl.dm_yaopingl.rukuzong.Post;
     
end;

procedure Trukuf.b_delClick(Sender: TObject);
begin
     dmgl.dm_yaopingl.rukuzong.Delete;
end;

procedure Trukuf.b_closeClick(Sender: TObject);
begin
   close;
end;

procedure Trukuf.b_cancelClick(Sender: TObject);
begin
    dmgl.dm_yaopingl.rukuxi.Cancel;
end;

procedure Trukuf.b_deleClick(Sender: TObject);
begin
    dmgl.dm_yaopingl.rukuxi.Delete;
end;

procedure Trukuf.b_saveClick(Sender: TObject);
begin
  if flag then
      begin
        flag:=false;
        dmgl.dm_yaopingl.rukuxi.Edit;
      end
  else
      begin
          flag:=true;
          dmgl.dm_yaopingl.rukuxi.Post;
      end;
end;

procedure Trukuf.b_printClick(Sender: TObject);
begin
    showmessage('此项功能还未开通');
end;

procedure Trukuf.b_insertClick(Sender: TObject);
begin
     yaotianxiedan.yaodan:=yaotianxiedan.Tyaodan.Create(application);
      yaotianxiedan.yaodan.showmodal;
     if yaotianxiedan.yaodan.ModalResult=mrok then
     begin
          if yaotianxiedan.yaodan.Edit1.Text='' then
          begin
              yaotianxiedan.yaodan.Free;
              exit;
          end
          else
          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(''''+yaotianxiedan.yaodan.Edit1.Text+'''');
          dmgl.dm_yaopingl.ADOQuery1.Open;
          if dmgl.dm_yaopingl.ADOQuery1.FieldCount<1 then
          begin
                dmgl.dm_yaopingl.ADOQuery1.Edit;
                 dmgl.dm_yaopingl.ADOQuery1.Fields[1].AsString:=yaotianxiedan.yaodan.Edit1.Text;
                dmgl.dm_yaopingl.ADOQuery1.Fields[2].AsString:=yaotianxiedan.yaodan.ComboBox1.Text;
                dmgl.dm_yaopingl.ADOQuery1.Fields[3].AsDateTime:=yaotianxiedan.yaodan.DateTimePicker1.date;
                      dmgl.dm_yaopingl.ADOQuery1.Fields[4].AsDateTime:=yaotianxiedan.yaodan.DateTimePicker3.date;
                 dmgl.dm_yaopingl.ADOQuery1.Fields[5].AsString:=yaotianxiedan.yaodan.ComboBox2.Text;
                  dmgl.dm_yaopingl.ADOQuery1.Fields[6].AsFloat:=strtofloat(yaotianxiedan.yaodan.Edit2.Text);
                 dmgl.dm_yaopingl.ADOQuery1.Fields[7].AsFloat:=strtofloat(yaotianxiedan.yaodan.Edit2.Text)*1.14;
                 dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger:=dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger+strtoint(yaotianxiedan.yaodan.Edit4.Text);
                dmgl.dm_yaopingl.ADOQuery1.Post;
          end
          else
          begin
                dmgl.dm_yaopingl.ADOQuery1.Append;
                dmgl.dm_yaopingl.ADOQuery1.Fields[1].AsString:=yaotianxiedan.yaodan.Edit1.Text;
                dmgl.dm_yaopingl.ADOQuery1.Fields[2].AsString:=yaotianxiedan.yaodan.ComboBox1.Text;
                dmgl.dm_yaopingl.ADOQuery1.Fields[3].AsDateTime:=yaotianxiedan.yaodan.DateTimePicker1.date;
                      dmgl.dm_yaopingl.ADOQuery1.Fields[4].AsDateTime:=yaotianxiedan.yaodan.DateTimePicker3.date;
                 dmgl.dm_yaopingl.ADOQuery1.Fields[5].AsString:=yaotianxiedan.yaodan.ComboBox2.Text;
                  dmgl.dm_yaopingl.ADOQuery1.Fields[6].AsFloat:=strtofloat(yaotianxiedan.yaodan.Edit2.Text);
                 dmgl.dm_yaopingl.ADOQuery1.Fields[7].AsFloat:=strtofloat(yaotianxiedan.yaodan.Edit2.Text)*1.14;
                 dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger:=strtoint(yaotianxiedan.yaodan.Edit4.Text);
                 dmgl.dm_yaopingl.ADOQuery1.Post;
          end;
          dmgl.dm_yaopingl.rukuxi.Append;
          dmgl.dm_yaopingl.rukuxi.Fields[1].AsInteger:=dmgl.dm_yaopingl.rukuzong.Fields[0].AsInteger;
          dmgl.dm_yaopingl.rukuxi.Fields[2].AsString:= yaotianxiedan.yaodan.Edit1.Text;
          dmgl.dm_yaopingl.rukuxi.Fields[3].AsString:= yaotianxiedan.yaodan.ComboBox1.Text;
          dmgl.dm_yaopingl.rukuxi.Fields[4].AsString:= yaotianxiedan.yaodan.Edit3.Text;
          dmgl.dm_yaopingl.rukuxi.Fields[5].AsDateTime:= yaotianxiedan.yaodan.DateTimePicker1.Date;
          dmgl.dm_yaopingl.rukuxi.Fields[6].AsDateTime:= yaotianxiedan.yaodan.DateTimePicker3.Date;
          dmgl.dm_yaopingl.rukuxi.Fields[7].AsDateTime:= yaotianxiedan.yaodan.DateTimePicker2.Date;
          dmgl.dm_yaopingl.rukuxi.Fields[8].AsInteger:=strtoint( yaotianxiedan.yaodan.ComboBox2.Text);
          dmgl.dm_yaopingl.rukuxi.Fields[9].AsFloat:=strtofloat( yaotianxiedan.yaodan.Edit2.Text);
          dmgl.dm_yaopingl.rukuxi.Fields[10].AsInteger:=strtoint( yaotianxiedan.yaodan.Edit4.Text);
          dmgl.dm_yaopingl.rukuxi.Fields[11].AsFloat:=(strtofloat( yaotianxiedan.yaodan.Edit2.Text))*(strtofloat( yaotianxiedan.yaodan.Edit4.Text));
          dmgl.dm_yaopingl.rukuxi.Post;

         end;
          yaotianxiedan.yaodan.Free;
         exit;
     end;

end;

end.