cpkc.pas

来自「汽车配件管理系统 采用ACCESS数据库 配件销售类公司适用 。 主要是目录树的」· PAS 代码 · 共 182 行

unit cpkc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, dxCntner, dxTL, dxDBCtrl, dxDBTL, ComCtrls,
  dxtree, dxdbtree, dxdbtrel, cxLookAndFeelPainters, dxfColorButton,
  StdCtrls, cxButtons, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit,
  Grids, DBGridEh, cxLabel, cxControls, cxContainer, cxEdit, cxTextEdit,
  bsSkinCtrls, HzSpell, cxGraphics, cxCustomData, cxStyles, cxTL,
  cxInplaceContainer, cxDBTL, cxTLData, Mask, DBCtrlsEh, DBLookupEh, Menus;

type
  Tcpkcck = class(TForm)
    Table2: TADOTable;
    Table3: TADOTable;
    DataSource0: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Button1: TdxfColorButton;
    py: THzSpell;
    spzl: TADOQuery;
    ADOQy1: TADOQuery;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeList1Column1: TdxDBTreeListColumn;
    DBGridEh1: TDBGridEh;
    cxLabel1: TcxLabel;
    DataSource1: TDataSource;
    dblp1: TDBLookupComboboxEh;
    Button2: TdxfColorButton;
    Button3: TdxfColorButton;
    spzk: TADOQuery;
    Table8: TADOTable;
    DataSource8: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure dblp1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure cxLabel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpkcck: Tcpkcck;

implementation

{$R *.dfm}

uses main;

procedure Tcpkcck.FormCreate(Sender: TObject);
begin
table2.Open;
table8.Open;
spzl.Open;
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where ckh=:bh');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Open;
if adoqy1.RecordCount=0 then button1.Enabled:=true;
table8.Edit;
table8['mc']:=table2['mc'];
end;

procedure Tcpkcck.Button1Click(Sender: TObject);
var i:integer;
begin
spzk.Close;
spzk.SQL.Clear;
spzk.SQL.Add('select * from spk where zzcp=:sf order by spmc');
spzk.Parameters[0].Value:=true;
spzk.Open;
button1.Enabled:=false;
i:=1;
adoqy1.DisableControls;
adoqy1.First;
while i<=spzk.RecordCount do
begin
adoqy1.Append;
adoqy1['spmc']:=spzk['spmc'];
adoqy1['spbh']:=spzk['spbh'];
adoqy1['sjmc']:=spzk['sjmc'];
adoqy1['sjbh']:=spzk['sjbh'];
adoqy1['dw']:=spzk['dw'];
adoqy1['jj']:=spzk['jj'];
adoqy1['pfj']:=spzk['pfj'];
adoqy1['sj']:=spzk['sj'];
adoqy1['sl']:=spzk['sl'];
adoqy1['zjm']:=spzk['zjm'];
adoqy1['zjm1']:=spzk['zjm1'];
adoqy1['ckh']:=table2['bh'];
i:=i+1;
spzk.Next;
end;
spzk.Close;
adoqy1.First;
adoqy1.EnableControls;
end;

procedure Tcpkcck.dblp1Change(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where ckh=:bh');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Open;
if adoqy1.RecordCount=0 then button1.Enabled:=true;
end;

procedure Tcpkcck.Button2Click(Sender: TObject);
begin
adoqy1.UpdateBatch();
end;

procedure Tcpkcck.N1Click(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where (ckh=:bh) and (spbh like :bh)');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Parameters[1].Value:=spzl['spbh']+'%';
adoqy1.Open;
end;

procedure Tcpkcck.N3Click(Sender: TObject);
begin
if spzl['zzcp'] then
begin
if adoqy1.Locate('spbh',spzl['spbh'],[]) then
dbgrideh1.SetFocus else
begin
adoqy1.Append;
adoqy1['spmc']:=spzl['spmc'];
adoqy1['spbh']:=spzl['spbh'];
adoqy1['sjmc']:=spzl['sjmc'];
adoqy1['sjbh']:=spzl['sjbh'];
adoqy1['dw']:=spzl['dw'];
adoqy1['jj']:=spzl['jj'];
adoqy1['pfj']:=spzl['pfj'];
adoqy1['sj']:=spzl['sj'];
adoqy1['sl']:=spzl['sl'];
adoqy1['zjm']:=spzl['zjm'];
adoqy1['zjm1']:=spzl['zjm1'];
adoqy1['ckh']:=table2['bh'];
dbgrideh1.SetFocus;
end;
end;
end;

procedure Tcpkcck.cxLabel1Click(Sender: TObject);
var i:integer;
begin
spzl.DisableControls;
i:=1;
spzl.First;
while i<=spzl.RecordCount do
begin
spzl.Edit;
spzl['zjm']:=py.PyHeadOfHz(spzl['spmc']);
spzl['zjm1']:=py.PyHeadOfHz(spzl['sjmc']);
i:=i+1;
spzl.Next;
end;
spzl.UpdateBatch();
spzl.First;
spzl.EnableControls;
end;

end.