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_railway_feemodify.pas

336 lines
10 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_railway_feemodify;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, dxExEdtr, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms, RxLookup, StdCtrls,
wwdbdatetimepicker, Mask, wwdbedit, Wwdotdot, Wwdbcomb;
type
Tfrm_op_railway_feemodify = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinNotebook1: TbsSkinNotebook;
t_op_railway1: TDataSource;
t_op_railway: TADOQuery;
bsSkinPanel2: TbsSkinPanel;
bsSkinPanel3: TbsSkinPanel;
Edit1: TEdit;
Edit2: TEdit;
Label6: TLabel;
Label1: TLabel;
Label9: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
Label3: TLabel;
Edit4: TEdit;
Edit3: TEdit;
Label2: TLabel;
Label10: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
op_type: TEdit;
fee_type: TEdit;
Label5: TLabel;
Edit5: TEdit;
wwDBComboBox5: TwwDBComboBox;
Label7: TLabel;
bsSkinButton45: TbsSkinButton;
bsSkinButton44: TbsSkinButton;
Label4: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label8: TLabel;
wwDBDateTimePicker2: TwwDBDateTimePicker;
bsSkinButton4: TbsSkinButton;
t_ch_fee: TADOQuery;
Label37: TLabel;
RxDBLookupCombo1: TRxDBLookupCombo;
Label38: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
wwDBComboBox31: TwwDBComboBox;
Label25: TLabel;
RxDBLookupCombo5: TRxDBLookupCombo;
Label13: TLabel;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGrid2Column22: TdxDBGridColumn;
dxDBGrid2Column23: TdxDBGridColumn;
dxDBGrid2Column24: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid2Column30: TdxDBGridColumn;
dxDBGrid2Column31: TdxDBGridColumn;
dxDBGrid2Column32: TdxDBGridColumn;
dxDBGrid2Column33: TdxDBGridColumn;
dxDBGrid2Column34: TdxDBGridColumn;
dxDBGrid2Column35: TdxDBGridColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid2Column27: TdxDBGridColumn;
dxDBGrid2Column28: TdxDBGridColumn;
dxDBGrid2Column29: TdxDBGridColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid2Column21: TdxDBGridColumn;
dxDBGrid2Column36: TdxDBGridColumn;
bsSkinButton11: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
dxDBGrid2Column37: TdxDBGridColumn;
bsSkinButton2: TbsSkinButton;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton44Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton45Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure dxDBGrid2Column27CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean;
var ADone: Boolean);
private
function fee_get_client(str:string):string;
function fee_get_num(Str: String): Double;
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_railway_feemodify: Tfrm_op_railway_feemodify;
implementation
uses u_main, my_sys_function, u_data_share,
u_op_shendate, u_op_givedate, u_op_railway_piliangfee, u_op_acceptcode,
u_op_railway_piliangfeemodify;
{$R *.dfm}
procedure Tfrm_op_railway_feemodify.bsSkinButton5Click(Sender: TObject);
begin
CLOSE;
end;
function Tfrm_op_railway_feemodify.fee_get_client(str:string):string;
begin
end;
function Tfrm_op_railway_feemodify.fee_get_num(Str: String): Double;
begin
end;
procedure Tfrm_op_railway_feemodify.bsSkinButton44Click(Sender: TObject);
var
str:string;
begin
if Edit1.text<>''then
str:=' and t_op_railway.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
if Edit4.text<>''then
begin
str:=str+' and ( t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_railway where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''))';
end;
if Edit2.text<>''then
begin
str:=str+' and t_op_railway.<2E><><EFBFBD><EFBFBD> like '+''''+'%'+Edit2.text+'%'+'''';
end;
if Edit3.text<>''then
begin
str:=str+' and t_op_railway.<2E><><EFBFBD><EFBFBD> like '+''''+'%'+Edit3.text+'%'+'''';
end;
if Edit5.text<>''then
begin
str:=str+' and t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit5.text+'%'+'''';
end;
if wwDBComboBox5.text<>''then
begin
str:=str+' and t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ= '+''''+wwDBComboBox5.text+'''';
end;
if RxDBLookupCombo2.DisplayValue<>''then
begin
str:=str+' and t_op_railway.ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker1.text<>''then
begin
str:=str+' and t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
end;
if wwDBDateTimePicker2.text<>''then
begin
str:=str+' and t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
end;
if RxDBLookupCombo5.DisplayValue<>''then
begin
str:=str+' and t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo5.DisplayValues[1]+'''';
end;
if wwDBComboBox31.text<>''then
begin
str:=str+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>= '+''''+wwDBComboBox31.text+'''';
end;
if RxDBLookupCombo1.DisplayValue<>''then
begin
str:=str+' and t_ch_fee.<2E>ұ<EFBFBD>='+''''+RxDBLookupCombo1.DisplayValues[0]+'''';
end;
if RxDBLookupCombo16.DisplayValue<>''then
begin
str:=str+' and t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo16.DisplayValues[1]+'''';
end;
str:=str+' and '+open_data('0006','t_op_railway.¼<><C2BC><EFBFBD><EFBFBD>','t_op_railway.<2E><><EFBFBD><EFBFBD>Ա','t_op_railway.<2E>ͷ<EFBFBD>Ա','t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no');
str:=str+' and '+open_data('7000','t_ch_fee.¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no');
str:='select t_ch_fee.*,t_op_railway.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_railway.ί<>б<EFBFBD><D0B1><EFBFBD>,t_op_railway.ί<>е<EFBFBD>λ,t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_railway.<2E><><EFBFBD><EFBFBD>Ա,t_op_railway.<2E><><EFBFBD><EFBFBD>,'
+'t_op_railway.<2E><><EFBFBD><EFBFBD>,t_op_railway.<2E><><EFBFBD><EFBFBD>,t_op_railway.<2E><>Դ,t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_railway.<2E><>վ,t_op_railway.<2E><><EFBFBD><EFBFBD>վ,t_op_railway.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' from t_ch_fee left join t_op_railway on (t_op_railway.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD>) where t_op_railway.װ<>˷<EFBFBD>ʽ<>''<27><>·<EFBFBD><C2B7>Ʊ'' '+str+' order by t_op_railway.<2E><><EFBFBD><EFBFBD>';
t_op_railway.close;
t_op_railway.sql.clear;
t_op_railway.sql.add(str);
t_op_railway.open;
end;
procedure Tfrm_op_railway_feemodify.bsSkinButton2Click(Sender: TObject);
var
i:Integer;
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('delete from t_ch_fee where ch_id=:ch_id');
end;
t_op_railway.DisableControls;
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
t_op_railway.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if (t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') or (t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC>״̬') then begin
aQuery.Parameters.ParamByName('CH_ID').Value:=t_op_railway['CH_ID'];
aQuery.ExecSQL;
end;
end;
finally
FreeAndNil(aQuery);
t_op_railway.Requery();
t_op_railway.EnableControls;
end;
end;
procedure Tfrm_op_railway_feemodify.bsSkinButton45Click(Sender: TObject);
begin
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
RxDBLookupCombo2.ClearValue;
wwDBDateTimePicker1.Text:='';
wwDBDateTimePicker2.Text:='';
wwDBComboBox1.text:='';
RxDBLookupCombo1.ClearValue;
RxDBLookupCombo5.ClearValue;
RxDBLookupCombo16.ClearValue;
wwDBComboBox31.text:='';
end;
procedure Tfrm_op_railway_feemodify.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_op_railway_feemodify.Hide;
frm_op_railway_feemodify.ManualFloat(frm_op_railway_feemodify.BoundsRect );
frm_main.freeTabs('frm_op_railway_feemodify');
action:=cafree;
frm_op_railway_feemodify:=nil;
end;
procedure Tfrm_op_railway_feemodify.bsSkinButton4Click(Sender: TObject);
begin
try
frm_op_railway_piliangfeemodify:=tfrm_op_railway_piliangfeemodify.Create (self);
frm_op_railway_piliangfeemodify.ShowModal;
finally
frm_op_railway_piliangfeemodify.Free;
frm_op_railway_piliangfeemodify:=nil;
end;
end;
procedure Tfrm_op_railway_feemodify.bsSkinButton11Click(Sender: TObject);
var
i:Integer;
begin
try
t_op_railway.DisableControls;
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
t_op_railway.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC>״̬' then begin
t_op_railway.Edit;
t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>';
t_op_railway['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=Now;
t_op_railway.post;
end;
end;
finally
t_op_railway.Refresh;
t_op_railway.EnableControls;
end;
end;
procedure Tfrm_op_railway_feemodify.bsSkinButton1Click(Sender: TObject);
var
i:Integer;
begin
try
t_op_railway.DisableControls;
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
t_op_railway.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then begin
t_op_railway.Edit;
t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='¼<><C2BC>״̬';
t_op_railway['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=null;
t_op_railway.post;
end;
end;
finally
t_op_railway.Refresh;
t_op_railway.EnableControls;
end;
end;
procedure Tfrm_op_railway_feemodify.dxDBGrid2Column27CustomDraw(
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
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid2Column27.Index]);
AFont.Color:=clblack;
end;
end.
Reference in New Issue View Git Blame Copy Permalink