mc_pbgl.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_PBGL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Db, Mask, DBTables, Buttons, ExtCtrls;

type
  TPBGL = class(TForm)
    Table1: TTable;
    Table1BDEDesigner: TIntegerField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner7: TStringField;
    Table1BDEDesigner8: TMemoField;
    Table1BDEDesigner9: TStringField;
    Table1BDEDesigner10: TDateTimeField;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    BitBtn4: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBMemo1: TDBMemo;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PBGL: TPBGL;

implementation

uses MC_PBList, MC_MainForm;

{$R *.DFM}

procedure TPBGL.FormShow(Sender: TObject);
begin
  if MainForm.Query1.Locate('使用选项','保安排班管理',[loCaseInsensitive]) then
  begin
    if MainForm.Query1.FieldByName('读写').AsString='读' then
    begin
      BitBtn1.Enabled:=False;
      BitBtn2.Enabled:=False;
      Bitbtn3.Enabled:=False;
    end;
    end;
  end;
procedure TPBGL.BitBtn3Click(Sender: TObject);
begin
  If Table1.RecordCount <> 0 Then
  if MessageDLg('是否删除当前记录?',mtCustom,[mbYes,mbNo],0)=mrYes then
     Table1.Delete;
end;

procedure TPBGL.BitBtn1Click(Sender: TObject);   //添加或保存操作
begin
  if BitBtn1.Caption='添加[&I]' then
   begin
     Table1.Append;
     BitBtn1.Caption:='保存[&S]';
     BitBtn2.Caption:='取消[&U]';
     GroupBox1.Enabled:=True;
     BitBtn3.Enabled:=False;
     BitBtn4.Enabled:=False;
     DBNavigator1.Enabled:=False;
     DBEdit1.SetFocus;
   End
  Else
   begin
   if (Length(Table1.FieldByName('编号').asString)=0) or
     (Length(Table1.FieldByName('执勤人').asString)=0) then
     begin
          ShowMessage('请将信息添全.');
     End
   Else
     begin
       BitBtn1.Caption:='添加[&I]';
       BitBtn2.Caption:='修改[&E]';
       BitBtn3.Enabled:=True;
       BitBtn4.Enabled:=True;
       DBNavigator1.Enabled:=True;
       GroupBox1.Enabled:=False;
       Table1.Post;
     end;
   end;
end;

procedure TPBGL.BitBtn2Click(Sender: TObject);
begin
  if BitBtn2.Caption='修改[&E]' then
  begin
    Table1.Edit;
    BitBtn2.Caption:='取消[&U]';
    BitBtn1.Caption:='保存[&S]';
    GroupBox1.Enabled:=True;
    BitBtn3.Enabled:=False;
    BitBtn4.Enabled:=False;
    DBNavigator1.Enabled:=False;
    DBEdit1.SetFocus;
  End
  Else
  begin
    BitBtn1.Caption:='添加[&I]';
    BitBtn2.Caption:='修改[&E]';
    BitBtn3.Enabled:=True;
    BitBtn4.Enabled:=True;
    DBNavigator1.Enabled:=True;
    GroupBox1.Enabled:=False;
    Table1.Cancel;
  end;
end;

procedure TPBGL.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
     if Key=#13 then perform(WM_NEXTDLGCTL,0,0);
end;

procedure TPBGL.BitBtn4Click(Sender: TObject);
begin
  If Not Assigned(PBList) Then
  begin
    PBList:=TPBList.Create(Self);
    PBList.ShowModal;
  end;
end;

procedure TPBGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PBGL.Release;
  PBGL:=Nil;
end;
end.