unit YHZGL_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatEditUnit, TFlatRadioButtonUnit, TFlatButtonUnit,
  Grids, DBGrids, TFlatGroupBoxUnit, ExtCtrls, TFlatPanelUnit,DB,ADODB;

type
  TYHZGL_F = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatGroupBox5: TFlatGroupBox;
    YHZ_DG: TDBGrid;
    Del_FBtn: TFlatButton;
    FlatGroupBox7: TFlatGroupBox;
    YHZXG_FRBtn: TFlatRadioButton;
    YHZTJ_FRBtn: TFlatRadioButton;
    FlatGroupBox8: TFlatGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    ZBH_FE: TFlatEdit;
    ZMC_FE: TFlatEdit;
    LHZGL_FBtn: TFlatButton;
    Close_Btn: TButton;
    Label1: TLabel;
    ZCTS_FE: TFlatEdit;
    Label2: TLabel;
    ZDBS_FE: TFlatEdit;
    YHZ_DS: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Close_BtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Del_FBtnClick(Sender: TObject);
    procedure YHZ_DGMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure YHZTJ_FRBtnClick(Sender: TObject);
    procedure YHZXG_FRBtnClick(Sender: TObject);
    procedure LHZGL_FBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YHZGL_F: TYHZGL_F;

implementation

uses  Share_Unit;

{$R *.dfm}

var
  YHZ_T:TADOTable;

procedure TYHZGL_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TYHZGL_F.FormDestroy(Sender: TObject);
begin
  FreeAndNil(YHZ_T);
  YHZGL_F:=nil;
end;
//***********************************************************************************
procedure TYHZGL_F.Close_BtnClick(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
procedure TYHZGL_F.FormCreate(Sender: TObject);
begin
  YHZ_T:=TADOTable.Create(nil);
  YHZ_T.Connection:=Connect;
  YHZ_T.TableName:='組用戶';
  YHZ_DS.DataSet:=YHZ_T;
  YHZ_DG.Columns[0].FieldName:='組號';
  YHZ_DG.Columns[1].FieldName:='組名';
  YHZ_DG.Columns[2].FieldName:='最大天數';
  YHZ_DG.Columns[3].FieldName:='最大數量';
  YHZ_T.Open;
end;
//***********************************************************************************
procedure TYHZGL_F.Del_FBtnClick(Sender: TObject);           //刪除組
var
  Del_Flag:integer;
begin
  Del_Flag:=MessageBox(handle,'警告：刪除是永久的不可恢復的！確認刪除嗎？','刪除確認',MB_OKCANCEL or MB_ICONWarning);
  if Del_Flag=IDCancel then exit;
  YHZ_DG.DataSource.DataSet.Delete;
  MessageBox(handle,'記錄已成功刪除！','刪除成功',MB_OK or MB_ICONINFORMATION);
  ZBH_FE.Text:='';
  ZBH_FE.Enabled:=true;
  ZMC_FE.Text:='';
  ZCTS_FE.Text:='';
  ZDBS_FE.Text:='';
  YHZTJ_FRBtn.Checked:=true;
end;
//***********************************************************************************
procedure TYHZGL_F.YHZ_DGMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  YHZXG_FRBtn.Checked:=true;
  ZBH_FE.Text:=YHZ_DG.DataSource.DataSet.FieldValues['組號'];
  ZBH_FE.Enabled:=false;
  ZMC_FE.Text:=YHZ_DG.DataSource.DataSet.FieldValues['組名'];
  ZCTS_FE.Text:=IntToStr(YHZ_DG.DataSource.DataSet.FieldValues['最大天數']);
  ZDBS_FE.Text:=IntToStr(YHZ_DG.DataSource.DataSet.FieldValues['最大數量']);
end;
//***********************************************************************************
procedure TYHZGL_F.FormShow(Sender: TObject);
begin
  YHZTJ_FRBtn.Checked:=true;
end;
//***********************************************************************************
procedure TYHZGL_F.YHZTJ_FRBtnClick(Sender: TObject);   //選中添加
begin
  ZBH_FE.Text:='';
  ZBH_FE.Enabled:=true;
  ZMC_FE.Text:='';
  ZCTS_FE.Text:='';
  ZDBS_FE.Text:='';
end;
//***********************************************************************************
procedure TYHZGL_F.YHZXG_FRBtnClick(Sender: TObject);   //選中修改
begin
  ZBH_FE.Text:=YHZ_DG.DataSource.DataSet.FieldValues['組號'];
  ZBH_FE.Enabled:=false;
  ZMC_FE.Text:=YHZ_DG.DataSource.DataSet.FieldValues['組名'];
  ZCTS_FE.Text:=IntToStr(YHZ_DG.DataSource.DataSet.FieldValues['最大天數']);
  ZDBS_FE.Text:=IntToStr(YHZ_DG.DataSource.DataSet.FieldValues['最大數量']);
end;
//***********************************************************************************
procedure TYHZGL_F.LHZGL_FBtnClick(Sender: TObject);    //執行操作
begin
  if ZMC_FE.Text='' then
    begin
      MessageBox(handle,'組名稱不能為空！','錯誤',MB_OK or MB_ICONERROR);
      exit;
    end;

  if ZCTS_FE.Text='' then
    begin
      MessageBox(handle,'最長天數不能為空！','錯誤',MB_OK or MB_ICONERROR);
      exit;
    end
    else begin
      try
        StrToInt(ZCTS_FE.Text);
      except
        MessageBox(handle,'最長天數必須為整數！','錯誤',MB_OK or MB_ICONERROR);
        exit;
      end;
    end;

  if ZDBS_FE.Text='' then
    begin
      MessageBox(handle,'最多本數不能為空！','錯誤',MB_OK or MB_ICONERROR);
      exit;
    end
    else begin
      try
        StrToInt(ZDBS_FE.Text);
      except
        MessageBox(handle,'最多本數必須為整數！','錯誤',MB_OK or MB_ICONERROR);
        exit;
      end;
    end;

  if YHZXG_FRBtn.Checked then
    begin
      YHZ_T.Locate('組號',ZBH_FE.Text,[]);
      YHZ_T.Edit;
      YHZ_T.FieldByName('組名').AsString:=ZMC_FE.Text;
      YHZ_T.FieldByName('最大天數').AsInteger:=StrToInt(ZCTS_FE.Text);
      YHZ_T.FieldByName('最大數量').AsInteger:=StrToInt(ZDBS_FE.Text);
      YHZ_T.Post;
      MessageBox(handle,'記錄已修改成功！','修改成功',MB_OK or MB_ICONINFORMATION);
    end
    else begin
      if YHZ_T.Locate('組號',ZBH_FE.Text,[]) then
        begin
          MessageBox(handle,'用戶組編號重復，請檢查！','錯誤',MB_OK or MB_ICONERROR);
          exit;
        end;
      YHZ_T.Append;
      YHZ_T.FieldByName('組號').AsString:=ZBH_FE.Text;
      YHZ_T.FieldByName('組名').AsString:=ZMC_FE.Text;
      YHZ_T.FieldByName('最大天數').AsInteger:=StrToInt(ZCTS_FE.Text);
      YHZ_T.FieldByName('最大數量').AsInteger:=StrToInt(ZDBS_FE.Text);
      YHZ_T.Post;
      MessageBox(handle,'記錄已添加成功！','添加成功',MB_OK or MB_ICONINFORMATION);
      ZBH_FE.Text:='';
      ZMC_FE.Text:='';
      ZCTS_FE.Text:='';
      ZDBS_FE.Text:='';
    end;
  YHZ_T.Open;
end;

end.