123 lines
3.2 KiB
ObjectPascal
123 lines
3.2 KiB
ObjectPascal
|
// Դ<><D4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ⲿ<EFBFBD><E2B2BF><EFBFBD>֣<EFBFBD>U_groupHelp.pas<61><73>
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾ <20><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>
|
|||
|
|
// ϵͳ<CFB5><CDB3><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>ϵͳ
|
|||
|
|
// ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>
|
|||
|
|
// <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD> <<<3C>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD>㹦<EFBFBD><E3B9A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ.vsd>><3E><><<<3C>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1>ṹ.doc >>
|
|||
|
|
// <20><><EFBFBD>ߣ<EFBFBD><DFA3>ٻ<EFBFBD>ƽ
|
|||
|
|
// <20><><EFBFBD>ˣ<EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
//1<><31><EFBFBD><EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD> 2006-08-16 <20><EFBFBD><DEB8><EFBFBD>Ա <20>ٻ<EFBFBD>ƽ
|
|||
|
|
unit U_GroupHelp;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, ToolWin, cxStyles,
|
|||
|
|
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit,
|
|||
|
|
cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
|||
|
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
|
|||
|
|
ImgList;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmGroupHelp = class(TForm)
|
|||
|
|
ToolBar2: TToolBar;
|
|||
|
|
Tok: TToolButton;
|
|||
|
|
ToolButton7: TToolButton;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
ADOQueryHelp: TADOQuery;
|
|||
|
|
ADOQueryHelpGroupNo: TStringField;
|
|||
|
|
ADOQueryHelpGroupName: TStringField;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
tv1: TcxGridDBTableView;
|
|||
|
|
tv1DeptName: TcxGridDBColumn;
|
|||
|
|
tv1groupNo: TcxGridDBColumn;
|
|||
|
|
tv1groupName: TcxGridDBColumn;
|
|||
|
|
DBGrid1Level1: TcxGridLevel;
|
|||
|
|
ADOQueryHelpdeptName: TStringField;
|
|||
|
|
ImageList24: TImageList;
|
|||
|
|
ADOConnection1: TADOConnection;
|
|||
|
|
cxStyleRepository1: TcxStyleRepository;
|
|||
|
|
cxStyle1: TcxStyle;
|
|||
|
|
cxStyle2: TcxStyle;
|
|||
|
|
cxStyle_gridRow: TcxStyle;
|
|||
|
|
cxStyle_gridFoot: TcxStyle;
|
|||
|
|
cxStyle_gridHead: TcxStyle;
|
|||
|
|
cxStyle_gridGroupBox: TcxStyle;
|
|||
|
|
cxStyle_yellow: TcxStyle;
|
|||
|
|
cxStyle_Red: TcxStyle;
|
|||
|
|
cxStyleTree: TcxStyle;
|
|||
|
|
cxStyle3: TcxStyle;
|
|||
|
|
procedure DBGrid1DblClick(Sender: TObject);
|
|||
|
|
procedure TokClick(Sender: TObject);
|
|||
|
|
procedure ToolButton7Click(Sender: TObject);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure tv1DblClick(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
fFrameNo:string;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmGroupHelp: TfrmGroupHelp;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_global;
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmGroupHelp.DBGrid1DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ModalResult:=1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmGroupHelp.TokClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryHelp.IsEmpty then exit;
|
|||
|
|
ModalResult:=1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmGroupHelp.ToolButton7Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ModalResult:=-1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmGroupHelp.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
cxgrid1.Align:=alClient;
|
|||
|
|
with ADOConnection1 do
|
|||
|
|
begin
|
|||
|
|
Connected:=false;
|
|||
|
|
ConnectionString:=gConString;
|
|||
|
|
Connected:=true;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmGroupHelp.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with ADOQueryHelp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear ;
|
|||
|
|
sql.Add('select A.* ,');
|
|||
|
|
sql.Add('deptName=(select frameName from YC_frame where frameNo=A.dept),');
|
|||
|
|
sql.Add('GroupChief=(select name from YC_stuff where code=GroupChief)');
|
|||
|
|
sql.Add('from mc_group A');
|
|||
|
|
if trim(fFrameNo)<>'' then
|
|||
|
|
sql.Add('where A.dept='''+fFrameNo+'''');
|
|||
|
|
sql.Add('order by A.groupName');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmGroupHelp.tv1DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
TOk.Click ;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|