f_manchange.pas

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

unit f_manchange;

interface

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

type
  Tdfmmanchange = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    postbtn: TBitBtn;
    cancelbtn: TBitBtn;
    DataSource1: TDataSource;
    Panel4: TPanel;
    TreeView1: TTreeView;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    ImageList1: TImageList;
    Panel6: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    ADOTable1: TADOTable;
    GroupBox1: TGroupBox;
    groupbox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBComboBox1: TDBComboBox;
    Label7: TLabel;
    DBComboBox2: TDBComboBox;
    delbtn: TBitBtn;
    CheckBox1: TCheckBox;
    function  GetFieldList: TStringList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FormCreate(Sender: TObject);
    procedure postbtnClick(Sender: TObject);
    procedure cancelbtnClick(Sender: TObject);
    procedure DataSource2StateChange(Sender: TObject);
    procedure delbtnClick(Sender: TObject);
    procedure treeupdate;
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmmanchange: Tdfmmanchange;
  fieldlist: Tstringlist;

implementation

uses TreeFunc, dbmRainbowMis;

{$R *.dfm}

function Tdfmmanchange.GetFieldList: TStringList;
begin
     FieldList.clear;
     FieldList.add(ADOTable1.fieldbyname('fshop').asstring);
     FieldList.add(ADOTable1.fieldbyname('fsite').asstring);
     FieldList.add(ADOTable1.fieldbyname('fname').asstring);     
     Result := FieldList;
end;

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

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

procedure Tdfmmanchange.FormCreate(Sender: TObject);
begin
     ADOTable1.Active := true;
     treeupdate;
end;

procedure Tdfmmanchange.postbtnClick(Sender: TObject);
begin
//  Tbldress.cworkerid
  ADOTable1.Post ;
end;

procedure Tdfmmanchange.cancelbtnClick(Sender: TObject);
begin
  ADOTable1.Cancel ;
end;

procedure Tdfmmanchange.DataSource2StateChange(Sender: TObject);
begin
    case ADOTable1.State of
      dsbrowse:
        begin
          delbtn.Enabled :=true;
          postbtn.Enabled :=false;
          cancelbtn.Enabled :=false;
        end;
      dsinsert:
        begin
          delbtn.Enabled :=false;
          postbtn.Enabled :=true;
          cancelbtn.Enabled :=true;
        end;
      dsedit:
        begin
          delbtn.Enabled :=false;
          postbtn.Enabled :=true;
          cancelbtn.Enabled :=true;
        end;
    end;
end;

procedure Tdfmmanchange.delbtnClick(Sender: TObject);
begin
  ADOTable1.Delete;
end;

procedure Tdfmmanchange.treeupdate;
begin
     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[1].selected := true;
end;

procedure Tdfmmanchange.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked=true then
  begin
//    ADOTable1.Close ;
//    adotable1.Filter:='';
    ADOTable1.Filtered :=false;
    ADOTable1.Refresh;
//    ADOTable1.Open;
    treeupdate;
  end;
  if checkbox1.Checked=false then
  begin
//    ADOTable1.Close;
//    adotable1.Filter:='Foutdate=null';
    ADOTable1.Filtered :=true;
    ADOTable1.Refresh;    
//    ADOTable1.Open;
    treeupdate;
  end;
end;

end.