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.
68 lines
1.7 KiB
Plaintext
68 lines
1.7 KiB
Plaintext
unit u_seai_sf_status;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxExEdtr, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner,
|
|
DB, ADODB;
|
|
|
|
type
|
|
Tfrm_seai_sf_status = class(TForm)
|
|
t_op_state: TADOQuery;
|
|
t_op_state1: TDataSource;
|
|
dxDBGrid1: TdxDBGrid;
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
dxDBGrid1Column2: TdxDBGridColumn;
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
dxDBGrid1Column5: TdxDBGridColumn;
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure dxDBGrid1Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
bsno:string;
|
|
end;
|
|
|
|
var
|
|
frm_seai_sf_status: Tfrm_seai_sf_status;
|
|
|
|
implementation
|
|
|
|
uses u_op_seae_state_up;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_seai_sf_status.FormShow(Sender: TObject);
|
|
begin
|
|
//
|
|
t_op_state.Close;
|
|
t_op_state.Open;
|
|
end;
|
|
|
|
procedure Tfrm_seai_sf_status.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
action:=cafree;
|
|
frm_seai_sf_status:=nil;
|
|
|
|
end;
|
|
|
|
procedure Tfrm_seai_sf_status.dxDBGrid1Click(Sender: TObject);
|
|
begin
|
|
if not assigned(frm_op_seae_state_up) then
|
|
frm_op_seae_state_up:=tfrm_op_seae_state_up.Create (self);
|
|
frm_op_seae_state_up.t_op_state.DataSource:=frm_seai_sf_status.t_op_state1;
|
|
frm_op_seae_state_up.DBEdit8.DataSource:=frm_seai_sf_status.t_op_state1;
|
|
frm_op_seae_state_up.DBEdit9.DataSource:=frm_seai_sf_status.t_op_state1;
|
|
frm_op_seae_state_up.show;
|
|
// frm_op_seae_state_up.Left:=bsSkinButton17.left+Notebook1.left+2;
|
|
// frm_op_seae_state_up.top:=70+Notebook1.top;
|
|
|
|
end;
|
|
|
|
end.
|