mc_pbcx.~pas

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

unit MC_PBCX;

interface

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

type
  TPBCX = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TMemoField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TDateTimeField;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit7: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBMemo1Exit(Sender: TObject);
    procedure DBMemo1Enter(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PBCX: TPBCX;

implementation

uses MC_MainForm;

{$R *.DFM}

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

procedure TPBCX.BitBtn1Click(Sender: TObject);
begin
     Close;
end;

procedure TPBCX.BitBtn4Click(Sender: TObject);
begin
     if Query1.Active then
     if Query1.RecordCount<>0 then
     if MessageDLg('是否删除当前排班记录?',mtCustom
        ,[mbYes,mbNo],0)=mryes then
        Query1.Delete;
end;

procedure TPBCX.BitBtn2Click(Sender: TObject);
begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('Select * From 排班表 ');
     Query1.SQL.Add('Where 日期 >= :A and 日期 <= :B');
     Query1.ParamByName('A').AsDateTime:=DateTimePicker1.Date;
     Query1.ParamByName('B').AsDateTime:=DateTimePicker2.Date;
     Query1.Open;
end;

procedure TPBCX.BitBtn3Click(Sender: TObject);
begin
     if Query1.RecordCount<>0 then
        begin
             Query1.edit;
             GroupBox2.Visible:=True;
             //DBEdit1.SetFocus;
        end;
end;

procedure TPBCX.BitBtn5Click(Sender: TObject);
begin
     Query1.Post;
     GroupBox2.Visible:=False;
end;

procedure TPBCX.BitBtn6Click(Sender: TObject);
begin
     Query1.cancel;
     GroupBox2.Visible:=False;
end;

procedure TPBCX.DBEdit1Exit(Sender: TObject);
begin
     TDBEDit(Sender).Color:=clWindow;
end;

procedure TPBCX.DBEdit1Enter(Sender: TObject);
begin
     TDBEDit(Sender).Color:=clAqua;
end;

procedure TPBCX.DBMemo1Exit(Sender: TObject);
begin
     TDBMemo(Sender).Color:=clWindow;
end;

procedure TPBCX.DBMemo1Enter(Sender: TObject);
begin
     TDBMemo(Sender).Color:=clAqua;
end;

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

procedure TPBCX.FormShow(Sender: TObject);
begin
     if MainForm.Query1.Locate('使用选项','保安排班查询',[loCaseInsensitive]) then
        begin
             if MainForm.Query1.FieldByName('读写').AsString='读' then
                begin
                     BitBtn3.Enabled:=False;
                     BitBtn4.Enabled:=False;                     
                end;
        end;
end;

end.