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

107 lines
3.3 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_op_shendate;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, wwdbdatetimepicker, bsSkinCtrls, BusinessSkinForm, DB;
type
Tfrm_op_shendate = class(TForm)
Label1: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
DataSource1: TDataSource;
bsSkinButton2: TbsSkinButton;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
BSTYPE:string;
end;
var
frm_op_shendate: Tfrm_op_shendate;
implementation
uses my_sys_function, u_op_railway_shencode;
{$R *.dfm}
procedure Tfrm_op_shendate.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_shendate.bsSkinButton1Click(Sender: TObject);
var
i:Integer;
begin
if wwDBDateTimePicker1.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
exit;
end;
try
frm_op_railwayctn_shencode.t_op_railway.DisableControls;
for i:=0 to frm_op_railwayctn_shencode.dxDBGrid2.SelectedCount-1 do
begin
frm_op_railwayctn_shencode.t_op_railway.GotoBookmark(pointer(frm_op_railwayctn_shencode.dxDBGrid2.selectedrows[i]));
if (frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='') or (frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then begin
frm_op_railwayctn_shencode.t_op_railway.edit;
frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asdatetime:=wwDBDateTimePicker1.date;
frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD>뵽վ<EBB5BD><D5BE><EFBFBD><EFBFBD>').asstring:=frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD>뵽վӢ<D5BE><D3A2>').asstring:=frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>վӢ<D5BE><D3A2>').asstring;
frm_op_railwayctn_shencode.t_op_railway.post;
end;
end;
finally
frm_op_railwayctn_shencode.t_op_railway.EnableControls;
end;
close;
end;
procedure Tfrm_op_shendate.FormShow(Sender: TObject);
begin
// wwDBDateTimePicker1.MinDate:=Logininfo.endday+1;
end;
procedure Tfrm_op_shendate.bsSkinButton2Click(Sender: TObject);
var
i:Integer;
begin
try
frm_op_railwayctn_shencode.t_op_railway.DisableControls;
for i:=0 to frm_op_railwayctn_shencode.dxDBGrid2.SelectedCount-1 do
begin
frm_op_railwayctn_shencode.t_op_railway.GotoBookmark(pointer(frm_op_railwayctn_shencode.dxDBGrid2.selectedrows[i]));
if frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
frm_op_railwayctn_shencode.t_op_railway.edit;
frm_op_railwayctn_shencode.t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring:='δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_op_railwayctn_shencode.t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
frm_op_railwayctn_shencode.t_op_railway.post;
end;
end;
finally
frm_op_railwayctn_shencode.t_op_railway.EnableControls;
end;
close;
end;
end.