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

879 lines
24 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_tuishui;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, wwdbedit, Wwdotdot, Wwdbcomb, wwdblook, RxLookup,
wwdbdatetimepicker, StdCtrls, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr,
dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, Menus, XPMenu,
kbmMemTable;
type
Tfrm_op_seae_tuishui = class(TForm)
Panel2: TPanel;
Panel3: TPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinPanel1: TbsSkinPanel;
Label6: TLabel;
Label3: TLabel;
Label1: TLabel;
Label2: TLabel;
Label10: TLabel;
Label5: TLabel;
Label9: TLabel;
Label8: TLabel;
Label11: TLabel;
Label30: TLabel;
Label125: TLabel;
Label124: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit4: TEdit;
Edit2: TEdit;
Edit3: TEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
RxDBLookupCombo2: TRxDBLookupCombo;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
Edit7: TEdit;
wwDBLookupCombo49: TwwDBLookupCombo;
wwDBLookupCombo52: TwwDBLookupCombo;
wwDBComboBox1: TwwDBComboBox;
t_op_seae: TADOQuery;
t_op_seae1: TDataSource;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column78: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridDateColumn;
dxDBGrid1Column32: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridMaskColumn;
dxDBGrid1Column34: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridColumn;
dxDBGrid1Column40: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid111: TdxDBGridMaskColumn;
dxDBGrid112: TdxDBGridMaskColumn;
dxDBGrid113: TdxDBGridMaskColumn;
dxDBGrid114: TdxDBGridMaskColumn;
dxDBGrid115: TdxDBGridMaskColumn;
dxDBGrid116: TdxDBGridMaskColumn;
dxDBGrid117: TdxDBGridMaskColumn;
dxDBGrid118: TdxDBGridMaskColumn;
dxDBGrid119: TdxDBGridMaskColumn;
dxDBGrid120: TdxDBGridMaskColumn;
dxDBGrid1Column61: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
dxDBGrid1Column72: TdxDBGridMaskColumn;
dxDBGrid1Column68: TdxDBGridMaskColumn;
dxDBGrid1Column69: TdxDBGridMaskColumn;
dxDBGrid1Column70: TdxDBGridMaskColumn;
dxDBGrid1Column74: TdxDBGridMaskColumn;
dxDBGrid1Column75: TdxDBGridMaskColumn;
dxDBGrid1Column73: TdxDBGridColumn;
dxDBGrid1Column76: TdxDBGridColumn;
dxDBGrid1Column77: TdxDBGridCheckColumn;
dxDBGrid1Column79: TdxDBGridColumn;
dxDBGrid1Column80: TdxDBGridColumn;
dxDBGrid1Column81: TdxDBGridColumn;
dxDBGrid1Column82: TdxDBGridCheckColumn;
dxDBGrid1Column83: TdxDBGridColumn;
dxDBGrid1Column84: TdxDBGridCheckColumn;
dxDBGrid1Column85: TdxDBGridColumn;
dxDBGrid1Column86: TdxDBGridCheckColumn;
dxDBGrid1Column87: TdxDBGridCheckColumn;
dxDBGrid1Column88: TdxDBGridColumn;
Label4: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
Label12: TLabel;
wwDBDateTimePicker6: TwwDBDateTimePicker;
bsSkinButton13: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
XPMenu1: TXPMenu;
Label13: TLabel;
wwDBComboBox2: TwwDBComboBox;
Label14: TLabel;
wwDBDateTimePicker7: TwwDBDateTimePicker;
Label15: TLabel;
wwDBDateTimePicker8: TwwDBDateTimePicker;
Label16: TLabel;
Edit5: TEdit;
ListBoxNos: TListBox;
dxDBGrid1Column89: TdxDBGridColumn;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
dxDBGrid1Column90: TdxDBGridCheckColumn;
dxDBGrid1Column91: TdxDBGridColumn;
Label17: TLabel;
Edit6: TEdit;
dxDBGrid1Column92: TdxDBGridColumn;
dxDBGrid1Column93: TdxDBGridColumn;
dxDBGrid1Column94: TdxDBGridColumn;
dxDBGrid1Column95: TdxDBGridColumn;
bsSkinButton4: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
bsSkinButton16: TbsSkinButton;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
wwDBComboBox3: TwwDBComboBox;
wwDBDateTimePicker9: TwwDBDateTimePicker;
wwDBDateTimePicker10: TwwDBDateTimePicker;
Label21: TLabel;
Edit8: TEdit;
dxDBGrid1Column96: TdxDBGridCheckColumn;
dxDBGrid1Column97: TdxDBGridColumn;
dxDBGrid1Column98: TdxDBGridCheckColumn;
dxDBGrid1Column100: TdxDBGridColumn;
dxDBGrid1Column102: TdxDBGridColumn;
dxDBGrid1Column101: TdxDBGridCheckColumn;
dxDBGrid1Column103: TdxDBGridCheckColumn;
dxDBGrid1Column104: TdxDBGridColumn;
kbmMemTable1: TkbmMemTable;
kbmMemTable1Field: TStringField;
kbmMemTable1Field2: TStringField;
kbmMemTable1Field3: TStringField;
DataSource1: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure Edit5Enter(Sender: TObject);
procedure Edit5Exit(Sender: TObject);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure Edit6Enter(Sender: TObject);
procedure Edit6Exit(Sender: TObject);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
private
FHblNo,FhxNo:TStrings;
{ Private declarations }
public
{ Public declarations }
procedure updatebgstatus(bgstatus:string);
procedure Cancelupdatebgstatus(bgstatus:string);
end;
var
frm_op_seae_tuishui: Tfrm_op_seae_tuishui;
implementation
uses u_main, my_sys_function, my_sys_chat;
{$R *.dfm}
procedure Tfrm_op_seae_tuishui.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FreeAndNil(FHblNo);
FreeAndNil(FhxNo);
savereggrid(dxdbgrid1,caption);
frm_op_seae_tuishui.Hide;
frm_op_seae_tuishui.ManualFloat(frm_op_seae_tuishui.BoundsRect );
frm_main.freeTabs('frm_op_seae_tuishui');
action:=cafree;
frm_op_seae_tuishui:=nil;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton10Click(Sender: TObject);
var
str,S3:widestring;
i:integer;
begin
if (wwDBDateTimePicker5.text<>'')or(wwDBDateTimePicker6.text<>'') then
begin
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD>˰=1 ';
if wwDBDateTimePicker5.text<>'' then
str:=str+' and <20><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+'''';
if wwDBDateTimePicker6.text<>'' then
str:=str+' and <20><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+'''';
end
else
begin
if wwDBComboBox1.text='' then
str:='where 1=1';
if wwDBComboBox1.text='û<><C3BB><EFBFBD><EFBFBD>˰' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD>˰=0';
if wwDBComboBox1.text='<27>Ѿ<EFBFBD><D1BE><EFBFBD>˰' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD>˰=1';
end;
if (wwDBDateTimePicker7.text<>'')or(wwDBDateTimePicker8.text<>'') then
begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1';
if wwDBDateTimePicker7.text<>'' then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker7.text+'''';
if wwDBDateTimePicker8.text<>'' then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker8.text+'''';
end
else
begin
if wwDBComboBox2.text='' then
else if wwDBComboBox2.text='û<>н<EFBFBD><D0BD><EFBFBD>' then
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0';
if wwDBComboBox2.text='<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>' then
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1'
else
str:=str+'and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1';
end;
if (wwDBDateTimePicker9.text<>'')or(wwDBDateTimePicker10.text<>'') then
begin
case wwDBComboBox3.ItemIndex of
1:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1';
if wwDBDateTimePicker9.text<>'' then
str:=str+' and <20><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
if wwDBDateTimePicker10.text<>'' then
str:=str+' and <20><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker10.text+'''';
end;
3:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>˻<EFBFBD>=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>˻<EFBFBD>=1';
if wwDBDateTimePicker9.text<>'' then
str:=str+' and <20>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
if wwDBDateTimePicker10.text<>'' then
str:=str+' and <20>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker10.text+'''';
end;
5:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>ص<EFBFBD>=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>ص<EFBFBD>=1';
if wwDBDateTimePicker9.text<>'' then
str:=str+' and <20>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
if wwDBDateTimePicker10.text<>'' then
str:=str+' and <20>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker10.text+'''';
end;
7:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>͵<EFBFBD>=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>͵<EFBFBD>=1';
if wwDBDateTimePicker9.text<>'' then
str:=str+' and <20>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
if wwDBDateTimePicker10.text<>'' then
str:=str+' and <20>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker10.text+'''';
end;
end;
end
else
begin
case wwDBComboBox3.ItemIndex of
0:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=0'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=0';
end;
1:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1';
end;
2:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>˻<EFBFBD>=0'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>˻<EFBFBD>=0';
end;
3:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>˻<EFBFBD>=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>˻<EFBFBD>=1';
end;
4:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>ص<EFBFBD>=0'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>ص<EFBFBD>=0';
end;
5:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>ص<EFBFBD>=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>ص<EFBFBD>=1';
end;
6:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>͵<EFBFBD>=0'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>͵<EFBFBD>=0';
end;
7:begin
if str='' then
str:='where <20>Ƿ<EFBFBD><C7B7>͵<EFBFBD>=1'
else
str:=str+' and <20>Ƿ<EFBFBD><C7B7>͵<EFBFBD>=1';
end;
end;
end;
if Edit1.text<>''then
str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
if Edit4.text<>''then
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
if Edit2.text<>''then
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
if Edit3.text<>''then
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
if wwDBDateTimePicker1.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
if wwDBDateTimePicker2.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
if wwDBDateTimePicker3.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker3.text+'''';
if wwDBDateTimePicker4.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker4.text+'''';
if RxDBLookupCombo2.DisplayValues[1]<>''then
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
// if RxDBLookupCombo6.DisplayValues[0]<>''then
// str:=str+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo6.DisplayValues[0]+'''';
if wwDBLookupCombo49.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo49.text+'%'+'''';
if Edit7.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
if wwDBLookupCombo52.text<>''then
str:=str+' and ж<><D0B6><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo52.text+'%'+'''';
if (Trim(Edit5.Text)<>'') and (Trim(Edit8.Text)<>'') then
begin
str:=str+' and <20><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>>='+''''+Edit5.text+'''';
str:=str+' and <20><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD><='+''''+Edit8.text+'''';
end
else
begin
if FHblNo.Count<>0 then
begin
str:=str+' and (';
for i:=0 to FHblNo.Count-1 do
begin
if i=0 then
str:=str+'<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>='+''''+Trim(FHblNo.Strings[i])+''''
else
str:=str+' or <20><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>='+''''+Trim(FHblNo.Strings[i])+'''';
end;
str:=str+') ';
end;
end;
if FhxNo.Count<>0 then begin
str:=str+' and (';
for i:=0 to FhxNo.Count-1 do begin
if i=0 then
str:=str+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+Trim(FhxNo.Strings[i])+''''
else
str:=str+' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+Trim(FhxNo.Strings[i])+'''';
end;
str:=str+') ';
end;
t_op_seae.close;
t_op_seae.sql.clear;
t_op_seae.sql.add('select * from t_op_seae '+str+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
kbmMemTable1.CreateTable;
kbmMemTable1.EmptyTable;
kbmMemTable1.Open;
if FHblNo.Count<>0 then
begin
for i:=0 to FHblNo.Count-1 do
begin
if t_op_seae.Locate('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>',Trim(FHblNo.Strings[i]),[]) then
begin
kbmMemTable1.Append;
kbmMemTable1.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').AsString:=t_op_seae.FieldByName('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').AsString;
kbmMemTable1.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
kbmMemTable1.Post;
end;
end;
end;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton6Click(Sender: TObject);
begin
Edit1.text:='';
Edit4.text:='';
Edit2.text:='';
Edit3.text:='';
wwDBDateTimePicker1.text:='';
wwDBDateTimePicker2.text:='';
RxDBLookupCombo2.ClearValue;
wwDBDateTimePicker3.text:='';
wwDBDateTimePicker4.text:='';
wwDBLookupCombo49.text:='';
Edit7.text:='';
wwDBLookupCombo52.text:='';
// RxDBLookupCombo6.ClearValue;
wwDBComboBox1.text:='';
wwDBDateTimePicker5.text:='';
wwDBDateTimePicker6.text:='';
FHblNo.Clear;
FhxNo.Clear;
wwDBComboBox2.text:='';
wwDBDateTimePicker7.text:='';
wwDBDateTimePicker8.text:='';
end;
procedure Tfrm_op_seae_tuishui.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_tuishui.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seae_tuishui.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seae_tuishui.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,98);
end;
procedure Tfrm_op_seae_tuishui.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seae_tuishui.FormShow(Sender: TObject);
begin
loadreggrid(dxdbgrid1,true,caption);
FHblNo:=TStringList.Create;
FhxNo:=TStringList.Create;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton9Click(Sender: TObject);
begin
updatebgstatus('<27><>ӡ');
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD>˰',2,nil,nil,nil,nil,t_op_seae1,DataSource1,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae_tuishui.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
frm_op_seae_tuishui.bsSkinButton10Click(Sender);
end;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton13Click(Sender: TObject);
var
i:integer;
begin
if t_op_seae.isempty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if not t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=1;
t_op_seae['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=date;
t_op_seae.post;
end;
end;
end
else
begin
if not t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=1;
t_op_seae['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=date;
t_op_seae.post;
end;
end;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton1Click(Sender: TObject);
var
i:integer;
begin
if t_op_seae.isempty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
t_op_seae['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
t_op_seae.post;
end;
end;
end
else
begin
if t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
t_op_seae['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
t_op_seae.post;
end;
end;
end;
procedure Tfrm_op_seae_tuishui.Edit5Enter(Sender: TObject);
begin
ListBoxNos.Items.Clear;
ListBoxNos.Items.Assign(FHblNo);
ListBoxNos.Visible:=true;
ListBoxNos.top:=edit5.Top+edit5.height;
end;
procedure Tfrm_op_seae_tuishui.Edit5Exit(Sender: TObject);
begin
ListBoxNos.Visible:=false;
ListBoxNos.Items.Clear;
end;
procedure Tfrm_op_seae_tuishui.Edit5KeyPress(Sender: TObject;
var Key: Char);
begin
if Key<>#13 then exit;
if (Trim(Edit5.Text)<>'') then begin
FHblNo.Add(Trim(Edit5.Text));
ListBoxNos.Items.Add(Trim(Edit5.Text));
Edit5.Text:='';
end;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton2Click(Sender: TObject);
var
i:integer;
begin
if t_op_seae.isempty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if not t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_op_seae.post;
end;
end;
end
else
begin
if not t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_op_seae.post;
end;
end;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton3Click(Sender: TObject);
var
i:integer;
begin
if t_op_seae.isempty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_op_seae.post;
end;
end;
end
else
begin
if t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_op_seae.post;
end;
end;
end;
procedure Tfrm_op_seae_tuishui.Edit6Enter(Sender: TObject);
begin
ListBoxNos.Items.Clear;
ListBoxNos.Items.Assign(FhxNo);
ListBoxNos.Visible:=true;
ListBoxNos.top:=edit6.Top+edit6.height;
end;
procedure Tfrm_op_seae_tuishui.Edit6Exit(Sender: TObject);
begin
ListBoxNos.Visible:=false;
ListBoxNos.Items.Clear;
end;
procedure Tfrm_op_seae_tuishui.Edit6KeyPress(Sender: TObject;
var Key: Char);
begin
if Key<>#13 then exit;
if (Trim(Edit6.Text)<>'') then begin
FhxNo.Add(Trim(Edit6.Text));
ListBoxNos.Items.Add(Trim(Edit6.Text));
Edit6.Text:='';
end;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton4Click(Sender: TObject);
begin
updatebgstatus('<27><>ӡ');
end;
procedure Tfrm_op_seae_tuishui.updatebgstatus(bgstatus:string);
var
i:integer;
begin
if t_op_seae.isempty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if not t_op_seae.FieldByName('<27>Ƿ<EFBFBD>'+bgstatus).asboolean then
begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD>'+bgstatus]:=1;
t_op_seae[bgstatus+'<27><><EFBFBD><EFBFBD>']:=date;
t_op_seae.post;
end;
end;
end
else
begin
if not t_op_seae.FieldByName('<27>Ƿ<EFBFBD>'+bgstatus).asboolean then
begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD>'+bgstatus]:=1;
t_op_seae[bgstatus+'<27><><EFBFBD><EFBFBD>']:=date;
t_op_seae.post;
end;
end;
end;
procedure Tfrm_op_seae_tuishui.cancelupdatebgstatus(bgstatus:string);
var
i:integer;
begin
if t_op_seae.isempty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if t_op_seae.FieldByName('<27>Ƿ<EFBFBD>'+bgstatus).asboolean then
begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD>'+bgstatus]:=0;
t_op_seae[bgstatus+'<27><><EFBFBD><EFBFBD>']:=null;
t_op_seae.post;
end;
end;
end
else
begin
if t_op_seae.FieldByName('<27>Ƿ<EFBFBD>'+bgstatus).asboolean then
begin
t_op_seae.Edit;
t_op_seae['<27>Ƿ<EFBFBD>'+bgstatus]:=0;
t_op_seae[bgstatus+'<27><><EFBFBD><EFBFBD>']:=null;
t_op_seae.post;
end;
end;
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton7Click(Sender: TObject);
begin
cancelupdatebgstatus('<27><>ӡ');
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton8Click(Sender: TObject);
begin
updatebgstatus('<27>˻<EFBFBD>');
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton11Click(Sender: TObject);
begin
cancelupdatebgstatus('<27>˻<EFBFBD>');
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton12Click(Sender: TObject);
begin
updatebgstatus('<27>ص<EFBFBD>');
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton14Click(Sender: TObject);
begin
cancelupdatebgstatus('<27>ص<EFBFBD>');
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton15Click(Sender: TObject);
begin
updatebgstatus('<27>͵<EFBFBD>');
end;
procedure Tfrm_op_seae_tuishui.bsSkinButton16Click(Sender: TObject);
begin
cancelupdatebgstatus('<27>͵<EFBFBD>');
end;
end.
Reference in New Issue View Git Blame Copy Permalink