unit u_op_card_add;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, Grids, Wwdbigrd, Wwdbgrid, DB, dxExEdtr,
  dxDBTLCl, dxGrClms, bsSkinCtrls, dxTL, dxDBCtrl, dxDBGrid, dxCntner;

type
  Tfrm_op_card_add = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    DataSource1: TDataSource;
    bsSkinGroupBox1: TbsSkinGroupBox;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridMaskColumn;
    dxDBGrid2Column3: TdxDBGridDateColumn;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridMaskColumn;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_card_add: Tfrm_op_card_add;

implementation

uses u_data_share, u_main;

{$R *.dfm}

procedure Tfrm_op_card_add.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_card_add.dxDBGrid1DblClick(Sender: TObject);
begin
  if frm_data_share.t_code_card.isempty then
    exit;
  if bsSkinCheckRadioBox2.Checked then
  begin
    DataSource1.DataSet.insert;
    DataSource1.DataSet['单证名称']:=frm_data_share.t_code_card['单证名称'];
    DataSource1.DataSet['接单日期']:=date;
    DataSource1.DataSet.post;
  end
  else
  begin
    DataSource1.DataSet.edit;
    DataSource1.DataSet['单证名称']:=frm_data_share.t_code_card['单证名称'];
    DataSource1.DataSet.post;
  end;
end;

procedure Tfrm_op_card_add.bsSkinButton6Click(Sender: TObject);
begin
  if frm_data_share.t_code_card_project_de.isempty then
    exit;
  frm_data_share.t_code_card_project_de.first;
  while not frm_data_share.t_code_card_project_de.eof do
  begin
    DataSource1.DataSet.insert;
    DataSource1.DataSet['单证名称']:=frm_data_share.t_code_card_project_de['单证名称'];
    DataSource1.DataSet['接单日期']:=date;
    DataSource1.DataSet.post;
    frm_data_share.t_code_card_project_de.next;
  end;
     
  close;
end;

end.