귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [떟蹂][떟蹂][吏덈Ц] dcu 뙆씪濡 pas 蹂듦뎄 媛뒫븯굹슂?
coding
(沅뚯닚샇)
2020-07-20 삤쟾 3:50:14
532회 조회


등록된 파일이 없습니다.

unit u_Visit_Find;

interface

uses
  cxLabel,
  TntDBGrids,
  DBGrids,
  Grids,
  TntStdCtrls,
  cxTimeEdit,
  cxSpinEdit,
  cxGroupBox,
  DateUtils,
  cxGridBandedTableView,
  u_commonFunc,
  Uni,
  DBAccess,
  MemDS,
  cxButtons,
  cxLookAndFeelPainters,
  Menus,
  JvRadioGroup,
  JvExExtCtrls,
  cxCalendar,
  cxDropDownEdit,
  cxMaskEdit,
  cxContainer,
  GradientLabel,
  StdCtrls,
  JvLabel ,
  JvExControls,
  cxTextEdit,
  cxGrid,
  cxGridCustomView,
  cxControls,
  cxClasses,
  cxGridDBTableView ,
  cxGridTableView,
  cxGridCustomTableView,
  cxGridLevel,
  cxDBData,
  DB,
  cxEdit,
  cxDataStorage,
  cxData,
  cxFilter,
  cxGraphics,
  cxCustomData,
  cxStyles,
  ExtCtrls,
  Dialogs,
  Forms ,
  Controls ,
  Graphics,
  Classes ,
  Variants,
  SysUtils,
  Messages,
  Windows;


type
  TFrmVisit_Find = class(TForm)
  published
    Panel1: Panel
    Panel2: Panel;
    cxButton1: TcxButton;
    View_Query: TUniQuery;
    DS1: TUniDataSource;
    CG1: TcxGrid;
    CT1: TcxGridDBTableView;
    g_Seq: TcxGridDBColumn;
    g_Pernno: TcxGridDBColumn;
    g_Pnname: TcxGridDBColumn;
    g_Depcod: TcxGridDBColumn;
    g_Desban: TcxGridDBColumn;
    g_Jiccde: TcxGridDBColumn;
    g_Jiccdenm: TcxGridDBColumn;
    V_Pername: TcxGridDBColumn;
    V_Company: TcxGridDBColumn;
    V_Phone: TcxGridDBColumn;
    V_Date: TcxGridDBColumn;
    V_Time: TcxGridDBColumn;
    V_Object: TcxGridDBColumn;
    V_InTime: TcxGridDBColumn;
    V_OutTime: TcxGridDBColumn;
    V_Carnum: TcxGridDBColumn;
    V_Bigo: TcxGridDBColumn;
    CL1: TcxGridLevel;
    cxLabel1: TcxLabel;
    cxLabel3: TcxLabel;
    F_V_Company: TcxTextEdit;
    Visit_Dt1: cxCalendar.TcxDateEdit;
    JvLabel1: JvLabel.TJvLabel;
    Visit_Dt2: }cxCalendar.TcxDateEdit;
    cxLabel2: TcxLabel;
    cxLabel4: TcxLabel;
    F_V_Pername: TcxTextEdit;
    F_Pnname: TcxTextEdit;
    F_V_Gubun: TcxComboBox;
    cxLabel5: TcxLabel;
    g_gubun: TcxGridDBColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
  public
    procedure VisibleChanging(); override;
  end;

var
  FrmVisit_Find: TFrmVisit_Find;

implementation

uses
  u_main,
  u_Personal_Find,
  udm_main;

var
  Str: string;
  Visit_Id: string;

procedure TFrmVisit_Find.VisibleChanging;
begin
end;

procedure TFrmVisit_Find.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  View_Query.Close();
  Action := caHide;
end;

procedure TFrmVisit_Find.FormShow(Sender: TObject);
begin
  WindowState := wsMaximized;
  Visit_Dt1.??? := Now();
  Visit_Dt2.??? := Now();

  cxButton1Click(Sender);
end;

procedure TFrmVisit_Find.cxButton1Click(Sender: TObject);
begin
  try

  finally

  end;
end;

end.

 

뜽뙆씠 湲곕낯 而댄룷꼳듃留 씠슜빐꽌 而댄뙆씪 릺뿀쑝硫

異붽 옉뾽뾾씠 썝蹂 냼뒪肄붾뱶濡쒖쓽 由щ쾭뒪媛 媛뒫븯吏留

뜥뱶뙆떚 而댄룷꼳듃媛 궗슜릺뿀쓣 寃쎌슦뿏

궗슜맂 而댄룷꼳듃媛 엳뼱빞 由щ쾭뒪 븷 닔 엳뼱슂.

DevExpress 6.24, 
UniDAC  unidac370d7pro, 

벑쓽 뜥뱶뙆떚 而댄룷꼳듃 媛뽮퀬엳뒗 寃 뾾꽕슂.

 

떎쓬 dcu 뙆씪룄 엳뼱빞 븿.

u_main,
u_Personal_Find,
udm_main,

u_commonFunc

 

 

 

 

>> dcu 뙆씪 븬異뺥빐꽌 삱졇뒿땲떎.

>>  

>> >> 1. 媛쒕컻/떎뻾 뵆옯뤌

>> >> (1) OS : window7

>> >> (2) 媛쒕컻댋 : delphi7

>> >> (3) 궗슜 Database : ms-sql

>> >> 2. 媛쒕컻 以묒씤 봽濡쒓렇옩

>> >> 3. 吏덈Ц 궡슜

>> >>   pc媛 옖꽟썾뼱뿉 媛먯뿼릺뿀뒿땲떎. 뀪뀪

>> >>   pas 뙆씪씠 쟾遺 蹂솚릺뼱꽌 궗슜씠 遺덇빀땲떎. ~pas룄 蹂솚릺뿀뒿땲떎. 뀪뀪

>> >>   dfm 뙆씪怨 dcu 뙆씪 蹂솚릺吏 븡븯뒗뜲

>> >>   dcu 뙆씪濡 pas 蹂솚씠 맆源뚯슂? 

>> >>   룄二쇱꽭슂 ^^; 뀪뀪

>> >>  

>> >>  

>> >>  

>> >>  

>> >>