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

410 lines
12 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_op_railway_road;
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, DBCtrls;
type
Tfrm_op_railway_road = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinNotebook1: TbsSkinNotebook;
bsSkinButton2: TbsSkinButton;
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;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
op_type: TEdit;
fee_type: TEdit;
Label5: TLabel;
Label7: TLabel;
dxDBGrid2Column21: TdxDBGridColumn;
bsSkinButton45: TbsSkinButton;
bsSkinButton44: TbsSkinButton;
Label4: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label8: TLabel;
wwDBDateTimePicker2: TwwDBDateTimePicker;
t_ch_fee: TADOQuery;
dxDBGrid2Column23: TdxDBGridColumn;
dxDBGrid2Column24: TdxDBGridColumn;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid2Column27: TdxDBGridColumn;
dxDBGrid2Column28: TdxDBGridColumn;
dxDBGrid2Column29: TdxDBGridColumn;
dxDBGrid2Column30: TdxDBGridColumn;
bsSkinPanel4: TbsSkinPanel;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinGroupBox2: TbsSkinGroupBox;
wwDBDateTimePicker3: TwwDBDateTimePicker;
Label11: TLabel;
Edit6: TEdit;
Label12: TLabel;
bsSkinButton1: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
Label13: TLabel;
Edit7: TEdit;
t_op_railway_road: TADOQuery;
t_op_railway_road1: TDataSource;
dxDBGridroad: TdxDBGrid;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGrid2Column3: TdxDBGridColumn;
dxDBGrid2Column4: TdxDBGridColumn;
dxDBGridroadColumn6: TdxDBGridColumn;
dxDBGridroadColumn5: TdxDBGridColumn;
dxDBGrid2Column31: TdxDBGridColumn;
dxDBGrid2Column32: TdxDBGridColumn;
Label14: TLabel;
wwDBDateTimePicker4: TwwDBDateTimePicker;
Label15: TLabel;
Edit8: TEdit;
Label16: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
bsSkinButton4: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinPanel5: TbsSkinPanel;
bsSkinButton10: TbsSkinButton;
dxDBGrid2Column33: TdxDBGridColumn;
dxDBGrid2Column34: TdxDBGridColumn;
dxDBGrid2Column35: TdxDBGridColumn;
RxDBLookupCombo19: TRxDBLookupCombo;
Edit5: TEdit;
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 bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_railway_roadAfterInsert(DataSet: TDataSet);
procedure bsSkinButton6Click(Sender: TObject);
procedure RxDBLookupCombo19Enter(Sender: TObject);
procedure RxDBLookupCombo19Exit(Sender: TObject);
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_road: Tfrm_op_railway_road;
implementation
uses u_main, my_sys_function, u_data_share,
u_op_shendate, u_op_givedate, u_op_railway_piliangfee;
{$R *.dfm}
procedure Tfrm_op_railway_road.bsSkinButton5Click(Sender: TObject);
begin
CLOSE;
end;
function Tfrm_op_railway_road.fee_get_client(str:string):string;
begin
end;
function Tfrm_op_railway_road.fee_get_num(Str: String): Double;
begin
end;
procedure Tfrm_op_railway_road.bsSkinButton44Click(Sender: TObject);
var
str:string;
begin
if Edit1.text<>''then
str:=' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
if Edit4.text<>''then
begin
str:=str+' and ( <20><><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 <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit2.text+'%'+'''';
end;
if Edit3.text<>''then
begin
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit3.text+'%'+'''';
end;
if Edit5.text<>''then
begin
str:=str+' and <20><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD> like '+''''+'%'+Edit5.text+'%'+'''';
end;
if RxDBLookupCombo2.DisplayValue<>''then
begin
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
end;
if RxDBLookupCombo19.DisplayValue<>''then
begin
str:=str+' and <20><><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo19.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker1.text<>''then
begin
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
end;
if wwDBDateTimePicker2.text<>''then
begin
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
end;
if wwDBComboBox1.text<>''then
begin
if wwDBComboBox1.text='δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
str:=str+' and <20><><EFBFBD><EFBFBD>״̬='''' '
else
str:=str+' and <20><><EFBFBD><EFBFBD>״̬= '+''''+wwDBComboBox1.text+'''';
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:='select * from t_op_railway where װ<>˷<EFBFBD>ʽ<>''<27><>·<EFBFBD><C2B7>Ʊ'' '+str+' order by <20><><EFBFBD><EFBFBD>';
t_op_railway_road.Close;
t_op_railway.close;
t_op_railway.sql.clear;
t_op_railway.sql.add(str);
t_op_railway.open;
t_op_railway_road.open;
end;
procedure Tfrm_op_railway_road.bsSkinButton2Click(Sender: TObject);
begin
t_op_railway_road.Close;
query_railway(6,'0006');
t_op_railway_road.Open;
end;
procedure Tfrm_op_railway_road.bsSkinButton45Click(Sender: TObject);
begin
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
RxDBLookupCombo2.ClearValue;
wwDBDateTimePicker1.Text:='';
wwDBDateTimePicker2.Text:='';
wwDBComboBox1.text:='';
end;
procedure Tfrm_op_railway_road.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_op_railway_road.Hide;
frm_op_railway_road.ManualFloat(frm_op_railway_road.BoundsRect );
frm_main.freeTabs('frm_op_railway_road');
action:=cafree;
frm_op_railway_road:=nil;
end;
procedure Tfrm_op_railway_road.bsSkinButton4Click(Sender: TObject);
var
i:Integer;
begin
if (wwDBDateTimePicker4.Text='') and (wwDBDateTimePicker5.Text='') and (edit8.Text='')then begin
MessageDlg('û<><C3BB>Ҫ<EFBFBD><D2AA><EFBFBD>µ<EFBFBD><C2B5><EFBFBD>Ϣ!',mtWarning,[mbyes],0);
exit;
end;
t_op_railway.first;
while not t_op_railway.eof do begin
t_op_railway.Edit;
if (wwDBDateTimePicker4.Text<>'') then
t_op_railway['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:=wwDBDateTimePicker4.Date;
if (wwDBDateTimePicker5.Text<>'') then
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=wwDBDateTimePicker5.Date;
if (edit8.Text<>'') then
t_op_railway['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:=edit8.Text;
t_op_railway.Post;
t_op_railway.next;
end;
end;
procedure Tfrm_op_railway_road.bsSkinButton3Click(Sender: TObject);
var
i:Integer;
begin
if Edit6.Text='' then begin
MessageDlg('<27><>;<EFBFBD><CDBE><EFBFBD>ٲ<EFBFBD><D9B2><EFBFBD>Ϊ<EFBFBD><CEAA>',mtWarning,[mbyes],0);
exit;
end;
if wwDBDateTimePicker3.Text='' then begin
MessageDlg('<27><>;<EFBFBD><CDBE><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD><CEAA>',mtWarning,[mbyes],0);
exit;
end;
if dxdbgrid2.SelectedCount>0 then
begin
for i:=0 to dxdbgrid2.SelectedCount-1 do
begin
t_op_railway.GotoBookmark(pointer(dxdbgrid2.selectedrows[i]));
t_op_railway.Edit;
t_op_railway['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>']:=Edit6.text;
t_op_railway['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>']:=wwDBDateTimePicker3.Date;
t_op_railway.Post;
t_op_railway_road.Insert;
t_op_railway_road.Post;
end;
end
end;
procedure Tfrm_op_railway_road.bsSkinButton10Click(Sender: TObject);
begin
table_delete(t_op_railway_road);
end;
procedure Tfrm_op_railway_road.bsSkinButton1Click(Sender: TObject);
var
i:Integer;
begin
if Edit6.Text='' then begin
MessageDlg('<27><>;<EFBFBD><CDBE><EFBFBD>ٲ<EFBFBD><D9B2><EFBFBD>Ϊ<EFBFBD><CEAA>',mtWarning,[mbyes],0);
exit;
end;
if wwDBDateTimePicker3.Text='' then begin
MessageDlg('<27><>;<EFBFBD><CDBE><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD><CEAA>',mtWarning,[mbyes],0);
exit;
end;
t_op_railway.first;
while not t_op_railway.eof do begin
t_op_railway.Edit;
t_op_railway['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>']:=Edit6.text;
t_op_railway['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>']:=wwDBDateTimePicker3.Date;
t_op_railway.Post;
t_op_railway_road.Insert;
t_op_railway_road.Post;
t_op_railway.next;
end;
end;
procedure Tfrm_op_railway_road.t_op_railway_roadAfterInsert(
DataSet: TDataSet);
function getmaxno:Integer;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select MAx(rdno) stno from t_op_railway_road where <20><><EFBFBD><EFBFBD>='''+t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
open;
if IsEmpty then
result:=1
else
Result:=fieldbyname('stno').AsInteger+1;
end;
finally
FreeAndNil(aQuery);
end;
end;
begin
t_op_railway_road['<27><><EFBFBD><EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
t_op_railway_road['rdno']:=getmaxno;
t_op_railway_road['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>']:=t_op_railway['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>'];
t_op_railway_road['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>']:=t_op_railway['<27><>;<EFBFBD><CDBE><EFBFBD><EFBFBD>'];
t_op_railway_road['<27><>ע']:=Edit7.Text;
t_op_railway_road['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_op_railway_road['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
end;
procedure Tfrm_op_railway_road.bsSkinButton6Click(Sender: TObject);
var
i:Integer;
begin
if (wwDBDateTimePicker4.Text='') and (wwDBDateTimePicker5.Text='') and (edit8.Text='')then begin
MessageDlg('û<><C3BB>Ҫ<EFBFBD><D2AA><EFBFBD>µ<EFBFBD><C2B5><EFBFBD>Ϣ!',mtWarning,[mbyes],0);
exit;
end;
if dxdbgrid2.SelectedCount>0 then
begin
for i:=0 to dxdbgrid2.SelectedCount-1 do
begin
t_op_railway.GotoBookmark(pointer(dxdbgrid2.selectedrows[i]));
t_op_railway.Edit;
if (wwDBDateTimePicker4.Text<>'') then
t_op_railway['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:=wwDBDateTimePicker4.Date;
if (wwDBDateTimePicker5.Text<>'') then
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=wwDBDateTimePicker5.Date;
if (edit8.Text<>'') then
t_op_railway['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:=edit8.Text;
t_op_railway.Post;
end;
end
end;
procedure Tfrm_op_railway_road.RxDBLookupCombo19Enter(Sender: TObject);
begin
// RxLookupComboEnter(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway_road.RxDBLookupCombo19Exit(Sender: TObject);
begin
// RxLookupComboExit(TRxDBLookupCombo(Sender));
end;
end.