dmunit.~pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

    RKCHART_ADOQ: TADOQuery;
    CKCHART_ADOQ: TADOQuery;
    CKCHART_DS: TDataSource;
    LCRKCHART_ADOQ: TADOQuery;
    LCRKCHART_DS: TDataSource;
    JXZCHART_ADOQ: TADOQuery;
    JXZCHART_DS: TDataSource;
    JSZCHART_ADOQ: TADOQuery;
    JSZCHART_DS: TDataSource;
    PRC_DS: TDataSource;
    PRC_ADOQ: TADOQuery;
    LIRUN_ADOQ: TADOQuery;
    LIRUN_DS: TDataSource;
    LCRKDHZ_ADOQLC_MON: TBCDField;
    ADOQF: TADOQuery;
    FDS: TDataSource;
    SUMSTOCK_DS: TDataSource;
    SUMSTOCK_ADOQ: TADOQuery;
    FINDADO: TADOQuery;
    SCJSZQry: TADOQuery;
    SCJSZ_DS: TDataSource;
    SALENO_Qry: TADOQuery;
    SALE_ADOQDNO: TStringField;
    SALE_ADOQITEM_CARNO: TStringField;
    SALE_ADOQITEM_BZ: TStringField;
    SALE_ADOQITEM_SJDM: TStringField;
    SALE_ADOQITEM_CSJNO: TStringField;
    SALE_ADOQITEM_JYNUM: TIntegerField;
    SALE_ADOQITEM_NO: TStringField;
    SALE_ADOQITEM_PRICE: TBCDField;
    SALE_ADOQITEM_NUM: TIntegerField;
    SALE_ADOQITEM_MON: TBCDField;
    SALE_ADOQITEM_TIME: TDateTimeField;
    SALE_ADOQITEM_MEN: TStringField;
    SALE_ADOQITEM_BS: TStringField;
    SALE_ADOQitemname: TStringField;
    LCITEM_ADOQITEM_NO: TStringField;
    LCITEM_ADOQITEM_NAME: TStringField;
    LCITEM_ADOQITEM_FBS: TStringField;
    LCITEM_ADOQITEM_UNIT: TStringField;
    LCITEM_ADOQITEM_PRICE: TBCDField;
    LCITEM_ADOQITEM_SORT: TStringField;
    LCITEM_ADOQITEM_MARKS: TStringField;
    LCITEM_ADOQITEM_PLIAO: TStringField;
    LCITEM_ADOQITEM_FLIAO: TStringField;
    LCITEM_ADOQITEM_XH: TStringField;
    LCITEM_ADOQitemunit: TStringField;
    LCITEM_ADOQitemsort: TStringField;
    LCITEM_ADOQITEM_NUM: TBCDField;
    SALE_ADOQITEM_LSNO: TStringField;
    SALE_ADOQITEM_MARKS: TStringField;
    ZFQry: TADOQuery;
    SALE_ADOQSALENO: TAutoIncField;
    CXTJQry: TADOQuery;
    CXTJ_DS: TDataSource;
    SALE_ADOQITEM_DATE: TDateTimeField;
    ADOCo: TADOConnection;
    CS_ADOQ: TADOQuery;
    CS_DS: TDataSource;
    SALECX_ADOQ: TADOQuery;
    SALECX_DS: TDataSource;
    CARBZ_ADOQ: TADOQuery;
    CARBZ_DS: TDataSource;
    SALEITEM_DS: TDataSource;
    SALEITEM_ADOQ: TADOQuery;
    procedure JHM_ADOQAfterInsert(DataSet: TDataSet);
    procedure RKDM_ADOQAfterInsert(DataSet: TDataSet);
    procedure CKDM_ADOQAfterInsert(DataSet: TDataSet);
    procedure LCRKDM_ADOQAfterInsert(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure JXZM_ADOQAfterInsert(DataSet: TDataSet);
    procedure SALE_ADOQAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.JHM_ADOQAfterInsert(DataSet: TDataSet);
var
  S:String;
begin
  with DM.JHNOADOQ do
  begin
    Active:=false;
    Sql.Text:=
      'select Max(cast(Right(CGD_NO,3) as int)) from JH_CGDM ' +
      ' where SubString(CGD_NO, 3,8) like ''' +
      FormatDatetime('yyyymmdd', Date) + '''';
    Active := true;
    if fields[0].IsNull then
      s := '001'
    else
    begin
      s := inttostr(fields[0].AsInteger + 1);
      while Length(s) < 3 do
        s := '0' + s;
    end;
    DM.JHM_ADOQ.FieldByName('CGD_NO').AsString := 'CG' + FormatDatetime('yyyymmdd', Date) + s;
  end;
end;

procedure TDM.RKDM_ADOQAfterInsert(DataSet: TDataSet);
var
  S:String;
begin
  with DM.RKNOADOQ do
  begin
    Active:=false;
    Sql.Text:=
      'select Max(cast(Right(RKD_NO,3) as int)) from RKD_M ' +
      ' where SubString(RKD_NO, 3,8) like ''' +
      FormatDatetime('yyyymmdd', Date) + '''';
    Active := true;
    if fields[0].IsNull then
      s := '001'
    else
    begin
      s := inttostr(fields[0].AsInteger + 1);
      while Length(s) < 3 do
        s := '0' + s;
    end;
    DM.RKDM_ADOQ.FieldByName('RKD_NO').AsString := 'RK' + FormatDatetime('yyyymmdd', Date) + s;
  end;
end;

procedure TDM.CKDM_ADOQAfterInsert(DataSet: TDataSet);
var
  S:String;
begin
  with DM.CKNOADOQ do
  begin
    Active:=false;
    Sql.Text:=
      'select Max(cast(Right(CKD_NO,3) as int)) from CKD_M ' +
      ' where SubString(CKD_NO, 3,8) like ''' +
      FormatDatetime('yyyymmdd', Date) + '''';
    Active := true;
    if fields[0].IsNull then
      s := '001'
    else
    begin
      s := inttostr(fields[0].AsInteger + 1);
      while Length(s) < 3 do
        s := '0' + s;
    end;
    DM.CKDM_ADOQ.FieldByName('CKD_NO').AsString := 'CK' + FormatDatetime('yyyymmdd', Date) + s;
  end;
end;

procedure TDM.LCRKDM_ADOQAfterInsert(DataSet: TDataSet);
var
  S:String;
begin
  with DM.LCRKDADOQ do
  begin
    Active:=false;
    Sql.Text:=
      'select Max(cast(Right(LCRKD_NO,3) as int)) from LCRKD_M ' +
      ' where SubString(LCRKD_NO, 3,8) like ''' +
      FormatDatetime('yyyymmdd', Date) + '''';
    Active := true;
    if fields[0].IsNull then
      s := '001'
    else
    begin
      s := inttostr(fields[0].AsInteger + 1);
      while Length(s) < 3 do
        s := '0' + s;
    end;
    DM.LCRKDM_ADOQ.FieldByName('LCRKD_NO').AsString := 'LC' + FormatDatetime('yyyymmdd', Date) + s;
  end;
end;

procedure TDM.DataModuleCreate(Sender: TObject);
begin
 ADOC.Connected := False;
  ADOC.ConnectionString := 'FILE NAME=' + ExtractFilePath(ParamStr(0)) +
    'ConnectSQL.udl';
  try
    ADOC.Connected := true;
  except
    ShellExecute(Application.Handle, 'Open', Pchar(ExtractFilePath(ParamStr(0))
      +
      'ConnectSQL.udl'), 0, 0, SW_SHOWNORMAL);
    Application.Terminate;
  end;
end;

procedure TDM.JXZM_ADOQAfterInsert(DataSet: TDataSet);
var
  S:String;
begin
  with DM.JXZNOADOQ do
  begin
    Active:=false;
    Sql.Text:=
      'select Max(cast(Right(JXZ_NO,3) as int)) from JXZ_M ' +
      ' where SubString(JXZ_NO, 3,8) like ''' +
      FormatDatetime('yyyymmdd', Date) + '''';
    Active := true;
    if fields[0].IsNull then
      s := '001'
    else
    begin
      s := inttostr(fields[0].AsInteger + 1);
      while Length(s) < 3 do
        s := '0' + s;
    end;
    DM.JXZM_ADOQ.FieldByName('JXZ_NO').AsString := 'JX' + FormatDatetime('yyyymmdd', Date) + s;
  end;
end;

procedure TDM.SALE_ADOQAfterInsert(DataSet: TDataSet);
//var
 // S:String;
begin
 { with DM.SALENO_Qry do
  begin
    Active:=false;
    Sql.Text:=
      'select Max(cast(Right(DNO,4) as int)) from SALE ' +
      ' where SubString(DNO, 2,8) like ''' +
      FormatDatetime('yyyymmdd', Date) + '''';
    Active := true;
    if fields[0].IsNull then
      s := '0001'
    else
    begin
      s := inttostr(fields[0].AsInteger + 1);
      while Length(s) < 4 do
        s := '0' + s;
    end;
    DM.SALE_ADOQ.FieldByName('DNO').AsString := 'S' + FormatDatetime('yyyymmdd', Date) + s;
  end; }
end;
end.