czyqx.~pas

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

unit czyqx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, cxLookAndFeelPainters, StdCtrls, cxButtons, dxTL,
  dxDBCtrl, dxDBGrid, dxCntner, DB, ADODB, dxDBTLCl, dxGrClms,
  dxfColorButton;

type
  Tczyqxck = class(TForm)
    Table1: TADOTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    dxDBGrid2: TdxDBGrid;
    Table2: TADOTable;
    dxDBGrid2Column2: TdxDBGridColumn;
    dxDBGrid2Column7: TdxDBGridColumn;
    dxfColorButton1: TdxfColorButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridCheckColumn;
    dxDBGrid2Column3: TdxDBGridColumn;
    dxfColorButton2: TdxfColorButton;
    dxDBGrid2Column4: TdxDBGridCheckColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxfColorButton1Click(Sender: TObject);
    procedure dxfColorButton2Click(Sender: TObject);
    procedure Table2NewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  czyqxck: Tczyqxck;

implementation

{$R *.dfm}

uses sjk;

procedure Tczyqxck.FormCreate(Sender: TObject);
begin
table1.Open;
table2.Open;
end;

procedure Tczyqxck.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.Close;
table2.Close;
end;

procedure Tczyqxck.dxfColorButton1Click(Sender: TObject);
var i:integer;
begin
i:=1;
table1.DisableControls;
table2.Edit;
table2['czqx']:='';
table1.first;
while i<=table1.RecordCount do
begin
if table1['sfxs'] then
begin
table2.Edit;
table2['czqx']:=table2['czqx']+','+table1['cdh'];
end;
i:=i+1;
table1.Next;
end;
table1.First;
table1.EnableControls;
table2.UpdateBatch();
end;

procedure Tczyqxck.dxfColorButton2Click(Sender: TObject);
begin
table2.UpdateBatch();
end;

procedure Tczyqxck.Table2NewRecord(DataSet: TDataSet);
begin
table2.Edit;
table2['czqx']:='';
end;

end.