q_other.pas

汽配前台收费,一个具有详细功能的小系统

unit q_other;

interface

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

type
  Tfrm_q_other = class(TForm)
    pe_bh: TPanel;
    qe_other: TQuery;
    Label1: TLabel;
    txt_d_xx: TMaskEdit;
    cmd_q: TBitBtn;
    Label7: TLabel;
    txt_d_sx: TMaskEdit;
    pe_edit: TPanel;
    DBGrid1: TDBGrid;
    ds_other: TDataSource;
    txt_memo: TDBMemo;
    Label2: TLabel;
    procedure txt_d_xxKeyPress(Sender: TObject; var Key: Char);
    procedure cmd_qClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure QueryResult;
  public
    { Public declarations }
  end;

var
  frm_q_other: Tfrm_q_other;

implementation

{$R *.DFM}

uses
  log, main;

procedure Tfrm_q_other.QueryResult;
begin
  qe_other.Close;
  qe_other.SQL.Clear;
  if Trim(txt_d_xx.EditText) = '0000-00-00' then begin
    if Trim(txt_d_sx.EditText) = '0000-00-00' then begin
      MessageBox(Handle, '请确定日期', '沈阳信德', MB_ICONQUESTION or MB_OK);
      txt_d_xx.SetFocus;
      Exit;
    end else begin
      MessageBox(Handle, '请确定日期下限', '沈阳信德', MB_ICONQUESTION or MB_OK);
      txt_d_xx.SetFocus;
      Exit;
    end;
  end else begin
    if Trim(txt_d_sx.EditText) = '0000-00-00' then begin
      qe_other.SQL.Add('SELECT * FROM OTHERS WHERE O_DATE = ''' + Trim(txt_d_xx.EditText) + '''');
    end else begin
      qe_other.SQL.Add('SELECT * FROM OTHERS WHERE O_DATE >= ''' + Trim(txt_d_xx.EditText) + ''' AND O_DATE <= ''' + Trim(txt_d_sx.EditText) + '''');
    end;
  end;
  qe_other.Open;
  qe_other.First;
  //
  if (qe_other.Bof) and (qe_other.Eof) then begin
    MessageBox(Handle, '没有找到符合条件的记录', '沈阳信德', MB_ICONQUESTION or MB_OK);
    txt_d_xx.SetFocus;
    Exit;
  end;
end;

procedure Tfrm_q_other.txt_d_xxKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) = 13 then QueryResult;
end;

procedure Tfrm_q_other.cmd_qClick(Sender: TObject);
begin
  QueryResult;
end;

procedure Tfrm_q_other.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qe_other.Close;
  //
  frm_main.mu_cx_other.Enabled := True;
  frm_main.current_handle := 0;
  //
  Action := caFree;
end;

procedure Tfrm_q_other.FormDestroy(Sender: TObject);
begin
  qe_other := nil;
  //
  frm_q_other := nil;
end;

procedure Tfrm_q_other.FormShow(Sender: TObject);
begin
  txt_d_xx.SetFocus;
  //
  frm_main.mu_cx_other.Enabled := False;
  frm_main.current_handle := Handle;
end;

end.