zyxkgl11.pas

delphi制作的校医院收费系统

unit zyxkgl11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, ExtCtrls;

type
  Tzyyjgl = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    c_1: TCheckBox;
    c_3: TCheckBox;
    c_5: TCheckBox;
    c_7: TCheckBox;
    c_9: TCheckBox;
    c_20: TCheckBox;
    c_8: TCheckBox;
    c_6: TCheckBox;
    c_4: TCheckBox;
    c_2: TCheckBox;
    Label7: TLabel;
    Edit4: TEdit;
    GroupBox4: TGroupBox;
    b_tianjia: TButton;
    b_save: TButton;
    b_modify: TButton;
    b_del: TButton;
    Button1: TButton;
    GroupBox5: TGroupBox;
    Edit5: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure checkboxclick(sender:tobject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure b_tianjiaClick(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure b_modifyClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure Edit5Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);

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

var
  zyyjgl: Tzyyjgl;

implementation

{$R *.dfm}  uses dmjiaokuan11;

procedure Tzyyjgl.FormShow(Sender: TObject);
var i,j,k:integer;
begin
     dmjiaokuan11.dmjiaokuan.ADOyujiao.Close;
      dmjiaokuan11.dmjiaokuan.ADOyujiao.SQL.Clear;
      dmjiaokuan11.dmjiaokuan.ADOyujiao.SQL.Add('select * from 预交款信息表');
      dmjiaokuan11.dmjiaokuan.ADOyujiao.Open;
     dmjiaokuan11.dmjiaokuan.ADOyujiao.Active:=true;
      dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Close;
       dmjiaokuan11.dmjiaokuan.ADOzhuangtai.SQL.Clear;
      dmjiaokuan11.dmjiaokuan.ADOzhuangtai.SQL.Add('select * from 病房状态表');
         dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Open;
     dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Active:=true;
     j:=0;
     k:=0;
     for i:=0 to  dmjiaokuan11.dmjiaokuan.ADOzhuangtai.RecordCount-1 do
     begin
       if dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Fields[1].AsBoolean=true then
          begin
                j:=i+1;
                k:=1;
          end
          else
          begin
                j:=i+1;
                k:=0;
          end;
          case  j of
             1: if k=1 then
                          begin
                             c_1.Checked:=true;
                             c_1.Enabled:=false;


                         end
                     else
                         begin
                            c_1.Enabled:=true;
                            c_1.Checked:=false;

                         end;
              2: if k=1 then
                          begin
                            c_2.Checked:=true;
                            c_2.Enabled:=false;
                         end
                     else
                         begin
                               c_2.Checked:=false;
                             c_2.Enabled:=true;


                         end;
               3: if k=1 then
                          begin
                            c_3.Checked:=true;
                            c_3.Enabled:=false;
                         end
                     else
                         begin
                               c_3.Enabled:=true;
                            c_3.Checked:=false;

                         end;
               4: if k=1 then
                          begin
                            c_4.Checked:=true;
                            c_4.Enabled:=false;
                         end
                     else
                         begin
                           c_4.Enabled:=true;
                            c_4.Checked:=false;

                         end;
               5: if k=1 then
                          begin
                            c_5.Checked:=true;
                            c_5.Enabled:=false;
                         end
                     else
                         begin
                             c_5.Enabled:=true;
                            c_5.Checked:=false;

                         end;
               6: if k=1 then
                          begin
                            c_6.Checked:=true;
                            c_6.Enabled:=false;
                         end
                     else
                         begin
                             c_6.Enabled:=true;
                            c_6.Checked:=false;

                         end;
                          7: if k=1 then
                          begin
                            c_7.Checked:=true;
                            c_7.Enabled:=false;
                         end
                     else
                         begin
                            c_7.Enabled:=true;
                            c_7.Checked:=false;

                         end;
                          8: if k=1 then
                          begin
                            c_8.Checked:=true;
                            c_8.Enabled:=false;
                         end
                     else
                         begin
                                c_8.Enabled:=true;
                            c_8.Checked:=false;

                         end;
                          9: if k=1 then
                          begin
                            c_9.Checked:=true;
                            c_9.Enabled:=false;
                         end
                     else
                         begin
                             c_9.Enabled:=true;
                            c_9.Checked:=false;

                         end;
                          10: if k=1 then
                          begin
                            c_20.Checked:=true;
                            c_20.Enabled:=false;
                         end
                     else
                         begin
                          c_20.Enabled:=true;
                            c_20.Checked:=false;

                         end;
               end;
        dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Next;
     end;
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit4.Text:='';
     edit5.Text:='';
     edit1.SetFocus;

end;

procedure Tzyyjgl.Button2Click(Sender: TObject);
begin
     close;
end;
procedure tzyyjgl.checkboxclick(sender:tobject);
begin
     if (sender as tcheckbox).Checked then
     edit3.Text:=(sender as tcheckbox).Caption;
     (sender as tcheckbox).Enabled:=false;
end;
procedure Tzyyjgl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    edit2.SetFocus;
end;

procedure Tzyyjgl.b_tianjiaClick(Sender: TObject);
begin
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit4.Text:='';
     edit5.Text:='';
     dmjiaokuan11.dmjiaokuan.ADOyujiao.Append;
end;

procedure Tzyyjgl.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
    edit4.Text:=floattostr(strtofloat(edit2.Text)+ dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[2].AsFloat );
    
end;

procedure Tzyyjgl.b_modifyClick(Sender: TObject);
begin
    dmjiaokuan11.dmjiaokuan.ADOyujiao.Edit;
    edit1.Text:=dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[1].AsString;
    edit4.Text:=floattostr(dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[2].AsFloat);
    edit3.Text:=inttostr(dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[5].AsInteger);
    datetimepicker1.Date:=dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[4].AsDateTime;
end;

procedure Tzyyjgl.b_saveClick(Sender: TObject);
begin
    dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[1].AsString:=edit1.Text;
    dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[2].AsFloat:=strtofloat(edit4.Text);
    dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[3].AsInteger:=dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[3].AsInteger+1;
    dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[4].AsDateTime:=datetimepicker1.Date;
    dmjiaokuan11.dmjiaokuan.ADOyujiao.Fields[5].AsInteger:=strtoint(edit3.Text);
     dmjiaokuan11.dmjiaokuan.adozhuangtai.Close;
     dmjiaokuan11.dmjiaokuan.adozhuangtai.SQL.Clear;
     dmjiaokuan11.dmjiaokuan.adozhuangtai.SQL.Add('select * from 病房状态表 where 编号=');
     dmjiaokuan11.dmjiaokuan.adozhuangtai.SQL.Add(''''+edit3.Text+'''');
      dmjiaokuan11.dmjiaokuan.adozhuangtai.Open;
 if   dmjiaokuan11.dmjiaokuan.adozhuangtai.RecordCount<>0 then
 begin
     dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Edit;
     dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Fields[1].AsBoolean:=true;
     dmjiaokuan11.dmjiaokuan.ADOzhuangtai.Post;
 end;
     dmjiaokuan11.dmjiaokuan.ADOyujiao.Post;
     
      edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit4.Text:='';
     edit5.Text:='';
end;

procedure Tzyyjgl.Edit5Click(Sender: TObject);
begin
      dmjiaokuan11.dmjiaokuan.ADOyujiao.Close;
      dmjiaokuan11.dmjiaokuan.ADOyujiao.SQL.Clear;
      dmjiaokuan11.dmjiaokuan.ADOyujiao.SQL.Add('select * from 预交款信息表 where 病房号=');
      dmjiaokuan11.dmjiaokuan.ADOyujiao.SQL.Add(''''+edit5.Text+'''');
      dmjiaokuan11.dmjiaokuan.ADOyujiao.Open;

end;

procedure Tzyyjgl.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
        button1.Click;
end;

end.