📄 zyglzong11.pas

📁 delphi制作的校医院收费系统
💻 PAS
字号:
unit zyglzong11;

interface

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

type
  Tzyglzong = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Label9: TLabel;
    Edit5: TEdit;
    Label10: TLabel;
    Edit6: TEdit;
    Label11: TLabel;
    Edit7: TEdit;
    Edit12: TEdit;
    Edit11: TEdit;
    Button5: TButton;
    Edit9: TEdit;
    Label13: TLabel;
    Edit8: TEdit;
    Label12: TLabel;
    Label14: TLabel;
    ListBox1: TListBox;
    Panel7: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Image1: TImage;
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zyglzong: Tzyglzong;

implementation

{$R *.dfm}    uses dmzong11;

procedure Tzyglzong.Button4Click(Sender: TObject);
begin
      close;
end;

procedure Tzyglzong.FormShow(Sender: TObject);
var i:integer;
begin
    dmzong11.dmzong.ADOQuery1.Close;
    dmzong11.dmzong.ADOQuery1.SQL.Clear;
    dmzong11.dmzong.ADOQuery1.SQL.Add('select * from 住院收费结算表');
    dmzong11.dmzong.ADOQuery1.Open;
     dmzong11.dmzong.ADOQuery2.Close;
     dmzong11.dmzong.ADOQuery2.SQL.Clear;
     dmzong11.dmzong.ADOQuery2.SQL.Add('select * from 住院收费明细表');
     dmzong11.dmzong.ADOQuery2.Open;
      dmzong11.dmzong.ADOQuery3.Close;
       dmzong11.dmzong.ADOQuery3.SQL.Clear;
      dmzong11.dmzong.ADOQuery3.SQL.Add('select * from 药品库存表');
      dmzong11.dmzong.ADOQuery3.Open;
      combobox1.Items.Clear;
      for i:=0 to dmzong11.dmzong.ADOQuery3.RecordCount-1 do
          begin
                combobox1.Items.Add(dmzong11.dmzong.ADOQuery3.Fields[2].asstring);
                dmzong11.dmzong.ADOQuery3.Next;
          end;
          combobox1.Text:='药品分类';
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
           edit5.Text:='';
            edit6.Text:='';
             edit7.Text:='';
              edit8.Text:='';
               edit9.Text:='';
                edit11.Text:='';
                  edit12.Text:='0';


end;

procedure Tzyglzong.ComboBox1Click(Sender: TObject);
var i:integer;
begin
    listbox1.Items.Clear;
     dmzong11.dmzong.ADOQuery3.Close;
       dmzong11.dmzong.ADOQuery3.SQL.Clear;
      dmzong11.dmzong.ADOQuery3.SQL.Add('select * from 药品库存表 where 药品种类=');
       dmzong11.dmzong.ADOQuery3.SQL.Add(''''+combobox1.Items[combobox1.itemindex]+'''');;
      dmzong11.dmzong.ADOQuery3.Open;
      for i:=0 to dmzong11.dmzong.ADOQuery3.RecordCount-1 do
      begin
           listbox1.Items.Add(dmzong11.dmzong.ADOQuery3.Fields[1].asstring);
           dmzong11.dmzong.ADOQuery3.Next;
      end;
          edit4.Text:='';
           edit5.Text:='';
            edit6.Text:='';
             edit7.Text:='';
              edit8.Text:='';
               edit9.Text:='';
               edit11.Text:='';
      
end;

procedure Tzyglzong.ListBox1DblClick(Sender: TObject);
begin
      dmzong11.dmzong.ADOQuery3.Close;
       dmzong11.dmzong.ADOQuery3.SQL.Clear;
      dmzong11.dmzong.ADOQuery3.SQL.Add('select * from 药品库存表 where 药品名称=');
       dmzong11.dmzong.ADOQuery3.SQL.Add(''''+listbox1.Items[listbox1.itemindex]+'''');;
      dmzong11.dmzong.ADOQuery3.Open;
      edit8.Text:=dmzong11.dmzong.ADOQuery3.Fields[1].AsString;
      edit9.Text:=dmzong11.dmzong.ADOQuery3.Fields[5].AsString;
      edit6.Text:=floattostr(dmzong11.dmzong.ADOQuery3.Fields[7].AsFloat);
      

end;

procedure Tzyglzong.Edit5KeyPress(Sender: TObject; var Key: Char);
  var f:real;
begin
     if key=#13 then
     begin
        f:=(strtofloat(edit6.Text))*(strtoint(edit5.Text));
        edit7.Text:=floattostr(f);
        edit12.Text:=floattostr((strtofloat(edit12.Text))+f);
          dmzong11.dmzong.ADOQuery2.Append;
            dmzong11.dmzong.ADOQuery2.Fields[1].AsInteger:=strtoint(edit1.Text);
              dmzong11.dmzong.ADOQuery2.Fields[2].AsString:=listbox1.Items[listbox1.itemindex];
                dmzong11.dmzong.ADOQuery2.Fields[3].AsString:=combobox1.Text;
                  dmzong11.dmzong.ADOQuery2.Fields[4].AsInteger:=strtoint(edit5.Text);
                    dmzong11.dmzong.ADOQuery2.Fields[5].AsFloat:=strtofloat(edit6.Text);
                      dmzong11.dmzong.ADOQuery2.Fields[6].AsFloat:=strtofloat(edit7.Text);
                        dmzong11.dmzong.ADOQuery2.Post;
     end;
end;

procedure Tzyglzong.Button5Click(Sender: TObject);
begin
    edit11.Text:=edit12.Text;
end;

procedure Tzyglzong.Button2Click(Sender: TObject);
var i:integer;
begin
     dmzong11.dmzong.ADOQuery1.Close;
     dmzong11.dmzong.ADOQuery1.SQL.Clear;
     dmzong11.dmzong.ADOQuery1.SQL.Add('select * from 住院收费结算表 where 病房号=');
     dmzong11.dmzong.ADOQuery1.SQL.Add(''''+edit1.Text+'''');
      dmzong11.dmzong.ADOQuery1.Open;
     dmzong11.dmzong.ADOQuery4.Close;
     dmzong11.dmzong.ADOQuery4.SQL.Clear;
     dmzong11.dmzong.ADOQuery4.SQL.Add('select 交款日期 from 预交款信息表 where 病房号=');
     dmzong11.dmzong.ADOQuery4.SQL.Add(''''+edit1.Text+'''');
     dmzong11.dmzong.ADOQuery4.Open;
     i:=(strtodate(formatdatetime('yyyy-mm-dd',now)))-dmzong11.dmzong.ADOQuery4.Fields[0].AsVariant;
      if dmzong11.dmzong.ADOQuery1.RecordCount<>0 then
      begin
          dmzong11.dmzong.ADOQuery1.Edit;
          dmzong11.dmzong.ADOQuery1.Fields[3].AsDateTime:=strtodate(formatdatetime('yyyy-mm-dd',now));
          dmzong11.dmzong.ADOQuery1.Fields[5].AsFloat:=dmzong11.dmzong.ADOQuery1.Fields[5].AsFloat+strtofloat(edit11.Text);
          dmzong11.dmzong.ADOQuery1.Fields[7].AsFloat:=i*30.0+20;
          dmzong11.dmzong.ADOQuery1.Fields[9].AsFloat:=dmzong11.dmzong.ADOQuery1.Fields[7].AsFloat+dmzong11.dmzong.ADOQuery1.Fields[5].AsFloat+dmzong11.dmzong.ADOQuery1.Fields[6].AsFloat;
          dmzong11.dmzong.ADOQuery1.Fields[9].AsFloat:=dmzong11.dmzong.ADOQuery1.Fields[9].AsFloat+dmzong11.dmzong.ADOQuery1.Fields[8].AsFloat;
          dmzong11.dmzong.ADOQuery1.Post;
      end
      else
          begin
          dmzong11.dmzong.ADOQuery1.Append;
          dmzong11.dmzong.ADOQuery1.Fields[3].AsDateTime:=strtodate(formatdatetime('yyyy-mm-dd',now));
          dmzong11.dmzong.ADOQuery1.Fields[5].AsFloat:=dmzong11.dmzong.ADOQuery1.Fields[5].AsFloat+strtofloat(edit11.Text);
          dmzong11.dmzong.ADOQuery1.Fields[7].AsFloat:=i*30.0+20;
          dmzong11.dmzong.ADOQuery1.Fields[9].AsFloat:=dmzong11.dmzong.ADOQuery1.Fields[7].AsFloat+dmzong11.dmzong.ADOQuery1.Fields[5].AsFloat+dmzong11.dmzong.ADOQuery1.Fields[6].AsFloat;
          dmzong11.dmzong.ADOQuery1.Fields[9].AsFloat:=dmzong11.dmzong.ADOQuery1.Fields[9].AsFloat+dmzong11.dmzong.ADOQuery1.Fields[8].AsFloat;
          dmzong11.dmzong.ADOQuery1.Fields[1].AsInteger:=strtoint(edit1.Text);
          dmzong11.dmzong.ADOQuery1.Fields[2].AsString:=edit3.Text;
          dmzong11.dmzong.ADOQuery1.Fields[4].AsString:=edit2.Text;
          dmzong11.dmzong.ADOQuery1.Post;
          end;
           combobox1.Text:='药品分类';
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
           edit5.Text:='';
            edit6.Text:='';
             edit7.Text:='';
              edit8.Text:='';
               edit9.Text:='';
                edit11.Text:='';
                  edit12.Text:='0';

end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -