shourusearfrm.pas

该系统实现了对DVD租赁过程的管理,功能完善,方便实用.

unit ShouruSearFrm;

interface

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

type
  TFrmShouruSear = class(TForm)
    Image1: TImage;
    GroupBox2: TGroupBox;
    ListView1: TListView;
    GroupBox1: TGroupBox;
    btnSearch: TButton;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    dtpStartDate: TDateTimePicker;
    dtpEndDate: TDateTimePicker;
    rbMember: TRadioButton;
    rbYa: TRadioButton;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    edIn: TEdit;
    Label5: TLabel;
    edOut: TEdit;
    Label6: TLabel;
    edYu: TEdit;
    ADOQuery1: TADOQuery;
    rbZu: TRadioButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmShouruSear: TFrmShouruSear;

implementation

uses MainFrm;

{$R *.dfm}

procedure TFrmShouruSear.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FrmShouruSear.Free;
  FrmMain.sp8 := False;
end;

procedure TFrmShouruSear.btnSearchClick(Sender: TObject);
var
  sqlstr : String;
  sumIn, sumOut : real;
  StartDate, EndDate, PDate : Real;
begin
  edIn.Clear;
  edOut.Clear;
  edYu.Clear;
  if rbMember.Checked then
    sqlstr := 'select * From MemberInfo,Income Where Income.Class_In = ''会费'' and Income.User_ID=MemberInfo.Mem_ID'
  else if rbYa.Checked then
    sqlstr := 'select * From Income Where Class_In = ''押金'''
  else
    sqlstr := 'select * From BorrowInfo';
  StartDate := dtpStartDate.DateTime;
  EndDate := dtpEndDate.DateTime;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := sqlstr;
  ADOQuery1.Open;
  ListView1.Clear;
  sumIn := 0;
  sumOut := 0;
  While not ADOQuery1.Eof do
    begin
      if rbZu.Checked then
        PDate := ADOQuery1.FieldByName('Return_Date').AsDateTime
      else
        PDate := ADOQuery1.FieldByName('Date_Time').AsDateTime;
      if (PDate >= StartDate) and (PDate <= EndDate) then
        With ListView1.Items.Add do
        begin
          if rbZu.Checked then
            Caption := '租金'
          else
            Caption := ADOQuery1.FieldByName('Class_In').AsString;
          SubItems.Add(DateTimeToStr(PDate));
          SubItems.Add(ADOQuery1.FieldByName('User_ID').AsString);
          if rbZu.Checked then
          begin
            sumIn := sumIn + ADOQuery1.FieldByName('Income').AsFloat;
            SubItems.Add(ADOQuery1.FieldByName('Income').AsString);
          end
          else
          begin
            if ADOQuery1.FieldByName('Money_In').AsString='0' then
            begin
              sumOut := sumOut + ADOQuery1.FieldByName('Money_Out').AsFloat;
              SubItems.Add('-' + ADOQuery1.FieldByName('Money_Out').AsString);
            end
            else
            begin
              sumIn := sumIn + ADOQuery1.FieldByName('Money_In').AsFloat;
              SubItems.Add(ADOQuery1.FieldByName('Money_In').AsString);
            end;
          end;
        end;
      ADOQuery1.Next;
    end;
    edIn.Text := FormatFloat('0.00',sumIn);
    edOut.Text := FormatFloat('0.00',sumOut);
    edYu.Text := FormatFloat('0.00',sumIn-sumOut);
end;

end.