74 lines
1.6 KiB
ObjectPascal
74 lines
1.6 KiB
ObjectPascal
unit U_DeptTypeHelp;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit,
|
|
cxInplaceContainer, cxDBTL, cxControls, cxTLData, DB, ADODB, cxLookAndFeels,
|
|
cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxSkinsCore,
|
|
dxSkinsDefaultPainters;
|
|
|
|
type
|
|
TfrmDeptTypeHelp = class(TForm)
|
|
ADOConnection1: TADOConnection;
|
|
DataSource1: TDataSource;
|
|
ADOQueryHelp: TADOQuery;
|
|
cxDBTreeList1: TcxDBTreeList;
|
|
cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure cxDBTreeList1DblClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmDeptTypeHelp: TfrmDeptTypeHelp;
|
|
|
|
implementation
|
|
|
|
uses
|
|
U_DataLink;
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmDeptTypeHelp.FormCreate(Sender: TObject);
|
|
begin
|
|
cxDBTreeList1.Align := alclient;
|
|
try
|
|
with ADOConnection1 do
|
|
begin
|
|
Connected := false;
|
|
ConnectionString := DConString;
|
|
//ConnectionString:='';
|
|
Connected := true;
|
|
end;
|
|
except
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmDeptTypeHelp.FormShow(Sender: TObject);
|
|
begin
|
|
with ADOQueryHelp do
|
|
begin
|
|
Close;
|
|
SQL.Clear;
|
|
SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName');
|
|
// SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
|
|
Open;
|
|
end;
|
|
cxDBTreeList1.Items[0].Expand(false);
|
|
end;
|
|
|
|
procedure TfrmDeptTypeHelp.cxDBTreeList1DblClick(Sender: TObject);
|
|
begin
|
|
if ADOQueryHelp.IsEmpty then
|
|
exit;
|
|
ModalResult := 1;
|
|
end;
|
|
|
|
end.
|
|
|