f_dress.pas

仓库管理系统 仓库管理系统

unit f_dress;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids,
  Mask, DBCtrls, ImgList, DBTables;

type
  Tdfmdress = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    addBtn: TBitBtn;
    delbtn: TBitBtn;
    postbtn: TBitBtn;
    cancelbtn: TBitBtn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Panel4: TPanel;
    TreeView1: TTreeView;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    ImageList1: TImageList;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Panel6: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    BitBtn1: TBitBtn;
    DataSource3: TDataSource;
    ADOTable3: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource4: TDataSource;
    ADOTable4: TADOTable;
    BitBtn2: TBitBtn;
    function  GetFieldList: TStringList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FormCreate(Sender: TObject);
    procedure addBtnClick(Sender: TObject);
    procedure delbtnClick(Sender: TObject);
    procedure postbtnClick(Sender: TObject);
    procedure cancelbtnClick(Sender: TObject);
    procedure DataSource2StateChange(Sender: TObject);
    procedure ADOTable2BeforePost(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmdress: Tdfmdress;
  fieldlist: Tstringlist;

implementation

uses TreeFunc, dbmRainbowMis;

{$R *.dfm}

function Tdfmdress.GetFieldList: TStringList;
begin
     FieldList.clear;
     FieldList.add(ADOTable1.fieldbyname('bmmc').asstring);
     FieldList.add(ADOTable1.fieldbyname('fsite').asstring);
     FieldList.add(ADOTable1.fieldbyname('fname').asstring);     
//     FieldList.add(aTblworker.fieldbyname('Company').asstring);
     Result := FieldList;
end;

procedure Tdfmdress.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOTable1.Active := false;
  ADOTable2.Active := false;
  ADOTable4.Active := false;
  action:=cafree;
end;

procedure Tdfmdress.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  Datasource1.enabled := Node.data <> nil;
  if DataSource1.enabled then ADOTable1.gotobookmark(node.data);
end;

procedure Tdfmdress.FormCreate(Sender: TObject);
begin
     ADOTable1.Active := true;
     ADOTable2.Active := true;

     FieldList := TStringList.create;

     TreeView1.items.BeginUpdate;

     ADOTable1.first;
     while not adoTable1.eof do
     begin
          TreeAddItem(TreeView1, GetFieldList, ADOTable1.getBookmark, false);
          ADOTable1.next;
     end;

     FieldList.clear;
     TreeView1.Alphasort;
     TreeView1.items.Endupdate;

     TreeView1.items[2].selected := true;
end;

procedure Tdfmdress.addBtnClick(Sender: TObject);
begin
  ADOTable2.Append ;
end;

procedure Tdfmdress.delbtnClick(Sender: TObject);
begin
  ADOTable2.Delete ;
end;

procedure Tdfmdress.postbtnClick(Sender: TObject);
begin
//  Tbldress.cworkerid
  ADOTable2.Post ;
end;

procedure Tdfmdress.cancelbtnClick(Sender: TObject);
begin
  ADOTable2.Cancel ;
end;

procedure Tdfmdress.DataSource2StateChange(Sender: TObject);
begin
    case ADOTable2.State of
      dsbrowse:
        begin
          addbtn.Enabled :=true;
          delbtn.Enabled :=true;
//          BitBtn_edit.Enabled :=true;
          postbtn.Enabled :=false;
          cancelbtn.Enabled :=false;
        end;
      dsinsert:
        begin
          addbtn.Enabled :=false;
          delbtn.Enabled :=false;
//          BitBtn_edit.Enabled :=true;
          postbtn.Enabled :=true;
          cancelbtn.Enabled :=true;
        end;
      dsedit:
        begin
          addbtn.Enabled :=false;
          delbtn.Enabled :=false;
//          BitBtn_edit.Enabled :=true;
          postbtn.Enabled :=true;
          cancelbtn.Enabled :=true;
        end;
    end;
end;

procedure Tdfmdress.ADOTable2BeforePost(DataSet: TDataSet);
begin
  ADOTable2['cmoney'] := ADOTable2['cnumber']*ADOTable2['cprice'];
  ADOTable2['cfmoney'] := ADOTable2['cmoney']*ADOTable2['cagio'];
  ADOTable2['cworkerid'] := dbedit1.Text;
end;

procedure Tdfmdress.BitBtn1Click(Sender: TObject);
begin
//  ADOQuery1.ExecSQL;
  ADOTable4.Active :=true;
  adotable2.First ;
  while not ADOTable2.eof do
  begin
    ADOTable4.AppendRecord([ADOTable2['cworkerid'],ADOTable2['cnumber'],ADOTable2['cmoney'],ADOTable2['cdate'],
                     ADOTable2['csort'],ADOTable2['creturndate'],ADOTable2['cnote'],ADOTable2['cprice'],
                     ADOTable2['cagio'],ADOTable2['cfmoney']]);
    ADOTable2.Next;
  end;
end;

end.