mzshg.~pas

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

           dmmzshg.dm_mzshg.ADOTable1.Open;
            dmmzshg.dm_mzshg.ADOTable1.Append;
             dmmzshg.dm_mzshg.ADOTable1.Fields[1].AsString:=login.Form1.DBEdit1.Text;
              dmmzshg.dm_mzshg.ADOTable1.Fields[2].AsDateTime:=strtodate(edit3.Text);
               dmmzshg.dm_mzshg.ADOTable1.Fields[3].AsString:=edit8.Text;
                dmmzshg.dm_mzshg.ADOTable1.Fields[4].AsString:=combobox1.Items[combobox1.itemindex];
                 dmmzshg.dm_mzshg.ADOTable1.Fields[5].AsFloat:=strtofloat(edit6.Text);
                  dmmzshg.dm_mzshg.ADOTable1.Fields[6].AsInteger:=strtoint(edit5.Text);
                   dmmzshg.dm_mzshg.ADOTable1.Post;
    end;

end;

procedure Tmzshgf.Button1Click(Sender: TObject);
begin
       edit12.Text:='0';
             edit1.Text:='';
             edit2.Text:='';
             edit3.Text:='';
             edit4.Text:='';
             edit5.Text:='';
             edit6.Text:='';
             edit7.Text:='';
             edit8.Text:='';
             edit9.Text:='';
             edit10.Text:='';
             edit11.Text:='';
             button2.Enabled:=false;
             edit1.SetFocus;

end;

procedure Tmzshgf.Button2Click(Sender: TObject);
var i,j:integer;
      f10,f1,f2,f3,f4,f5,f6,f7,f8,f9:real;
begin
j:=0;
f10:=0;
f1:=0;
f2:=0;
f3:=0;
f4:=0;
f5:=0;
f6:=0;
f7:=0;
f8:=0;
f9:=0;
if not dmmzshg.dm_mzshg.adojiesuan.Active  then
      dmmzshg.dm_mzshg.adojiesuan.Open;
     dmmzshg.dm_mzshg.adojiesuan.Append;
      dmmzshg.dm_mzshg.adojiesuan.Fields[1].AsInteger:=strtoint(edit1.Text);
       dmmzshg.dm_mzshg.adojiesuan.Fields[2].AsString:=edit2.Text;
        dmmzshg.dm_mzshg.adojiesuan.Fields[3].AsDateTime:=strtodate(edit3.Text);
         dmmzshg.dm_mzshg.adojiesuan.Fields[14].AsString:=combobox2.Items[combobox2.itemindex];
          dmmzshg.dm_mzshg.adojiesuan.Fields[15].AsFloat:=strtofloat(edit12.Text);
         dmmzshg.dm_mzshg.adomingxi.Close;
          dmmzshg.dm_mzshg.adomingxi.SQL.Clear;
           dmmzshg.dm_mzshg.adomingxi.SQL.Add('select * from 门诊收费明细表 where 挂号编号=');
           dmmzshg.dm_mzshg.adomingxi.SQL.Add(''''+edit1.Text+'''');
           dmmzshg.dm_mzshg.adomingxi.Open;
           for i:=0 to dmmzshg.dm_mzshg.adomingxi.RecordCount-1 do
           begin
                 if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='中药' then
                      j:=0;
                  if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='西药' then
                      j:=1;
                  if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='中成药' then
                      j:=2;
                   if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='手术' then
                      j:=3;
                  if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='输液' then
                      j:=4;
                   if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='检查' then
                      j:=5;
                    if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='治疗' then
                      j:=6;
                    if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='化验' then
                      j:=7;
                     if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='拍片' then
                      j:=8;
                      if trim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)='其它' then
                      j:=9;
                 case j of
                 0:f1:=f1+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 1:f2:=f2+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 2:f3:=f3+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 3:f4:=f4+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 4:f5:=f5+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 5:f6:=f6+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 6:f7:=f7+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 7:f8:=f8+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 8:f9:=f9+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 9:f10:=f10+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat;
                 end;
                  dmmzshg.dm_mzshg.ADOkucun.Close;
                  dmmzshg.dm_mzshg.ADOkucun.SQL.Clear;
                  dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select * from 药品库存表 where 药品名称=');
                  dmmzshg.dm_mzshg.ADOkucun.SQL.Add(''''+trim(dmmzshg.dm_mzshg.adomingxi.Fields[2].asstring)+'''');
                  dmmzshg.dm_mzshg.ADOkucun.Open;
                  if dmmzshg.dm_mzshg.ADOkucun.RecordCount<>0 then
                  begin
                      dmmzshg.dm_mzshg.ADOkucun.Edit;
                      dmmzshg.dm_mzshg.ADOkucun.Fields[8].AsInteger:=dmmzshg.dm_mzshg.ADOkucun.Fields[8].AsInteger-dmmzshg.dm_mzshg.adomingxi.Fields[4].AsInteger;
                      dmmzshg.dm_mzshg.ADOkucun.Post;
                  end;
                 dmmzshg.dm_mzshg.adomingxi.Next;
           end;
             dmmzshg.dm_mzshg.adojiesuan.Fields[4].AsFloat:=f1;
             dmmzshg.dm_mzshg.adojiesuan.Fields[5].AsFloat:=f2;
             dmmzshg.dm_mzshg.adojiesuan.Fields[6].AsFloat:=f3;
             dmmzshg.dm_mzshg.adojiesuan.Fields[7].AsFloat:=f4;
             dmmzshg.dm_mzshg.adojiesuan.Fields[8].AsFloat:=f5;
             dmmzshg.dm_mzshg.adojiesuan.Fields[9].AsFloat:=f6;
             dmmzshg.dm_mzshg.adojiesuan.Fields[10].AsFloat:=f7;
             dmmzshg.dm_mzshg.adojiesuan.Fields[11].AsFloat:=f8;
             dmmzshg.dm_mzshg.adojiesuan.Fields[12].AsFloat:=f9;
             dmmzshg.dm_mzshg.adojiesuan.Fields[13].AsFloat:=f10;
             dmmzshg.dm_mzshg.adojiesuan.Post;
             edit12.Text:='0';
             edit1.Text:='';
             edit2.Text:='';
             edit3.Text:='';
             edit4.Text:='';
             edit5.Text:='';
             edit6.Text:='';
             edit7.Text:='';
             edit8.Text:='';
             edit9.Text:='';
             edit10.Text:='';
             edit11.Text:='';
             button2.Enabled:=false;
             edit1.SetFocus;
             dmmzshg.dm_mzshg.ADOkucun.Close;
             dmmzshg.dm_mzshg.ADOkucun.SQL.Clear;
             dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select * from 药品库存表');
             dmmzshg.dm_mzshg.ADOkucun.Open;

end;

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

procedure Tmzshgf.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        edit4.Text:=floattostr(strtofloat(edit10.Text)-strtofloat(edit11.Text));
    end;
end;

procedure Tmzshgf.Button3Click(Sender: TObject);
begin
      showmessage('此功能还未开通');
end;

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

procedure Tmzshgf.Edit8KeyPress(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(''''+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;
end;

procedure Tmzshgf.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if  dmmzshg.dm_mzshg.ADOkucun.RecNo mod 2= 0 then
    begin
         dbgrid1.Canvas.Font.Color:=clblue;
         dbgrid1.Canvas.Brush.Color:=cllime;
         dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
    end
    else
    begin
         dbgrid1.Canvas.Font.Color:=clblue;
         dbgrid1.Canvas.Brush.Color:=clwhite;
         dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
    end;
end;

procedure Tmzshgf.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
     if  dmmzshg.dm_mzshg.adojiesuan.RecNo mod 2=0 then
     begin
           dbgrid2.Canvas.Font.Color:=clblue;
         dbgrid2.Canvas.Brush.Color:=cllime;
         dbgrid2.DefaultDrawColumnCell(rect,datacol,column,state);
    end
    else
    begin
         dbgrid2.Canvas.Font.Color:=clblue;
         dbgrid2.Canvas.Brush.Color:=clwhite;
         dbgrid2.DefaultDrawColumnCell(rect,datacol,column,state);
    end;
end;

procedure Tmzshgf.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if   dmmzshg.dm_mzshg.adomingxi.RecNo mod 2=0 then
    begin
          dbgrid3.Canvas.Font.Color:=clblue;
         dbgrid3.Canvas.Brush.Color:=cllime;
         dbgrid3.DefaultDrawColumnCell(rect,datacol,column,state);
    end
    else
    begin
         dbgrid3.Canvas.Font.Color:=clblue;
         dbgrid3.Canvas.Brush.Color:=clwhite;
         dbgrid3.DefaultDrawColumnCell(rect,datacol,column,state);
    end;
end;

end.