mainunit.~pas

为前公司仓库发料开发的分练系统 入门及作品。

unit mainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, Grids, DBGrids,ComObj, StdCtrls,DB,
  ADODB, DBTables, ComCtrls, Menus, ToolWin, DBCtrls, Mask, Calendar,
  StdActns, ActnList, cxGraphics, cxLookAndFeelPainters, dxExEdtr,
  dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, cxMemo, cxDBEdit,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxButtons, cxContainer, cxEdit,
  cxGroupBox, cxRadioGroup, cxNavigator, cxDBNavigator, cxControls,
  dxStatusBar, cxLabel, cxProgressBar;

type
  TMainForm = class(TForm)
    DS: TDataSource;
    LS_Table: TTable;
    LS_TableBDEDesigner: TStringField;
    LS_TableBDEDesigner2: TStringField;
    LS_TableBDEDesigner3: TStringField;
    LS_TableTransactionType: TStringField;
    LS_TableBDEDesigner4: TStringField;
    LS_TableBDEDesigner5: TStringField;
    LS_TableBDEDesigner6: TDateField;
    LS_TableBDEDesigner7: TDateField;
    LS_TableBDEDesigner8: TStringField;
    LS_TableBDEDesigner9: TStringField;
    LS_TableBDEDesigner10: TStringField;
    LS_TableBDEDesigner11: TStringField;
    LS_TableBDEDesigner12: TStringField;
    LS_TableBDEDesigner13: TStringField;
    LS_TableBDEDesigner14: TStringField;
    LS_TableBDEDesigner15: TFloatField;
    LS_TableBDEDesigner16: TStringField;
    LS_TableBDEDesigner17: TStringField;
    LS_TableBDEDesigner18: TStringField;
    Kc_Table: TTable;
    Kc_TableBDEDesigner: TStringField;
    Kc_TableBDEDesigner2: TStringField;
    Kc_TableBDEDesigner3: TStringField;
    Kc_TableBDEDesigner4: TStringField;
    Kc_TableBDEDesigner5: TStringField;
    Kc_TableBDEDesigner6: TFloatField;
    Item_Table: TTable;
    Item_TableBDEDesigner: TStringField;
    Item_TableBDEDesigner2: TStringField;
    SB01: TdxStatusBar;
    DBN: TcxDBNavigator;
    RG01: TcxRadioGroup;
    BT01: TcxButton;
    BT02: TcxButton;
    BT03: TcxButton;
    RG02: TcxRadioGroup;
    BT11: TcxButton;
    RG03: TcxRadioGroup;
    RG04: TcxRadioGroup;
    BT31: TcxButton;
    BT32: TcxButton;
    BT21: TcxButton;
    BT22: TcxButton;
    CB01: TcxComboBox;
    DBED01: TcxDBTextEdit;
    DBME: TcxDBMemo;
    OD: TOpenDialog;
    Panel1: TPanel;
    cxLabel1: TcxLabel;
    PB: TcxProgressBar;
    cxRadioGroup1: TcxRadioGroup;
    dxDBGrid1: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    procedure BT01Click(Sender: TObject);
    procedure BT02Click(Sender: TObject);
    procedure BT03Click(Sender: TObject);
    procedure BT11Click(Sender: TObject);
    procedure BT21Click(Sender: TObject);
    procedure BT22Click(Sender: TObject);
    procedure LS_TableAfterOpen(DataSet: TDataSet);
    procedure Kc_TableAfterOpen(DataSet: TDataSet);
    procedure BT31Click(Sender: TObject);
    procedure BT32Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}
procedure TMainForm.BT01Click(Sender: TObject);
const
  BeginRow = 2;
  BeginCol = 1;
Var
  Excel:OleVariant;
  iRow,iCol:integer;
Begin
  try
    Excel := CreateOLEObject('Excel.Application');
  except
    Application.MessageBox('Excel⊿Τ