mzshg.~pas

是用于:毕业设计使用! 首先运行数据库还原目录中的PROJECT,将数据库还原 如果还原失败,则进行手动还原,数据库名:data 本次毕业设计任务是通过开发一个数据库校医院门诊收费管理系统

unit mzshg;

interface

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

type
  Tmzshgf = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    Bevel2: TBevel;
    Panel6: TPanel;
    Label6: TLabel;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Label9: TLabel;
    Edit5: TEdit;
    Label10: TLabel;
    Edit6: TEdit;
    Label11: TLabel;
    Edit7: TEdit;
    Label12: TLabel;
    Edit8: TEdit;
    Label13: TLabel;
    Edit9: TEdit;
    Button5: TButton;
    Label14: TLabel;
    ListBox1: TListBox;
    Edit4: TEdit;
    Edit10: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    Panel7: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label17: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mzshgf: Tmzshgf;

implementation

{$R *.dfm}  uses dmmzshg,login;

procedure Tmzshgf.FormShow(Sender: TObject);
var i:integer;
begin
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    edit6.Text:='';
    edit7.Text:='';
    edit8.Text:='';
    edit9.Text:='';
    edit10.Text:='';
    edit11.Text:='';
    edit12.text:='0';
    dmmzshg.dm_mzshg.ADOyisheng.Close;
    dmmzshg.dm_mzshg.ADOyisheng.SQL.Clear;
    dmmzshg.dm_mzshg.ADOyisheng.SQL.Add('select * from 医生表');
    dmmzshg.dm_mzshg.ADOyisheng.Open;
    combobox2.Items.Clear;
    for i:=0 to dmmzshg.dm_mzshg.ADOyisheng.RecordCount-1 do
    begin
        combobox2.Items.Add(dmmzshg.dm_mzshg.ADOyisheng.Fields[1].asstring);
        dmmzshg.dm_mzshg.ADOyisheng.Next;
    end;
    combobox2.Text:='医生姓名';
    combobox2.ItemIndex:=-1;
    dmmzshg.dm_mzshg.ADOkucun.Close;
    dmmzshg.dm_mzshg.ADOkucun.SQL.Clear;
    dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select * from 药品库存表');
    dmmzshg.dm_mzshg.ADOkucun.Open;
    dmmzshg.dm_mzshg.adojiesuan.Close;
    dmmzshg.dm_mzshg.adojiesuan.SQL.Clear;
    dmmzshg.dm_mzshg.adojiesuan.SQL.Add('select * from 门诊收费结算表');
    dmmzshg.dm_mzshg.adojiesuan.Open;
    dmmzshg.dm_mzshg.adojiesuan.Last;
    dmmzshg.dm_mzshg.adomingxi.Close;
    dmmzshg.dm_mzshg.adomingxi.SQL.Clear;
    dmmzshg.dm_mzshg.adomingxi.SQL.Add('select * from 门诊收费明细表');
    dmmzshg.dm_mzshg.adomingxi.Open;
    dmmzshg.dm_mzshg.adomingxi.Last;
    dmmzshg.dm_mzshg.ADOchaxun.Close;
    dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear;
    dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select distinct 药品种类  from 药品库存表');
    dmmzshg.dm_mzshg.ADOchaxun.Open;
    combobox1.Items.Clear;
    for i:=0 to dmmzshg.dm_mzshg.ADOchaxun.RecordCount-1 do
    begin
        combobox1.Items.Add(dmmzshg.dm_mzshg.ADOchaxun.Fields[0].asstring);
        dmmzshg.dm_mzshg.ADOchaxun.Next;
    end;
    combobox1.Text:='收费项目';
    combobox1.ItemIndex:=-1;
end;

procedure Tmzshgf.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        dmmzshg.dm_mzshg.ADOchaxun.Close;
        dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear;
        dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select * from 挂号表 where 挂号编号=');
        dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+edit1.Text+'''');
        dmmzshg.dm_mzshg.ADOchaxun.Open;
        if dmmzshg.dm_mzshg.ADOchaxun.RecordCount<>0 then
        begin
              edit2.Text:=dmmzshg.dm_mzshg.ADOchaxun.Fields[1].AsString;
              edit3.Text:=datetostr(dmmzshg.dm_mzshg.ADOchaxun.Fields[3].AsDateTime);
        end;
        edit12.Text:='0';
    end;
end;
procedure Tmzshgf.ComboBox1Click(Sender: TObject);
var i:integer;
    ss:string;
begin
     ss:=combobox1.Items[combobox1.itemindex];
     dmmzshg.dm_mzshg.ADOchaxun.Close;
     dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear;
     dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select 药品名称 from 药品库存表 where 药品种类=');
     dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+ss+'''');
     dmmzshg.dm_mzshg.ADOchaxun.Open;
     if dmmzshg.dm_mzshg.ADOchaxun.RecordCount<>0 then
     begin
          listbox1.Items.Clear;
          for i:=0 to dmmzshg.dm_mzshg.ADOchaxun.RecordCount-1 do
          begin
                listbox1.Items.Add(dmmzshg.dm_mzshg.ADOchaxun.Fields[0].asstring);
                dmmzshg.dm_mzshg.ADOchaxun.Next;
          end;
     end;
    edit5.Text:='';
    edit6.Text:='';
    edit7.Text:='';
    edit8.Text:=''; 

end;

procedure Tmzshgf.ListBox1DblClick(Sender: TObject);
begin
    edit8.Text:=listbox1.Items[listbox1.itemindex];
    edit5.SetFocus;
    dmmzshg.dm_mzshg.ADOchaxun.Close;
    dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear;
    dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select * from 药品库存表 where 药品名称=');
    dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+edit8.Text+'''');
    dmmzshg.dm_mzshg.ADOchaxun.Open;
    if dmmzshg.dm_mzshg.ADOchaxun.RecordCount<>0 then
    begin
          edit9.Text:=dmmzshg.dm_mzshg.ADOchaxun.Fields[5].AsString;
          edit6.Text:=floattostr(dmmzshg.dm_mzshg.ADOchaxun.Fields[7].AsFloat);
    end;
end;

procedure Tmzshgf.Edit5KeyPress(Sender: TObject; var Key: Char);
 var f1:real;
     f2:real;
begin
    if key=#13 then
    begin
          f1:=strtofloat(edit5.Text);
          f2:=strtofloat(edit6.Text);
          f2:=f1*f2;
          edit7.Text:=format('%3.2f',[f2]);
           if not  dmmzshg.dm_mzshg.adomingxi.Active then
       dmmzshg.dm_mzshg.adomingxi.Open;
      dmmzshg.dm_mzshg.adomingxi.Append;
      edit12.Text:=floattostr(strtofloat(edit7.Text)+strtofloat(edit12.Text));
       dmmzshg.dm_mzshg.adomingxi.Fields[1].AsInteger:=strtoint(edit1.Text);
        dmmzshg.dm_mzshg.adomingxi.Fields[2].AsString:=edit8.Text;
         dmmzshg.dm_mzshg.adomingxi.Fields[3].AsString:=edit9.Text;
          dmmzshg.dm_mzshg.adomingxi.Fields[4].AsInteger:=strtoint(edit5.Text);
           dmmzshg.dm_mzshg.adomingxi.Fields[5].AsFloat:=strtofloat(edit6.Text);
            dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat:=strtofloat(edit7.Text);
             dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString:=combobox1.Items[combobox1.itemindex];
         dmmzshg.dm_mzshg.adomingxi.Post;
          dmmzshg.dm_mzshg.adomingxi.Last;
          button2.Enabled:=true;
         dmmzshg.dm_mzshg.ADOTable1.Close;
          dmmzshg.dm_mzshg.ADOTable1.TableName:='药品出库表';