.#goodscheckacceptdefault.pas.1.6

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

      2: ShowDefault2; //进口药品;
      3: ShowDefault3; //医疗器械;
      4: ShowDefault4; //中药饮片;
      5: ShowDefault5; //特殊药品;
      6: ShowDefault6; //非药品;
    End;
    CdsDefault.Next;
  End;
end;

procedure TFmGoodsCheckAcceptDefault.RzBitBtn1Click(Sender: TObject);
Var iCheckKind : Integer;
  i: Integer;
begin
{  With CdsDefault Do
  Begin
    First;
    While Not Eof Do
    Begin}
    For I:=0 To 5 Do
    begin
      If PgcDefault.Pages[i].TabVisible Then
      begin
        iCheckKind := 1+i;
        Case iCheckKind Of
          1: SaveDefault1;  //普通药品
          2: SaveDefault2;  //进口药品
          3: SaveDefault3;  //医疗机械
          4: SaveDefault4;  //中药饮片
          5: SaveDefault5;  //特殊药品
          6: SaveDefault6;  //非药品
        End;
      end;
    end;
{      iCheckKind := CdsDefault.FieldByName('CheckKind').AsInteger;
      Case iCheckKind Of
        1: SaveDefault1;  //普通药品
        2: SaveDefault2;  //进口药品
        3: SaveDefault3;  //医疗机械
        4: SaveDefault4;  //中药饮片
        5: SaveDefault5;  //特殊药品
        6: SaveDefault6;  //非药品
      End;
      Next;
    End;}
    SvrDefault.AppServer.SaveGCADefault(IClientID,sSaveSql);
//  End;
end;

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

procedure TFmGoodsCheckAcceptDefault.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,'2']);
  sSaveSql := sSaveSql+Str+chr(13);
End;

procedure TFmGoodsCheckAcceptDefault.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,'3']);
  sSaveSql := sSaveSql+Str+chr(13);
end;

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

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

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

procedure TFmGoodsCheckAcceptDefault.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 TFmGoodsCheckAcceptDefault.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 TFmGoodsCheckAcceptDefault.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 TFmGoodsCheckAcceptDefault.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 TFmGoodsCheckAcceptDefault.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 TFmGoodsCheckAcceptDefault.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 TFmGoodsCheckAcceptDefault.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
      1: ShowDefault1; //普通药品 ;
      2: ShowDefault2; //进口药品;
      3: ShowDefault3; //医疗器械;
      4: ShowDefault4; //中药饮片;
      5: ShowDefault5; //特殊药品;
      6: ShowDefault6; //非药品;
    End;
    CdsDefault.Next;
  End;
end;

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

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

initialization
  RegisterClass(TFmGoodsCheckAcceptDefault);
finalization
  UnRegisterClass(TFmGoodsCheckAcceptDefault);

end.