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 'master'
${ noResults }
DS6JIEFENG/海运业务/u_op_seae_paper_manage.pas

927 lines
26 KiB
Plaintext
Raw Permalink 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_op_seae_paper_manage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, bsSkinCtrls, DB,
ADODB, ExtCtrls, RxLookup, StdCtrls, wwdbdatetimepicker, wwdblook, Menus,
Mask, bsSkinBoxCtrls, bsdbctrls,DateUtils, kbmMemTable, DBCtrlsEh,
ComCtrls, bsSkinTabs, dxDBTLCl, dxGrClms, cxDBLabel, cxControls,
cxContainer, cxEdit, cxLabel, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxDBEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DBCtrls;
type
Tfrm_op_seae_paper_manage = class(TForm)
qry_paper_detail: TADOQuery;
ds2_detail: TDataSource;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinPanel3: TbsSkinPanel;
btn6_exit: TbsSkinButton;
btn_seach2: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinPanel4: TbsSkinPanel;
Label13: TLabel;
Label14: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
wwDBDateTimePicker6: TwwDBDateTimePicker;
dxDBGrid1: TdxDBGrid;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
Edit6_searchtdh: TEdit;
Label8: TLabel;
bsknpnl1: TbsSkinPanel;
pnl2: TbsSkinPanel;
qry1_paper_in: TADOQuery;
Edit1_tdzbh: TEdit;
lbl14: TLabel;
bsknpnl4_NewQDT: TbsSkinPanel;
lbl15_searchqdthm: TLabel;
ds1: TDataSource;
N2: TMenuItem;
qry_crm_client: TADOQuery;
ds_crm_client: TDataSource;
dxdbgrdclmndxdbgrd1_SColumn2: TdxDBGridColumn;
dxdbgrdclmndxdbgrd1_SColumn3: TdxDBGridColumn;
dxdbgrdclmndxdbgrd1_SColumn4_noP: TdxDBGridColumn;
dxdbgrdclmndxdbgrd1_SColumn5_noB: TdxDBGridColumn;
dxdbgrdclmndxdbgrd1_SColumn6_noE: TdxDBGridColumn;
dxdbgrdclmndxdbgrd1_SColumn7: TdxDBGridColumn;
dxdbgrdclmndxdbgrd1_SColumn8: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column1: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column2: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column3: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column4: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column5: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column6: TdxDBGridColumn;
dxdbgrd1_S: TdxDBGrid;
dxdbgrdclmnDBGrid1Column7: TdxDBGridColumn;
dxdbgrdclmndxdbgrd1_SColumn9: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column8: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column9: TdxDBGridColumn;
dxdbgrdclmnDBGrid1Column10: TdxDBGridColumn;
qry1_sel: TADOQuery;
ds2_sel: TDataSource;
lbl9: TLabel;
cbb1_printstate: TbsSkinComboBox;
lbl10: TLabel;
cbb2_shipinc_paper: TRxDBLookupCombo;
qry2_crm_client_paper: TADOQuery;
ds2_crm_client_paper: TDataSource;
btn4_exit: TbsSkinButton;
btn1_Refresh: TbsSkinButton;
btn4_cancel: TbsSkinButton;
btn1_addPaper: TbsSkinButton;
edt1_pagecount: TEdit;
lbl1: TLabel;
bskndbtxt1: TbsSkinDBText;
lbl8: TLabel;
cbb1: TRxDBLookupCombo;
lbl6: TLabel;
cbb3_GenNoList: TbsSkinComboBox;
btn1_genNolist: TbsSkinButton;
Edit3_endNo: TEdit;
lbl7: TLabel;
Edit2_startno: TEdit;
lbl3: TLabel;
Edit1_preno: TEdit;
lbl2: TLabel;
bsSkinPanel1: TbsSkinPanel;
bsSkinGroupBox1: TbsSkinGroupBox;
lbl5: TLabel;
lbl4: TLabel;
wdbdtmpckr2_kc: TwwDBDateTimePicker;
wdbdtmpckr1_kc: TwwDBDateTimePicker;
cbb2: TcxDBComboBox;
btn4_searchNew: TbsSkinButton;
procedure btn4_exitClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btn3_clearConditonClick(Sender: TObject);
procedure btn4_searchNewClick(Sender: TObject);
procedure bsknpnl1Resize(Sender: TObject);
procedure btn1_addPaperClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Edit3_ztdhKeyPress(Sender: TObject; var Key: Char);
procedure dxdbgrd1_SDblClick(Sender: TObject);
procedure dxdbgrdclmndxdbgrd1xdbgrdclmndxdbgrd1Column13CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean;
var ADone: Boolean);
procedure dxDBGrid2Column14CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean;
var ADone: Boolean);
procedure MenuItem1Click(Sender: TObject);
procedure btn6_exitClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btn11Click(Sender: TObject);
procedure searchqdt(bh:string);
procedure Edit1_tdzbhKeyPress(Sender: TObject; var Key: Char);
procedure dxDBGrid1DblClick(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure edt1_pagecountKeyPress(Sender: TObject; var Key: Char);
procedure Edit6_searchtdhKeyPress(Sender: TObject; var Key: Char);
procedure btn_seach2Click(Sender: TObject);
procedure cbb1Change(Sender: TObject);
procedure btn1_genNolistClick(Sender: TObject);
procedure btn1_RefreshClick(Sender: TObject);
procedure wdbdtmpckr2_kcKeyPress(Sender: TObject; var Key: Char);
procedure btn4_cancelClick(Sender: TObject);
private
{ Private declarations }
employeePhone:string;
m_infomation:string;
m_strNo_pre,m_strNo_start,m_strNo_end:string;//<2F><>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>ᵥҳ<E1B5A5><D2B3>ʱ<EFBFBD>ij<EFBFBD>ʼֵ
function CheckBilldue():Boolean;
procedure bindPaperIn();
function genPaperno():Boolean;
procedure inctypeChange();
public
{ Public declarations }
op:integer;
end;
var
frm_op_seae_paper_manage: Tfrm_op_seae_paper_manage;
implementation
uses u_main,my_sys_function, u_sys_progress ;
{$R *.dfm}
//const stateNewQD = '<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>';
//
procedure Tfrm_op_seae_paper_manage.bindPaperIn();
var
str:string;
shipinc:string;
begin
//str:=cbb1.text;
shipinc:= cbb1.DisplayValues[1] ;
if shipinc<>'' then
str:=' and <20><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>='''+ shipinc + '''' ;
if wdbdtmpckr1_kc.Text<>'' then
str:=' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+ wdbdtmpckr1_kc.Text + '''' ;
if wdbdtmpckr2_kc.Text<>'' then
str:=' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='''+ wdbdtmpckr2_kc.Text + ' 23:59:59''' ;
str:= 'select * from t_op_seae_paper_in where 1=1 ' + str ;
with qry1_paper_in do begin
close;sql.Clear;
SQL.Add(str);
Open;
end;
end;
procedure Tfrm_op_seae_paper_manage.btn4_exitClick(Sender: TObject);
begin
Close;
end;
procedure Tfrm_op_seae_paper_manage.FormShow(Sender: TObject);
var str,mblstatus:string;
begin
loadreggrid(dxdbgrd1_S,false,caption+'1');
loadreggrid(dxDBGrid1,false,caption+'2');
qry_crm_client.Close();
qry_crm_client.Open();
qry_crm_client.First;
qry1_sel.Close();
qry1_sel.Open;
//
qry2_crm_client_paper.Close();
qry2_crm_client_paper.Open;
bsSkinPageControl1.ActivePageIndex:=0;
dxdbgrd1_S.Width:=self.ClientWidth;
bsknpnl1.Height :=34;
self.WindowState:= wsMaximized;
wwDBDateTimePicker5.Date:=Date-7; ;//StrToDateTime(Formatdatetime('YYYY-MM-DD',date-7));
wwDBDateTimePicker6.Date:=Date;//StrToDateTime(Formatdatetime('YYYY-MM-DD',date));
inctypeChange();
end;
procedure Tfrm_op_seae_paper_manage.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrd1_S,caption+'1');
savereggrid(dxDBGrid1,caption+'2');
frm_op_seae_paper_manage.Hide;
frm_op_seae_paper_manage.ManualFloat(frm_op_seae_paper_manage.BoundsRect );
frm_main.freeTabs('frm_op_seae_paper_manage');
action:=cafree;
frm_op_seae_paper_manage:=nil;
end;
procedure Tfrm_op_seae_paper_manage.btn3_clearConditonClick(Sender: TObject);
begin
//Edit1_ywbh.text:='';
//Edit2_wtbh.text:='';
end;
function replaceSQuotes(txt: string):string;
begin
result:=stringreplace(txt,'''','''''',[rfReplaceAll]);
end;
procedure Tfrm_op_seae_paper_manage.btn4_searchNewClick(Sender: TObject);
var
str,mblstatus:widestring;
begin
bindPaperIn();
end;
procedure Tfrm_op_seae_paper_manage.bsknpnl1Resize(Sender: TObject);
var
i:integer;
begin
// i:=round(bsSkinPanel1.Width/11);
// bsSkinButton9.Width:=i;
//bsSkinButton1.Width:=i;
end;
procedure Tfrm_op_seae_paper_manage.btn1_addPaperClick(Sender: TObject);
var
str:widestring;
ipagecount:integer;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD><EFBFBD>
aQuery:TAdoQuery;
//qdm_Query:TAdoQuery;
paperd_Query:TAdoQuery;
info:string;
strwtdw1,strwtdw2,zhtdh:string;
dbTime:TDateTime;
strNo_pre,strNo_start,strNo_end:string;
blIsHasPaperNo:Boolean;//<2F>ᵥֽ<E1B5A5>Ƿ<EFBFBD><C7B7>б<EFBFBD><D0B1><EFBFBD>
shipinc:string;//<2F><><EFBFBD><EFBFBD>˾
inputNo:Integer;
i:Integer;
begin
strNo_pre:='';
strNo_start:='';
strNo_end:='';
shipinc:= cbb1.DisplayValues[1] ;
if shipinc ='' then
begin
Application.MessageBox(pchar('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>,<2C><>ѡ<EFBFBD>񴬹<EFBFBD>˾'),PChar('<27><>Ϣ<EFBFBD><CFA2>ʾ'),MB_ICONINFORMATION);
Exit;
end;
blIsHasPaperNo:=qry_crm_client.fieldbyname('<27>ᵥֽ<E1B5A5>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean;
if(blIsHasPaperNo) then
begin
if(cbb3_GenNoList.Items.count<1) then
begin
Application.MessageBox(pchar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD><EFBFBD>!'),PChar('<27><>Ϣ<EFBFBD><CFA2>ʾ'),MB_ICONINFORMATION);
Exit;
end;
strNo_pre :=trim(Edit1_preno.text);
strNo_start:=trim(Edit2_startno.text);
strNo_end :=Trim(Edit3_endNo.text);
if(strNo_start<>m_strNo_start) or (strNo_end<>m_strNo_end) then
begin
Application.MessageBox(pchar('<27><><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5>ź<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>ͽ<EFBFBD><CDBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ı䣡'
+#13#10+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD>!'),PChar('<27><>Ϣ<EFBFBD><CFA2>ʾ'),MB_ICONINFORMATION);
Exit;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>
aQuery:=CreateAdoQuery();
str:='select count(1) as f_count from [t_op_seae_paper_detail] '
+' where <20><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>=''' + cbb1.DisplayValues[1]
+''' and [<5B>ᵥֽ<E1B5A5><D6BD>]>='''+ strNo_start + ''' and [<5B>ᵥֽ<E1B5A5><D6BD>]<='''+ strNo_end+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_seae_paper_in where <20><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>='''+cbb1.DisplayValues[1]+''' and ǰ׺<C7B0><D7BA><EFBFBD><EFBFBD>='''+Trim(Edit1_preno.Text)+''')' ;
with aQuery do begin
close;
sql.Clear;
SQL.Add(str);
Open;
if(fieldbyname('f_count').asinteger >0 ) then
begin
//
info:='<27><>' +inttostr( fieldbyname('f_count').asinteger) +'<27><><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><>ȷ<EFBFBD><C8B7>';
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
close;
Exit;
end;
aQuery:=nil;
end;
end;
ipagecount:=strtoint(trim(edt1_pagecount.Text));
if(ipagecount<1) then
begin
Application.MessageBox(pchar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD><EFBFBD>!'),PChar('<27><>Ϣ<EFBFBD><CFA2>ʾ'),MB_ICONINFORMATION);
Exit;
end;
if(ipagecount>1000) then
begin
if(Application.MessageBox(pchar('<27><>ǰҪ<C7B0><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽΪ'+ inttostr(ipagecount)
+'<27><>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD><EFBFBD>1000<30><30><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'+#13#10+'ѡ<><D1A1>(Y)<29><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'),'<27><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>'
,MB_ICONQUESTION+MB_YESNO) <> ID_YES) then
Exit;
end;
//
str:= 'INSERT INTO [t_sys_paperid] ([inputperson]) VALUES ('''+ employee +''');';
aQuery:=CreateAdoQuery();
aQuery.Close;
aQuery.SQL.Clear;
aQuery.SQL.Add(str) ;
aQuery.ExecSQL();
aQuery.sql.Clear();
str:= 'select MAX(paperid) as inputNo,GETDATE()as FDate from t_sys_paperid; ';
aQuery.sql.add(str);
aQuery.Open;
aQuery.First;
inputNo:=aQuery.FieldByName('inputNo').AsInteger;
dbTime:=aQuery.FieldByName('FDate').AsDateTime;
aQuery.Close;
try
frm_main.db.BeginTrans;
//<2F><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>
//3b<33>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD>
aQuery.Close;
aQuery.SQL.Clear;
aQuery.SQL.Add('UPDATE [t_op_seae_paper_shipinc] '
+ ' SET [<5B>ᵥֽʣ<D6BD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>] = <20>ᵥֽʣ<D6BD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>+ '+inttostr(ipagecount )
+ ' WHERE [<5B><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>] = ''' + cbb1.DisplayValues[1] +'''');
aQuery.ExecSQL;
//<2F><><EFBFBD><EFBFBD>
with qry1_paper_in do begin
Insert;
FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger := inputNo;
FieldByName('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>').AsString := shipinc;
FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString := '<27><><EFBFBD><EFBFBD>';
FieldByName('ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger := ipagecount;
FieldByName('ǰ׺<C7B0><D7BA><EFBFBD><EFBFBD>').AsString := strNo_pre ;
FieldByName('<27><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>').AsString := strNo_start;
FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString := strNo_end;
FieldByName('<27><>ע').AsString := '';
FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').AsString := employee;
FieldByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime := DatabaseDateTime;
end;
//qry_crm_client.Post;
qry1_paper_in.Post;
if(blIsHasPaperNo) then
begin
paperd_Query:=CreateAdoQuery();
paperd_Query.Close;
paperd_Query.SQL.Clear;
paperd_Query.SQL.Add('select * from t_op_seae_paper_detail where 1=2');
paperd_Query.Open;
// ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽ
for i:=0 to cbb3_GenNoList.Items.count-1 do
begin
//
with paperd_Query do
begin
Insert;
FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger := inputNo;
FieldByName('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>').AsString := shipinc;
FieldByName('<27>ᵥֽ<E1B5A5><D6BD>').AsString := cbb3_GenNoList.Items[i];
end;
end;
paperd_Query.Post();
paperd_Query.Close();
cbb3_GenNoList.Items.Clear;
end;
frm_main.db.CommitTrans;
except
on ex: Exception do
begin
qry_crm_client.Cancel;
qry1_paper_in.Cancel;
frm_main.db.RollbackTrans;
errorlog(ex.Message) ;
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>:'+ex.Message),'',MB_ICONWARNING);
bindPaperIn();
Exit;
end;
end;
qry_crm_client.Close();
qry_crm_client.Open();
dxdbgrd1_S.ClearSelection();
bindPaperIn();
//
end;
procedure Tfrm_op_seae_paper_manage.N1Click(Sender: TObject);
begin
//grid_save_xls(dxdbgrd2);
end;
procedure Tfrm_op_seae_paper_manage.Edit3_ztdhKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
//bsSkinButton8Click(Sender);
end;
end;
procedure Tfrm_op_seae_paper_manage.dxdbgrd1_SDblClick(Sender: TObject);
begin
//
end;
procedure Tfrm_op_seae_paper_manage.dxdbgrdclmndxdbgrd1xdbgrdclmndxdbgrd1Column13CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
{
if Trim(ANode.Strings[dxDBGrid2Column13.Index])<>'' then
AColor:=clred;
AFont.Color:=clblack;
}
end;
procedure Tfrm_op_seae_paper_manage.dxDBGrid2Column14CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
{if Trim(ANode.Strings[dxDBGrid2Column14.Index])<>'' then
AColor:=clred;
AFont.Color:=clblack;
}
end;
procedure Tfrm_op_seae_paper_manage.MenuItem1Click(Sender: TObject);
begin
grid_save_xls(dxDBGrid1);
end;
procedure Tfrm_op_seae_paper_manage.btn6_exitClick(Sender: TObject);
begin
Close;
end;
procedure Tfrm_op_seae_paper_manage.btn11Click(Sender: TObject);
begin
bsSkinPageControl1.Pages[0].Visible:=true;
bsSkinPageControl1.Pages[1].Visible:=true;
bsSkinPageControl1.ActivePageIndex:=0;
end;
procedure Tfrm_op_seae_paper_manage.searchqdt(bh:string);
begin
//
if bh<>'' then
begin
//
end;
end;
procedure Tfrm_op_seae_paper_manage.Edit1_tdzbhKeyPress(Sender: TObject;
var Key: Char);
var
str:string;
begin
//
if key=#13 then
begin
end;
end;
procedure Tfrm_op_seae_paper_manage.dxDBGrid1DblClick(Sender: TObject);
var
str:string;
begin
end;
/// <summary>
/// <20><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB>Ƿ<EFBFBD>Ƿ<EFBFBD><C7B7>
/// </summary>
function Tfrm_op_seae_paper_manage.CheckBilldue():Boolean;
var
FeeItems:string;
amt,usd:Double;
wtdw,tdh,bh,jflx:string;
begin
Result:=True;
if(cbb3_GenNoList.Items.count<1) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD><EFBFBD>!','<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Result:=False;
Exit;
end;
//<2F>жϺ<D0B6><CFBA><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>
end; //end CheckBilldue
procedure Tfrm_op_seae_paper_manage.N2Click(Sender: TObject);
var
i:Integer;
info,strXH,str:string;
begin
// <20><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ֽ δʹ<CEB4><CAB9>,<2C>ɽ<EFBFBD><C9BD><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if( dxDBGrid1.SelectedCount<1) then
Exit;
try
qry2_crm_client_paper.DisableControls;
strXH:='';
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
qry2_crm_client_paper.GoTobookmark(pointer(dxDBGrid1.SelectedRows[i]));
//״̬
if( qry2_crm_client_paper.fieldbyname('ʹ<><CAB9>״̬').AsString<>'δ<><CEB4>ӡ') then
begin
//<2F>հ<EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD>
info:='<27>հ<EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB>ѡ<EFBFBD><D1A1>δʹ<CEB4>õĿհ<C4BF>ֽ';
Application.MessageBox(pchar(info),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Exit;
end;
//
if(strXH='') then
strXH:=qry2_crm_client_paper.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString
else
strXH := strXH +','+ qry2_crm_client_paper.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
end;
//<2F><><EFBFBD><EFBFBD>״̬ͬʱ<CDAC>޸Ŀ<DEB8><C4BF><EFBFBD>
str:='';
finally
qry2_crm_client_paper.EnableControls;
end;
end;
procedure Tfrm_op_seae_paper_manage.bsSkinPageControl1Change(Sender: TObject);
begin
//
end;
procedure Tfrm_op_seae_paper_manage.FormResize(Sender: TObject);
begin
//
bsSkinTabSheet1.Width:=self.ClientWidth;
end;
procedure Tfrm_op_seae_paper_manage.bsSkinButton14Click(Sender: TObject);
begin
wwDBDateTimePicker5.text:='';
wwDBDateTimePicker6.text:='';
Edit1_tdzbh.text:='';
Edit6_searchtdh.text:='';
end;
procedure Tfrm_op_seae_paper_manage.edt1_pagecountKeyPress(Sender: TObject;
var Key: Char);
begin
if not (Key in [#8, #13, #127, '.', '-', '0'..'9']) then Key := #0;
end;
procedure Tfrm_op_seae_paper_manage.Edit6_searchtdhKeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
end;
end;
procedure Tfrm_op_seae_paper_manage.btn_seach2Click(Sender: TObject);
var
str,strorder,strChgs,strtmp:string;
begin
strChgs:= cbb2_shipinc_paper.DisplayValues[1] ;
if(strChgs='') then
begin
Application.MessageBox('<27><>ѡ<EFBFBD>񴬹<EFBFBD>˾','<27><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>',MB_ICONINFORMATION);
exit;
end;
str:='';
str:=' AND d.<2E><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>= ''' +strChgs +''' ';
strtmp:= StringReplace(trim(Edit1_tdzbh.text),'''','',[rfReplaceAll]);
if Edit1_tdzbh.text<>'' then
str:=str + ' AND d.<2E>ᵥֽ<E1B5A5><D6BD> like ''%' +strtmp +'%''';
strtmp:= StringReplace(trim(Edit6_searchtdh.text),'''','',[rfReplaceAll]);
if strtmp<>'' then
str:=str + ' AND d.<2E>ᵥ<EFBFBD><E1B5A5> like ''%' +strtmp +'%''';
if cbb1_printstate.ItemIndex>0 then //0 Ϊ<<3C><>>
str:=str + ' AND isnull(d.[ʹ<><CAB9>״̬],''δ<><CEB4>ӡ'')='''+cbb1_printstate.Text+''' ' ;
//
str:='SELECT d.[<5B><><EFBFBD><EFBFBD>],d.[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],d.[<5B><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>],d.[<5B>ᵥֽ<E1B5A5><D6BD>],d.[<5B>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>],'
+'d.[<5B>ᵥ<EFBFBD><E1B5A5>],d.[ҳ<><D2B3>],d.[<5B><>ҳ<EFBFBD><D2B3>],isnull(d.[ʹ<><CAB9>״̬],''δ<><CEB4>ӡ'') as [ʹ<><CAB9>״̬]'
+',d.[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],d.[<5B><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>],d.[<5B><>ע],d.[<5B>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>],d.[<5B><>ӡ̨<D3A1><CCA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>] '
+',m.¼<><C2BC><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,m.¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FROM '
+' [t_op_seae_paper_detail] d,t_op_seae_paper_in m where d.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=m.<2E><><EFBFBD><EFBFBD> '
+ str;
strorder :=' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ᵥֽ<E1B5A5><D6BD>';
if(qry2_crm_client_paper.FieldByName('ֽ<><D6BD>ʹ<EFBFBD><CAB9><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean) then
strorder:= strorder + ' desc';
str:=str+strorder;
//dxDBGrid1.Filter.Clear();
with qry_paper_detail do begin
Close;
SQL.Clear;
SQL.Add(str);
Open;
end;
end;
procedure Tfrm_op_seae_paper_manage.cbb1Change(Sender: TObject);
begin
inctypeChange();
end;
procedure Tfrm_op_seae_paper_manage.inctypeChange();
var
blbh:Boolean; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
begin
//qry_crm_client.Active:=False;
//qry_crm_client.Active:= True;
blbh:= (cbb1.DisplayValues[1]<>'') and qry_crm_client.fieldbyname('<27>ᵥֽ<E1B5A5>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean;
dxdbgrdclmndxdbgrd1_SColumn4_noP.Visible:= ((cbb1.DisplayValues[1]='') or blbh);
dxdbgrdclmndxdbgrd1_SColumn5_noB.Visible:= ( (cbb1.DisplayValues[1]='') or blbh);
dxdbgrdclmndxdbgrd1_SColumn6_noE.Visible:= ( (cbb1.DisplayValues[1]='') or blbh);
pnl2.Visible:=blbh;
if(blbh) then
begin
// if(pnl2.Visible=false) then
// bsknpnl2.Height:= bsknpnl2.Height+pnl2.Height;
//<2F>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD> ҳ<><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ı<EFBFBD><C4B1><EFBFBD>
edt1_pagecount.ReadOnly:=true;
edt1_pagecount.text:='0';
end
else
begin
// if(pnl2.Visible=true) or (bsknpnl2.Height>60) then
// bsknpnl2.Height:= bsknpnl2.Height-pnl2.Height;
cbb3_GenNoList.Items.Clear;
edt1_pagecount.text:='0';
if cbb1.DisplayValues[1]<>'' then //<2F>ޱ<EFBFBD><DEB1><EFBFBD><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>˾<EFBFBD><CBBE>Ϊ<EFBFBD><CEAA>
edt1_pagecount.ReadOnly:=False;
end;
bindPaperIn();
//
end;
procedure Tfrm_op_seae_paper_manage.btn1_genNolistClick(Sender: TObject);
begin
try
genPaperno();
except
on ex:exception do
begin
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>:'+EX.Message),'',MB_ICONWARNING);
end;
end;
end;
function Tfrm_op_seae_paper_manage.genPaperno():Boolean;
var
i,istart,iend,ipageNoLen,Icount,icheckcount :integer;
info,strStart,strEnd,strtmpNo,str00,str:string;
aQuery:TAdoQuery;
begin
Result:=true;
strStart:= Trim(Edit2_startno.text);
strEnd:=Trim(Edit3_endNo.text);
if(strStart='') or (strEnd='') then
begin
info:='<27><>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>:<3A><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>ͽ<EFBFBD><CDBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD><CEAA>';
Result:=false;
Exit;
end;
ipageNoLen:=length(strEnd);
if Length(strStart)<>ipageNoLen then
begin
info:='<27><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>ͽ<EFBFBD><CDBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>볤<EFBFBD>Ȳ<EFBFBD>һ<EFBFBD><D2BB>,<2C><>ȷ<EFBFBD><C8B7>';
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Result:=false;
Edit3_endNo.SetFocus;
Exit;
end;
//
info:='<27><>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>:<3A><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>ͽ<EFBFBD><CDBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫΪ<C8AB><CEAA><EFBFBD><EFBFBD>[0-9]';
try
istart:=StrToInt(strStart)
except
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Result:=false;
Edit2_startno.SetFocus;
exit;
end;
try
iend:=StrToInt(strEnd)
except
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Result:=false;
Edit3_Endno.SetFocus;
exit;
end;
icount := iend- istart;
if(Icount<=0) then
begin
info:='[<5B><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>]<5D><><EFBFBD><EFBFBD>С<EFBFBD><D0A1>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],<2C><>ȷ<EFBFBD><C8B7>';
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Result:=false;
Edit3_endNo.SetFocus;
Exit;
end;
if(Icount>2000) then
begin
info:='<27><><EFBFBD>ɵ<EFBFBD><C9B5>ᵥֽҳ<D6BD><D2B3>Ϊ<EFBFBD><CEAA>'+inttostr(Icount)
+',<2C>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2000<30><30>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3>,<2C><>ȷ<EFBFBD><C8B7>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>ֽ<EFBFBD>ű<EFBFBD><C5B1><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD>ȷ!';
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONWARNING);
Result:=false;
Edit3_endNo.SetFocus;
Exit;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>
aQuery:=CreateAdoQuery();
str:='select count(1) as f_count from [t_op_seae_paper_detail] '
+' where <20><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>=''' + cbb1.DisplayValues[1]
+''' and [<5B>ᵥֽ<E1B5A5><D6BD>]>='''+ strStart + ''' and [<5B>ᵥֽ<E1B5A5><D6BD>]<='''+ strEnd+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_seae_paper_in where <20><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>='''+cbb1.DisplayValues[1]+''' and ǰ׺<C7B0><D7BA><EFBFBD><EFBFBD>='''+Trim(Edit1_preno.Text)+''')' ;
with aQuery do begin
close;
sql.Clear;
SQL.Add(str);
Open;
if(fieldbyname('f_count').asinteger >0) then
begin
//
info:='<27><>' +inttostr( fieldbyname('f_count').asinteger) +'<27><><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><>ȷ<EFBFBD><C8B7>';
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Result:=false;
Result:=false;
close;
exit;
end;
aQuery:=nil;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD>ᵥֽ<E1B5A5><D6BD><EFBFBD><EFBFBD> ipageNoLen
str00:='0000000000000000000';
cbb3_GenNoList.Items.Clear;
cbb3_GenNoList.Items.Add(strStart);
for i:=1 to icount-1 do
begin
istart:=istart+1;
strtmpNo:=Copy(str00,1,ipageNoLen- Length(inttostr(istart)))+inttostr(istart);
cbb3_GenNoList.Items.Add(strtmpNo);
end;
cbb3_GenNoList.Items.Add(strEnd);
cbb3_GenNoList.ItemIndex:=0;
//
m_strNo_pre:= trim(Edit1_preno.text);
m_strNo_start:= strStart;
m_strNo_end:=strEnd;
edt1_pagecount.Text :=inttostr(icount+1);
if(Icount>100) then
begin
info:='<27><><EFBFBD>ɵ<EFBFBD><C9B5>ᵥֽҳ<D6BD><D2B3>Ϊ<EFBFBD><CEAA>'+inttostr(Icount)
+',<2C>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>100<30><30>,<2C><>ȷ<EFBFBD><C8B7>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>ֽ<EFBFBD>ű<EFBFBD><C5B1><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD>ȷ!';
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONWARNING);
end;
end;
procedure Tfrm_op_seae_paper_manage.btn1_RefreshClick(Sender: TObject);
begin
qry_crm_client.Close();
qry_crm_client.Open();
end;
procedure Tfrm_op_seae_paper_manage.wdbdtmpckr2_kcKeyPress(Sender: TObject;
var Key: Char);
begin
// <20>س<EFBFBD><D8B3>Զ<EFBFBD><D4B6><EFBFBD>ѯ
if key=#13 then
begin
btn4_searchNewClick(btn4_searchNew);
end;
end;
procedure Tfrm_op_seae_paper_manage.btn4_cancelClick(Sender: TObject);
var
rkxh,chgsh,str,info:string ;
aQuery:TADOQuery;
iPages:Integer;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>Ƿ<EFBFBD>ʹ<EFBFBD><CAB9>
if(dxdbgrd1_S.SelectedCount<1) then
begin
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
Exit;
end;
rkxh:= qry1_paper_in.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString ;
chgsh:= qry1_paper_in.fieldbyname('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>').AsString ;
iPages:= qry1_paper_in.fieldbyname('ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger ;
//
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>
aQuery:=CreateAdoQuery();
str:=' select count(1) as f_count from t_op_seae_paper_detail '
+' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+ rkxh + ' and isnull(ʹ<><CAB9>״̬,''δʹ<CEB4><CAB9>'')<>''δʹ<CEB4><CAB9>''' ;
with aQuery do begin
close;
sql.Clear;
SQL.Add(str);
Open;
if(fieldbyname('f_count').asinteger >0 ) then
begin
//
info:='<27><>' +inttostr( fieldbyname('f_count').asinteger) +'ֽ<><D6BD><EFBFBD>Ѿ<EFBFBD>ʹ<EFBFBD>ò<EFBFBD><C3B2><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>ȷ<EFBFBD><C8B7>';
Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
close;
Exit;
end;
aQuery:=nil;
end;
//ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
info:='<27><>' +inttostr(iPages) +'ֽ<>Ž<EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ȷʵҪȡ<D2AA><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?';
if( Application.MessageBox(PChar(info) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',mb_iconquestion+mb_yesno)<>id_yes) then
Exit;
str:=' delete from t_op_seae_paper_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+rkxh+';' +#13#10
+'update t_op_seae_paper_shipinc set <20>ᵥֽʣ<D6BD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>= <20>ᵥֽʣ<D6BD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-'+inttostr(iPages)
+' where <20><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>='''+chgsh +'''; ' +#13#10
+'delete from t_op_seae_paper_in where <20><><EFBFBD><EFBFBD>='+rkxh+';';
try
frm_main.db.BeginTrans;
frm_main.db.execute(str);
frm_main.db.CommitTrans;
qry_crm_client.Active:=False;
qry_crm_client.Active:=True;
inctypeChange();
except
on ex: Exception do
begin
frm_main.db.RollbackTrans;
errorlog(ex.Message) ;
Application.MessageBox(PChar('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>:'+ex.Message),'',MB_ICONWARNING);
Exit;
end;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink