slip_money.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit Slip_money;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, StdCtrls, ComCtrls, ExtCtrls, DB, ADODB, Grids, DBGridEh,
  frxClass, frxDBSet, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGrid;

type
  TfrmSlip_money = class(TfrmBase)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    ADODetail: TADOQuery;
    ADOProduct_line: TADOQuery;
    SaveDialog1: TSaveDialog;
    ADODetailfid: TBCDField;
    ADODetailhth: TStringField;
    ADODetailbuyer: TStringField;
    ADODetailxh: TStringField;
    ADODetailsizes: TStringField;
    ADODetailPlate: TStringField;
    ADODetailCuteder: TStringField;
    ADODetailCut_Money: TBCDField;
    ADODetailCut_date: TDateTimeField;
    ADODetailremark: TStringField;
    frxDBDataDetail: TfrxDBDataset;
    Panel1: TPanel;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1id: TcxGridDBColumn;
    cxGrid1DBTableView1fid: TcxGridDBColumn;
    cxGrid1DBTableView1hth: TcxGridDBColumn;
    cxGrid1DBTableView1buyer: TcxGridDBColumn;
    cxGrid1DBTableView1xh: TcxGridDBColumn;
    cxGrid1DBTableView1sizes: TcxGridDBColumn;
    cxGrid1DBTableView1Plate: TcxGridDBColumn;
    cxGrid1DBTableView1Cuteder: TcxGridDBColumn;
    cxGrid1DBTableView1Cut_Money: TcxGridDBColumn;
    cxGrid1DBTableView1Cut_date: TcxGridDBColumn;
    cxGrid1DBTableView1remark: TcxGridDBColumn;
    ADODetailids: TBCDField;
    Label25: TLabel;
    ComboBox1: TComboBox;
    ADODetailproduct_line: TStringField;
    ADOLiabler: TADOQuery;
    frxDBDataLiabler: TfrxDBDataset;
    frxDBDataLiable_dept: TfrxDBDataset;
    ADODetailLiable_dept: TStringField;
    cxGrid1DBTableView1Liable_dept: TcxGridDBColumn;
    ADOLiable_dept: TADOQuery;
    ADOLiable_deptLiable_dept: TStringField;
    ADOLiablerLiable_dept: TStringField;
    ADOLiablerCuteder: TStringField;
    ADOLiablerCut_money: TBCDField;
    DataSource2: TDataSource;
    CheckBox1: TCheckBox;
    frxReportDetail: TfrxReport;
    frxReportLiabler: TfrxReport;
    procedure FormDestroy(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure cxGrid1DBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText(
      Sender: TcxDataSummaryItem; const AValue: Variant;
      AIsFooter: Boolean; var AText: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSlip_money: TfrmSlip_money;

implementation

uses DataModule,Global,DBGridEhImpExp;

{$R *.dfm}

procedure TfrmSlip_money.FormDestroy(Sender: TObject);
begin
  inherited;
  frmSlip_money:=nil;
end;

procedure TfrmSlip_money.Button4Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TfrmSlip_money.Button2Click(Sender: TObject);
var
    s:string;
begin
  //inherited;
  SaveDialog1.DefaultExt := 'XLS';
  SaveDialog1.Filter := '*.XLS|*.XLS';
  if self.SaveDialog1.Execute then
  begin
      try
          begin
              s:=Trim(self.SaveDialog1.FileName);
              if Pos('.',s)<>0 then
                  s:=Copy(s,1,Pos('.',s)-1)+'.xls'
              else
                  s:=s+'.xls';
              if FileExists(s) then
              begin
                  if MessageBox(Handle,'存在相同文件，是否覆盖？','信息提示',4+32+256)=6 then
                  begin
                      DeleteFile(s);
                  end
                  else
                  begin
                      Exit;
                  end;
              end;
              SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, self.DBGridEh1, SaveDialog1.FileName, True);
          end;
      except
        ShowMessage('导出异常');
        Exit;
      end;
      ShowMessage('导出完毕');
  end;
end;


procedure TfrmSlip_money.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

procedure TfrmSlip_money.Button3Click(Sender: TObject);
begin
  inherited;
  if CheckBox1.Checked then
  begin
  frxReportLiabler.ShowReport();
  end
  else
  begin
  frxReportDetail.ShowReport();
  end;
end;

procedure TfrmSlip_money.FormCreate(Sender: TObject);
begin
  inherited;
  //-------------------时间
  DateTimePicker1.DateTime := Now;
  DateTimePicker2.DateTime := Now;

  //-------------------产品线
  self.ADOProduct_line.Close;
  self.ADOProduct_line.SQL.Clear;
  self.ADOProduct_line.SQL.Add(' select distinct product_line from dbo.Ccproductline ');
  self.ADOProduct_line.open;
  ComboBox1.Items.Clear;
  with self.ADOProduct_line do
  begin
    First;
    while not eof do
    begin
      ComboBox1.Items.Add(trim(ADOProduct_line.FieldByName('product_line').AsString));
      next;
    end
  end;

end;

procedure TfrmSlip_money.Button1Click(Sender: TObject);
begin
  inherited;
  with ADODetail do
  begin
  Close;
  SQL.Clear;
  SQL.Add('select * from CcSlipFile_Detail where Cut_date>=:Date1 and Cut_date<:Date2 and product_line=:a');
  Parameters.ParamValues['Date1']:=strtodatetime(formatdatetime('yyyy-MM-dd',DateTimePicker1.datetime));
  Parameters.ParamValues['Date2']:=strtodatetime(formatdatetime('yyyy-MM-dd',DateTimePicker2.datetime));
  Parameters.ParamValues['a']:=Trim(ComboBox1.Text);
  Open;
  end;

  with ADOLiabler do
  begin
    Close;
    Parameters.ParamValues['a']:=strtodatetime(formatdatetime('yyyy-MM-dd',DateTimePicker1.datetime));
    Parameters.ParamValues['b']:=strtodatetime(formatdatetime('yyyy-MM-dd',DateTimePicker2.datetime));
    Parameters.ParamValues['c']:=Trim(ComboBox1.Text);
    Open;
  end;

  with ADOLiable_dept do
  begin
  Close;
  SQL.Clear;
  SQL.Add('select distinct Liable_dept from CcSlipFile_Detail where Cut_date>=:Date1 and Cut_date<:Date2 and product_line=:a');
  Parameters.ParamValues['Date1']:=strtodatetime(formatdatetime('yyyy-MM-dd',DateTimePicker1.datetime));
  Parameters.ParamValues['Date2']:=strtodatetime(formatdatetime('yyyy-MM-dd',DateTimePicker2.datetime));
  Parameters.ParamValues['a']:=Trim(ComboBox1.Text);
  Open;
  end;

  ShowMessage('查询完毕！');
end;

procedure TfrmSlip_money.cxGrid1DBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText(
  Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean;
  var AText: String);
begin
  inherited;
     AText   :=   '合计:';   
end;

end.