unit1.pas

毕业设计

        for k:=1 to p do
         begin
          number1:=strtoint(copy(number,length(number),1));
           if number1=0 then
            begin
             number:=copy(number,1,length(number)-1);
             i:=i+1;
            end;
         end;
     begin
      moneywei:=0;
       for money:=length(number)downto 1 do
        begin
         nn:=copy(number,money,1);
         o:=moneywei+i;
         case strtoint(copy(nn,1,length(nn))) of
           1:wei1:='壹'; 2:wei1:='贰';
           3:wei1:='叁'; 4:wei1:='肆';
           5:wei1:='伍'; 6:wei1:='陆';
           7:wei1:='柒'; 8:wei1:='捌';
           9:wei1:='玖'; 0:wei1:='零';
         end;
         case o of
           0 :moneywei1:='元';
           1 :moneywei1:='拾';
           2 :moneywei1:='佰';
           3 :moneywei1:='千';
           4 :moneywei1:='万';
           5 :moneywei1:='拾';
           6 :moneywei1:='佰';
           7 :moneywei1:='千';
           8 :moneywei1:='亿';
           9 :moneywei1:='十';
           10:moneywei1:='佰';
           11:moneywei1:='千';
         end;
         inc(moneywei);
         BigMoney:=wei1+moneywei1+BigMoney;
         if number2=0 then
           edit7.Text:=bigmoney+'圆整'
         else
           edit7.Text:=bigmoney+'整'
         end;
         end;
      end
      else
      edit7.text:=SmallTOBig(strtofloat(edit6.text));
  end;

procedure TForm1.Button1Click(Sender: TObject);
const
  sq='''';
begin
  if (combobox3.text<>'') and (edit10.text<>'') then
    begin
    if combobox3.text='按收据号查看' then
     begin
         with Table1 do
           begin
             close;
             filtered:=true;
             filter:='收据号='+sq+edit10.text+sq;
             open;
            end;
           with Table2 do
           begin
             close;
             filtered:=true;
             filter:='病人姓名='+sq+edit10.text+sq;
             open;
             if table2.RecordCount=0 then
              label31.Caption:='此人无开支记录'
             else
              label31.Caption:='此人共有'+inttostr(table2.RecordCount)+'条记录';
            end;
            if not  table1.Locate('收据号',edit10.text,[]) then
              messagedlg('无此病人的记录',mterror,[mbok],0)
             else
              if not  table2.Locate('病人姓名',edit10.text,[]) then
              messagedlg('此病人无开支记录',mterror,[mbok],0)
         end;
    if combobox3.text='按日期查看' then
     begin
         with table1 do
           begin
             close;
             filtered:=true;
             filter:='日期='+sq+edit10.text+sq;
             open;
             if table1.RecordCount=0 then
              label38.Caption:='该天无住院记录'
             else
             label31.Caption:='该天共有'+inttostr(table1.RecordCount)+'条住院记录';
           end;
           with Table2 do
           begin
             close;
             filtered:=true;
             filter:='日期='+sq+edit10.text+sq;
             open;
             if table2.RecordCount=0 then
             label31.Caption:='该天没有开支记录'
             else
             label31.Caption:='该天共有'+inttostr(table2.RecordCount)+'条开支记录';
           end;
           if not  table1.Locate('日期',edit10.text,[]) then
              messagedlg('今天无病人的进院',mterror,[mbok],0)
             else
              if not  table2.Locate('病人姓名',edit10.text,[]) then
              messagedlg('今天无病人无开支记录',mterror,[mbok],0)
       end;
    if combobox3.text='按病室查看' then
       with Table1 do
         begin
           close;
           filtered:=true;
           filter:='病室='+sq+edit10.text+sq;
           open;
           label31.Hide;
           label38.Caption:='该病室现有病人'+inttostr(table1.RecordCount)+'位';
           if not  table1.Locate('病室',edit10.text,[]) then
              messagedlg('无此科室的记录',mterror,[mbok],0)
           end;
     if combobox3.text='按科室查看' then
       with Table1 do
         begin
           close;
           filtered:=true;
           filter:='住院科室='+sq+edit10.text+sq;
           open;
           label31.Hide;
           if table1.RecordCount=0 then
           label38.Caption:='该科室没有病人'
           else
           label38.Caption:='该科室已有'+inttostr(table1.RecordCount)+'人';
            if not  table1.Locate('住院科室',edit10.text,[]) then
              messagedlg('无此住院科室的记录',mterror,[mbok],0)
         end;
     if combobox3.text='按姓名查看' then
        with Table1 do
           begin
             close;
             filtered:=true;
             filter:='姓名='+sq+edit10.text+sq;
             open;
             if not  table1.Locate('姓名',edit10.text,[]) then
              messagedlg('无此病人记录',mterror,[mbok],0);
             end;
      if combobox3.text='按住院号查看' then
         with Table1 do
           begin
             close;
             filtered:=true;
             filter:='住院号='+sq+edit10.text+sq;
             open;
           end;
      if combobox3.text='按经手人查看' then
         begin
          with Table1 do
           begin
             close;
             filtered:=true;
             filter:='经办人='+sq+edit10.text+sq;
             open;
             if table1.RecordCount=0 then
              label38.Caption:='无住院信息'
              else
               label38.Caption:='共有'+inttostr(table1.recordcount)+'病人记录';
           end;
            with Table2 do
           begin
             close;
             filtered:=true;
             filter:='经办人='+sq+edit10.text+sq;
             open;
             if table2.RecordCount=0 then
              label31.Caption:='无开支信息'
              else
               label31.Caption:='共有'+inttostr(table2.recordcount)+'开支记录';
             if not  table1.Locate('经办人',edit10.text,[]) then
              messagedlg('无此经办人的记录',mterror,[mbok],0)
             else
              if not  table2.Locate('经办人',edit10.text,[]) then
              messagedlg('无此经办人记录',mterror,[mbok],0)
           end;
         end;
        if combobox3.text='按开支名查看' then
           with Table2 do
           begin
             close;
             filtered:=true;
             filter:='开支名='+sq+edit10.text+sq;
             open;
             label38.Hide;
             if table2.RecordCount=0 then
              label31.Caption:='无此开支信息'
             else
              label31.Caption:='此开支共有'+inttostr(table2.recordcount)+'条记录';
           end;
         if combobox3.text='按预交款查看' then
           with Table2 do
            begin
             close;
             filtered:=true;
             filter:='预交款='+sq+edit10.text+sq;
             open;
             label31.Hide;
             if table2.RecordCount=0 then
              label31.Caption:='无记录'
             else
              label31.Caption:='共有此记录'+inttostr(table2.recordcount)+'项';
            end;
    end
    else
        begin
          if (combobox3.text='') and (edit10.text='') then
             showmessage('请在查看方式框和关键字框中选择或输入相应内容。');
          if (combobox3.text='') and (edit10.text<>'') then
             showmessage('请在查看方式框中选择查看方式。');
          if (combobox3.text<>'') and (edit10.text='') then
             showmessage('请在关键字框中输入关键字。');
        end;

end;

procedure TForm1.ToolButton15Click(Sender: TObject);
 const
 sq='''';
begin
 if combobox3.text='按姓名查看' then
         with Table1 do
           begin
             close;
             filtered:=true;
             filter:='姓名='+sq+edit10.text+sq;
             open;
            end;
 end;

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
  jiluhao:string;
begin
 if edit9.text='' then
  begin
   showmessage('输入病人姓名！');
   edit9.SetFocus;
  end
  else
   begin
    table2.Active :=true;
    table2.open;
    table2.insert;
    edit9.SetFocus ;
    if edit12.Text='' then
    table2.FieldByName('预交款').asstring:='0.00'
     else
      begin
       query1.Close;
       query1.SQL.Clear;
       query1.SQL.Add('select max(记录号) as jlh from kaizhipiao');
       query1.Open;
       jiluhao:=query1.fieldbyname('jlh').asstring;
       table2.FieldByName('记录号').asstring:=inttostr(strtoint(jiluhao)+1);
       table2.FieldByName('预交款').asstring:=edit12.Text;
       table2.FieldByName('病人姓名').asstring:=edit9.text;
       brxm:=edit9.text;
       table2.FieldByName('开支名').asstring:=combobox1.text;
       table2.FieldByName('日期').asstring:=edit11.text;
       table2.FieldByName('总价').asfloat:=strtofloat(edit23.text);
       table2.FieldByName('经办人').asstring:=user;
       table2.FieldByName('规格').asstring:=combobox4.Text;
       table2.FieldByName('单价').asfloat:=strtofloat(edit21.text);
       table2.FieldByName('次数').asfloat:=strtoint(edit22.text);
       table2.Post;
       bitbtn2.Enabled:=true;
     end;
     end;
end;

procedure TForm1.Edit8Change(Sender: TObject);
begin
edit8.text:=user;
end;

procedure TForm1.Edit13KeyPress(Sender: TObject; var Key: Char);
 var
  yjk1,zkz1:string;
begin
  if key=#13 then
   begin
     table1.IndexName:='shuju';
     table1.Close;
     table1.open;
     table1.SetKey;
     table1.FieldByName('收据号').asstring:=edit13.text;
     table1.GotoKey;
     if not table1.GotoKey then
     begin
      showmessage('没有此病人！');
      edit13.Text:='';
      edit13.SetFocus;
     end
    else
    begin
     begin
      xm:=table1.fieldbyname('姓名').asstring;
      query1.Close;
      query1.SQL.Clear;
      query1.sql.Add('select sum(预交款) as yjk from kaizhipiao where 病人姓名=:shoujuhao ');
      query1.ParamByName('shoujuhao').asstring:=edit13.text;
      query1.open;
      yjk1:=query1.fieldbyname('yjk').asstring;
       if yjk1='' then
       edit15.text:='0'
       else
        edit15.Text:=query1.fieldbyname('yjk').asstring;
     end;
     begin
      query1.Close;
      query1.SQL.clear;
      query1.Sql.Add('select sum(总价) as zkz  from kaizhipiao where 病人姓名=:bingren');
      query1.ParamByName('bingren').asstring:=edit13.text;
      query1.open;
      zkz1:=query1.fieldbyname('zkz').asstring;
      if zkz1='' then
       edit16.text:='0'
      else
       edit16.Text:=query1.fieldbyname('zkz').asstring;
     end;
      edit17.SetFocus;
    end;
 end;
 end;
procedure TForm1.ToolButton5Click(Sender: TObject);
 begin
   pagecontrol1.activepageindex:=4;
   combobox3.text:='按姓名查看';
   edit10.SetFocus;
 end;

procedure TForm1.Edit17KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   edit17.text:=floattostr((strtofloat(dbedit1.text))+(strtofloat(Edit15.Text)));
end;

procedure TForm1.Button3Click(Sender: TObject);
 var
  number:string;
  number1:real;
begin
  if (edit16.Text='') and (edit17.Text='') then
   edit19.text:='您不欠任何费用！'
  else
  number:=floattostr((strtofloat(edit17.text))-(strtofloat(edit16.text)));
   number1:=strtofloat(number);
  if number1<0 then
     edit19.text:='您欠'+floattostr(number1)+'元'
  else
      if number1=0 then
        edit19.Text:='您不欠任何费用！'
       else
        edit19.text:='欠您'+floattostr(number1)+'元';
  end;

procedure TForm1.Edit18Change(Sender: TObject);
begin
edit18.text:=user;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
   pagecontrol1.ActivePageIndex:=4;
   combobox3.Text:='按日期查找';
   edit10.SetFocus;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
 pagecontrol1.ActivePageIndex:=4;
   combobox3.Text:='按病室查找';
   edit10.SetFocus;
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
 pagecontrol1.ActivePageIndex:=4;
   combobox3.Text:='按收据号查找';
   edit10.SetFocus;
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
  pagecontrol1.ActivePageIndex:=4;
   combobox3.Text:='按住院号查找';
   edit10.SetFocus;
end;

procedure TForm1.ToolButton10Click(Sender: TObject);
begin
 pagecontrol1.ActivePageIndex:=4;
   combobox3.Text:='按经办人查找';
   edit10.SetFocus;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
   pagecontrol1.activepageindex:=1;
   edit1.SetFocus;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=2;
  edit9.SetFocus;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=3;
  edit13.SetFocus;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=1;
  edit1.SetFocus;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
   pagecontrol1.activepageindex:=2;
   edit9.SetFocus;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=3;
  edit13.SetFocus;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=4;
  combobox3.Text:='按姓名查看';
  edit10.SetFocus;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=4;
  combobox3.Text:='按日期查看';
  edit10.SetFocus;
end;

procedure TForm1.N34Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=4;
  combobox3.Text:='按科室查看';
  edit10.SetFocus;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
  pagecontrol1.activepageindex:=4;