unit bxgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, Menus, DB, DBTables,
  ExtCtrls;

type
  Tbxgl_Form = class(TForm)
    Panel1: TPanel;
    cmdok: TButton;
    cmdclose: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    begin_DTP: TDateTimePicker;
    Label2: TLabel;
    end_DTP: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N3Click(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean;
    xcaption:string;
  end;

var
  bxgl_Form: Tbxgl_Form;

implementation

uses modibx, main;

{$R *.dfm}

procedure Tbxgl_Form.cmdokClick(Sender: TObject);
var
    ksrq,jsrq,sqlstr:string;
begin
    ksrq:=datetostr(begin_DTP.Date);
    jsrq:=datetostr(end_DTP.Date);
    sqlstr:='select * from bxb where (rq>='''+ksrq+''')and(rq<='''+jsrq+''')';
    ShowMessage(sqlstr);
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount>0 then
    begin
        N1.Enabled:=true;
        N2.Enabled:=true;
        N3.Enabled:=true;
    end
    else
    begin
        N1.Enabled:=true;
        N2.Enabled:=false;
        N3.Enabled:=false;
    end;
end;

procedure Tbxgl_Form.N1Click(Sender: TObject);
begin
    modi:=false;
    xcaption:='添加報(bào)修信息';
    Application.CreateForm(Tmodibx_Form, modibx_Form);
    modibx_form.ShowModal;
end;

procedure Tbxgl_Form.N2Click(Sender: TObject);
begin
    modi:=true;
    xcaption:='修改報(bào)修信息';
    Application.CreateForm(Tmodibx_Form, modibx_Form);
    modibx_form.ShowModal;
end;

procedure Tbxgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N61.Enabled:=true;
end;

procedure Tbxgl_Form.N3Click(Sender: TObject);
var
    id:string;
begin
    id:=Query1.fieldbyname('id').AsString;
    if MessageDlg('確認(rèn)要?jiǎng)h除選中的記錄碼?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        with tquery.Create(nil) do
        begin
            try
            Close;
            SessionName:=MainForm.Database1.SessionName;
            DatabaseName:=MainForm.Database1.DatabaseName;
            SQL.Clear;
            SQL.Add('delete from bxb where id='''+id+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
    end;
end;

procedure Tbxgl_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tbxgl_Form.FormCreate(Sender: TObject);
begin
  Query1.SessionName:=MainForm.Database1.SessionName;
  Query1.DatabaseName:=MainForm.Database1.DatabaseName;
end;

end.