gonggaofabu.pas

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

unit GonggaoFaBu;

interface

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

type
  TGonggaoFabuForm = class(TForm)
    ButtonReturn: TButton;
    ButtonOk: TButton;
    DateTimePickerFaBu: TDateTimePicker;
    DBMemofabu: TDBMemo;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonReturnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GonggaoFabuForm: TGonggaoFabuForm;

implementation
Uses HuaXia,Login;
{$R *.DFM}


procedure TGonggaoFabuForm.FormActivate(Sender: TObject);
begin
Try
With HuaXiaData.QueryGonggaoFabu Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From comp_bulletin where comp_code=:compcode and site_code=:sitecode')
     End;
     RequestLive:=True;
     ParamByName('compcode').AsString:='0000';
     ParamByName('sitecode').AsString:='00';
     prepare;
     Open;
     End;
HuaXiaData.QueryGonggaoFabu.Append;
HuaXiaData.QueryGonggaoFabu.Edit;
DateTimePickerFaBu.Date:=Now;
ActiveControl:=DBMemofabu;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonOkClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryGonggaoFabu.State=DsEdit) or (HuaXiaData.QueryGonggaoFabu.State=DsInsert) Then
   Begin
   HuaXiaData.QueryGonggaoFabu.Edit;
   HuaXiaData.QueryGonggaoFabu.FieldByName('comp_code').AsString:=Login.CodeComp;
   HuaXiaData.QueryGonggaoFabu.FieldByName('site_code').AsString:=Login.CodeSite;
   HuaXiaData.QueryGonggaoFabu.FieldByName('bulletin_date').Value:=DateTimePickerFaBu.Date;
   HuaXiaData.QueryGonggaoFabu.FieldByName('tag').AsString:='00';
   HuaXiaData.QueryGonggaoFabu.Post;
   ShowMessage('公告已成功发布');
   End;
HuaXiaData.QueryGonggaoFabu.Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoFabuForm.ButtonReturnClick(Sender: TObject);
begin
  Close;
end;

procedure TGonggaoFabuForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Try
If DbMemofabu.Text<>'' Then
Begin
If (HuaXiaData.QueryGonggaoFabu.State=DsEdit) or (HuaXiaData.QueryGonggaoFabu.State=DsInsert) Then
    Begin
    If MessageDlg('所做修改尚未保存,保存修改吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
       HuaXiaData.QueryGonggaoFabu.Post
    Else
       HuaXiaData.QueryGonggaoFabu.Cancel;
    End;
End;
HuaXiaData.QueryGonggaoFabu.Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

end.