cpflk.~pas

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

unit cpflk;

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, Menus;

type
  Tcpflmcck = class(TForm)
    DBGridEh1: TDBGridEh;
    Table1: TADOTable;
    Table2: TADOTable;
    Table3: TADOTable;
    Table4: TADOTable;
    Table5: TADOTable;
    Table6: TADOTable;
    Table7: TADOTable;
    Table8: TADOTable;
    Table9: TADOTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    DataSource9: TDataSource;
    dxfColorButton1: TdxfColorButton;
    DBGridEh2: TDBGridEh;
    DBGridEh3: TDBGridEh;
    DBGridEh4: TDBGridEh;
    DBGridEh5: TDBGridEh;
    DBGridEh6: TDBGridEh;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    py: THzSpell;
    PopupMenu1: TPopupMenu;
    PopupMenu2: TPopupMenu;
    PopupMenu3: TPopupMenu;
    PopupMenu4: TPopupMenu;
    PopupMenu5: TPopupMenu;
    PopupMenu6: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure dxfColorButton1Click(Sender: TObject);
    procedure DBGridEh1Columns0UpdateData(Sender: TObject;
      var Text: String; var Value: Variant; var UseText, Handled: Boolean);
    procedure DBGridEh2Columns0UpdateData(Sender: TObject;
      var Text: String; var Value: Variant; var UseText, Handled: Boolean);
    procedure DBGridEh3Columns0UpdateData(Sender: TObject;
      var Text: String; var Value: Variant; var UseText, Handled: Boolean);
    procedure DBGridEh4Columns0UpdateData(Sender: TObject;
      var Text: String; var Value: Variant; var UseText, Handled: Boolean);
    procedure DBGridEh5Columns0UpdateData(Sender: TObject;
      var Text: String; var Value: Variant; var UseText, Handled: Boolean);
    procedure DBGridEh6Columns0UpdateData(Sender: TObject;
      var Text: String; var Value: Variant; var UseText, Handled: Boolean);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpflmcck: Tcpflmcck;

implementation

{$R *.dfm}

uses main;

procedure Tcpflmcck.FormCreate(Sender: TObject);
begin
table1.Open;
table2.Open;
table3.Open;
table4.Open;
table5.Open;
table6.Open;
table7.Open;
table8.Open;
table9.Open;
end;

procedure Tcpflmcck.dxfColorButton1Click(Sender: TObject);
begin
table1.UpdateBatch();
table2.UpdateBatch();
table3.UpdateBatch();
table4.UpdateBatch();
table5.UpdateBatch();
table6.UpdateBatch();
table7.UpdateBatch();
table8.UpdateBatch();
table9.UpdateBatch();

end;

procedure Tcpflmcck.DBGridEh1Columns0UpdateData(Sender: TObject;
  var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
table1.Edit;
table1['zjm']:=py.PyHeadOfHz(value);
end;

procedure Tcpflmcck.DBGridEh2Columns0UpdateData(Sender: TObject;
  var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
table2.Edit;
table2['zjm']:=py.PyHeadOfHz(value);
end;

procedure Tcpflmcck.DBGridEh3Columns0UpdateData(Sender: TObject;
  var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
table3.Edit;
table3['zjm']:=py.PyHeadOfHz(value);
end;

procedure Tcpflmcck.DBGridEh4Columns0UpdateData(Sender: TObject;
  var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
table4.Edit;
table4['zjm']:=py.PyHeadOfHz(value);
end;

procedure Tcpflmcck.DBGridEh5Columns0UpdateData(Sender: TObject;
  var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
table5.Edit;
table5['zjm']:=py.PyHeadOfHz(value);
end;

procedure Tcpflmcck.DBGridEh6Columns0UpdateData(Sender: TObject;
  var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
table6.Edit;
table6['zjm']:=py.PyHeadOfHz(value);
end;

procedure Tcpflmcck.N1Click(Sender: TObject);
begin
table1.Delete;
end;

procedure Tcpflmcck.N2Click(Sender: TObject);
begin
table2.Delete;
end;

procedure Tcpflmcck.N3Click(Sender: TObject);
begin
table3.Delete;
end;

procedure Tcpflmcck.N4Click(Sender: TObject);
begin
table4.Delete;
end;

procedure Tcpflmcck.N5Click(Sender: TObject);
begin
table5.Delete;
end;

procedure Tcpflmcck.N6Click(Sender: TObject);
begin
table6.Delete;
end;

end.