day_nightm.~pas

本文重点研究的是医院西药药房管理系统

unit Day_NightM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, DBCtrls, ExtCtrls,db,adodb,comobj;

type
  Tday_night = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    DBCheckBox1: TDBCheckBox;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  day_night: Tday_night;

implementation
uses datamz1, datamz;
{$R *.DFM}

procedure Tday_night.FormActivate(Sender: TObject);
begin
   try
    datamzf1.DayNightQuery.Active:=true;
    RadioGroup1.ItemIndex:=datamzf1.DayNightQuery.Fields[0].value;
   except
    showmessage('打开数据表失败,可能权限不够!');
    panel1.Enabled:=false;
    bitbtn1.Enabled:=false;
   end;
end;

procedure Tday_night.BitBtn1Click(Sender: TObject);
var
ms:integer;
begin
 ms:=Application.messagebox('确定保存所做修改?','提示',MB_OKCANCEL);
 if ms<>1 then
   exit;
 with datamzf1.SwitchQuery do
  begin
   close;
   sql.clear;
   case RadioGroup1.ItemIndex of
    0:
     begin
       sql.add('update XyMzStor ');
       sql.add('set hj_iden=day_iden');
     end;
//    1:
//     begin
//       sql.add('update XyMzStor ');
//       sql.add('set hj_iden=night_iden');
//     end;
    1:
     begin
       sql.add('update XyMzStor');
       sql.add('set hj_iden=firstday_iden');
     end;
   end;
 end;
 with datamzf1.DayNightQuery do
  begin
   edit;
   FieldByName('mzstor_iden').value:=RadioGroup1.ItemIndex;
   datamzf.XyMzValiConnection.BeginTrans;
   try
     UpdateBatch(arAllChapters);
     datamzf1.SwitchQuery.ExecSQL;
     datamzf.XyMzValiConnection.CommitTrans;
     Day_Night.Release;
   except
     on E:EOleException do
      begin
       datamzf.XyMzValiConnection.RollbackTrans;
       showmessage(E.message);
       CancelBatch;
      end;
     on Ed:EDatabaseError do
      begin
       datamzf.XyMzValiConnection.RollbackTrans;
       showmessage(Ed.message);
       CancelBatch;
      end;
     else
      begin
       datamzf.XyMzValiConnection.RollbackTrans;
       showmessage('发现异常,操作被取消!');
       CancelBatch;
      end;
   end;
  end;
end;

procedure Tday_night.BitBtn2Click(Sender: TObject);
begin
  Day_Night.close;
end;

procedure Tday_night.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  datamzf1.DayNightQuery.Active:=false;
  Day_Night.release;
end;

end.