zbgl11.pas

delphi制作的校医院收费系统

unit zbgl11;

interface

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

type
  Tywzbgl = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    b_midify: TBitBtn;
    b_save: TBitBtn;
    b_print: TBitBtn;
    b_exit: TBitBtn;
    b_first: TButton;
    b_privor: TButton;
    b_last: TButton;
    b_next: TButton;
    c_1: TCheckBox;
    c_2: TCheckBox;
    c_4: TCheckBox;
    c_3: TCheckBox;
    c_5: TCheckBox;
    c_6: TCheckBox;
    c_7: TCheckBox;
    c_8: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure b_firstClick(Sender: TObject);
    procedure b_privorClick(Sender: TObject);
    procedure b_nextClick(Sender: TObject);
    procedure b_lastClick(Sender: TObject);
    procedure b_midifyClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ywzbgl: Tywzbgl;

implementation

{$R *.dfm}  uses dmhospital11;

procedure Tywzbgl.FormShow(Sender: TObject);
begin
    dmhospital.adoregister.Active:=true;
     b_save.Enabled:=false;
     dmhospital.adoregister.Fields[2].Visible:=false;
     dmhospital.adoregister.Fields[4].Visible:=false;
     dmhospital.adoregister.Fields[3].Visible:=false;
end;

procedure Tywzbgl.b_firstClick(Sender: TObject);
begin
     dmhospital.adoregister.First;
     b_next.Enabled:=true;
     b_last.Enabled:=true;
     b_privor.Enabled:=false;
end;

procedure Tywzbgl.b_privorClick(Sender: TObject);
begin
     if  dmhospital.adoregister.RecNo>1 then
             dmhospital.adoregister.Prior;
      b_next.Enabled:=true;
      b_last.Enabled:=true;
      if  dmhospital.adoregister.RecNo=1 then
          b_privor.Enabled:=false;
          
end;

procedure Tywzbgl.b_nextClick(Sender: TObject);
begin
      if dmhospital.adoregister.RecNo< dmhospital.adoregister.RecordCount then
       dmhospital.adoregister.Next;
      b_first.Enabled:=true;
      b_privor.Enabled:=true;
      if  dmhospital.adoregister.RecNo= dmhospital.adoregister.RecordCount then
          b_next.Enabled:=false;
      end;

procedure Tywzbgl.b_lastClick(Sender: TObject);
begin
   b_next.Enabled:=false;
   b_privor.Enabled:=true;
   dmhospital.adoregister.Last;
end;

procedure Tywzbgl.b_midifyClick(Sender: TObject);
begin
    dmhospital11.dmhospital.adoregister.Edit;
     if  dmhospital11.dmhospital.adoregister.Fields[5].AsBoolean=true then
  c_1.Checked:=true
  else
  c_1.Checked:=false;
  if  dmhospital11.dmhospital.adoregister.Fields[6].AsBoolean=true then
  c_2.Checked:=true
  else
  c_2.Checked:=false;
  if  dmhospital11.dmhospital.adoregister.Fields[7].AsBoolean=true then
  c_3.Checked:=true
  else
  c_3.Checked:=false;
  if  dmhospital11.dmhospital.adoregister.Fields[8].AsBoolean=true then
  c_4.Checked:=true
  else
  c_4.Checked:=false;
  if  dmhospital11.dmhospital.adoregister.Fields[9].AsBoolean=true then
  c_5.Checked:=true
  else
  c_5.Checked:=false;
  if  dmhospital11.dmhospital.adoregister.Fields[10].AsBoolean=true then
  c_6.Checked:=true
  else
  c_6.Checked:=false;
  if  dmhospital11.dmhospital.adoregister.Fields[11].AsBoolean=true then
  c_7.Checked:=true
  else
  c_7.Checked:=false;
  b_save.Enabled:=true;
  b_midify.Enabled:=false;
end;

procedure Tywzbgl.b_saveClick(Sender: TObject);
var i:integer;
begin
      if c_8.Checked then
    begin
         for i:=5 to 11 do
              dmhospital11.dmhospital.adoregister.Fields[i].AsInteger:=1;
         exit;
    end
    else begin
              if c_1.Checked then
                    dmhospital11.dmhospital.adoregister.Fields[5].AsBoolean:=true
              else
                    dmhospital11.dmhospital.adoregister.Fields[5].AsBoolean:=false;
              if c_2.Checked then
                    dmhospital11.dmhospital.adoregister.Fields[6].AsBoolean:=true
              else
                    dmhospital11.dmhospital.adoregister.Fields[6].AsBoolean:=false;
             if c_3.Checked then
                    dmhospital11.dmhospital.adoregister.Fields[7].AsBoolean:=true
              else
                    dmhospital11.dmhospital.adoregister.Fields[7].AsBoolean:=false;
             if c_4.Checked then
                    dmhospital11.dmhospital.adoregister.Fields[8].AsBoolean:=true
              else
                    dmhospital11.dmhospital.adoregister.Fields[8].AsBoolean:=false;
             if c_5.Checked then
                    dmhospital11.dmhospital.adoregister.Fields[9].AsBoolean:=true
              else
                    dmhospital11.dmhospital.adoregister.Fields[9].AsBoolean:=false;
              if c_6.Checked then
                    dmhospital11.dmhospital.adoregister.Fields[10].AsBoolean:=true
              else
                    dmhospital11.dmhospital.adoregister.Fields[10].AsBoolean:=false;
              if c_7.Checked then
                    dmhospital11.dmhospital.adoregister.Fields[11].AsBoolean:=true
              else
                    dmhospital11.dmhospital.adoregister.Fields[11].AsBoolean:=false;
               dmhospital11.dmhospital.adoregister.Post;

         end;
           b_midify.Enabled:=true;
           b_save.Enabled:=false;
end;

procedure Tywzbgl.b_exitClick(Sender: TObject);
begin
    close;
end;

end.