stock_enter_report.pas

delphi的一个开发实例

unit Stock_Enter_Report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, XPMenu, StdCtrls, Grids, DBGrids, Buttons,
  Mask;

type
  Tfrm_Stock_Enter_Report = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox6: TCheckBox;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Cmd_R_Total: TSpeedButton;
    Cmd_R_Print: TSpeedButton;
    Cmd_R_Preview: TSpeedButton;
    Edit_End: TMaskEdit;
    Edit_Start: TMaskEdit;
    DP1: TDateTimePicker;
    DP2: TDateTimePicker;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    GroupBox2: TGroupBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox12: TCheckBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    MaskEdit_End: TMaskEdit;
    MaskEdit_Start: TMaskEdit;
    DP3: TDateTimePicker;
    DP4: TDateTimePicker;
    procedure CheckBox1Click(Sender: TObject);
    procedure DP1Change(Sender: TObject);
    procedure DP2Change(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_R_TotalClick(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure DP3Change(Sender: TObject);
    procedure DP4Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Stock_Enter_Report: Tfrm_Stock_Enter_Report;

implementation

uses Data;

{$R *.dfm}

procedure Tfrm_Stock_Enter_Report.CheckBox1Click(Sender: TObject);
begin
    if CheckBox1.Checked=True then
    begin
        ComboBox1.Visible:=True;
        ComboBox1.Clear;
        with frm_data.ClientDataSet_Select do
        begin
            Close;
            CommandText:='';
            CommandText:='Select distinct Storage_Name from [V_Stock_Join_View]';
            Open;
            while not eof do
            begin
                ComboBox1.Items.Add(frm_data.ClientDataSet_Select.FieldByName('Storage_Name').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox1.Visible:=false;
        ComboBox1.Clear;
    end;
end;
procedure Tfrm_Stock_Enter_Report.DP1Change(Sender: TObject);
begin
    Edit_Start.Text:=FormatdateTime('yyyy''-''mm''-''dd',DP1.Date);
end;

procedure Tfrm_Stock_Enter_Report.DP2Change(Sender: TObject);
begin
    Edit_End.Text:=FormatdateTime('yyyy''-''mm''-''dd',DP2.Date);
end;

procedure Tfrm_Stock_Enter_Report.CheckBox2Click(Sender: TObject);
begin
    if CheckBox2.Checked=True then
    begin
        ComboBox2.Visible:=True;
        ComboBox2.Clear;
        with frm_data.ClientDataSet_Select do
        begin
            Close;
            CommandText:='';
            CommandText:='Select distinct Shop_Name from [V_Stock_Join_View]';
            Open;
            while not eof do
            begin
                ComboBox2.Items.Add(frm_data.ClientDataSet_Select.FieldByName('Shop_Name').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox2.Visible:=false;
        ComboBox2.Clear;
    end;
end;

procedure Tfrm_Stock_Enter_Report.CheckBox3Click(Sender: TObject);
begin
    if CheckBox3.Checked=True then
    begin
        ComboBox3.Visible:=True;
        ComboBox3.Clear;
        with frm_data.ClientDataSet_Select do
        begin
            Close;
            CommandText:='';
            CommandText:='Select distinct Goods_NO from [V_Stock_Join_View]';
            Open;
            while not eof do
            begin
                ComboBox3.Items.Add(frm_data.ClientDataSet_Select.FieldByName('Goods_NO').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox3.Visible:=false;
        ComboBox3.Clear;
    end;
end;

procedure Tfrm_Stock_Enter_Report.CheckBox4Click(Sender: TObject);
begin
    if CheckBox4.Checked=True then
    begin
        ComboBox4.Visible:=True;
        ComboBox4.Clear;
        with frm_data.ClientDataSet_Select do
        begin
            Close;
            CommandText:='';
            CommandText:='Select distinct Goods_Name from [V_Stock_Join_View]';
            Open;
            while not eof do
            begin
                ComboBox4.Items.Add(frm_data.ClientDataSet_Select.FieldByName('Goods_Name').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox4.Visible:=false;
        ComboBox4.Clear;
    end;
end;

procedure Tfrm_Stock_Enter_Report.CheckBox6Click(Sender: TObject);
begin
    if CheckBox6.Checked=True then
    begin
        Edit_Start.Visible:=True;
        Edit_End.Visible:=True;
        DP1.Visible:=true;  DP2.Visible:=true;
        Edit_End.Clear;
        Edit_Start.Clear;
    end
    else
    begin
        Edit_Start.Visible:=false;
        Edit_End.Visible:=false;
        DP1.Visible:=false;  DP2.Visible:=false;
        Edit_End.Clear;
        Edit_Start.Clear;
    end;
end;

procedure Tfrm_Stock_Enter_Report.CheckBox5Click(Sender: TObject);
begin
    if CheckBox5.Checked=True then
    begin
        ComboBox5.Visible:=True;
        ComboBox5.Clear;
        with frm_data.ClientDataSet_Select do
        begin
            Close;
            CommandText:='';
            CommandText:='Select distinct Copy_Date from [V_Stock_Join_View]';
            Open;
            while not eof do
            begin
                ComboBox5.Items.Add(ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ClientDataSet_Select.FieldByName('Copy_Date').AsDateTime));
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox5.Visible:=false;
        ComboBox5.Clear;
    end;
end;

procedure Tfrm_Stock_Enter_Report.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet_Select.Active:=False;
    frm_data.ClientDataSet_Select.Close;
    frm_data.ClientDataSet_Stock_Jion_Search.Active:=False;
    frm_data.ClientDataSet_Stock_Jion_Search.Close;
    Action:=cafree;
end;

procedure Tfrm_Stock_Enter_Report.Cmd_R_TotalClick(Sender: TObject);
var
    tempsql:string;
begin
    tempsql:='Select Copy_Date,Goods_No,Goods_Name,Shop_No,Shop_Name,Storage_No,Storage_Name,amount from [V_Stock_Join_View] where ';
    if (CheckBox1.Checked=True) and  (Trim(ComboBox1.Text)<>'') then
    begin
        tempSql:=tempSql+' Storage_Name Like '+''''+'%'+ Trim(ComboBox1.Text)+'%'+''''+' and ';
    end;
    if (CheckBox2.Checked=True) and (Trim(ComboBox2.Text)<>'') then
    begin
        tempSql:=tempSql+' Shop_Name Like '+''''+'%'+ Trim(ComboBox2.Text)+'%'+''''+' and ';
    end;
    if (CheckBox3.Checked=True) and (Trim(ComboBox3.Text)<>'') then
    begin
        tempSql:=tempSql+' Goods_NO Like '+''''+'%'+ Trim(ComboBox3.Text)+'%'+''''+' and ';
    end;
    if (CheckBox4.Checked=True) and  (Trim(ComboBox4.Text)<>'') then
    begin