⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 examine_verify.pas

📁 适合行业为眼镜业
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
unit Examine_Verify;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ExtCtrls, ComCtrls, Buttons, StdCtrls, Grids, DBGrids,
  ToolWin, ImgList;

type
  Tfrm_Examine_Verify = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    Edit4: TLabeledEdit;
    Edit5: TLabeledEdit;
    LabeledEdit1: TLabeledEdit;
    ListBox1: TListBox;
    Edit11: TLabeledEdit;
    SPB1: TSpeedButton;
    Edit22: TLabeledEdit;
    SPB2: TSpeedButton;
    Edit33: TLabeledEdit;
    SPB3: TSpeedButton;
    Edit44: TLabeledEdit;
    SPB4: TSpeedButton;
    Edit55: TLabeledEdit;
    SPB5: TSpeedButton;
    Cmd_OK: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_No: TSpeedButton;
    ComboBox1: TComboBox;
    procedure ListBox1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Cmd_OKClick(Sender: TObject);
    procedure SPB1Click(Sender: TObject);
    procedure SPB2Click(Sender: TObject);
    procedure SPB3Click(Sender: TObject);
    procedure SPB4Click(Sender: TObject);
    procedure SPB5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Cmd_EditClick(Sender: TObject);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure Cmd_NoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    //procedure ViewVerify(LISTv:TLISTVIEW;Sno:STRING);
  public
    { Public declarations }
  end;

var
  frm_Examine_Verify: Tfrm_Examine_Verify;

implementation

uses Data, Man_Check, func, untdatadm;

{$R *.dfm}
//自定义文本框是否能够看见
//////////////////////////////////////
function Edit_Visbale:boolean;
begin
    if frm_Examine_Verify.Edit1.Visible=true then
    begin
        frm_Examine_Verify.Edit11.Visible:=true;
        frm_Examine_Verify.SPB1.Visible:=True;
    end
    else
    begin
        frm_Examine_Verify.Edit11.Visible:=False;
        frm_Examine_Verify.SPB1.Visible:=False;
    end;
    if frm_Examine_Verify.Edit2.Visible=true then
    begin
        frm_Examine_Verify.Edit22.Visible:=true;
        frm_Examine_Verify.SPB2.Visible:=True;
    end
    else
    begin
        frm_Examine_Verify.Edit22.Visible:=False;
        frm_Examine_Verify.SPB2.Visible:=False;
    end;
    if frm_Examine_Verify.Edit3.Visible=true then
    begin
        frm_Examine_Verify.Edit33.Visible:=true;
        frm_Examine_Verify.SPB3.Visible:=True;
    end
    else
    begin
        frm_Examine_Verify.Edit33.Visible:=False;
        frm_Examine_Verify.SPB3.Visible:=False;
    end;
    if frm_Examine_Verify.Edit4.Visible=true then
    begin
        frm_Examine_Verify.Edit44.Visible:=true;
        frm_Examine_Verify.SPB4.Visible:=True;
    end
    else
    begin
        frm_Examine_Verify.Edit44.Visible:=False;
        frm_Examine_Verify.SPB4.Visible:=False;
    end;
    if frm_Examine_Verify.Edit1.Visible=true then
    begin
        frm_Examine_Verify.Edit55.Visible:=true;
        frm_Examine_Verify.SPB5.Visible:=True;
    end
    else
    begin
        frm_Examine_Verify.Edit55.Visible:=False;
        frm_Examine_Verify.SPB5.Visible:=False;
    end;
end;
//自定义根据审核级数来判断文本框的显示情况；
function ComboBox_Edit_Visbale:boolean;
begin
    if StrToInt(Trim(frm_Examine_Verify.ComboBox1.Text))=1 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;  frm_Examine_Verify.Edit11.Visible:=True;
        frm_Examine_Verify.Edit2.Visible:=False;
        frm_Examine_Verify.Edit3.Visible:=False;frm_Examine_Verify.Edit4.Visible:=False;
        frm_Examine_Verify.Edit5.Visible:=False;
        Edit_Visbale;
    end;
    if StrToInt(Trim(frm_Examine_Verify.ComboBox1.Text))=2 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;frm_Examine_Verify.Edit2.Visible:=True;
        frm_Examine_Verify.Edit11.Visible:=True;frm_Examine_Verify.Edit22.Visible:=True;
        frm_Examine_Verify.Edit3.Visible:=False;frm_Examine_Verify.Edit4.Visible:=False;
        frm_Examine_Verify.Edit5.Visible:=False;
        Edit_Visbale;
    end;
    if StrToInt(Trim(frm_Examine_Verify.ComboBox1.Text))=3 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;frm_Examine_Verify.Edit2.Visible:=True;
        frm_Examine_Verify.Edit3.Visible:=True;
        frm_Examine_Verify.Edit11.Visible:=True;frm_Examine_Verify.Edit22.Visible:=True;
        frm_Examine_Verify.Edit33.Visible:=True;
        frm_Examine_Verify.Edit4.Visible:=False;frm_Examine_Verify.Edit5.Visible:=False;
        Edit_Visbale;
    end;
    if StrToInt(Trim(frm_Examine_Verify.ComboBox1.Text))=4 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;frm_Examine_Verify.Edit2.Visible:=True;
        frm_Examine_Verify.Edit3.Visible:=True;frm_Examine_Verify.Edit4.Visible:=True;
        frm_Examine_Verify.Edit11.Visible:=True;frm_Examine_Verify.Edit22.Visible:=True;
        frm_Examine_Verify.Edit33.Visible:=True;frm_Examine_Verify.Edit44.Visible:=True;
        frm_Examine_Verify.Edit5.Visible:=False;
        Edit_Visbale;
    end;
    if StrToInt(Trim(frm_Examine_Verify.ComboBox1.Text))=5 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;frm_Examine_Verify.Edit2.Visible:=True;
        frm_Examine_Verify.Edit3.Visible:=True;frm_Examine_Verify.Edit4.Visible:=True;
        frm_Examine_Verify.Edit5.Visible:=True;
        frm_Examine_Verify.Edit11.Visible:=True;frm_Examine_Verify.Edit22.Visible:=True;
        frm_Examine_Verify.Edit33.Visible:=True;frm_Examine_Verify.Edit44.Visible:=True;
        frm_Examine_Verify.Edit55.Visible:=True;
        Edit_Visbale;
    end;
end;
//自定义函数。根据组合框的index属性来判断文本框的显示属性
function ComboBox_Index:boolean;
begin
    if frm_Examine_Verify.ComboBox1.ItemIndex=0 then
    begin
        frm_Examine_Verify.Edit1.Visible:=False;  frm_Examine_Verify.Edit2.Visible:=False;  frm_Examine_Verify.Edit3.Visible:=False;  frm_Examine_Verify.Edit4.Visible:=False;  frm_Examine_Verify.Edit5.Visible:=False;
        frm_Examine_Verify.Edit11.Visible:=False; frm_Examine_Verify.Edit22.Visible:=False; frm_Examine_Verify.Edit33.Visible:=False; frm_Examine_Verify.Edit44.Visible:=False; frm_Examine_Verify.Edit55.Visible:=False;
        frm_Examine_Verify.SPB1.Visible:=False;   frm_Examine_Verify.SPB2.Visible:=False;   frm_Examine_Verify.SPB3.Visible:=False;   frm_Examine_Verify.SPB4.Visible:=False;   frm_Examine_Verify.SPB5.Visible:=False;
        frm_Examine_Verify.Edit1.Clear;           frm_Examine_Verify.Edit2.Clear;           frm_Examine_Verify.Edit3.Clear;           frm_Examine_Verify.Edit4.Clear;           frm_Examine_Verify.Edit5.Clear;
        frm_Examine_Verify.Edit1.Clear;           frm_Examine_Verify.Edit22.Clear;          frm_Examine_Verify.Edit33.Clear;          frm_Examine_Verify.Edit44.Clear;          frm_Examine_Verify.Edit55.Clear;
        frm_Examine_Verify.Cmd_OK.Enabled:=False;frm_Examine_Verify.Cmd_Edit.Enabled:=False;frm_Examine_Verify.Cmd_Delete.Enabled:=False;
    end;
    if frm_Examine_Verify.ComboBox1.ItemIndex=1 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;  frm_Examine_Verify.Edit2.Visible:=False;  frm_Examine_Verify.Edit3.Visible:=False;  frm_Examine_Verify.Edit4.Visible:=False;  frm_Examine_Verify.Edit5.Visible:=False;
        frm_Examine_Verify.Edit11.Visible:=True; frm_Examine_Verify.Edit22.Visible:=False; frm_Examine_Verify.Edit33.Visible:=False; frm_Examine_Verify.Edit44.Visible:=False; frm_Examine_Verify.Edit55.Visible:=False;
        frm_Examine_Verify.SPB1.Visible:=True;   frm_Examine_Verify.SPB2.Visible:=False;   frm_Examine_Verify.SPB3.Visible:=False;   frm_Examine_Verify.SPB4.Visible:=False;   frm_Examine_Verify.SPB5.Visible:=False;
        frm_Examine_Verify.Edit1.Clear;          frm_Examine_Verify.Edit2.Clear;           frm_Examine_Verify.Edit3.Clear;           frm_Examine_Verify.Edit4.Clear;           frm_Examine_Verify.Edit5.Clear;
        frm_Examine_Verify.Edit11.Clear;         frm_Examine_Verify.Edit22.Clear;          frm_Examine_Verify.Edit33.Clear;          frm_Examine_Verify.Edit44.Clear;          frm_Examine_Verify.Edit55.Clear;
        frm_Examine_Verify.Cmd_OK.Enabled:=true;
    end;
    if frm_Examine_Verify.ComboBox1.ItemIndex=2 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;  frm_Examine_Verify.Edit2.Visible:=True;  frm_Examine_Verify.Edit3.Visible:=False;  frm_Examine_Verify.Edit4.Visible:=False;  frm_Examine_Verify.Edit5.Visible:=False;
        frm_Examine_Verify.Edit11.Visible:=True; frm_Examine_Verify.Edit22.Visible:=True; frm_Examine_Verify.Edit33.Visible:=False; frm_Examine_Verify.Edit44.Visible:=False; frm_Examine_Verify.Edit55.Visible:=False;
        frm_Examine_Verify.SPB1.Visible:=True;   frm_Examine_Verify.SPB2.Visible:=True;   frm_Examine_Verify.SPB3.Visible:=False;   frm_Examine_Verify.SPB4.Visible:=False;   frm_Examine_Verify.SPB5.Visible:=False;
        frm_Examine_Verify.Edit1.Clear;          frm_Examine_Verify.Edit2.Clear;          frm_Examine_Verify.Edit3.Clear;           frm_Examine_Verify.Edit4.Clear;           frm_Examine_Verify.Edit5.Clear;
        frm_Examine_Verify.Edit11.Clear;         frm_Examine_Verify.Edit22.Clear;         frm_Examine_Verify.Edit33.Clear;          frm_Examine_Verify.Edit44.Clear;          frm_Examine_Verify.Edit55.Clear;
        frm_Examine_Verify.Cmd_OK.Enabled:=true;
    end;
    if frm_Examine_Verify.ComboBox1.ItemIndex=3 then
    begin
        frm_Examine_Verify.Edit1.Visible:=True;  frm_Examine_Verify.Edit2.Visible:=True;  frm_Examine_Verify.Edit3.Visible:=True;  frm_Examine_Verify.Edit4.Visible:=False;  frm_Examine_Verify.Edit5.Visible:=False;
        frm_Examine_Verify.Edit11.Visible:=True; frm_Examine_Verify.Edit22.Visible:=True; frm_Examine_Verify.Edit33.Visible:=True; frm_Examine_Verify.Edit44.Visible:=False; frm_Examine_Verify.Edit55.Visible:=False;
        frm_Examine_Verify.SPB1.Visible:=True;   frm_Examine_Verify.SPB2.Visible:=True;   frm_Examine_Verify.SPB3.Visible:=True;   frm_Examine_Verify.SPB4.Visible:=False;   frm_Examine_Verify.SPB5.Visible:=False;
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -