gonggaofabu.pas

本系统为演示Delphi的功能而开发设计

unit GonggaoFaBu;

interface

uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, ComCtrls, Mask,DB;

type
  TGonggaoFabuForm = class(TForm)
    ButtonClose: TButton;
    ButtonOk: TButton;
    DateTimePickerFaBu: TDateTimePicker;
    DBMemofabu: TDBMemo;
    Label1: TLabel;
    ButtonNext: TButton;
    ButtonPrior: TButton;
    ButtonAdd: TButton;
    ButtonDelete: TButton;
    procedure FormActivate(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonPriorClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
    procedure ButtonAddClick(Sender: TObject);
    procedure ButtonDeleteClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GonggaoFabuForm: TGonggaoFabuForm;

implementation
Uses HuaXia;
{$R *.DFM}


procedure TGonggaoFabuForm.FormActivate(Sender: TObject);
begin
Try
With HuaXiaData.QueryGonggao Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From Sys_bulletin Order By bulletin_date Desc')
     End;
     RequestLive:=True;
     prepare;
     Open;
     End;
     DateTimePickerFaBu.DateTime:=HuaXiaData.QueryGonggao.FieldByName('Bulletin_date').Value;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonOkClick(Sender: TObject);
begin
Try
HuaXiaData.QueryGonggao.Edit;
If (HuaXiaData.QueryGonggao.State=DsEdit) or (HuaXiaData.QueryGonggao.State=DsInsert) Then
   Begin
   HuaXiaData.QueryGonggao.Edit;
   HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value:=DateTimePickerFaBu.DateTime;
   HuaXiaData.QueryGonggao.Post;
   End;
If HuaXiaData.QueryGonggao.UpdatesPending Then
   HuaXiaData.QueryGonggao.ApplyUpdates;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonPriorClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryGonggao.State=DsEdit) or (HuaXiaData.QueryGonggao.State=DsInsert) Then
   Begin
   HuaXiaData.QueryGonggao.Edit;
   HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value:=DateTimePickerFaBu.DateTime;
   HuaXiaData.QueryGonggao.Post;
   End;
HuaXiaData.QueryGonggao.Prior;
Try
DateTimePickerFaBu.DateTime:=HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value;
Except
DateTimePickerFaBu.DateTime:=Now;
End;
If HuaXiaData.QueryGonggao.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.QueryGonggao.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonNextClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryGonggao.State=DsEdit) or (HuaXiaData.QueryGonggao.State=DsInsert) Then
   Begin
   HuaXiaData.QueryGonggao.Edit;
   HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value:=DateTimePickerFaBu.DateTime;
   HuaXiaData.QueryGonggao.Post;
   End;
HuaXiaData.QueryGonggao.Next;
Try
DateTimePickerFaBu.DateTime:=HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value;
Except
DateTimePickerFaBu.DateTime:=Now;
End;
If HuaXiaData.QueryGonggao.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.QueryGonggao.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonAddClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryGonggao.State=DsEdit) or (HuaXiaData.QueryGonggao.State=DsInsert) Then
   Begin
   HuaXiaData.QueryGonggao.Edit;
   HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value:=DateTimePickerFaBu.DateTime;
   HuaXiaData.QueryGonggao.Post;
   End;
DateTimePickerFaBu.DateTime:=Now;
HuaXiaData.QueryGonggao.Append;
HuaXiaData.QueryGonggao.Edit;
If HuaXiaData.QueryGonggao.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.QueryGonggao.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
ActiveControl:=DBMemofabu;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonDeleteClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryGonggao.State=DsEdit) or (HuaXiaData.QueryGonggao.State=DsInsert) Then
   HuaXiaData.QueryGonggao.Cancel
Else
   HuaXiaData.QueryGonggao.Delete;
If HuaXiaData.QueryGonggao.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.QueryGonggao.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Try
DateTimePickerFaBu.DateTime:=HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value;
Except
DateTimePickerFaBu.DateTime:=Now;
End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Try
HuaXiaData.QueryGonggao.Active:=False;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonCloseClick(Sender: TObject);
begin
Try
If HuaXiaData.QueryGonggao.UpdatesPending Then
   Begin
   If MessageDlg('所做修改尚未保存,保存修改吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
      Begin
      If (HuaXiaData.QueryGonggao.State=DsEdit) or (HuaXiaData.QueryGonggao.State=DsInsert) Then
          Begin
          HuaXiaData.QueryGonggao.Edit;
          HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value:=DateTimePickerFaBu.DateTime;
          HuaXiaData.QueryGonggao.Post;
          End;
      HuaXiaData.QueryGonggao.ApplyUpdates;
      End;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

end.