gonggao.pas

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

unit Gonggao;

interface

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

type
  TGonggaoForm = class(TForm)
    ButtonClose: TButton;
    GongGaoPage: TPageControl;
    TabSheetGonggao: TTabSheet;
    TabSheetYuqi: TTabSheet;
    TabSheetHuan: TTabSheet;
    DBGridYuqi: TDBGrid;
    DBGridHuan: TDBGrid;
    CheckBoxGongGao: TCheckBox;
    DBMemoGonggao: TDBMemo;
    ButtonPrior: TButton;
    ButtonNext: TButton;
    procedure ButtonCloseClick(Sender: TObject);
    procedure TabSheetYuqiShow(Sender: TObject);
    procedure TabSheetHuanShow(Sender: TObject);
    procedure TabSheetGonggaoShow(Sender: TObject);
    procedure ButtonPriorClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
    procedure TabSheetGonggaoHide(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure GongGaoPageEnter(Sender: TObject);
    procedure GongGaoPageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GonggaoForm: TGonggaoForm;
  ShowTime:integer;
  TxtFile:TextFile;

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

procedure TGonggaoForm.ButtonCloseClick(Sender: TObject);
begin
Close;
end;


procedure TGonggaoForm.TabSheetYuqiShow(Sender: TObject);
begin
Try
With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From lease_car_info ');
       Add('where return_date<:to_date And bad_record_tag<>:tag');
       Add(' and comp_code=:compcode and site_code=:sitecode');
     end;
     RequestLive:=True;
     ParamByName('to_date').Asinteger:=Trunc(Now)-2;
     ParamByName('tag').AsString:='00';
     ParamByName('compcode').AsString:=Login.CodeComp;
     ParamByName('sitecode').AsString:=Login.CodeSite;
     prepare;
     Open;
     End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoForm.TabSheetHuanShow(Sender: TObject);
begin
Try
With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From lease_car_info ');
       Add('where return_date>:Fromdate and return_date<:todate and bad_record_tag=:tag');
       Add(' and comp_code=:compcode and site_code=:sitecode');
     end;
     RequestLive:=True;
     ParamByName('Fromdate').Asinteger:=Trunc(Now)-2;
     ParamByName('Todate').Asinteger:=Trunc(Now)-1;
     ParamByName('tag').AsString:='-1';
     ParamByName('compcode').AsString:=Login.CodeComp;
     ParamByName('sitecode').AsString:=Login.CodeSite;
     prepare;
     Open;
     End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoForm.TabSheetGonggaoShow(Sender: TObject);
begin
Try
ButtonNext.Visible:=True;
ButtonPrior.Visible:=True;
With HuaXiaData.QueryGongGao Do
     Begin
     {Select Max(bulletin_date),bulletin_content From sys_bulletin group by bulletin_content}
     Close;
     prepare;
     Open;
     End;
If HuaXiaData.QueryGongGao.Eof Then
   ButtonNext.Enabled:=False;
If HuaXiaData.QueryGongGao.Bof Then
   ButtonPrior.Enabled:=False;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

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

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

procedure TGonggaoForm.TabSheetGonggaoHide(Sender: TObject);
begin
ButtonNext.Visible:=False;
ButtonPrior.Visible:=False;
end;


procedure TGonggaoForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
AssignFile(TxtFile,'Txt.Dat');
Rewrite(TxtFile);
If  CheckBoxGongGao.Checked=True Then
    Writeln(TxtFile,'True')
Else
    Writeln(TxtFile,'False');
CloseFile(TxtFile);
Try
HuaXiaData.QueryLeaseCar.Close;
HuaXiaData.QueryGongGao.Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGonggaoForm.FormActivate(Sender: TObject);
begin
Try
GongGaoPage.ActivePage:=TabSheetGonggao;
ButtonNext.Visible:=True;
ButtonPrior.Visible:=True;
With HuaXiaData.QueryGongGao Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From sys_bulletin Order By Bulletin_date  Desc');
     end;
     prepare;
     Open;
     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 TGonggaoForm.GongGaoPageEnter(Sender: TObject);
begin
Try
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 TGonggaoForm.GongGaoPageMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Try
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;

end.