dllh_un.pas

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

unit dllh_un;

interface

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

type
  Tdllh_frm = class(Tsjinfobase_frm)
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinDBText15: TbsSkinDBText;
    bsSkinStdLabel19: TbsSkinStdLabel;
    bsSkinStdLabel20: TbsSkinStdLabel;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinEdit5: TbsSkinEdit;
    tbl_gt: TADOTable;
    ds_gt: TDataSource;
    bsSkinStdLabel21: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    procedure FormShow(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dllh_frm: Tdllh_frm;

implementation
   uses data_un;
{$R *.dfm}

procedure Tdllh_frm.FormShow(Sender: TObject);
begin
sp_view.Parameters.ParamValues['@act']:=3;
bsSkinSpeedButton14.Visible:=false;
  inherited;
  bsSkinDateEdit1.Date:=Date();

end;

procedure Tdllh_frm.acSaveExecute(Sender: TObject);
begin
 with spsave.Parameters do
 begin
    ParamValues['@act']:=act;
    if act=1 then
    ParamValues['@hrxxid']:=sp_view.FieldValues['fid'];
    if act=2 then
    ParamValues['@gtlhid']:=bsSkinStdLabel19.Caption;
    ParamValues['@date']:=bsSkinDateEdit1.Date;
    ParamValues['@mon']:=bsSkinEdit4.Text;
    ParamValues['@gtid']:=bsSkinDBLookupComboBox2.KeyValue;
    ParamValues['@memo']:=bsSkinEdit5.Text;
 end;
  inherited;
  sp_view.Close;
  sp_view.Open;
end;

procedure Tdllh_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
  bsSkinDateEdit1.Date:=StrToDate(bsSkinDBEdit1.Text);
 bsSkinStdLabel19.Caption:=bsSkinDBText15.Caption;
 bsSkinDBLookupComboBox2.KeyValue:=bsSkinDBLookupComboBox1.KeyValue;

 bsSkinEdit4.Text:=bsSkinDBEdit2.Text;
 bsSkinEdit5.Text:=bsSkinDBEdit3.Text;
 end;

procedure Tdllh_frm.acNewExecute(Sender: TObject);
begin
  inherited;

bsSkinStdLabel19.Caption:='';
end;

procedure Tdllh_frm.FormCreate(Sender: TObject);
begin
tbl_gt.Open;
  inherited;

end;

end.