sjrc_un.pas

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

unit sjrc_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, adobase_un, ADODB, DB, wwDialog, wwidlg, bsMessages, bsSkinData,
  BusinessSkinForm, ActnList, ExtCtrls, bsSkinCtrls, bsSkinGrids,
  bsDBGrids, bsdbctrls, StdCtrls, Mask, bsSkinBoxCtrls;

type
  Tsjrc_frm = class(Tadobase_frm)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    qry_sjcs: TADOQuery;
    ds_sjxh: TDataSource;
    tjbpz: TADOQuery;
    ds_jbpz: TDataSource;
    thylx: TADOQuery;
    ds_hylx: TDataSource;
    thyd: TADOQuery;
    ds_hyd: TDataSource;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBDateEdit1: TbsSkinDBDateEdit;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinButton1: TbsSkinButton;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBLookupComboBox5: TbsSkinDBLookupComboBox;
    ado_sjxh: TADOTable;
    ds_sjcs: TDataSource;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    tblsjcs: TADOTable;
    bsSkinDBLookupComboBox6: TbsSkinDBLookupComboBox;
    tblsjcs2: TADOTable;
    ds_sjcs2: TDataSource;
    bsSkinDBLookupComboBox7: TbsSkinDBLookupComboBox;
    tblsjxh2: TADOTable;
    ds_sjxh2: TDataSource;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure ALToolbarChange(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure acFirstExecute(Sender: TObject);
    procedure acPriorExecute(Sender: TObject);
    procedure acNextExecute(Sender: TObject);
    procedure acLastExecute(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure qbaseinfoBeforePost(DataSet: TDataSet);
    procedure bsSkinDBGrid2CellClick(Column: TbsColumn);
    procedure FormShow(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);

  private
   procedure setstate();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjrc_frm: Tsjrc_frm;

implementation
   uses data_un,hrxx_un,golb,sjxh_un,sjcs_un;
{$R *.dfm}
procedure tsjrc_frm.setstate();
begin
if not acNew.Enabled  then
begin
bsSkinDBLookupComboBox5.Visible:=false;
bsSkinDBLookupComboBox1.Visible:=false;
bsSkinDBLookupComboBox6.Visible:=true;
bsSkinDBLookupComboBox7.Visible:=true;
tblsjcs2.Open;
tblsjxh2.Open;

end
else
begin

bsSkinDBLookupComboBox5.Visible:=true;
bsSkinDBLookupComboBox1.Visible:=true;
bsSkinDBLookupComboBox6.Visible:=false;
bsSkinDBLookupComboBox7.Visible:=false;
tblsjxh2.close;
tblsjcs2.close;

end;


end;
procedure Tsjrc_frm.FormCreate(Sender: TObject);
begin
  inherited;
ibillidtype:='SR' ;
ibillnum:=4;
if not  qry_sjcs.Active then
qry_sjcs.Open;
if not tjbpz.Active then
tjbpz.Open;
if not thylx.Active then
thylx.Open;
if not thyd.Active then
thyd.Open;
if not ado_sjxh.Active then
ado_sjxh.Open;
if  not tblsjcs.Active then
tblsjcs.Open;
end;

procedure Tsjrc_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinDBText1.Caption:='';
bsSkinButton1.Enabled:=acNew.Enabled;
 setstate() ;
end;

procedure Tsjrc_frm.bsSkinButton1Click(Sender: TObject);
var hrxx:Thrxx_frm;
begin
  inherited;
  hrxx:=Thrxx_frm.Create(owner);
  golb.hrcid:=bsSkinDBText1.caption;
  hrxx.ShowModal;
  hrxx.Free;

end;

procedure Tsjrc_frm.ALToolbarChange(Sender: TObject);
begin
  inherited;
//bsSkinButton1.Enabled:=acNew.Enabled or acModify.Enabled;

end;

procedure Tsjrc_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinButton1.Enabled:=true;
setstate()  ;
end;

procedure Tsjrc_frm.acSaveExecute(Sender: TObject);
begin

  inherited;
bsSkinButton1.Enabled:=true;
setstate() ;
end;

procedure Tsjrc_frm.acCancelExecute(Sender: TObject);
begin
  inherited;
bsSkinButton1.Enabled:=not acCancel.Enabled;
setstate();
end;

procedure Tsjrc_frm.acFirstExecute(Sender: TObject);
begin
  inherited;
bsSkinButton1.Enabled:=true;
end;

procedure Tsjrc_frm.acPriorExecute(Sender: TObject);
begin
  inherited;
bsSkinButton1.Enabled:=true;
end;

procedure Tsjrc_frm.acNextExecute(Sender: TObject);
begin
  inherited;
bsSkinButton1.Enabled:=true;
end;

procedure Tsjrc_frm.acLastExecute(Sender: TObject);
begin
  inherited;
bsSkinButton1.Enabled:=true;
end;

procedure Tsjrc_frm.bsSkinSpeedButton5Click(Sender: TObject);
var sjxh:Tsjxh_frm;
begin
  inherited;
  sjxh:=Tsjxh_frm.Create(owner);
  sjxh.ShowModal;
  sjxh.Free;
//showmessage('手机基本型号设置')  ;
end;



procedure Tsjrc_frm.qbaseinfoBeforePost(DataSet: TDataSet);
begin
  inherited;
//if qbaseinfo.State in [dsinsert,dsedit] then
//QBaseInfo.FieldByName('fsjxh').AsString:=ado_sjxh.FieldValues['fid'];

end;

procedure Tsjrc_frm.bsSkinDBGrid2CellClick(Column: TbsColumn);
begin
  inherited;
setstate();
//ado_sjxh.FieldByName('fid'):=QBaseInfo.FieldByName('fsjxh');
end;

procedure Tsjrc_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinDBLookupComboBox6.Visible:=false;
bsSkinDBLookupComboBox7.Visible:=false;
end;

procedure Tsjrc_frm.bsSkinSpeedButton6Click(Sender: TObject);
var sjcs:Tsjcs_frm;
begin
  inherited;
//showmessage('手机厂商设置')  ;
sjcs:=Tsjcs_frm.Create(owner);
sjcs.ShowModal;
sjcs.Free;

end;

end.