gonggaoliulan.pas

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

unit GonggaoLiuLan;

interface

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

type
  TGonggaoLiuLanForm = class(TForm)
    ButtonReturn: TButton;
    ButtonOk: TButton;
    DBMemofabu: TDBMemo;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    ButtonNext: TButton;
    ButtonPrior: TButton;
    ButtonDelete: TButton;
    procedure FormActivate(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonPriorClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
    procedure ButtonReturnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonDeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GonggaoLiuLanForm: TGonggaoLiuLanForm;

implementation
Uses HuaXia;
{$R *.DFM}


procedure TGonggaoLiuLanForm.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;
With HuaXiaData.QueryGonggaoFaBu Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From comp_bulletin Where tag=:Flag Order By bulletin_date Desc')
     End;
     RequestLive:=True;
     ParamByName('Flag').AsString:='00';
     prepare;
     Open;
     First;
     End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoLiuLanForm.ButtonOkClick(Sender: TObject);
begin
Try
HuaXiaData.QueryGonggaoFabu.Edit;
HuaXiaData.QueryGonggaoFabu.FieldByName('tag').AsString:='+1';
HuaXiaData.QueryGonggaoFabu.Post;
HuaXiaData.QueryGonggao.Append;
HuaXiaData.QueryGonggao.Edit;
HuaXiaData.QueryGonggao.FieldByname('Bulletin_content').Value:=HuaXiaData.QueryGonggaoFaBu.FieldByname('Bulletin_content').Value;
HuaXiaData.QueryGonggao.FieldByname('Bulletin_date').Value:=HuaXiaData.QueryGonggaoFaBu.FieldByname('Bulletin_date').Value;
HuaXiaData.QueryGonggao.Post;
If HuaXiaData.QueryGonggao.UpdatesPending Then
   HuaXiaData.QueryGonggao.ApplyUpdates;
With HuaXiaData.QueryGonggaoFaBu Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From comp_bulletin Where tag=:Flag Order By bulletin_date Desc')
     End;
     RequestLive:=True;
     ParamByName('Flag').AsString:='00';
     prepare;
     Open;
     First;
     End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;


procedure TGonggaoLiuLanForm.ButtonPriorClick(Sender: TObject);
begin
Try
   HuaXiaData.QueryGonggaoFabu.Prior;
   If HuaXiaData.QueryGonggaoFabu.Eof Then
      ButtonNext.Enabled:=False
   Else
      ButtonNext.Enabled:=True;
   If HuaXiaData.QueryGonggaoFabu.Bof Then
      ButtonPrior.Enabled:=False
   Else
      ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoLiuLanForm.ButtonNextClick(Sender: TObject);
begin
Try
   HuaXiaData.QueryGonggaoFabu.Next;
   If HuaXiaData.QueryGonggaoFabu.Eof Then
      ButtonNext.Enabled:=False
   Else
      ButtonNext.Enabled:=True;
   If HuaXiaData.QueryGonggaoFabu.Bof Then
      ButtonPrior.Enabled:=False
   Else
      ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoLiuLanForm.ButtonReturnClick(Sender: TObject);
begin
Try
HuaXiaData.QueryGonggaoFabu.Close;
Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

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

procedure TGonggaoLiuLanForm.ButtonDeleteClick(Sender: TObject);
begin
Try
HuaXiaData.QueryGonggaoFabu.Edit;
HuaXiaData.QueryGonggaoFabu.FieldByName('tag').AsString:='-1';
HuaXiaData.QueryGonggaoFabu.Post;
With HuaXiaData.QueryGonggaoFaBu Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From comp_bulletin Where tag=:Flag Order By bulletin_date Desc')
     End;
     RequestLive:=True;
     ParamByName('Flag').AsString:='00';
     prepare;
     Open;
     First;
     End;

Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;

end;

end.