djyc_un.pas

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

unit djyc_un;

interface

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

type
  Tdjyc_frm = class(Tsjycbase_frm)
    ds_hyd: TDataSource;
    bsSkinDBLookupComboBox10: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox;
    ADOTable1: TADOQuery;
    procedure acModifyExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  djyc_frm: Tdjyc_frm;

implementation
 uses data_un;
{$R *.dfm}

procedure Tdjyc_frm.acModifyExecute(Sender: TObject);
begin
bsSkinDBLookupComboBox11.KeyValue:=bsSkinDBLookupComboBox10.KeyValue;
inherited;

end;

procedure Tdjyc_frm.FormCreate(Sender: TObject);
begin
hylx:='JH';
hyd:='本月进货';
if not ADOTable1.Active then
ADOTable1.Open;
  inherited;

end;

procedure Tdjyc_frm.acSaveExecute(Sender: TObject);
begin
hydid:=ADOTable1.FieldValues['fid'];
  inherited;

end;

procedure Tdjyc_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinDateEdit1.Date:=Date();
end;

end.