selfcount_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit selfcount_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsSkinCtrls, bsdbctrls, bsSkinBoxCtrls, StdCtrls,
  Mask, bsMessages, bsSkinData, BusinessSkinForm, ADODB, DB, RM_class,
  RM_dset, RM_dbset,RM_Cross,RM_DCtrl;

type
  Tselfcount_frm = class(Tbase_frm)
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinRadioGroup1: TbsSkinRadioGroup;
    ds_sjcs: TDataSource;
    ds_sjxh: TDataSource;
    tbl_sjxh: TADOTable;
    qry__sjcs: TADOQuery;
    ds_hyd: TDataSource;
    tbl_hyd: TADOTable;
    ds_hylx: TDataSource;
    tbl_hylx: TADOTable;
    sp_view: TADOStoredProc;
    ds_view: TDataSource;
    trm_sjtjjxc: TRMDBDataSet;
    RMReport1: TRMReport;
    RMReport2: TRMReport;
    RMReport3: TRMReport;
    RMReport4: TRMReport;
    RMReport5: TRMReport;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinRadioGroup2: TbsSkinRadioGroup;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
   sear :Integer;
   act:integer;
    { Public declarations }
  end;

var
  selfcount_frm: Tselfcount_frm;

implementation
 uses data_un;
{$R *.dfm}

procedure Tselfcount_frm.FormShow(Sender: TObject);
begin
  inherited;
tbl_hyd.Open;
tbl_hylx.Open;
qry__sjcs.Open;
tbl_sjxh.Open;
if sear=1 then
begin
bsSkinGroupBox4.Visible:=false;
bsSkinGroupBox3.Visible:=false;
bsSkinGroupBox5.Visible:=false;
bsSkinRadioGroup1.Visible:=False;


end;
if act=1 then
bsSkinPanel3.Visible:=true;
if act=2 then
bsSkinPanel4.Visible:=true;

end;

procedure Tselfcount_frm.bsSkinButton2Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tselfcount_frm.bsSkinButton1Click(Sender: TObject);
var lx,sjxh,hyd,rclx:string;
begin
  inherited;
  sear:=bsSkinRadioGroup2.ItemIndex+1;
 case bsSkinComboBox1.ItemIndex OF
0:LX:='ALL';
1:LX:='JH';
2:LX:='JX';
3:lx:='TH' ;
4:LX:='WX';
END ;
if bsSkinGroupBox3.Checked then
sjxh:=tbl_sjxh.FieldValues['fid']
else
sjxh:='ALL';
if bsSkinGroupBox4.Checked then
hyd:=tbl_hyd.FieldValues['fid']
else
hyd:='ALL';

if bsSkinGroupBox5.Checked then
rclx:=tbl_hylx.FieldValues['fid']
else
rclx:='Al' ;
sp_view.Close;
with sp_view.Parameters do
begin
ParamValues['@fdate']:= bsSkinDateEdit1.Date;
ParamValues['@fedate']:=bsSkinDateEdit2.Date;
ParamValues['@lx']:=lx;
ParamValues['@sear']:=bsSkinRadioGroup2.ItemIndex+1;
ParamValues['@sjxh']:=sjxh;
ParamValues['@hyd']:=hyd;
ParamValues['@rclx']:=rclx;
ParamValues['@group']:=bsSkinRadioGroup1.ItemIndex+1;
ParamValues['@act']:= act;
end;
sp_view.ExecProc;
sp_view.Open;
RMReport1.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport2.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport3.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport4.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport5.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
if sear=1 then
RMReport1.ShowReport;
if (sear=2)and (bsSkinRadioGroup1.ItemIndex=0)     then
 RMReport2.ShowReport;
 if (sear=2)and (bsSkinRadioGroup1.ItemIndex=1)        then
 RMReport3.showreport;
 if (sear=3)and (bsSkinRadioGroup1.ItemIndex=0)     then
 RMReport4.ShowReport;
  if (sear=3)and (bsSkinRadioGroup1.ItemIndex=1)     then
 RMReport5.ShowReport;

end;

end.