unit1.pas

毕业设计

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, ComCtrls, ToolWin, jpeg, ExtCtrls, StdCtrls, Buttons,
  Grids, DBGrids,unit2,unit3,unit4,unit17,unit18,unit12,Mask,unit16, DBCtrls,unit15, Db, DBTables,
  ExtDlgs;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    B1: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    U1: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    H1: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    N32: TMenuItem;
    N33: TMenuItem;
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    SpeedButton1: TSpeedButton;
    Splitter2: TSplitter;
    Panel5: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel6: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Splitter4: TSplitter;
    Panel11: TPanel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Button3: TButton;
    Label24: TLabel;
    Label25: TLabel;
    Label28: TLabel;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Label29: TLabel;
    Table1: TTable;
    Label30: TLabel;
    N34: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox2: TComboBox;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    SpeedButton2: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    TabSheet5: TTabSheet;
    Panel12: TPanel;
    Panel13: TPanel;
    GroupBox4: TGroupBox;
    ComboBox3: TComboBox;
    GroupBox5: TGroupBox;
    Edit10: TEdit;
    Button1: TButton;
    GroupBox6: TGroupBox;
    Label31: TLabel;
    Splitter5: TSplitter;
    Panel14: TPanel;
    DBGrid2: TDBGrid;
    Panel7: TPanel;
    Label12: TLabel;
    Edit9: TEdit;
    Label32: TLabel;
    Edit11: TEdit;
    Splitter3: TSplitter;
    Panel8: TPanel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table2: TTable;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label33: TLabel;
    ComboBox1: TComboBox;
    Label18: TLabel;
    Label34: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    DBEdit1: TDBEdit;
    Edit15: TEdit;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    Query1: TQuery;
    DataSource4: TDataSource;
    Edit16: TEdit;
    Edit17: TEdit;
    Label27: TLabel;
    Edit18: TEdit;
    Edit19: TEdit;
    ToolButton11: TToolButton;
    ToolButton16: TToolButton;
    Table3: TTable;
    Timer1: TTimer;
    Query2: TQuery;
    BitBtn3: TBitBtn;
    Edit21: TEdit;
    Label26: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Edit22: TEdit;
    Edit23: TEdit;
    ComboBox4: TComboBox;
    Label38: TLabel;
    Timer2: TTimer;
    Label39: TLabel;
    Label40: TLabel;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N20: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    Image1: TImage;
    Label41: TLabel;
    Label42: TLabel;
    Timer6: TTimer;
    Timer7: TTimer;
    Label43: TLabel;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure N24Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    function  SmallTOBig(small:real):string;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton5Click(Sender: TObject);
    procedure Edit17KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Edit18Change(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton16Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
    procedure N10Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit21KeyPress(Sender: TObject; var Key: Char);
    procedure Edit22KeyPress(Sender: TObject; var Key: Char);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure N31Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  date:tdatetime;
  jsbrxm,brxm,shoujuhao,jinyuandate:string;
 implementation

uses Unit6, Unit8, Unit9, Unit10, Unit11, Unit14, Unit20, Unit21;
var
  aa:integer;
  kk,ff,pp:integer;
  xm:string;
{$R *.DFM}
function Tform1.SmallTOBig(small:real):string;
 var
    SmallMoney,BigMoney:string;
    wei1,moneywei1:string[2];
    moneywei,dort,money:integer;
 begin
   moneywei:=-2;
   Smallmoney:=formatfloat('0.00',small);
   dort:=pos('.',Smallmoney);
  for money:=length(Smallmoney) downto 1 do
    begin
     if money<>dort then
       begin
         case strtoint(copy(Smallmoney,money,1)) of
           1:wei1:='壹'; 2:wei1:='贰';
           3:wei1:='叁'; 4:wei1:='肆';
           5:wei1:='伍'; 6:wei1:='陆';
           7:wei1:='柒'; 8:wei1:='捌';
           9:wei1:='玖'; 0:wei1:='零';
         end;
         case moneywei of
           -3:moneywei1:='厘';
           -2:moneywei1:='分';
           -1:moneywei1:='角';
           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;
       end;
    end;
  SmallTOBig:=BigMoney;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
  form3.ShowModal;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
 form8.Show;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
 form10.Show;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
 form14.Show;
end;

procedure TForm1.N25Click(Sender: TObject);
begin
 form4.Show;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if user='黄鑫' then
    begin
     B1.Enabled :=true;
     n25.Enabled :=true;
    end
   else
     begin
      B1.Enabled :=false;
      n25.Enabled:=false;
      n6.Enabled:=false;
      toolbutton14.Enabled:=false;
     end;
     edit1.Clear;
     edit2.Clear;
     edit3.Clear;
     edit4.text:='SJ';
     edit5.Clear;
     edit6.Clear;
     edit7.Clear;
     edit8.Clear;
     edit9.Clear;
     edit11.Clear;
     edit10.Clear;
     edit12.Clear;
     edit13.clear;
     edit15.clear;
     edit16.clear;
     edit17.clear;
     edit19.clear;
     edit21.Clear;
     edit22.Clear;
     edit23.Clear;
     pagecontrol1.ActivePageIndex:=0;
     dbedit1.text:='';
     bitbtn2.Enabled:=false;
     SpeedButton5.Enabled:=false;
     SpeedButton9.Enabled:=false;
     date:=now();
     edit18.text:=user;
     table1.Active:=false;
     table2.Active:=false;
     edit3.text:=formatdatetime('yyyy''-''mm''-''dd',date);
     edit11.text:=formatdatetime('yyyy''-''mm''-''dd',date);
     edit14.text:=formatdatetime('yyyy''-''mm''-''dd',date);
    end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  if edit1.text='' then
    begin
     showmessage('请输入病人姓名！');
     edit1.SetFocus;
    end
   else
    begin
     SpeedButton5.Enabled:=true;
     table1.close;
     table1.open;
     Table1.Insert;
     table1.edit;
     table1.FieldByName('姓名').asstring:=edit1.Text;
     table1.FieldByName('病室').asstring:=edit2.Text;
     table1.FieldByName('住院科室').asstring:=combobox2.Text;
     table1.FieldByName('日期').asstring:=edit3.text;
     jinyuandate:=edit3.text;
     table1.FieldByName('住院号').asstring:=edit5.Text;
     table1.FieldByName('收据号').asstring:=copy(edit4.Text,3,length(edit4.text));
     shoujuhao:=copy(edit4.Text,3,length(edit4.text));
      if edit6.Text='' then
       begin
        table1.FieldByName('金额小写').asfloat:=0;
        table1.FieldByName('金额大写').asstring:='零';
       end
      else
       begin
        table1.FieldByName('金额小写').asfloat:=strtofloat(edit6.text);
        table1.FieldByName('金额大写').asstring:=edit7.text;
       end;
      table1.FieldByName('经办人').asstring:=edit8.text;
      table1.Post;
     end;
   end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   edit1.Clear;
   edit2.Clear;
   edit4.text:='SJ';
   edit5.Clear;
   edit6.Clear;
   edit7.Clear;
   edit8.Clear;
   edit1.SetFocus;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
 var
  BigMoney:string;
  wei1,moneywei1:string[2];
  moneywei,money:integer;
  number,nn:string;
  number1,dort,p,i,k,o,number2:integer;
  begin
    i:=0;
    dort:=pos('.',edit6.Text );
    if  dort=0 then
      begin
        number:=edit6.text;
        p:=length(edit6.text);
        number2:=strtoint(copy(number,length(number),1));