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;