hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '48f045977c'
${ noResults }
DS6JIEFENG/代码字典/u_code_fee_project_copy.pas

84 lines
3.3 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_code_fee_project_copy;
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 = 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: Tfrm_code_fee_project_copy;
implementation
uses u_code_fee_project, my_sys_function;
{$R *.dfm}
procedure Tfrm_code_fee_project_copy.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_code_fee_project_copy.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
table_cancel(frm_code_fee_project.t_ch_project);
end;
procedure Tfrm_code_fee_project_copy.bsSkinButton1Click(Sender: TObject);
begin
table_post(frm_code_fee_project.t_ch_project);
frm_code_fee_project.t_ch_project_fee_old.first;
while not frm_code_fee_project.t_ch_project_fee_old.eof do
begin
frm_code_fee_project.t_ch_project_fee.insert;
frm_code_fee_project.t_ch_project_fee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_code_fee_project.t_ch_project_fee_old['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
frm_code_fee_project.t_ch_project_fee['<27><><EFBFBD>㵥λ']:=frm_code_fee_project.t_ch_project_fee_old['<27><><EFBFBD>㵥λ'];
frm_code_fee_project.t_ch_project_fee['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=frm_code_fee_project.t_ch_project_fee_old['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'];
frm_code_fee_project.t_ch_project_fee['<27>ұ<EFBFBD>']:=frm_code_fee_project.t_ch_project_fee_old['<27>ұ<EFBFBD>'];
frm_code_fee_project.t_ch_project_fee['<27><><EFBFBD><EFBFBD>']:=frm_code_fee_project.t_ch_project_fee_old['<27><><EFBFBD><EFBFBD>'];
frm_code_fee_project.t_ch_project_fee['<27><>׼']:=frm_code_fee_project.t_ch_project_fee_old['<27><>׼'];
frm_code_fee_project.t_ch_project_fee['<27><><EFBFBD><EFBFBD>']:=frm_code_fee_project.t_ch_project_fee_old['<27><><EFBFBD><EFBFBD>'];
frm_code_fee_project.t_ch_project_fee['<27><><EFBFBD>ñ<EFBFBD>ע']:=frm_code_fee_project.t_ch_project_fee_old['<27><><EFBFBD>ñ<EFBFBD>ע'];
frm_code_fee_project.t_ch_project_fee['˳<><CBB3>']:=frm_code_fee_project.t_ch_project_fee_old['˳<><CBB3>'];
frm_code_fee_project.t_ch_project_fee.post;
frm_code_fee_project.t_ch_project_standard_old.First;
while not frm_code_fee_project.t_ch_project_standard_old.eof do
begin
frm_code_fee_project.t_ch_project_standard.insert;
frm_code_fee_project.t_ch_project_standard['<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>']:=frm_code_fee_project.t_ch_project_standard_old['<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>'];
frm_code_fee_project.t_ch_project_standard['<27><>׼']:=frm_code_fee_project.t_ch_project_standard_old['<27><>׼'];
frm_code_fee_project.t_ch_project_standard['<27><><EFBFBD><EFBFBD>']:=frm_code_fee_project.t_ch_project_standard_old['<27><><EFBFBD><EFBFBD>'];
frm_code_fee_project.t_ch_project_standard['<27><>ע']:=frm_code_fee_project.t_ch_project_standard_old['<27><>ע'];
frm_code_fee_project.t_ch_project_standard.post;
frm_code_fee_project.t_ch_project_standard_old.next;
end;
frm_code_fee_project.t_ch_project_fee_old.next;
end;
close;
end;
end.