ywrydj.pas

delphi制作的校医院收费系统

unit ywrydj;

interface

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

type
  Tregister1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    GroupBox4: TGroupBox;
    Image1: TImage;
    c_1: TCheckBox;
    c_2: TCheckBox;
    c_4: TCheckBox;
    c_6: TCheckBox;
    c_3: TCheckBox;
    c_5: TCheckBox;
    c_8: TCheckBox;
    c_7: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  register1: Tregister1;

implementation

{$R *.dfm}  uses dmhospital11;

procedure Tregister1.FormShow(Sender: TObject);
begin
     edit1.Text:='';
     combobox1.Text:='科室名称';
     combobox2.Text:='职务名称';
     edit2.Text:='';
     dmhospital11.dmhospital.adoregister.Active:=true;
end;

procedure Tregister1.BitBtn1Click(Sender: TObject);
begin
      edit1.Text:='';
     combobox1.Text:='科室名称';
     combobox2.Text:='职务名称';
     edit2.Text:='';
    edit1.SetFocus;
    dmhospital11.dmhospital.adoregister.Append;
end;

procedure Tregister1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     combobox1.SetFocus;
end;

procedure Tregister1.BitBtn2Click(Sender: TObject);
begin
    dmhospital11.dmhospital.adoregister.Delete;
end;

procedure Tregister1.BitBtn4Click(Sender: TObject);
begin
  dmhospital11.dmhospital.adoregister.Edit;
  edit1.Text:= dmhospital11.dmhospital.adoregister.Fields[1].AsString;
  combobox1.Text:= dmhospital11.dmhospital.adoregister.Fields[2].AsString;
  combobox2.Text:= dmhospital11.dmhospital.adoregister.Fields[3].AsString;
  edit2.Text:= dmhospital11.dmhospital.adoregister.Fields[4].AsString;
  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;
  edit1.SetFocus;


end;

procedure Tregister1.BitBtn6Click(Sender: TObject);
begin
     close;
end;

procedure Tregister1.BitBtn3Click(Sender: TObject);
var i:integer;
begin
    if edit1.Text='' then
    exit;
    dmhospital11.dmhospital.adoregister.Fields[1].AsString:=edit1.Text;
    dmhospital11.dmhospital.adoregister.Fields[2].AsString:=combobox1.Text;
    dmhospital11.dmhospital.adoregister.Fields[3].AsString:=combobox2.Text;
    dmhospital11.dmhospital.adoregister.Fields[4].AsString:=edit2.Text;
    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;
end;

end.