DONGSHENG6/代码字典/u_code_fee_project_copy_order.pas

unit u_code_fee_project_copy_order;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask, DBCtrls,
  wwdbedit, Wwdotdot, Wwdbcomb;

type
  Tfrm_code_fee_project_copy_order = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    wwDBComboBox1: TwwDBComboBox;
    wwDBComboBox2: TwwDBComboBox;
    Label3: TLabel;
    Label4: TLabel;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_code_fee_project_copy_order: Tfrm_code_fee_project_copy_order;

implementation

uses u_code_fee_project_order, my_sys_function;

{$R *.dfm}

procedure Tfrm_code_fee_project_copy_order.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_code_fee_project_copy_order.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  table_cancel(frm_code_fee_project_order.t_ch_project);
end;

procedure Tfrm_code_fee_project_copy_order.bsSkinButton1Click(Sender: TObject);
begin
  table_post(frm_code_fee_project_order.t_ch_project);
  frm_code_fee_project_order.t_ch_project_fee_old.first;
  while not frm_code_fee_project_order.t_ch_project_fee_old.eof do
  begin
    frm_code_fee_project_order.t_ch_project_fee.insert;
    frm_code_fee_project_order.t_ch_project_fee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_code_fee_project_order.t_ch_project_fee_old['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
    frm_code_fee_project_order.t_ch_project_fee['<27><><EFBFBD>㵥λ']:=frm_code_fee_project_order.t_ch_project_fee_old['<27><><EFBFBD>㵥λ'];
    frm_code_fee_project_order.t_ch_project_fee['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=frm_code_fee_project_order.t_ch_project_fee_old['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'];
    frm_code_fee_project_order.t_ch_project_fee['<27>ұ<EFBFBD>']:=frm_code_fee_project_order.t_ch_project_fee_old['<27>ұ<EFBFBD>'];
    frm_code_fee_project_order.t_ch_project_fee['<27><><EFBFBD><EFBFBD>']:=frm_code_fee_project_order.t_ch_project_fee_old['<27><><EFBFBD><EFBFBD>'];
    frm_code_fee_project_order.t_ch_project_fee['<27><>׼']:=frm_code_fee_project_order.t_ch_project_fee_old['<27><>׼'];
    frm_code_fee_project_order.t_ch_project_fee['<27><><EFBFBD><EFBFBD>']:=frm_code_fee_project_order.t_ch_project_fee_old['<27><><EFBFBD><EFBFBD>'];
    frm_code_fee_project_order.t_ch_project_fee['<27><><EFBFBD>ñ<EFBFBD>ע']:=frm_code_fee_project_order.t_ch_project_fee_old['<27><><EFBFBD>ñ<EFBFBD>ע'];
    frm_code_fee_project_order.t_ch_project_fee['˳<><CBB3>']:=frm_code_fee_project_order.t_ch_project_fee_old['˳<><CBB3>'];
    frm_code_fee_project_order.t_ch_project_fee.post;
    frm_code_fee_project_order.t_ch_project_standard_old.First;
    while not frm_code_fee_project_order.t_ch_project_standard_old.eof do
    begin
      frm_code_fee_project_order.t_ch_project_standard.insert;
      frm_code_fee_project_order.t_ch_project_standard['<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>']:=frm_code_fee_project_order.t_ch_project_standard_old['<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>'];
      frm_code_fee_project_order.t_ch_project_standard['<27><>׼']:=frm_code_fee_project_order.t_ch_project_standard_old['<27><>׼'];
      frm_code_fee_project_order.t_ch_project_standard['<27><><EFBFBD><EFBFBD>']:=frm_code_fee_project_order.t_ch_project_standard_old['<27><><EFBFBD><EFBFBD>'];
      frm_code_fee_project_order.t_ch_project_standard['<27><>ע']:=frm_code_fee_project_order.t_ch_project_standard_old['<27><>ע'];
      frm_code_fee_project_order.t_ch_project_standard.post;
      frm_code_fee_project_order.t_ch_project_standard_old.next;
    end;
    frm_code_fee_project_order.t_ch_project_fee_old.next;
  end;
  close;
end;

end.