jhdgl.pas

库房管理系统

unit jhdgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask,  ExtCtrls, DBCtrls,  Grids, DBGrids,  Buttons,  DB, ADODB,
  DBCtrlsEh, FR_E_HTML2, FR_E_CSV, FR_E_RTF, frexpimg, frOLEExl, FR_Class,
  FR_E_TXT, FR_DSet, FR_DBSet, FR_Desgn;
  type
  Tjhdglfrm = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    dbgrd1: TDBGrid;
    grp3: TGroupBox;
    grp4: TGroupBox;
    Label1: TLabel;
    AdoconstractInput: TADOQuery;
    constractinput_ds: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit5: TDBEdit;
    dbqty: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    dbdate: TDBDateTimeEditEh;
    add: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    savebtn: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit10: TDBEdit;
    DBEdit15: TDBEdit;
    contract_rpts: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    frTextExport1: TfrTextExport;
    frOLEExcelExport1: TfrOLEExcelExport;
    frJPEGExport1: TfrJPEGExport;
    frRTFExport1: TfrRTFExport;
    frCSVExport1: TfrCSVExport;
    frHTML2Export1: TfrHTML2Export;
    frDesigner1: TfrDesigner;
    QCheckQty: TADOQuery;
    QStorageAccount: TADOQuery;
    QStorageAccountfStorageID: TIntegerField;
    QStorageAccountfProductID: TIntegerField;
    QStorageAccountfAccountQty: TBCDField;
    QStorageAccountfFactQty: TBCDField;
    QStorageAccountfPrePrice: TBCDField;
    dsDetail: TDataSource;
    QDetail: TADOQuery;
    QDetailsCode: TStringField;
    QDetailsName: TStringField;
    QDetailsUnitsName: TStringField;
    QDetailsColor: TStringField;
    QDetailsSpec: TStringField;
    QDetailfPrePrice: TBCDField;
    QDetailfAccountQty: TBCDField;
    QDetailfFactQty: TBCDField;
    QDetailfAdjustQty: TBCDField;
    QDetailrAdjustSum: TFloatField;
    QDetailfID: TIntegerField;
    QDetailfResID: TIntegerField;
    dsMaster: TDataSource;
    QMaster: TADOQuery;
    QMasterfID: TIntegerField;
    QMasterfNO: TWideStringField;
    QMasterfHandWorkNO: TWideStringField;
    QMasterfDepot: TIntegerField;
    QMastersDepotName: TStringField;
    QMasterfCheckDate: TDateTimeField;
    QMasterfDate: TDateTimeField;
    QMasterfSubmitFlag: TBooleanField;
    QMasterfSubmitDate: TDateTimeField;
    QMasterfSubmitUser: TWideStringField;
    QMasterfMaker: TWideStringField;
    QMasterfChecker: TWideStringField;
    QMasterfRemarks: TWideStringField;
    QStorage: TADOQuery;
    insertByInput: TADOQuery;
    QProducts: TADOQuery;
    QProductsfCode: TWideStringField;
    QProductsfName: TWideStringField;
    QProductsfcolor: TWideStringField;
    QProductsfSpec: TWideStringField;
    QProductsfUnitsName: TWideStringField;
    QProductsfID: TAutoIncField;
    QProductsfPrePrice: TBCDField;
    dsProducts: TDataSource;
    ado_unit: TADOTable;
    dbmoney: TDBComboBox;
    dbunit: TDBComboBox;
    ado_money: TADOTable;
    dbcode: TDBComboBox;
    dbname: TDBEdit;
    ADO_Product: TADOTable;
    ADO_ProductfParentID: TWideStringField;
    ado_temp: TADOQuery;
    ado_unitfUnitCode: TWideStringField;
    ado_moneyfMoneyCode: TWideStringField;
    refUnit: TDBComboBox;
    ado_unitfbaseUnits: TWideStringField;
    contract_rpt: TfrReport;
    ADOTable1: TADOTable;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    measureunit: TDBEdit;
    weightUnit: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure RzDBEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure RzDBEdit13MouseEnter(Sender: TObject);
    procedure RzDBEdit13MouseLeave(Sender: TObject);
    procedure RzDBLookupComboBox2Click(Sender: TObject);
    procedure RzDBDateTimeEdit1Enter(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure savebtnClick(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure AdoconstractInputAfterPost(DataSet: TDataSet);
    procedure dbcodeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jhdglfrm: Tjhdglfrm;

implementation

uses  mainfm;

{$R *.dfm}

procedure Tjhdglfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //mainfrm.pnl5dock:=False;
 // mainfrm.TabSheet5.Caption:='';
 // dm1.qry9.Active:=false;
  //dm1.qry8.Active:=false;
  //dm1.qry7.Active:=False;
  //dm1.qry4.Active:=False;
  if AdoconstractInput.State in [dsInsert,dsEdit] then
  //  if  Ado_Material.Modified  then
      begin
       if MessageBox(Handle, PChar('数据未保存,确定要退出吗?'), MsgQst, Msg2YNWARN) = IDYES then
 // if MessageBox(Handle,pchar('warning'),mB_iconQuestion,mb_YESNO)=IDyes then
   //   self.Hide;
      Action:=caHide
 //     end
      else
      Action:=caNone;
     end;
end;

procedure Tjhdglfrm.FormCreate(Sender: TObject);
  var i:integer;
begin
   with ado_product do
      if ado_product.RecordCount>0 then
   begin
     ado_product.first;
      for i:=0 to ado_product.RecordCount-1 do
      begin
     dbcode.Items.Add(ado_product.fieldbyname('fParentID').AsString);
     ado_product.Next;
      end;
   end;
   
 with ado_unit do
   if ado_unit.RecordCount>0 then
   begin
    ado_unit.first;
    for i:=0 to ado_unit.RecordCount-1 do
     begin
     dbunit.Items.Add(ado_unit.fieldbyname('fUnitCode').AsString);
     refUnit.Items.Add(ado_unit.fieldbyname('fbaseUnits').AsString);
     ado_unit.Next;
     end;
   end;
    with ado_money do
    if ado_money.RecordCount>0 then
    begin
     ado_money.First;
    for i:=0 to ado_money.RecordCount-1 do
     begin
    dbmoney.Items.Add(ado_money.fieldbyname('fMoneyCode').AsString);
    ado_money.Next;
     end;
    end;
//var
 // path:string;
//begin
  {path:=extractfilepath(application.ExeName)+'MDB\JXCGL.mdb';
  dm1.qry8.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
  DM1.qry8.SQL.Clear;
  dm1.qry8.SQL.Add('select * from jhd order by djbh  ');
  dm1.qry8.Active:=True;
  dm1.qry4.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
  DM1.qry4.SQL.Clear;
  dm1.qry4.SQL.Add('select * from ghszl ');
  dm1.qry4.Active:=True;
  dm1.qry7.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
  DM1.qry7.SQL.Clear;
  dm1.qry7.SQL.Add('select * from spzl ');
  dm1.qry7.Active:=True;
  dm1.qry9.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
  DM1.qry9.SQL.Clear;
  dm1.qry9.SQL.Add('select * from kcb ');
  dm1.qry9.Active:=True;
  dm1.qry2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
  DM1.qry2.SQL.Clear;
  dm1.qry2.SQL.Add('select * from ygzl ');
  dm1.qry2.Active:=True;     }

end;

procedure Tjhdglfrm.RzDBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
  // if Key = #13 then  begin
 //    RzDBEdit1.Text:=IntToStr(StrToInt(RzDBEdit13.Text)* strtoint(RzDBEdit7.Text));