yhzgl_form.pas

delphi+sql2000实现的图书管理系统软件

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.