unit1.pas

毕业设计

  combobox3.Text:='按病室查看';
  edit10.SetFocus;
end;

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

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

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

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
 if edit13.text='' then
   begin
    showmessage('输入病人姓名！');
    edit13.SetFocus;
   end
  else
   begin
    table3.Active:=true;
    table3.open;
    table3.edit;
    table3.FieldByName('病人姓名').asstring:=xm;
    jsbrxm:=xm;
    table3.FieldByName('汇总日期').asstring:=edit14.text;
    table3.FieldByName('当日预交款').asstring:=dbedit1.text;
    table3.FieldByName('预交开支款').asstring:=edit15.text;
    table3.FieldByName('总开支款').asstring:=edit16.text;
    table3.FieldByName('冲帐上预收款').asstring:=edit17.text;
    table3.FieldByName('经办人').asstring:=edit18.text;
    table3.FieldByName('住院病室').asstring:='';
    table3.Post;
    SpeedButton9.Enabled:=true;
   end;
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
 var
  days:array[1..7] of string;
begin
   date:=now();
   statusbar1.Panels[1].Text:='今天是：'+formatdatetime('yyyy''-''mm''-''dd',date);
   statusbar1.Panels[0].Text:='现在时间：'+formatdatetime('hh''-''mm''-''ss',date);
   days[1]:='星期日';
   days[2]:='星期一';
   days[3]:='星期二';
   days[4]:='星期三';
   days[5]:='星期四';
   days[6]:='星期五';
   days[7]:='星期六';
   statusbar1.Panels[2].Text:='今天是:'+days[DayOfWeek(now)];
end;



procedure TForm1.N28Click(Sender: TObject);
begin
form11.showmodal;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   if edit2.Text='' then
     begin
      showmessage('请输入病室！');
      edit2.SetFocus;
     end
   else
    begin
     table1.Close;
     table1.Open;
      if table1.locate('病室',edit2.text,[loCaseInsensitive]) then
       begin
        showmessage('此病室现在有人！请您重新输入病室。');
        edit2.setfocus;
       end
      else
       begin
        table1.Edit;
        table1.FieldByName('病室').asstring:=edit2.Text;
        table1.Post;
        combobox2.SetFocus;
       end;
    end;
  end;
end;
procedure TForm1.ToolButton16Click(Sender: TObject);
begin
application.helpcommand(help_finder,0)
end;

procedure TForm1.N26Click(Sender: TObject);
begin
application.HelpCommand(help_finder,0);
end;

procedure TForm1.N27Click(Sender: TObject);
begin
 form15.show;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 sjh:string;
 i:integer;
begin
 if key=#13 then
  if edit1.Text='' then
   begin
    showmessage('请输入病人姓名');
    edit1.SetFocus;
   end
  else
   begin
     table1.open;
     table1.First;
     sjh:='0';
     for i:=1 to table1.RecordCount do
       begin
        if strtoint(sjh)<=strtoint(table1.fieldbyname('收据号').asstring) then
         sjh:=table1.FieldByName('收据号').asstring ;
         table1.next;
       end;
        edit4.Text:='SJ'+inttostr((strtoint(sjh)+1));
        edit5.text:=inttostr(strtoint(sjh)+1);
        edit2.SetFocus;
        end;
end;

procedure TForm1.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  if combobox2.Text='' then
   showmessage('请选择住院科室！')
   else
    edit6.SetFocus;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
   form16.query1.sql.clear;
   form16.query1.close;
   form16.Query1.SQL.Add('select * from shouju where 收据号=:shouju');
   form16.Query1.ParamByName('shouju').asstring:=shoujuhao;
   form16.query1.Open;
   form16.query1.Active:=true;
   form16.QuickRep1.preview;
   SpeedButton5.Enabled:=false;
   shoujuhao:='';
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
 edit13.Text:='';
 edit14.Text:='';
 edit15.Text:='';
 edit16.Text:='';
 edit17.Text:='';
 edit18.Text:='';
 edit19.Text:='';
 dbedit1.Text:='';
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if aa=1 then
    begin
      form2.Visible:=true;
      aa:=0;
      end
 else
   if messagedlg('确定退出吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
     begin canclose:=true;
           application.Terminate;
     end
   else
     canclose:=false
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   form17.query1.sql.clear;
   form17.query1.close;
   form17.Query1.SQL.Add('select * from kaizhipiao where 病人姓名=:xingming and 日期=:riqi');
   form17.Query1.ParamByName('xingming').asstring:=brxm;
   form17.Query1.ParamByName('riqi').asdate:=date;
   form17.query1.Open;
   form17.query1.Active:=true;
   form17.QuickRep1.preview;
   bitbtn2.Enabled:=false;
   brxm:='';
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
 edit21.text:='';
 edit22.text:='';
 edit23.text:='';
 edit9.text:='';
 edit12.Text:='';
 combobox1.Text:='';
 combobox4.Text:='';
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
   form18.query1.sql.clear;
   form18.query1.close;
   form18.Query1.SQL.Add('select * from huizong where 病人姓名=:xingming ');
   form18.Query1.ParamByName('xingming').asstring:=jsbrxm;
   form18.query1.Open;
   form18.query1.Active:=true;
   form18.QuickRep1.preview;
   SpeedButton9.Enabled:=false;
   jsbrxm:='';
end;

procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   if edit9.Text='' then
    begin
     showmessage('输入病人姓名！');
     edit9.SetFocus;
    end
   else
     combobox1.SetFocus;
end;

procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  if edit12.Text='' then
   begin
    edit12.text:='0';
    edit21.SetFocus;
   end
    else
     edit21.SetFocus;
  end;
procedure TForm1.N10Click(Sender: TObject);
begin
  form12.Show;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  combobox4.SetFocus;
end;

procedure TForm1.ComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   edit12.SetFocus;
end;

procedure TForm1.Edit21KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  if edit21.Text='' then
   begin
    edit21.text:='0';
    edit22.SetFocus;
   end
   else
    edit22.SetFocus;
end;

procedure TForm1.Edit22KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  if  edit22.text='' then
     begin
      edit22.text:='0';
      edit23.text:='0';
      edit23.SetFocus;
     end
     else
     begin
      edit23.text:=inttostr(strtoint(edit21.text)*strtoint(edit22.text));
      edit23.SetFocus;
     end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 label39.Font.Color:=rgb(random(256),random(256),random(256));
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 label40.Font.Color:=rgb(random(256),random(256),random(256));
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  if pp=0 then
   begin
    if label1.left<=184 then
      label1.Left:=label1.left+2
     else
       pp:=1;
    end
   else
     begin
       label1.left:=label1.left-2;
       if label1.Left<48 then
          pp:=0;
     end;
 end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
 if pp=0 then
   begin
    if label13.left<=224 then
      label13.Left:=label13.left+2
     else
       pp:=1;
    end
   else
     begin
       label13.left:=label13.left-2;
       if label13.Left<24 then
          pp:=0;
     end;
end;

procedure TForm1.ToolButton14Click(Sender: TObject);
begin
 form21.show;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
 if messagedlg('确实要注销吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
    aa:=1;
    form2.Visible:=true;
    form1.close;
    end
     else
      aa:=0;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
 if MessageDlg('确实要退出吗?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Session.AddPassword('hhb');
  Table1.Active := True;
  Session.AddPassword('hhb');
  Table2.Active := True;
  Session.AddPassword('hhb');
  Table3.Active := True;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
 form21.Show;
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
 if ff=4 then
   ff:=0;
   case ff of
   0:
    begin
      image1.Picture.LoadFromFile('e:\bysj\b1.jpg');
      ff:=ff+1;
    end;
   1:
     begin
       image1.Picture.LoadFromFile('e:\bysj\b2.jpg');
       ff:=ff+1;
     end;
   2:
     begin
        image1.Picture.LoadFromFile('e:\bysj\b3.jpg');
        ff:=ff+1;
      end;
    3:
      begin
         image1.Picture.LoadFromFile('e:\bysj\b4.jpg');
         ff:=ff+1;
      end;
  end;
 end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
 label42.Font.Color:=rgb(random(256),random(256),random(256));
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
 if kk=6 then
   kk:=0;
  case kk of
   0:
    begin
     label43.Caption:='昕';
     kk:=kk+1;
    end;
   1:
    begin
    label43.Caption:='昕鑫';
     kk:=kk+1;
     end;
    2:
    begin
    label43.Caption:='昕鑫工';
     kk:=kk+1;
     end;
    3:
    begin
    label43.Caption:='昕鑫工作';
     kk:=kk+1;
     end;
     4:
    begin
    label43.Caption:='昕鑫工作室';
     kk:=kk+1;
     end;
     5:
    begin
    label43.Caption:='';
     kk:=kk+1;
     end;
      6:
    begin
    label43.Caption:='';
     kk:=kk+1;
     end;
    end;
end;

procedure TForm1.N31Click(Sender: TObject);
begin
 win32check(exitwindowsex(ewx_shutdown,0));
end;
end.