ufrm_program_select.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

//  ***************************************
//  *    Program name :ufrm_program_select*
//  *    AUTHOR       :Guo xuliang        *
//  *    Name         :郭许良　　　　     *
//  *    Date         :2005/05/18         *
//  *    Porgram type :subroutine         *
//  ***************************************
unit ufrm_program_select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, ImgList, ExtCtrls, DBCtrls, dxExEdtr, dxTL,
  dxDBCtrl, dxCntner, dxDBTL, StdCtrls, Buttons, DB, DBTables,udm;

type
  Tfrm_program_select = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    DBNavigator1: TDBNavigator;
    ImageList1: TImageList;
    tree: TdxDBTreeList;
    za04: TdxDBTreeListColumn;
    za03: TdxDBTreeListColumn;
    Panel2: TPanel;
    bt_yes: TBitBtn;
    bt_no: TBitBtn;
    za_source: TDataSource;
    za_file: TQuery;
    za_fileZA01: TFloatField;
    za_fileZA02: TFloatField;
    za_fileZA03: TStringField;
    za_fileZA04: TStringField;
    za_fileZA05: TStringField;
    ImageList2: TImageList;
    procedure ToolButton1Click(Sender: TObject);
    procedure bt_noClick(Sender: TObject);
    procedure bt_yesClick(Sender: TObject);
    procedure treeDblClick(Sender: TObject);
    procedure treeGetStateIndex(Sender: TObject; Node: TdxTreeListNode;
      var Index: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    u_userorgrup,u_type:string;
    procedure init(p_userorgrup:string;p_type:string);
  end;

var
  frm_program_select: Tfrm_program_select;

implementation

{$R *.dfm}
uses uglobal_var,uglobal_fun,ufrm_sql;
{ Tfrm_program_select }

procedure Tfrm_program_select.init(p_userorgrup:string;p_type:string);
begin
  u_userorgrup:=p_userorgrup;
  u_type:=p_type;
  if p_type='1' then
    g_sqlstr:='SELECT * FROM ZA_FILE WHERE '
              +' ZA03 NOT IN (SELECT ZE02 FROM ZE_FILE WHERE ZE01='''
              +p_userorgrup+''')'+' ORDER BY ZA01'
  else
    g_sqlstr:='SELECT * FROM ZA_FILE WHERE ZA05=''2'''+ 'ORDER BY ZA01';
  za_file.Close;
  za_file.SQL.Clear;
  za_file.SQL.Add(g_sqlstr);
  za_file.Open;

end;

procedure Tfrm_program_select.ToolButton1Click(Sender: TObject);
  var l_str:string;
begin
 //initialize sql form
 Application.CreateForm(Tfrm_sql, frm_sql);
 frm_sql.init('ZA_FILE');
 if (frm_sql.ShowModal=mrok) then
 begin
   l_str:=frm_sql.sqlstr2;
   za_file.Close;
   za_file.sql.clear;
   if u_type='1' then
     g_sqlstr:='SELECT * FROM ZA_FILE WHERE '
              +' ZA03 NOT IN (SELECT ZE02 FROM ZE_FILE WHERE ZE01='''
              +u_userorgrup+''') AND '+l_str +' ORDER BY ZA01'
   else
    g_sqlstr:='SELECT * FROM ZA_FILE WHERE ZA05=''2'''+l_str
    + 'ORDER BY ZA01';

   za_file.sql.add(g_sqlstr);
   za_file.open;
 end;
 try
  frm_sql.Release;
 except
  ;
 end;
end;

procedure Tfrm_program_select.bt_noClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_program_select.bt_yesClick(Sender: TObject);
begin
 if u_type='1' then
   begin
     if (za_file.state=dsinactive) or (za_file.Eof and za_file.Bof) or (za_file.FieldByName('ZA05').AsString='2')  then
       close
     else
       frm_program_select.ModalResult:=mrok;
   end;
 if u_type='2' then
   begin
     if (za_file.state=dsinactive) or (za_file.Eof and za_file.Bof)  then
       close
     else
       frm_program_select.ModalResult:=mrok;
   end;
end;

procedure Tfrm_program_select.treeDblClick(Sender: TObject);
begin
//  self.bt_yesClick(self); 
end;

procedure Tfrm_program_select.treeGetStateIndex(Sender: TObject;
  Node: TdxTreeListNode; var Index: Integer);
begin
  if Node.Expanded then
    Index := 1
  else Index := 0;
end;

procedure Tfrm_program_select.FormCreate(Sender: TObject);
begin
  za_file.DatabaseName:=dm.connection.DatabaseName;
end;

end.