hanxuntao
/
D6HECHUAN
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 '4e4df949a6'
${ noResults }
D6HECHUAN/财务管理/u_cw_kemu.~pas

587 lines
17 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_cw_kemu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
bsSkinCtrls, StdCtrls, RxLookup, ExtCtrls, ComCtrls, bsSkinTabs, Mask,
wwdbedit, Wwdotdot, Wwdbcomb, bsSkinBoxCtrls, CheckLst, DBCtrls;
type
Tfrm_cw_kemu = class(TForm)
t_crm_client: TADOQuery;
db_cw: TADOConnection;
T_ACCOUNT: TADOQuery;
T_ACCOUNT1: TDataSource;
t_crm_client1: TDataSource;
t_cw_design: TADOQuery;
t_cw_design1: TDataSource;
t_cw_client1: TDataSource;
t_cw_client: TADOQuery;
bsSkinPanel3: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
t_sys_bank: TADOQuery;
t_sys_bank1: TDataSource;
T_Currency: TADOQuery;
T_Currency1: TDataSource;
T_CLIENT_ACCEPT: TADOQuery;
T_CLIENT_ACCEPT1: TDataSource;
T_CLIENT_PAY1: TDataSource;
T_CLIENT_PAY: TADOQuery;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinPanel1: TbsSkinPanel;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column2: TdxDBGridColumn;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid4: TdxDBGrid;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
bsSkinPanel6: TbsSkinPanel;
Label1: TLabel;
Label15: TLabel;
Label16: TLabel;
RxDBLookupCombo1: TRxDBLookupCombo;
RxDBLookupCombo2: TRxDBLookupCombo;
bsSkinButton15: TbsSkinButton;
bsSkinButton16: TbsSkinButton;
RxDBLookupCombo3: TRxDBLookupCombo;
bsSkinGroupBox3: TbsSkinGroupBox;
dxDBGrid3: TdxDBGrid;
dxDBGrid3Column2: TdxDBGridMaskColumn;
dxDBGrid3Column3: TdxDBGridMaskColumn;
dxDBGrid3Column4: TdxDBGridColumn;
bsSkinGroupBox4: TbsSkinGroupBox;
Label13: TLabel;
Label14: TLabel;
currency1: TRxDBLookupCombo;
currency2: TRxDBLookupCombo;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
t_cw_kemu: TADOQuery;
t_cw_kemu1: TDataSource;
dxDBGrid5: TdxDBGrid;
dxDBGrid5Column1: TdxDBGridMaskColumn;
dxDBGrid5Column2: TdxDBGridMaskColumn;
dxDBGrid5Column3: TdxDBGridMaskColumn;
bsSkinPanel2: TbsSkinPanel;
bsSkinPanel4: TbsSkinPanel;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinPanel5: TbsSkinPanel;
Label2: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label5: TLabel;
t_cw_kemu_seae: TADOQuery;
t_cw_kemu_seae1: TDataSource;
t_cw_kemu_seai: TADOQuery;
t_cw_kemu_seai1: TDataSource;
t_cw_kemu_aire: TADOQuery;
t_cw_kemu_aire1: TDataSource;
t_cw_kemu_airi: TADOQuery;
t_cw_kemu_airi1: TDataSource;
DBEdit1: TDBEdit;
bsSkinGroupBox1: TbsSkinGroupBox;
dxDBGrid6: TdxDBGrid;
dxDBGrid7: TdxDBGrid;
Panel1: TPanel;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
dxDBGrid7Column1: TdxDBGridMaskColumn;
dxDBGrid6Column1: TdxDBGridMaskColumn;
bsSkinGroupBox2: TbsSkinGroupBox;
dxDBGrid8: TdxDBGrid;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGrid9: TdxDBGrid;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
Panel2: TPanel;
bsSkinGroupBox5: TbsSkinGroupBox;
dxDBGrid10: TdxDBGrid;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGrid11: TdxDBGrid;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
Panel3: TPanel;
bsSkinGroupBox6: TbsSkinGroupBox;
dxDBGrid12: TdxDBGrid;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGrid;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
Panel4: TPanel;
bsSkinButton11: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton17: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure t_cw_designBeforePost(DataSet: TDataSet);
procedure bsSkinButton6Click(Sender: TObject);
procedure t_cw_kemu_seaeAfterInsert(DataSet: TDataSet);
procedure t_cw_kemu_seaiAfterInsert(DataSet: TDataSet);
procedure t_cw_kemu_aireAfterInsert(DataSet: TDataSet);
procedure t_cw_kemu_airiAfterInsert(DataSet: TDataSet);
procedure t_cw_kemu_seaeBeforeInsert(DataSet: TDataSet);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure wwDBComboBox1Enter(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure t_cw_kemuBeforePost(DataSet: TDataSet);
procedure t_cw_kemuPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_cw_kemu_seaePostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_cw_kemu_seaiPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_cw_kemu_airePostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_cw_kemu_airiPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure bsSkinButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_cw_kemu: Tfrm_cw_kemu;
implementation
uses u_main, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfrm_cw_kemu.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_cw_kemu.Hide;
frm_cw_kemu.ManualFloat(frm_cw_kemu.BoundsRect );
frm_main.freeTabs('frm_cw_kemu');
action:=cafree;
frm_cw_kemu:=nil;
end;
procedure Tfrm_cw_kemu.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_cw_kemu.FormShow(Sender: TObject);
var
str:widestring;
begin
t_cw_design.open;
t_crm_client.open;
t_sys_bank.open;
t_cw_client.open;
t_cw_kemu.OPEN;
t_cw_kemu_seae.open;
t_cw_kemu_seai.open;
t_cw_kemu_aire.open;
t_cw_kemu_airi.open;
frm_data_share.t_code_fee_type.requery;
str:='Provider=SQLOLEDB.1;';
str:=str+'Password='+t_cw_design.fieldbyname('<27><>½<EFBFBD><C2BD><EFBFBD><EFBFBD>').asstring+';';
str:=str+'Persist Security Info=False;';
str:=str+'User ID='+t_cw_design.fieldbyname('<27><>½<EFBFBD>û<EFBFBD>').asstring+';';
str:=str+'Initial Catalog='+t_cw_design.fieldbyname('<27><><EFBFBD>ݿ<EFBFBD>').asstring+';';
str:=str+'Data Source='+t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
db_cw.Connected:=false;
db_cw.ConnectionString:=str;
case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
0:
begin
end;
1:
begin
T_ACCOUNT.close;
T_ACCOUNT.SQL.Clear;
T_ACCOUNT.SQL.add('select FNumber,FName,FAccountID from T_ACCOUNT order by FNumber,FName');
T_ACCOUNT.open;
currency1.LookupField:='FCurrencyID';
currency1.LookupDisplay:='FNumber;FName';
currency2.LookupField:='FCurrencyID';
currency2.LookupDisplay:='FNumber;FName';
T_Currency.close;
T_Currency.SQL.Clear;
T_Currency.SQL.add('select * from T_Currency order by FNumber,FName');
T_Currency.open;
RxDBLookupCombo2.LookupField:='FDetailID';
RxDBLookupCombo2.LookupDisplay:='FNumber;FName;FDetailID';
dxDBGrid2.KeyField:='FItemID';
dxDBGrid2Column2.FieldName:='FNumber';
dxDBGridMaskColumn1.FieldName:='FName';
T_CLIENT_ACCEPT.close;
T_CLIENT_ACCEPT.sql.clear;
T_CLIENT_ACCEPT.sql.Add('SELECT t_Item.FItemID, rtrim(t_Item.FNumber) as FNumber, rtrim(t_Item.FName) as FName,'
+'t_ItemDetail.FDetailID FROM t_Item INNER JOIN '
+'t_ItemDetail ON t_Item.FItemID = t_ItemDetail.F1 '
+'WHERE (t_Item.FItemClassID = 1) and t_ItemDetail.FDetailCount<2 order by t_Item.FNumber');
T_CLIENT_ACCEPT.open;
RxDBLookupCombo3.LookupField:='FDetailID';
RxDBLookupCombo3.LookupDisplay:='FNumber;FName;FDetailID';
dxDBGrid4.KeyField:='FItemID';
dxDBGridColumn1.FieldName:='FNumber';
dxDBGridMaskColumn2.FieldName:='FName';
T_CLIENT_PAY.close;
T_CLIENT_PAY.sql.clear;
T_CLIENT_PAY.sql.Add('SELECT t_Item.FItemID, rtrim(t_Item.FNumber) as FNumber, rtrim(t_Item.FName) as FName,'
+'t_ItemDetail.FDetailID FROM t_Item INNER JOIN '
+'t_ItemDetail ON t_Item.FItemID = t_ItemDetail.F8 '
+'WHERE (t_Item.FItemClassID = 8) and t_ItemDetail.FDetailCount<2 order by t_Item.FNumber');
T_CLIENT_PAY.open;
end;
2:
begin
end;
3:
begin
end;
end;
end;
procedure Tfrm_cw_kemu.bsSkinButton1Click(Sender: TObject);
begin
table_post(t_cw_design);
end;
procedure Tfrm_cw_kemu.bsSkinButton2Click(Sender: TObject);
begin
table_cancel(t_cw_design);
end;
procedure Tfrm_cw_kemu.bsSkinButton15Click(Sender: TObject);
begin
if RxDBLookupCombo1.DisplayValue=''then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>ҵ<EFBFBD><D2B5><EFBFBD>еĿͻ<C4BF><CDBB><EFBFBD>');
exit;
end;
if (RxDBLookupCombo2.DisplayValue='')
AND(RxDBLookupCombo3.DisplayValue='')then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>еĿͻ<C4BF><CDBB><EFBFBD>');
exit;
end;
if t_cw_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
begin
showmessage('<27><>ǰ<EFBFBD>ͻ<EFBFBD><CDBB>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ã<EFBFBD>');
exit;
end;
t_cw_client.insert;
t_cw_client['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo1.DisplayValues[1];
t_cw_client['Ӧ<>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo2.DisplayValues[2];
t_cw_client['Ӧ<>տͻ<D5BF>']:=RxDBLookupCombo2.DisplayValues[1];
t_cw_client['Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo3.DisplayValues[2];
t_cw_client['Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>']:=RxDBLookupCombo3.DisplayValues[1];
t_cw_client.post;
RxDBLookupCombo1.ClearValue;
RxDBLookupCombo2.ClearValue;
RxDBLookupCombo3.ClearValue;
t_crm_client.Requery();
end;
procedure Tfrm_cw_kemu.bsSkinButton16Click(Sender: TObject);
begin
table_delete(t_cw_client);
t_crm_client.Requery();
end;
procedure Tfrm_cw_kemu.t_cw_designBeforePost(DataSet: TDataSet);
begin
table_before_post(t_cw_design,'<27>ұ<EFBFBD>RMB');
table_before_post(t_cw_design,'<27>ұ<EFBFBD>USD');
end;
procedure Tfrm_cw_kemu.bsSkinButton6Click(Sender: TObject);
begin
table_delete(t_cw_kemu);
end;
procedure Tfrm_cw_kemu.t_cw_kemu_seaeAfterInsert(DataSet: TDataSet);
begin
t_cw_kemu_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
t_cw_kemu_seae['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>']:=t_cw_kemu['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_cw_kemu.t_cw_kemu_seaiAfterInsert(DataSet: TDataSet);
begin
t_cw_kemu_seai['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
t_cw_kemu_seai['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>']:=t_cw_kemu['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_cw_kemu.t_cw_kemu_aireAfterInsert(DataSet: TDataSet);
begin
t_cw_kemu_aire['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
t_cw_kemu_aire['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>']:=t_cw_kemu['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_cw_kemu.t_cw_kemu_airiAfterInsert(DataSet: TDataSet);
begin
t_cw_kemu_airi['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
t_cw_kemu_airi['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>']:=t_cw_kemu['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_cw_kemu.t_cw_kemu_seaeBeforeInsert(DataSet: TDataSet);
begin
if t_cw_kemu.IsEmpty then
exit;
table_post(t_cw_kemu);
end;
procedure Tfrm_cw_kemu.bsSkinButton4Click(Sender: TObject);
begin
table_post(t_cw_kemu);
end;
procedure Tfrm_cw_kemu.bsSkinButton7Click(Sender: TObject);
begin
table_cancel(t_cw_kemu);
end;
procedure Tfrm_cw_kemu.bsSkinButton3Click(Sender: TObject);
begin
t_cw_kemu.insert;
end;
procedure Tfrm_cw_kemu.wwDBComboBox1Enter(Sender: TObject);
begin
if t_cw_kemu_seae.IsEmpty
and t_cw_kemu_seai.IsEmpty
and t_cw_kemu_aire.IsEmpty
and t_cw_kemu_airi.IsEmpty then
begin
wwDBComboBox1.ReadOnly:=false;
end
else
begin
wwDBComboBox1.ReadOnly:=true;
end;
end;
procedure Tfrm_cw_kemu.bsSkinButton10Click(Sender: TObject);
begin
table_delete(t_cw_kemu_seae);
end;
procedure Tfrm_cw_kemu.bsSkinButton12Click(Sender: TObject);
begin
table_delete(t_cw_kemu_seai);
end;
procedure Tfrm_cw_kemu.bsSkinButton18Click(Sender: TObject);
begin
table_delete(t_cw_kemu_aire);
end;
procedure Tfrm_cw_kemu.bsSkinButton14Click(Sender: TObject);
begin
table_delete(t_cw_kemu_airi);
end;
procedure Tfrm_cw_kemu.bsSkinButton9Click(Sender: TObject);
begin
if not t_cw_kemu_seae.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_cw_kemu_seae.insert;
t_cw_kemu_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_cw_kemu_seae.post;
end;
end;
procedure Tfrm_cw_kemu.bsSkinButton11Click(Sender: TObject);
begin
if not t_cw_kemu_seai.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_cw_kemu_seai.insert;
t_cw_kemu_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_cw_kemu_seai.post;
end;
end;
procedure Tfrm_cw_kemu.bsSkinButton17Click(Sender: TObject);
begin
if not t_cw_kemu_aire.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_cw_kemu_aire.insert;
t_cw_kemu_aire['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_cw_kemu_aire.post;
end;
end;
procedure Tfrm_cw_kemu.bsSkinButton13Click(Sender: TObject);
begin
if not t_cw_kemu_airi.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_cw_kemu_airi.insert;
t_cw_kemu_airi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_fee_type.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_cw_kemu_airi.post;
end;
end;
procedure Tfrm_cw_kemu.t_cw_kemuBeforePost(DataSet: TDataSet);
begin
case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
1:
begin
if not T_ACCOUNT.Locate('FNumber',t_cw_kemu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>').asstring,[])then
begin
showmessage('û<><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>Ӧ<EFBFBD>Ļ<EFBFBD><C4BB>ƿ<EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȷ¼<C8B7>룡<EFBFBD><EBA3A1>');
abort;
end;
t_cw_kemu['<27><>Ŀ<EFBFBD><C4BF>ʾ']:=T_ACCOUNT.fieldbyname('FAccountID').asstring;
t_cw_kemu['<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>']:=T_ACCOUNT.fieldbyname('FName').asstring;
end;
end;
table_before_post(t_cw_kemu,'<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>');
if (t_cw_kemu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>').asstring<>'Ӧ<><D3A6><EFBFBD>ʿ<EFBFBD>')
and(t_cw_kemu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>').asstring<>'Ӧ<><D3A6><EFBFBD>ʿ<EFBFBD>')
and(t_cw_kemu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_cw_kemu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>۳ɱ<DBB3>')
and(t_cw_kemu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>').asstring<>'<27>ֽ<EFBFBD>')
and(t_cw_kemu.fieldbyname('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD><EFBFBD>') then
begin
showmessage('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>󣡣<EFBFBD>');
abort;
end;
end;
procedure Tfrm_cw_kemu.t_cw_kemuPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if pos('<27><>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡');
abort;
end;
end;
procedure Tfrm_cw_kemu.t_cw_kemu_seaePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if pos('PRIMARY',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡');
t_cw_kemu_seae.cancel;
abort;
end;
end;
procedure Tfrm_cw_kemu.t_cw_kemu_seaiPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if pos('PRIMARY',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡');
t_cw_kemu_seai.cancel;
abort;
end;
end;
procedure Tfrm_cw_kemu.t_cw_kemu_airePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if pos('PRIMARY',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡');
t_cw_kemu_aire.cancel;
abort;
end;
end;
procedure Tfrm_cw_kemu.t_cw_kemu_airiPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if pos('PRIMARY',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡');
t_cw_kemu_airi.cancel;
abort;
end;
end;
procedure Tfrm_cw_kemu.bsSkinButton8Click(Sender: TObject);
begin
t_cw_client.first;
while not t_cw_client.eof do
begin
if not frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_cw_client.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_cw_client.delete;
end
else
begin
t_cw_client.next;
end;
end;
case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
0:
begin
end;
1:
begin
t_cw_client.first;
while not t_cw_client.eof do
begin
if not T_CLIENT_ACCEPT.Locate('FDetailID',t_cw_client.fieldbyname('Ӧ<>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_cw_client.delete;
end
else
begin
t_cw_client.next;
end;
end;
t_cw_client.first;
while not t_cw_client.eof do
begin
if not T_CLIENT_PAY.Locate('FDetailID',t_cw_client.fieldbyname('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_cw_client.delete;
end
else
begin
t_cw_client.next;
end;
end;
end;
end;
t_crm_client.Requery();
end;
end.
Reference in New Issue View Git Blame Copy Permalink