pfm_ygxx.pas

POS收银系统

unit pfm_ygxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  pfm_wizard, ExtCtrls, ComCtrls, Db, DBTables, Grids, DBGrids, StdCtrls,
  Buttons, Mask, DBCtrls, ExtDlgs;

type
  Tfm_ygxx = class(Tfm_wizard)
    QryTV: TQuery;
    Splitter1: TSplitter;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit3: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBImage1: TDBImage;
    OpenPicDialog1: TOpenPictureDialog;
    Label13: TLabel;
    Query1ygbm: TStringField;
    Query1ygxm: TStringField;
    Query1dwmc: TStringField;
    Query1yglb: TStringField;
    Query1lxdz: TStringField;
    Query1lxdh: TStringField;
    Query1chh: TStringField;
    Query1sjh: TStringField;
    Query1fjh: TStringField;
    Query1ygphoto: TBlobField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    GroupBox1: TGroupBox;
    TV1: TTreeView;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure DBImage1DblClick(Sender: TObject);
    procedure TV1Change(Sender: TObject; Node: TTreeNode);
    procedure Query1BeforePost(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_ygxx: Tfm_ygxx;

implementation
uses clipbrd;
{$R *.DFM}
var
i_fdbm:array of integer;
procedure Tfm_ygxx.FormCreate(Sender: TObject);

var
tvnode:TTreeNode;
i:integer;
begin
   strFCnName:=TStringlist.create;
     sDbTable:='t_ygxx';
   strFCnName.add('ygbh=自动编号');
   strFCnName.add('ygbm=员工编号');
   strFCnName.add('ygxm=员工姓名');
   strFCnName.add('dwmc=所属单位');
   strFCnName.add('bmmc=部门名称');
   strFCnName.add('yglb=员工类别');
   strFCnName.add('lxdz=联系地址');
   strFCnName.add('lxdh=联系电话');
   strFCnName.add('chh=传呼号');
   strFCnName.add('sjh=手机号');
   strFCnName.add('fjh=分机号');
   inherited;
              QryTV.Close;
              QryTV.SQL.clear;
              QryTV.SQL.add('select * from t_ygxx');
              QryTV.open;
              while not QryTV.Eof do
              begin
                 tv1.Items.Add(nil,
                 QryTV.fieldbyname('ygbm').asstring);
                 QryTV.Next;
              end;


      {  QryTV.close;
        QryTV.SQL.Clear;
        QryTV.SQL.Add('select * from t_fendianxx');
        QryTV.Open;
        setlength(i_fdbm,50);
        i:=0;
        while not QryTV.Eof do
        begin
                tvnode:=TV1.Items.Add(nil,QryTV.fieldbyname('fdmc').asstring);
                tvnode.HasChildren:=true;
                //i_fdbm[i]:=(QryTv.FieldByName('fdbm').asinteger);
                //tvnode.data:=@i_fdbm[i];
                QryTV.Next;
                i:=i+1;
        end;
}
 {      if (tv1.selected.Level=0) then
        begin
              tv1.Selected.DeleteChildren;
              QryTV.Close;
              QryTV.SQL.clear;
              QryTV.SQL.add('select * from t_ygxx');
              QryTV.open;
              while not QryTV.Eof do
              begin
                 tvnode:=tv1.Items.AddChild(tv1.Selected,
                 QryTV.fieldbyname('ygxm').asstring);
                 QryTV.Next;
              end;
        end;
 }
end;

procedure Tfm_ygxx.DBImage1DblClick(Sender: TObject);
var
curdir:string;
begin
  inherited;
    curdir:=GetCurrentdir();
    label1.Caption:=curdir;
    if OpenPicDialog1.Execute then
    begin
       query1.Edit;
       dbimage1.Picture.Bitmap.LoadFromFile(OpenPicDialog1.filename);
    end;
    SetCurrentDir(curdir);
end;

procedure Tfm_ygxx.TV1Change(Sender: TObject; Node: TTreeNode);
begin

        if (tv1.Selected.level=0) then
        begin
               // showmessage(tv1.selected.text);
                query1.Locate('ygbm',tv1.selected.Text,[]);
        end;
  inherited;

end;

procedure Tfm_ygxx.Query1BeforePost(DataSet: TDataSet);
begin
  if length(query1.fieldbyname('ygbm').asstring)=0 then
  begin
    showmessage('员工编号不能为空');
    abort;
  end;
  inherited;

end;

procedure Tfm_ygxx.BitBtn1Click(Sender: TObject);
begin
  inherited;
           tv1.Items.Clear;
           QryTV.Close;
              QryTV.SQL.clear;
              QryTV.SQL.add('select * from t_ygxx');
              QryTV.open;
              while not QryTV.Eof do
              begin
                 tv1.Items.Add(nil,
                 QryTV.fieldbyname('ygbm').asstring);
                 QryTV.Next;
              end;
end;

end.