frmdstablelogp.~pas

进销存管理系统包含开题报告、无错程序源代码、无个性标记的可执行程序、院优毕业论文、PPT答辩资料等

unit FrmDsTableLogP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrmBaseFormP, ComCtrls, DB, ADODB, Grids, DBGrids, StdCtrls,
  ExtCtrls, Menus, Buttons;

type
  TFrmDsTableLog = class(TFrmBaseForm)
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem16: TMenuItem;
    Img1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    dg1: TDBGrid;
    ADOQ_DsDbfTag: TADOQuery;
    ADOQ_DsDbfTagfid: TWideStringField;
    ADOQ_DsDbfTagfname: TWideStringField;
    ADOQ_DsDbfTagfnote: TWideStringField;
    DataSource1: TDataSource;
    DTP1: TDateTimePicker;
    ADOQ_DsTableLog: TADOQuery;
    Label5: TLabel;
    DTP2: TDateTimePicker;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DTP1Change(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure dg1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    Procedure GEditValue();         //返回记录