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 변환이 될까요? 

>> >>   도와주세요 ^^; ㅠㅠ

>> >>  

>> >>  

>> >>  

>> >>  

>> >>