pjdy.pas

本系统前端界面采用WINDOWS 窗口风格

unit pjdy;

interface

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

type
  TFrmpjdy = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label4: TLabel;
    DateTimePicker2: TDateTimePicker;
    ListBox1: TListBox;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    Edit_dbdw: TEdit;
    SpeedButton3: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    Shape1: TShape;
    Label5: TLabel;
    Label_zje: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Query_db: TQuery;
    Query_dbdb_bh: TStringField;
    Query_dbcd: TStringField;
    Query_dbpm: TStringField;
    Query_dbgg: TStringField;
    Query_dbdw2: TStringField;
    Query_dbph: TStringField;
    Query_dbjj: TFloatField;
    Query_dbdbsl: TFloatField;
    Query_dbje: TFloatField;
    Query_dbdbrq: TDateTimeField;
    Query_dbdbdw: TStringField;
    Query_dbfpph: TStringField;
    Query_dbck_bh: TStringField;
    Query_dbck_mc: TStringField;
    Query_dbwp_bm: TStringField;
    DataSource_db: TDataSource;
    Query_ckxx: TQuery;
    Query_ckd: TQuery;
    Database: TDatabase;
    Query_dbpzwh: TStringField;
    Query_dbyxq: TFloatField;
    Query_dbhsj: TFloatField;
    Label1: TLabel;
    Edit_bm: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Query_dbCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Frmpjdy: TFrmpjdy;
  jetotal:real;
  ck_id:array[0..25] of string;

implementation

uses  dbdwxx, main, dbrep;



{$R *.DFM}

procedure TFrmpjdy.FormCreate(Sender: TObject);
  var i:integer;
begin
  i:=0;
  DateTimePicker1.Date:=Frmmain.GetServerTime ;
  DateTimePicker2.Date:=Frmmain.GetServerTime;
  Query_ckxx.close;
  Query_ckxx.UnPrepare;
  Query_ckxx.sql.Clear;
  Query_ckxx.sql.Add('select * from ckxxb');
  Query_ckxx.Prepare;
  Query_ckxx.open;
  Query_ckxx.First;
  while not Query_ckxx.Eof do
    begin
     combobox1.Items.Add(Query_ckxx.fieldbyname('ck_mc').asstring);
     ck_id[i]:=Query_ckxx.fieldbyname('ck_bh').asString;
     inc(i);
     Query_ckxx.Next;
    end;
  Query_ckd.close;
  Query_ckd.UnPrepare;
  Query_ckd.sql.Clear;
  Query_ckd.sql.Add('select distinct fpph from dbxxb');
  Query_ckd.sql.Add(' where dbrq<='''+datetostr(DateTimePicker2.date)+'''');
  Query_ckd.sql.Add(' and dbrq>='''+datetostr(DateTimePicker1.date)+'''');
  Query_ckd.Prepare;
  Query_ckd.open;
  while not Query_ckd.Eof do
    begin
      listbox1.Items.Add(Query_ckd.fieldbyname('fpph').asstring);
      Query_ckd.Next;
    end;
  listbox1.ItemIndex:=0;
  if listbox1.ItemIndex=-1 then exit;
  listbox1click(self);
end;

procedure TFrmpjdy.ListBox1Click(Sender: TObject);
begin
  if listbox1.ItemIndex=-1 then exit;
  jetotal:=0.00;
  query_db.DisableControls;
  query_db.Close;
  query_db.UnPrepare;
  query_db.sql.Clear;
  query_db.sql.Add('select * from dbxxb');
  query_db.sql.Add(' where fpph ='''+listbox1.Items[listbox1.itemindex]+'''');
  query_db.sql.Add('order by ck_bh,pm');
  query_db.Prepare;
  query_db.open;
  query_db.First;
  while not query_db.Eof do
    begin
      jetotal:=jetotal+query_db.fieldbyname('je').asfloat;
      query_db.Next;
    end;
  Label_zje.Caption:=Format('￥%.2f',[jetotal]);
  query_db.EnableControls;
end;

procedure TFrmpjdy.BitBtn2Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmpjdy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TFrmpjdy.BitBtn3Click(Sender: TObject);
begin
  listbox1.Clear;
  Query_ckd.RequestLive:=false;
  Query_ckd.close;
  Query_ckd.UnPrepare;
  Query_ckd.sql.Clear;
  Query_ckd.sql.Add('select distinct fpph from dbxxb');
  Query_ckd.sql.Add(' where dbrq<='''+datetostr(DateTimePicker2.date)+'''');
  Query_ckd.sql.Add(' and dbrq>='''+datetostr(DateTimePicker1.date)+'''');
  Query_ckd.Prepare;
  Query_ckd.open;
  Query_ckd.RequestLive:=true;
  while not Query_ckd.Eof do
    begin
      listbox1.Items.Add(Query_ckd.fieldbyname('fpph').asstring);
      Query_ckd.Next;
    end;
  listbox1.ItemIndex:=0;
  if listbox1.ItemIndex=-1 then exit;
  listbox1click(self);
end;

procedure TFrmpjdy.BitBtn4Click(Sender: TObject);
begin
  jetotal:=0.00;
  query_db.DisableControls;
  query_db.Close;
  query_db.UnPrepare;
  query_db.sql.Clear;
  query_db.sql.Add('select * from dbxxb');
  query_db.sql.Add(' where dbrq<='''+datetostr(DateTimePicker2.date)+'''');
  query_db.sql.Add(' and dbrq>='''+datetostr(DateTimePicker1.date)+'''');
  if combobox1.Text<>'' then
    query_db.sql.Add(' and ck_bh='''+ck_id[combobox1.itemindex]+'''');
  if edit_dbdw.Text<>'' then
    query_db.sql.Add(' and dbdw='''+edit_dbdw.Text+'''');
  if edit_bm.Text<>'' then
    query_db.sql.Add(' and wp_bm like'+''''+edit_bm.Text+'%'+'''');
  query_db.sql.Add(' order by pm');
  query_db.Prepare;
  query_db.open;
  query_db.First;
  while not query_db.Eof do
    begin
      jetotal:=jetotal+query_db.fieldbyname('je').asfloat;
      query_db.Next;
    end;
  Label_zje.Caption:=Format('￥%.2f',[jetotal]);
    query_db.EnableControls;
end;

procedure TFrmpjdy.SpeedButton3Click(Sender: TObject);
begin
  Frmdbdwxx:=TFrmdbdwxx.create(Self);
  Frmmain.pubedit:=Edit_dbdw;
  Frmdbdwxx.ShowModal;
end;

procedure TFrmpjdy.BitBtn1Click(Sender: TObject);
  var hjje:real;
begin
  if (not query_db.Bof) or (not query_db.Eof) then
    begin
      Query_db.DisableControls;
      Query_ckxx.First;
      while not Query_ckxx.Eof do
       begin
         Query_db.close;
         Query_db.UnPrepare;
         Query_db.sql.Clear;
         Query_db.sql.Add('select * from dbxxb');
         query_db.sql.Add(' where fpph ='''+listbox1.Items[listbox1.itemindex]+'''');
         Query_db.sql.Add(' and ck_bh='''+Query_ckxx.fieldbyname('ck_bh').asstring+'''');
         Query_db.Prepare;
         Query_db.open;
         if  not Query_db.Eof then
           begin
              hjje:=0.00;
              Query_db.First;
              while not query_db.Eof do
                begin
                  hjje:=hjje+query_db.fieldbyname('je').asfloat;
                  query_db.Next;
                end;
              Frmdbrep.quickrep1.DataSet:=query_db;
              Frmdbrep.QRDBText_cd.DataSet:=query_db;
              Frmdbrep.QRDBText_pm.DataSet:=query_db;
              Frmdbrep.QRDBText_gg.DataSet:=query_db;
              Frmdbrep.QRDBText_dw.DataSet:=query_db;
              Frmdbrep.QRDBText_sl.DataSet:=query_db;
              Frmdbrep.QRDBText_jj.DataSet:=query_db;
              Frmdbrep.QRDBText_je.DataSet:=query_db;
              Frmdbrep.QRDBText_ph.DataSet:=query_db;
              Frmdbrep.QRDBText_yxq.DataSet:=query_db;
              Frmdbrep.QRDBText_pzwh.DataSet:=query_db;
              Frmdbrep.QRDBText_js.DataSet:=query_db;
              Frmdbrep.QRDBText_hsj.DataSet:=query_db;
              Frmdbrep.QRlabel_dbdw.Caption:=query_db.fieldbyname('dbdw').asstring;
              Frmdbrep.QRlabel_ck.Caption:=Query_ckxx.fieldbyname('ck_mc').asstring;
              Frmdbrep.QRlabel_dbrq.Caption:=formatdatetime('yyyy-mm-dd',query_db.fieldbyname('dbrq').asdatetime);
              Frmdbrep.QRLabel_ph.Caption:=Listbox1.Items[Listbox1.itemindex];
              Frmdbrep.QRlabel_czy.Caption:=Frmmain.name;
              Frmdbrep.QRlabel_hj.Caption:=format('￥%2f',[hjje]);
              Frmdbrep.QRlabel_zje.Caption:=format('￥%.2f',[jetotal]);

              Frmdbrep.QuickRep1.page.Length:=197+query_db.RecordCount*28;
              Frmdbrep.QuickRep1.Prepare;
             // Frmdbrep.QuickRep1.Preview;
              Frmdbrep.QuickRep1.print;
           end;
         Query_ckxx.Next;
       end;
      Query_db.EnableControls;
    end
end;

procedure TFrmpjdy.Query_dbCalcFields(DataSet: TDataSet);
  var jj:real;
begin
  jj:=query_db.FieldByName('jj').asfloat;
  if query_db.FieldByName('ck_bh').asstring<>'e' then
    query_db.FieldByName('hsj').asfloat:=jj*1.17
  else query_db.FieldByName('hsj').asfloat:=jj*1.13
end;

end.