hanxuntao
/
DONGSHENG6
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 '9abf05a513'
${ noResults }
DONGSHENG6/海运业务/u_seai_sf_message.pas

440 lines
14 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_seai_sf_message;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner,
DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls, bsSkinCtrls, kbmMemTable,DateUtils,
RxLookup, cxControls, cxGroupBox;
type
Tfrm_seai_sf_message = class(TForm)
t_op_ctn: TADOQuery;
t_op_ctn1: TDataSource;
kmltbl: TkbmMemTable;
kmltblField: TStringField;
kmltblField2: TStringField;
kmltblField3: TStringField;
kmltblField4: TIntegerField;
kmltblField5: TFloatField;
kmltblField6: TStringField;
kmltblField7: TStringField;
kmltblField8: TIntegerField;
kmltblField9: TStringField;
cxGroupBox1: TcxGroupBox;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column10: TdxDBGridColumn;
cxGroupBox2: TcxGroupBox;
cxGroupBox3: TcxGroupBox;
cxGroupBox4: TcxGroupBox;
hdmessagemem: TkbmMemTable;
StringField1: TStringField;
StringField2: TStringField;
StringField3: TStringField;
StringField4: TStringField;
hdmessagemem1: TDataSource;
hdmessagememField2: TStringField;
hdmessagememField: TStringField;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
jffxmessagemem1: TDataSource;
jffxmessagemem: TkbmMemTable;
StringField5: TStringField;
StringField6: TStringField;
StringField7: TStringField;
StringField8: TStringField;
StringField9: TStringField;
StringField10: TStringField;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
cqmessagemem1: TDataSource;
cqmessagemem: TkbmMemTable;
StringField11: TStringField;
StringField12: TStringField;
StringField13: TStringField;
StringField14: TStringField;
StringField15: TStringField;
StringField16: TStringField;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
yxmessagemem1: TDataSource;
yxmessagemem: TkbmMemTable;
StringField17: TStringField;
StringField18: TStringField;
StringField19: TStringField;
StringField20: TStringField;
StringField21: TStringField;
StringField22: TStringField;
dxDBGrid4: TdxDBGrid;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridColumn13: TdxDBGridColumn;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGridColumn15: TdxDBGridColumn;
jffxmessagememField: TStringField;
cqmessagememField: TStringField;
yxmessagememField: TStringField;
dxDBGrid2Column7: TdxDBGridColumn;
dxDBGrid3Column7: TdxDBGridColumn;
dxDBGrid4Column7: TdxDBGridColumn;
hdmessagememField3: TStringField;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
hdmessagememField4: TStringField;
jffxmessagememStringField: TStringField;
cqmessagememField2: TStringField;
yxmessagememField2: TStringField;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinPanel3: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
cqmessagememField3: TStringField;
cqmessagememField4: TStringField;
dxDBGrid3Column8: TdxDBGridColumn;
dxDBGrid3Column9: TdxDBGridColumn;
procedure FormShow(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
private
{ Private declarations }
procedure hdmessage;
procedure jffxmessage;
procedure cqmessage;
procedure txmessage;
public
{ Public declarations }
end;
var
frm_seai_sf_message: Tfrm_seai_sf_message;
implementation
uses my_sys_function;
{$R *.dfm}
procedure Tfrm_seai_sf_message.hdmessage;
begin
hdmessagemem.EmptyTable;
hdmessagemem.Open;
with t_op_ctn do
begin
Close;SQL.Clear;
SQL.Add('select t_op_seai.<2E><><EFBFBD><EFBFBD>,t_op_seai.ί<>е<EFBFBD>λ,t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,t_op_seai.<2E><><EFBFBD><EFBFBD>Ա,t_op_seai.<2E><><EFBFBD><EFBFBD>˾,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
SQL.Add(',t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע');
SQL.Add('from t_op_seai');
SQL.Add('where t_op_seai.װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD><EFBFBD>'' and t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> is null'); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ԥ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// SQL.Add('and ((datediff(day,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,getdate())>=0) or (datediff(day,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,getdate())<=3))'); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ԥ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Open;First;
while not Eof do
begin
hdmessagemem.Insert;
hdmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
hdmessagemem.FieldByName('ί<>е<EFBFBD>λ').Value:=FieldByName('ί<>е<EFBFBD>λ').Value;
hdmessagemem.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value;
hdmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value:=FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value;
hdmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value:=FieldByName('<27><><EFBFBD><EFBFBD>˾').Value;
hdmessagemem.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
hdmessagemem.FieldByName('Ԥ<>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
hdmessagemem.FieldByName('<27><>ע').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע').Value;
hdmessagemem.Post;
Next;
end;
end;
end;
procedure Tfrm_seai_sf_message.jffxmessage;
begin
jffxmessagemem.EmptyTable; //t_op_state
jffxmessagemem.Open;
with t_op_ctn do
begin
Close;SQL.Clear;
SQL.Add('select t_op_seai.<2E><><EFBFBD><EFBFBD>,t_op_seai.ί<>е<EFBFBD>λ,t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,t_op_seai.<2E><><EFBFBD><EFBFBD>Ա,t_op_seai.<2E><><EFBFBD><EFBFBD>˾,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
SQL.Add(',t_op_state.<2E><>ע <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע');
SQL.Add('from t_op_state');
SQL.Add('Left join t_op_seai on t_op_seai.<2E><><EFBFBD><EFBFBD>=t_op_state.<2E><><EFBFBD><EFBFBD>');
SQL.Add('where t_op_seai.װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD><EFBFBD>'' and t_op_state.ҵ<><D2B5>״̬=''<27><><EFBFBD>ؽ<EFBFBD>˰'' and t_op_state.<2E><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1> is null and not t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> is null'); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ԥ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
SQL.Add('and datediff(day,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,getdate())>=8'); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ԥ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Open;First;
while not Eof do
begin
jffxmessagemem.Insert;
jffxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
jffxmessagemem.FieldByName('ί<>е<EFBFBD>λ').Value:=FieldByName('ί<>е<EFBFBD>λ').Value;
jffxmessagemem.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value;
jffxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value:=FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value;
jffxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value:=FieldByName('<27><><EFBFBD><EFBFBD>˾').Value;
jffxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
jffxmessagemem.FieldByName('Ԥ<>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
jffxmessagemem.FieldByName('<27><>ע').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע').Value;
jffxmessagemem.Post;
Next;
end;
end;
end;
procedure Tfrm_seai_sf_message.cqmessage;
begin
cqmessagemem.EmptyTable;
cqmessagemem.Open;
with t_op_ctn do
begin
Close;SQL.Clear;
SQL.Add('select t_op_seai.<2E><><EFBFBD><EFBFBD>,t_op_seai.ί<>е<EFBFBD>λ,t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,t_op_seai.<2E><><EFBFBD><EFBFBD>Ա');
SQL.Add(',t_op_seai.<2E><><EFBFBD><EFBFBD>˾,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seai.<2E>Ż<EFBFBD><C5BB><EFBFBD><EFBFBD><EFBFBD>,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD>,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
SQL.Add(',t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע');
SQL.Add('from t_op_seai');
SQL.Add('where t_op_seai.װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD><EFBFBD>'' and t_op_seai.<2E>Ż<EFBFBD><C5BB><EFBFBD><EFBFBD><EFBFBD> is null'); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ԥ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
SQL.Add('and datediff(day,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,getdate())>=t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD>'); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ԥ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Open;First;
while not Eof do
begin
cqmessagemem.Insert;
cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
cqmessagemem.FieldByName('ί<>е<EFBFBD>λ').Value:=FieldByName('ί<>е<EFBFBD>λ').Value;
cqmessagemem.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value;
cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value:=FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value;
cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value:=FieldByName('<27><><EFBFBD><EFBFBD>˾').Value;
cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
cqmessagemem.FieldByName('Ԥ<>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27>Ż<EFBFBD><C5BB><EFBFBD><EFBFBD><EFBFBD>').Value;
cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD>').Value;
cqmessagemem.FieldByName('<27><>ע').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע').Value;
cqmessagemem.Post;
Next;
end;
end;
end;
procedure Tfrm_seai_sf_message.txmessage;
begin
yxmessagemem.EmptyTable; //t_op_state
yxmessagemem.Open;
with t_op_ctn do
begin
Close;SQL.Clear;
SQL.Add('select t_op_seai.<2E><><EFBFBD><EFBFBD>,t_op_seai.ί<>е<EFBFBD>λ,t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,t_op_seai.<2E><><EFBFBD><EFBFBD>Ա');
SQL.Add(',t_op_seai.<2E><><EFBFBD><EFBFBD>˾,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_state.ҵ<><D2B5>״̬,t_op_state1.ҵ<><D2B5>״̬');
SQL.Add(',t_op_state.<2E><>ע <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע');
SQL.Add('from t_op_state');
SQL.Add('Left join t_op_state t_op_state1 on t_op_state.<2E><><EFBFBD><EFBFBD>=t_op_state1.<2E><><EFBFBD><EFBFBD> and t_op_state1.ҵ<><D2B5>״̬=''<27><>Ѻ<EFBFBD><D1BA>''');
SQL.Add('Left join t_op_seai on t_op_seai.<2E><><EFBFBD><EFBFBD>=t_op_state.<2E><><EFBFBD><EFBFBD> ');
SQL.Add('where t_op_seai.װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD><EFBFBD>'' and t_op_state.ҵ<><D2B5>״̬=''<27><><EFBFBD><EFBFBD>½<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>ע<EFBFBD><D7A2><EFBFBD><EFBFBD>д'' and not t_op_state.<2E><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1> is null');
SQL.Add('and datediff(day,t_op_state.<2E><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>,getdate())>=5 and t_op_state1.<2E><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1> is null');
Open;First;
while not Eof do
begin
yxmessagemem.Insert;
yxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD>').Value;
yxmessagemem.FieldByName('ί<>е<EFBFBD>λ').Value:=FieldByName('ί<>е<EFBFBD>λ').Value;
yxmessagemem.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value;
yxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value:=FieldByName('<27><><EFBFBD><EFBFBD>Ա').Value;
yxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value:=FieldByName('<27><><EFBFBD><EFBFBD>˾').Value;
yxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
yxmessagemem.FieldByName('Ԥ<>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
yxmessagemem.FieldByName('<27><>ע').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע').Value;
yxmessagemem.Post;
Next;
end;
end;
end;
procedure Tfrm_seai_sf_message.FormShow(Sender: TObject);
var YYYY,MM,DD:Word;
begin
if if_open('060') then
begin
bsSkinButton1.Visible:=true;
bsSkinButton3.Visible:=true;
bsSkinButton5.Visible:=true;
end
else
begin
bsSkinButton1.Visible:=false;
bsSkinButton3.Visible:=false;
bsSkinButton5.Visible:=false;
end;
hdmessage;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
jffxmessage;//<2F><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>
cqmessage;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
txmessage;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
DecodeDate(Date,YYYY,MM,DD);
end;
procedure Tfrm_seai_sf_message.bsSkinButton1Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if Trim(jffxmessagemem.FieldByName('<27><>ע').AsString)='' then
begin
ShowMessage('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD>');
exit;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_op_state set <20><>ע=<3D><>ע+:<3A><>ע');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and ҵ<><D2B5>״̬=''<27><><EFBFBD>ؽ<EFBFBD>˰''');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=jffxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
Parameters.ParamByName('<27><>ע').Value:='<27><><EFBFBD><EFBFBD>';
ExecSQL;
finally
free;
end;
end;
procedure Tfrm_seai_sf_message.bsSkinButton2Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if Trim(jffxmessagemem.FieldByName('<27><>ע').AsString)='' then
begin
ShowMessage('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD>');
exit;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_op_state set <20><>ע=:<3A><>ע');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and ҵ<><D2B5>״̬=''<27><><EFBFBD>ؽ<EFBFBD>˰''');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=jffxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
Parameters.ParamByName('<27><>ע').Value:=jffxmessagemem.FieldByName('<27><>ע').Value;
ExecSQL;
finally
free;
end;
end;
procedure Tfrm_seai_sf_message.bsSkinButton3Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if Trim(cqmessagemem.FieldByName('<27><>ע').AsString)='' then
begin
ShowMessage('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD>');
exit;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_op_seai set <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע+:<3A><>ע');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
Parameters.ParamByName('<27><>ע').Value:='<27><><EFBFBD><EFBFBD>';
ExecSQL;
finally
free;
end;
end;
procedure Tfrm_seai_sf_message.bsSkinButton4Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if Trim(cqmessagemem.FieldByName('<27><>ע').AsString)='' then
begin
ShowMessage('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD>');
exit;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_op_seai set <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע=:<3A><>ע');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=cqmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
Parameters.ParamByName('<27><>ע').Value:=cqmessagemem.FieldByName('<27><>ע').Value;
ExecSQL;
finally
free;
end;
end;
procedure Tfrm_seai_sf_message.bsSkinButton5Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if Trim(yxmessagemem.FieldByName('<27><>ע').AsString)='' then
begin
ShowMessage('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD>');
exit;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_op_state set <20><>ע=<3D><>ע+:<3A><>ע');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and ҵ<><D2B5>״̬=''<27><>Ѻ<EFBFBD><D1BA>''');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=yxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
Parameters.ParamByName('<27><>ע').Value:='<27><><EFBFBD><EFBFBD>';
ExecSQL;
finally
free;
end;
end;
procedure Tfrm_seai_sf_message.bsSkinButton6Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if Trim(yxmessagemem.FieldByName('<27><>ע').AsString)='' then
begin
ShowMessage('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD>');
exit;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_op_state set <20><>ע=:<3A><>ע');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and ҵ<><D2B5>״̬=''<27><>Ѻ<EFBFBD><D1BA>''');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=yxmessagemem.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
Parameters.ParamByName('<27><>ע').Value:=yxmessagemem.FieldByName('<27><>ע').Value;
ExecSQL;
finally
free;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink