mc_jslbsz.~pas

这是有关delphi数据库开发的电子书

unit MC_JSLBSZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, DBActns, ActnList, DBCtrls, Mask, Grids,
  DBGrids;

type
  TJSLBSZ = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBText1: TDBText;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPrior1: TDataSetPrior;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Image1: TImage;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JSLBSZ: TJSLBSZ;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}

procedure TJSLBSZ.DBEdit2Exit(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClWindow;
end;

procedure TJSLBSZ.DBEdit2Enter(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClAqua;
end;

procedure TJSLBSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then BitBtn6.SetFocus;
end;

procedure TJSLBSZ.FormShow(Sender: TObject);
begin
     ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE);
     TLCYGLXT.JSLBXXB.Edit;
     TLCYGLXT.JSLBXXB.Cancel;
     JSLBSZ.Refresh;
     GroupBox1.Refresh;
     DBGRid1.RefResh;
     Panel1.Refresh;
end;

procedure TJSLBSZ.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
     if BitBtn8.Enabled=False then
        begin
             ShowMessage('请保存数据');
             Abort;
        end;
end;

procedure TJSLBSZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE+AW_HIDE);
     TLCYGLXT.JSLBXXB.Close;
     JSLBSZ.Release;
     JSLBSZ:=Nil;
end;

procedure TJSLBSZ.BitBtn8Click(Sender: TObject);
begin
     Close;
end;

procedure TJSLBSZ.BitBtn5Click(Sender: TObject);
var a:integer;
begin
     if BitBtn5.Caption='添加' then
        begin
            TLCYGLXT.JSLBXXB.Refresh;
            if TLCYGLXT.JSLBXXB.RecordCount<>0 then
               begin
                    a:=1;
                    TLCYGLXT.JSLBXXB.Last;
                    a:=a+TLCYGLXT.JSLBXXB.FieldByName('编号').AsInteger;
               end
            else
               begin
                    a:=1;
               end;
             BitBtn5.Caption:='取消';
             BitBtn6.Caption:='保存';
             bitBtn7.Enabled:=False;
             BitBtn8.enabled:=False;
             bitBtn1.Enabled:=False;
             BitBtn2.enabled:=False;
             bitBtn3.Enabled:=False;
             BitBtn4.enabled:=False;
             DBGrid1.Enabled:=False;
             DBEdit2.Enabled:=True;
             TLCYGLXT.JSLBXXB.Append;
             TLCYGLXT.JSLBXXB.FieldByName('编号').AsInteger:=a;
             DBEdit2.SetFocus;
        end
     else
        begin
             BitBtn5.Caption:='添加';
             Bitbtn6.Caption:='修改';
             DBEdit2.Enabled:=False;
             BitBtn7.Enabled:=True;
             BitBtn8.Enabled:=True;
             BitBtn1.Enabled:=True;
             BitBtn2.Enabled:=True;
             BitBtn3.Enabled:=True;
             BitBtn4.Enabled:=True;
             DBGrid1.Enabled:=True;
             TLCYGLXT.JSLBXXB.Cancel;
        end;
end;

procedure TJSLBSZ.BitBtn6Click(Sender: TObject);
begin
     if BitBtn6.Caption='修改' then
        begin
             BitBtn5.Caption:='取消';
             Bitbtn6.Caption:='保存';
             bitBtn7.Enabled:=False;
             BitBtn8.Enabled:=False;
             BitBtn1.Enabled:=False;
             BitBtn2.Enabled:=False;
             BitBtn3.Enabled:=False;
             Bitbtn4.Enabled:=False;
             DBEdit2.Enabled:=True;
             DBGrid1.Enabled:=False;
             TLCYGLXT.JSLBXXB.Edit;
             DBEdit2.SetFocus;
        end
     else
        begin
             if Length(TLCYGLXT.JSLBXXB.FieldByname('类别名称').AsString)<>0 then
                begin
                     BitBtn5.Caption:='添加';
                     BitBtn6.Caption:='修改';
                     BitBtn7.Enabled:=True;
                     Bitbtn8.Enabled:=True;
                     Bitbtn1.Enabled:=True;
                     bitBtn2.Enabled:=True;
                     BitBtn3.Enabled:=True;
                     Bitbtn4.Enabled:=True;
                     DBEdit2.Enabled:=False;
                     DBGrid1.Enabled:=True;
                     TLCYGLXT.JSLBXXB.Post;
                end
             else
                begin
                     ShowMessage('请输入类别名称');
                     DBEdit2.SetFocus;
                end;
        end;
end;

procedure TJSLBSZ.BitBtn7Click(Sender: TObject);
begin
     TLCYGLXT.JSLBXXB.Refresh;
     if TLCYGLXT.JSLBXXB.RecordCount<>1 then
        begin
             if MessageDLG('确认删除［类别名称='+TLCYGLXT.JSLBXXB
                 .FieldByname('类别名称').AsString+']的信息?'
                 ,mtCustom,[mbYes,mbNO],0)=mrYes then
                 begin
                      TLCYGLXT.JSLBXXB.Delete;
                      TLCYGLXT.JSLBXXB.Refresh;
                 end;
        end
     else
        begin
             ShowMessage('数据信息中必须有一个记录');
        end;
end;

end.