selgoodscheckacceptdefault.pas

医药连锁经营管理系统源码

  sWhere := sWhere +' And ('+sOther+')';
  CdsDefault.Data := SvrDefault.AppServer.GetGCADefault(IClientID,sWhere);
  iCount := CdsDefault.RecordCount;
  If iCount=0 Then Exit;
  CdsDefault.First;
  For I:=0 To iCount-1 Do
  Begin
    iCheckKind := CdsDefault.FieldByName('CheckKind').AsInteger;
    Case iCheckKind Of
      101: ShowDefault1; //普通药品 ;
      102: ShowDefault2; //进口药品;
      103: ShowDefault3; //医疗器械;
      104: ShowDefault4; //中药饮片;
      105: ShowDefault5; //特殊药品;
      106: ShowDefault6; //非药品;
    End;
    CdsDefault.Next;
  End;
end;

procedure TFmSelGoodsCheckAcceptDefault.RzBitBtn1Click(Sender: TObject);
Var iCheckKind : Integer;
  i : integer;
begin
  For i := 0 To 5 Do
  begin
    If PgcDefault.Pages[i].TabVisible Then
    begin
      If PgcDefault.Pages[i].TabVisible Then
      begin
        iCheckKind := 101+i;
        Case iCheckKind Of
          101: SaveDefault1;  //普通药品
          102: SaveDefault2;  //进口药品
          103: SaveDefault3;  //医疗机械
          104: SaveDefault4;  //中药饮片
          105: SaveDefault5;  //特殊药品
          106: SaveDefault6;  //非药品
        End;
      end;
    end;
  end;
  SvrDefault.AppServer.SaveGCADefault(IClientID,sSaveSql);
end;

procedure TFmSelGoodsCheckAcceptDefault.SaveDefault1;
Var Str:String;
Begin
  str := Format(sDefault1,[edAccepter1.Text,edChecker1.Text,cbCheckVerdict1.Text,
         cbDirections1.Text,edEligibleCard1.Text,cbLabelState1.Text,cbpackageState1.Text,
         cbQualityState1.Text,'101']);
  sSaveSql := sSaveSql+Str+chr(13);
End;

procedure TFmSelGoodsCheckAcceptDefault.SaveDefault2;
Var Str:String;
Begin
  str := Format(sDefault2,[edAccepter2.Text,edChecker2.Text,cbCheckVerdict2.Text,
         cbDirections2.Text,edEligibleCard2.Text,cbLabelState2.Text,cbpackageState2.Text,
         cbQualityState2.Text,edVerifyReport2.Text,edPassGateNo2.Text,'102']);
  sSaveSql := sSaveSql+Str+chr(13);
End;

procedure TFmSelGoodsCheckAcceptDefault.SaveDefault3;
Var Str:String;
Begin
  str := Format(sDefault3,[edAccepter3.Text,edChecker3.Text,cbCheckVerdict3.Text,
         cbDirections3.Text,cbLabelState3.Text,cbpackageState3.Text,
         cbQualityState3.Text,edGermicidalNo3.Text,edRegisterCardNo3.Text,edBatchNo3.Text,'103']);
  sSaveSql := sSaveSql+Str+chr(13);
end;

procedure TFmSelGoodsCheckAcceptDefault.SaveDefault4;
Var Str:String;
Begin
  str := Format(sDefault4,[edAccepter4.Text,edChecker4.Text,cbCheckVerdict4.Text,
         cbDirections4.Text,edEligibleCard4.Text,cbLabelState4.Text,cbpackageState4.Text,
         cbQualityState4.Text,'104']);
  sSaveSql := sSaveSql+Str+chr(13);
End;

procedure TFmSelGoodsCheckAcceptDefault.SaveDefault5;
Var Str:String;
Begin
  str := Format(sDefault5,[edAccepter5.Text,edChecker5.Text,cbCheckVerdict5.Text,
         cbDirections5.Text,cbLabelState5.Text,cbpackageState5.Text,
         cbQualityState5.Text,edEligibleCard5.Text,'105']);
  sSaveSql := sSaveSql+Str+chr(13);
end;

procedure TFmSelGoodsCheckAcceptDefault.SaveDefault6;
Var Str:String;
Begin
  str := Format(sDefault6,[edAccepter6.Text,edChecker6.Text,cbCheckVerdict6.Text,
         cbDirections6.Text,cbLabelState6.Text,cbpackageState6.Text,
         cbQualityState6.Text,edEligibleCard6.Text,'106']);
  sSaveSql := sSaveSql+Str+chr(13);
end;

procedure TFmSelGoodsCheckAcceptDefault.ShowDefault1;
Begin
  With CdsDefault Do Begin
    edAccepter1.Text := FieldByName('Accepter').AsString;
    edChecker1.Text := FieldByName('Checker').AsString;
    cbCheckVerdict1.Text := FieldByName('CheckVerdict').AsString;
    cbDirections1.Text := FieldByName('Directions').AsString;
    edEligibleCard1.Text := FieldByName('EligibleCard').AsString;
    cbLabelState1.Text := FieldByName('LabelState').AsString;
    cbpackageState1.Text := FieldByName('PackageState').AsString;
    cbQualityState1.Text := FieldByName('QualityState').AsString;
  End;
End;

procedure TFmSelGoodsCheckAcceptDefault.ShowDefault2;
begin
  With CdsDefault Do Begin
    edVerifyReport2.Text := FieldByName('VerifyReport').AsString;
    edPassGateNo2.Text := FieldByName('PassGateNo').AsString;
    edAccepter2.Text := FieldByName('Accepter').AsString;
    edChecker2.Text := FieldByName('Checker').AsString;
    cbCheckVerdict2.Text := FieldByName('CheckVerdict').AsString;
    cbDirections2.Text := FieldByName('Directions').AsString;
    edEligibleCard2.Text := FieldByName('EligibleCard').AsString;
    cbLabelState2.Text := FieldByName('LabelState').AsString;
    cbpackageState2.Text := FieldByName('PackageState').AsString;
    cbQualityState2.Text := FieldByName('QualityState').AsString;
  End;
end;

procedure TFmSelGoodsCheckAcceptDefault.ShowDefault3;
begin
  With CdsDefault Do Begin
    edGermicidalNo3.Text := FieldByname('GermicidalNo').AsString;
    edRegisterCardNo3.Text := FieldByname('RegisterCardNo').AsString;
    edBatchNo3.Text := FieldByname('BatchNo').AsString;
    edAccepter3.Text := FieldByName('Accepter').AsString;
    edChecker3.Text := FieldByName('Checker').AsString;
    cbCheckVerdict3.Text := FieldByName('CheckVerdict').AsString;
    cbDirections3.Text := FieldByName('Directions').AsString;
    cbLabelState3.Text := FieldByName('LabelState').AsString;
    cbpackageState3.Text := FieldByName('PackageState').AsString;
    cbQualityState3.Text := FieldByName('QualityState').AsString;
  End;
end;

procedure TFmSelGoodsCheckAcceptDefault.ShowDefault4;
begin
  With CdsDefault Do Begin
    edAccepter4.Text := FieldByName('Accepter').AsString;
    edChecker4.Text := FieldByName('Checker').AsString;
    cbCheckVerdict4.Text := FieldByName('CheckVerdict').AsString;
    cbDirections4.Text := FieldByName('Directions').AsString;
    edEligibleCard4.Text := FieldByName('EligibleCard').AsString;
    cbLabelState4.Text := FieldByName('LabelState').AsString;
    cbpackageState4.Text := FieldByName('PackageState').AsString;
    cbQualityState4.Text := FieldByName('QualityState').AsString;
  End; //中药饮片
end;

procedure TFmSelGoodsCheckAcceptDefault.ShowDefault5;
begin
  With CdsDefault Do Begin
    edEligibleCard5.Text := FieldByname('EligibleCard').AsString;
    edAccepter5.Text := FieldByName('Accepter').AsString;
    edChecker5.Text := FieldByName('Checker').AsString;
    cbCheckVerdict5.Text := FieldByName('CheckVerdict').AsString;
    cbDirections5.Text := FieldByName('Directions').AsString;
    cbLabelState5.Text := FieldByName('LabelState').AsString;
    cbpackageState5.Text := FieldByName('PackageState').AsString;
    cbQualityState5.Text := FieldByName('QualityState').AsString;
  End;
end;

procedure TFmSelGoodsCheckAcceptDefault.ShowDefault6;
begin
  With CdsDefault Do Begin
    edEligibleCard6.Text := FieldByname('EligibleCard').AsString;
    edAccepter6.Text := FieldByName('Accepter').AsString;
    edChecker6.Text := FieldByName('Checker').AsString;
    cbCheckVerdict6.Text := FieldByName('CheckVerdict').AsString;
    cbDirections6.Text := FieldByName('Directions').AsString;
    cbLabelState6.Text := FieldByName('LabelState').AsString;
    cbpackageState6.Text := FieldByName('PackageState').AsString;
    cbQualityState6.Text := FieldByName('QualityState').AsString;
  End;
end;

procedure TFmSelGoodsCheckAcceptDefault.RzBitBtn2Click(Sender: TObject);
Var iCount,I,ICheckKind : Integer;
begin
  iCount := CdsDefault.RecordCount;
  If iCount=0 Then Exit;
  CdsDefault.First;
  For I:=0 To iCount-1 Do
  Begin
    iCheckKind := CdsDefault.FieldByName('CheckKind').AsInteger;
    Case iCheckKind Of
      101: ShowDefault1; //普通药品 ;
      102: ShowDefault2; //进口药品;
      103: ShowDefault3; //医疗器械;
      104: ShowDefault4; //中药饮片;
      105: ShowDefault5; //特殊药品;
      106: ShowDefault6; //非药品;
    End;
    CdsDefault.Next;
  End;
end;

procedure TFmSelGoodsCheckAcceptDefault.RzBitBtn3Click(Sender: TObject);
begin
  Close;
end;

procedure TFmSelGoodsCheckAcceptDefault.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  If Application.MessageBox('是否已保存好当前改变过的数据？','提示',4+64)=6 Then
    CanClose := True
  Else
    CanClose := False;
end;

initialization
  RegisterClass(TFmSelGoodsCheckAcceptDefault);
finalization
  UnRegisterClass(TFmSelGoodsCheckAcceptDefault);

end.