sharebill.pas

进销存·完整的·有数据库的·非常完整·只得参考

    ADOSetMaster.FieldByName('UserCode').AsString :=
      GetAutoSerial(GetBillShort(lPubMode), lPubMode);
  end
  else
  begin
    ADOSetMaster.Edit;
  end;
  FieldToEdit;
end;

procedure TfrmShareBill.FieldToEdit;
var
  sDB: string;
begin
  if (lButton1 = BASE_CLIENT) or (lButton1 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton1 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton1 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton1 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';
  if EDIT1.DataField <> '' then
    EDITB1.Text := FieldIdToName(sDB,
      ADOSetMaster.FieldByName(EDIT1.DataField).AsString, 'Name');

  if (lButton2 = BASE_CLIENT) or (lButton2 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton2 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton2 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton2 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';
  if EDIT2.DataField <> '' then
    EDITB2.Text := FieldIdToName(sDB,
      ADOSetMaster.FieldByName(EDIT2.DataField).AsString, 'Name');

  if (lButton3 = BASE_CLIENT) or (lButton3 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton3 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton3 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton3 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';
  if EDIT3.DataField <> '' then
    EDITB3.Text := FieldIdToName(sDB,
      ADOSetMaster.FieldByName(EDIT3.DataField).AsString, 'Name');

  if (lButton4 = BASE_CLIENT) or (lButton4 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton4 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton4 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton4 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';
  if EDIT4.DataField <> '' then
    EDITB4.Text := FieldIdToName(sDB,
      ADOSetMaster.FieldByName(EDIT4.DataField).AsString, 'Name');

  if (lButton5 = BASE_CLIENT) or (lButton5 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton5 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton5 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton5 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';
  if EDIT5.DataField <> '' then
    EDITB5.Text := FieldIdToName(sDB,
      ADOSetMaster.FieldByName(EDIT5.DataField).AsString, 'Name');

  if (lButton6 = BASE_CLIENT) or (lButton6 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton6 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton6 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton6 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';
  if EDIT6.DataField <> '' then
    EDITB6.Text := FieldIdToName(sDB,
      ADOSetMaster.FieldByName(EDIT6.DataField).AsString, 'Name');

end;

procedure TfrmShareBill.ToolShow;
begin
end;

procedure TfrmShareBill.bbExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmShareBill.EDITB1ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sID: string;
  sDB: string;
begin
  inherited;
  if (lButton1 = BASE_CLIENT) or (lButton1 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton1 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton1 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton1 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';

  sID := BaseSelect(lButton1, 1, EDIT1.Text);
  ADOSetMaster.Edit;
  ADOSetMaster.FieldByName(EDIT1.DataField).AsInteger := StrToInt2(sID);
  EDITB1.Text := FieldIdToName(sDB, sID, 'Name');
end;

procedure TfrmShareBill.EDITB2ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sID: string;
  sDB: string;
begin
  inherited;
  if (lButton2 = BASE_CLIENT) or (lButton2 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton2 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton2 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton2 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';

  sID := BaseSelect(lButton2, 1, EDIT2.Text);
  ADOSetMaster.Edit;
  ADOSetMaster.FieldByName(EDIT2.DataField).AsInteger := StrToInt2(sID);
  EDITB2.Text := FieldIdToName(sDB, sID, 'Name');

end;

procedure TfrmShareBill.EDITB3ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sID: string;
  sDB: string;
begin
  inherited;
  if (lButton3 = BASE_CLIENT) or (lButton3 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton3 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton3 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton3 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';

  sID := BaseSelect(lButton3, 1, EDIT3.Text);
  ADOSetMaster.Edit;
  ADOSetMaster.FieldByName(EDIT3.DataField).AsInteger := StrToInt2(sID);
  EDITB3.Text := FieldIdToName(sDB, sID, 'Name');

end;

procedure TfrmShareBill.EDITB4ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sID: string;
  sDB: string;
begin
  inherited;
  if (lButton4 = BASE_CLIENT) or (lButton4 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton4 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton4 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton4 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';

  sID := BaseSelect(lButton4, 1, EDIT4.Text);
  ADOSetMaster.Edit;
  ADOSetMaster.FieldByName(EDIT4.DataField).AsInteger := StrToInt2(sID);
  EDITB4.Text := FieldIdToName(sDB, sID, 'Name');
end;

procedure TfrmShareBill.EDITB5ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sID: string;
  sDB: string;
begin
  inherited;
  if (lButton5 = BASE_CLIENT) or (lButton5 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton5 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton5 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton5 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseInfo';

  sID := BaseSelect(lButton5, 1, EDIT5.Text);
  ADOSetMaster.Edit;
  ADOSetMaster.FieldByName(EDIT5.DataField).AsInteger := StrToInt2(sID);
  EDITB5.Text := FieldIdToName(sDB, sID, 'Name');
end;

procedure TfrmShareBill.EDITB6ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sID: string;
  sDB: string;
begin
  inherited;
  if (lButton6 = BASE_CLIENT) or (lButton6 = BASE_PROVIDE) then
    sDB := 'Unit'
  else if (lButton6 = BASE_EMPLOYE) then
    sDB := 'Employe'
  else if (lButton6 = BASE_WARE) then
    sDB := 'Ware'
  else if (lButton6 = BASE_DEPOT) then
    sDB := 'Depot'
  else
    sDB := 'BaseI1=nfo';

  sID := BaseSelect(lButton6, 1, '');
  ADOSetMaster.Edit;
  ADOSetMaster.FieldByName(EDIT6.DataField).AsInteger := StrToInt2(sID);
  EDITB6.Text := FieldIdToName(sDB, sID, 'Name');
end;

procedure TfrmShareBill.GridButtonClick(Sender: TObject; AbsoluteIndex:
  Integer);
var
  sWareID: string;
begin
  sWareID := BaseSelect(BASE_WARE, 1, gridMain.FocusedField.AsString);
  if (ADOSetList.State <> dsEdit) and (ADOSetList.State <> dsInsert) then
    ADOSetList.Edit;

  ADOSetList.FieldByName('WareID').AsInteger := StrToInt2(sWareID);
  ADOSetList.FieldByName('WareCode').AsString := FieldIdToName('Ware', sWareID,
    'UserCode');
  ADOSetList.FieldByName('WareName').AsString := FieldIdToName('Ware', sWareID,
    'Name');
  ADOSetList.FieldByName('WareUnit').AsString := FieldIdToName('Ware', sWareID,
    'Unit');
end;

procedure TfrmShareBill.SaveData;
begin
  if (ADOSetMaster.State in [dsEdit, dsInsert]) then
    ADOSetMaster.FieldByName('Mode').AsInteger := lPubMode;
  SaveDataSet(ADOSetList, true);
  SaveDataSet(ADOSetMaster, false);
end;

procedure TfrmShareBill.ADOSetListAfterInsert(DataSet: TDataSet);
begin
  inherited;
  ADOSetList.FieldByName('IndexID').AsInteger :=
    ADOSetMaster.FieldByName('ID').AsInteger;
  ADOSetList.FieldByName('Mode').AsInteger := lPubMode;
end;

procedure TfrmShareBill.bbOkClick(Sender: TObject);
begin
  inherited;
  SaveData;
  Close;
end;

procedure TfrmShareBill.bbPrintClick(Sender: TObject);
begin
  inherited;
  PrintForm(Self, 1, SHOW_REPORT, sPrintFile);
end;

procedure TfrmShareBill.gridMainCustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: string; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  inherited;
  SetGridColor(ANode, AColor);
end;

procedure TfrmShareBill.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_RETURN:
      begin
        if GetFocusedComponent(self) is TdxInplaceEdit then
          perform(WM_NEXTDLGCTL, 0, 0);
      end;
    VK_ESCAPE: Close;
  end;
end;

procedure TfrmShareBill.edtBillDateKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_DOWN: SendMsg(TWinControl(Sender).Handle, WM_KEYDOWN, VK_F4);
  end;
end;

end.