frmdsrightp.~pas

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

unit FrmDsRightP;

interface

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

type
  TFrmDsRight = class(TFrmBaseForm)
    Img1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Chk1: TCheckBox;
    Chk2: TCheckBox;
    Chk3: TCheckBox;
    Chk4: TCheckBox;
    Chk5: TCheckBox;
    Chk6: TCheckBox;
    Chk7: TCheckBox;
    Chk8: TCheckBox;
    dg1: TDBGrid;
    ADOQ_DsRight: TADOQuery;
    ADOQ_DsUser: TADOQuery;
    ADOQ_DsDbfTag: TADOQuery;
    ADOQ_DsDbfTagfid: TWideStringField;
    ADOQ_DsDbfTagfname: TWideStringField;
    ADOQ_DsDbfTagfnote: TWideStringField;
    ADOQ_DsRightfid: TAutoIncField;
    ADOQ_DsRightfname: TWideStringField;
    ADOQ_DsRightfuserid: TWideStringField;
    ADOQ_DsRightfall: TBooleanField;
    ADOQ_DsRightfopen: TBooleanField;
    ADOQ_DsRightfnew: TBooleanField;
    ADOQ_DsRightfedit: TBooleanField;
    ADOQ_DsRightfdel: TBooleanField;
    ADOQ_DsRightfinsert: TBooleanField;
    ADOQ_DsRightfprint: TBooleanField;
    ADOQ_DsRightfok: TBooleanField;
    DataSource1: TDataSource;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure popnewClick(Sender: TObject);overload;
    procedure popeditClick(Sender: TObject);overload;
    Procedure PopDelClick(Sender: TObject);overload;
    Procedure PopPrintClick(Sender:TObject);overload;
    Procedure PopFindClick(Sender:TObject);overload;
    Procedure PopTopClick(Sender:TObject);overload;
    Procedure PopBackClick(Sender:TObject);overload;
    Procedure PopNextClick(Sender:TObject);overload;
    Procedure PopLastClick(Sender:TObject);overload;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure dg1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure Edit3Exit(Sender: TObject);
    procedure Chk1Click(Sender: TObject);
    procedure dg1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    Procedure SEditProperties1();    //新增设置EDIT状态
    Procedure SEditProperties2();    //编辑设置EDIT状态
    procedure SChkProPerties(Flag:boolean);
    Procedure SBeginSave();          //保存前准备