⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sharebill.pas

📁 中小企业管理系统------ ERP系统原代码
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 

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.



//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -