{*******************************************************}
{                                                       }
{       單元名稱: UntFuncD                              }
{       創建日期: 2005-09-03                            }
{       摘要說明: 代碼添加編輯單元                      }
{                                                       }
{       詳細說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當前版本: 2.2                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit UntFuncD;

{==========================================================================
                       單元接口部分
==========================================================================}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Menus, XPMenu, StdCtrls, ExtCtrls, ComCtrls, Clipbrd,
  SynEdit, SynMemo, SynEditor;

type
  TFrmFuncD = class(TForm)
    Panel1: TPanel;
    ComboType: TComboBox;
    Label2: TLabel;
    EditUses: TEdit;
    Label1: TLabel;
    EdtSubject: TEdit;
    Splitter1: TSplitter;
    MemoRemark: TMemo;
    Label3: TLabel;
    SBtnSave: TSpeedButton;
    SBtnClose: TSpeedButton;
    CheckBox1: TCheckBox;
    SBtnNew: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    XPMenu1: TXPMenu;
    CheckBox2: TCheckBox;
    Label4: TLabel;
    ComboBoxFunc: TComboBox;
    SbtWin: TSpeedButton;
    MemoConent: TSynEditor;
    aSynUndo11: TMenuItem;
    aSynRedo11: TMenuItem;
    aSynFind11: TMenuItem;
    aSynFindNext11: TMenuItem;
    aSynReplace11: TMenuItem;
    aSynReplaceNext11: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure SBtnCloseClick(Sender: TObject);
    procedure ComboTypeDropDown(Sender: TObject);
    procedure SBtnSaveClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure MemoRemarkDblClick(Sender: TObject);
    procedure SBtnNewClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboTypeChange(Sender: TObject);
    procedure ComboBoxFuncChange(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure MemoConentDblClick(Sender: TObject);
    procedure MemoConentKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SbtWinClick(Sender: TObject);
    procedure ComboBoxFuncExit(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MemoConentDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure MemoConentDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure EdtSubjectDblClick(Sender: TObject);
    procedure EditUsesDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmFuncD           : TFrmFuncD;
  IDList             : Tstrings;
  Edited             : boolean;

  {==========================================================================
                          單元實現部分
  ==========================================================================}

implementation

{==========================================================================
                引用的單元，數據模塊，DLL接口
==========================================================================}

uses UntDM, UntFaceD, UntMain, UntSysFaceD;

{$R *.dfm}

procedure TFrmFuncD.SBtnCloseClick(Sender: TObject);
var
  k : integer;
begin
  if Edited then
   begin
    //self.FormStyle := fsNormal;
    CheckBox2.Checked := false;
    k := Application.MessageBox(PChar('代碼內容已經修改，是否保存？'),PChar('系統提示'),MB_YESNOCANCEL + MB_ICONQUESTION);
    if k = idYES then
    begin
      self.SBtnSaveClick(Sender);
      if Edited then
        Exit;
    end
    else
     if k = idCancel then
       Exit;
   end;
  Edited := false;
  Close;
end;

{==========================================================================
　過程名:    TFrmFuncD.ComboTypeDropDown
  功  能:    組合框顯示類別列表
  參　數:
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFrmFuncD.ComboTypeDropDown(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  TypeList := Tstringlist.Create;
  Type_GetTypeList(DM.ADOConnection1, TypeList);
  ComboType.Clear;
  ComboType.Text := '選擇代碼類別';
  ComboType.Items.AddStrings(TypeList);
  TypeList.Free;
end;

{==========================================================================
　過程名:    TFrmFuncD.SBtnSaveClick
  功  能:    保存代碼
  參　數:
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFrmFuncD.SBtnSaveClick(Sender: TObject);
begin
  //檢查輸入數據是否合法
  if (ComboType.Text = '選擇代碼類別') or (ComboType.Text = '') then
    begin
      ShowInfo('請選擇代碼所屬類別！');
      ComboType.SetFocus;
      Exit;
    end;
  if EdtSubject.Text = '' then
    begin
      ShowInfo('代碼名稱不能為空！');
      EdtSubject.SetFocus;
      Exit;
    end;
  //執行保存操作
  if self.Tag > 0 then                  //編輯狀態
    begin
      if Func_Edit(DM.ADOConnection1, Self.Tag, ComboType.Text, EdtSubject.Text,
        EditUses.Text, MemoConent.Text, MemoRemark.Text) then
          ShowInfo('保存成功！');
        self.ComboBoxFunc.Text := EdtSubject.Text ;
        self.Caption := EdtSubject.Text ;
    end
  else                                  //添加狀態
    begin
      if Func_AddNew(DM.ADOConnection1, ComboType.Text, EdtSubject.Text,
        EditUses.Text, MemoConent.Text, MemoRemark.Text) then
          ShowInfo('保存成功！');
        self.ComboBoxFunc.Text := EdtSubject.Text ;
        self.Caption := EdtSubject.Text ;
    end;
  Edited := false;
end;

{==========================================================================
　過程名:    TFrmFuncD.CheckBox1Click
  功  能:    設置自動換行
  參　數:
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFrmFuncD.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    begin
      MemoConent.ScrollBars := ssVertical;
      MemoConent.WordWrap.Enabled := true;
    end
  else
    begin
      MemoConent.ScrollBars := ssBoth;
      MemoConent.WordWrap.Enabled := false;
    end;
  //if ComboBoxFunc.ItemIndex > 0 then
  //  self.ComboBoxFuncChange(Sender);
end;

{==========================================================================
　過程名:    TFrmFuncD.MemoRemarkDblClick
  功  能:    雙擊全選
  參　數:
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFrmFuncD.MemoRemarkDblClick(Sender: TObject);
begin
  MemoRemark.SelectAll;
end;

{==========================================================================
　過程名:    TFrmFuncD.SBtnNewClick
  功  能:    新建代碼
  參　數:
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFrmFuncD.SBtnNewClick(Sender: TObject);
var
  k : integer;
begin
  if Edited then
   begin