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

📄 examine_verify.pas

📁 适合行业为眼镜业
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        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=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.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:=True; 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:=True;   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=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;
        frm_Examine_Verify.SPB1.Visible:=True;   frm_Examine_Verify.SPB2.Visible:=True;   frm_Examine_Verify.SPB3.Visible:=True;   frm_Examine_Verify.SPB4.Visible:=True;   frm_Examine_Verify.SPB5.Visible:=True;
        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;
end;
//自定义函数。检查输入信息的准确性
function CheckData:boolean;
begin
    if frm_Examine_Verify.ComboBox1.ItemIndex=1 then
    begin
        if Trim(frm_Examine_Verify.Edit1.Text)='' then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            frm_Examine_Verify.Edit1.SetFocus;
            Exit;
        end;
        if Trim(frm_Examine_Verify.Edit11.Text)='' then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一的审核人员］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
    if frm_Examine_Verify.ComboBox1.ItemIndex=2 then
    begin
        if ((Trim(frm_Examine_Verify.Edit1.Text)='') or (Trim(frm_Examine_Verify.Edit2.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一］或［级别名称二］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        if ((Trim(frm_Examine_Verify.Edit11.Text)='') or(Trim(frm_Examine_Verify.Edit22.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一的审核人员］或［级别名称二的审核人员］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
    if frm_Examine_Verify.ComboBox1.ItemIndex=3 then
    begin
        if ((Trim(frm_Examine_Verify.Edit1.Text)='') or (Trim(frm_Examine_Verify.Edit2.Text)='') or (Trim(frm_Examine_Verify.Edit3.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一］或［级别名称二］或［级别名称三］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        if ((Trim(frm_Examine_Verify.Edit11.Text)='') or(Trim(frm_Examine_Verify.Edit22.Text)='') or(Trim(frm_Examine_Verify.Edit33.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一的审核人员］或［级别名称二的审核人员］或［级别名称三的审核人员］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
    if frm_Examine_Verify.ComboBox1.ItemIndex=4 then
    begin
        if ((Trim(frm_Examine_Verify.Edit1.Text)='') or (Trim(frm_Examine_Verify.Edit2.Text)='') or (Trim(frm_Examine_Verify.Edit3.Text)='') or (Trim(frm_Examine_Verify.Edit4.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一］或［级别名称二］或［级别名称三］或［级别名称四］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        if ((Trim(frm_Examine_Verify.Edit11.Text)='') or(Trim(frm_Examine_Verify.Edit22.Text)='') or(Trim(frm_Examine_Verify.Edit33.Text)='') or(Trim(frm_Examine_Verify.Edit44.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一的审核人员］或［级别名称二的审核人员］或［级别名称三的审核人员］或［级别名称四的审核人员］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
    if frm_Examine_Verify.ComboBox1.ItemIndex=5 then
    begin
        if ((Trim(frm_Examine_Verify.Edit1.Text)='') or (Trim(frm_Examine_Verify.Edit2.Text)='') or (Trim(frm_Examine_Verify.Edit3.Text)='') or (Trim(frm_Examine_Verify.Edit4.Text)='')or (Trim(frm_Examine_Verify.Edit5.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一］或［级别名称二］或［级别名称三］或［级别名称四］或［级别名称五］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        if ((Trim(frm_Examine_Verify.Edit11.Text)='') or(Trim(frm_Examine_Verify.Edit22.Text)='') or(Trim(frm_Examine_Verify.Edit33.Text)='') or(Trim(frm_Examine_Verify.Edit44.Text)='')) then
        begin
            frm_Examine_Verify.Edit1.SetFocus;
            Application.MessageBox('操作失败,［级别名称一的审核人员］或［级别名称二的审核人员］或［级别名称三的审核人员］或［级别名称四的审核人员］或［级别名称五的审核人员］不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
    if ((Trim(frm_Examine_Verify.Edit1.Text)=Trim(frm_Examine_Verify.Edit2.Text)) or (Trim(frm_Examine_Verify.Edit1.Text)=Trim(frm_Examine_Verify.Edit3.Text)) or (Trim(frm_Examine_Verify.Edit1.Text)=Trim(frm_Examine_Verify.Edit4.Text))or (Trim(frm_Examine_Verify.Edit1.Text)=Trim(frm_Examine_Verify.Edit5.Text))) then
    begin
        Application.MessageBox('操作失败,［级别名称一］和［级别名称二］不能相同，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
end;

procedure Tfrm_Examine_Verify.ListBox1Click(Sender: TObject);
var
    i:integer;
    tempstr:string;
    sql:widestring;
begin
    if listbox1.Count>0 then
    begin
        ComboBox1.Enabled:=True;
        for i:=Listbox1.Items.Count-1 downto 0 do
        begin
            if Listbox1.Selected[i] then
            begin
                ComboBox1.ItemIndex:=0; //先把组合框的值设为1
                ComboBox_Index;
                Edit_Visbale;
                Cmd_OK.Enabled:=False;
                tempstr:=Listbox1.Items.Strings[i]; //选择的单据名称
                TabSheet1.Caption:='【'+tempstr+'】';
                LabeledEdit1.Text:=tempstr; //选择的单据名称

                with frm_data.ClientDataSet_Add do
                begin
                    {Close;
                    CommandText:='';
                    CommandText:='Select * from [Level_Set] where Receipt_Name='''+Trim(LabeledEdit1.Text)+'''';
                    Open;}
                    sql:='Select * from [Level_Set] where Receipt_Name='+''''+Trim(LabeledEdit1.Text)+'''';
                    dmmain.CDSquery.Close;
                    dmmain.CDSquery.Data:=null;
                    dmmain.CDSquery.Data:=adisp.GetRecord(sql);
                    dmmain.CDSquery.Open;
                    //如果选择的单据已经存在。根据判断来做结果
                    if (dmmain.CDSquery.RecordCount)>0 then
                    begin
                       { if Application.MessageBox('该单据的审核级别设置已经存在，确定需要重新设置吗？'+#13#10+'重新设置后原来的设置将被彻底删除，请确认！',pchar(application.Title),mb_okcancel)=idok then
                        begin
                            Combobox1.Enabled:=True;
                            try
                              dmmain.CDSquery.Delete;
                              dmmain.CDSquery.ApplyUpdates(-1);
                            except
                                Application.MessageBox('操作失败,请检查网络服务器的连接是否成功，请确认！',pchar(application.Title),mb_iconwarning);
                                Exit;
                            end;
                        end }
                       // else
                       // begin
                            Combobox1.Enabled:=True;
                            Cmd_Edit.Enabled:=True;
                            Cmd_Delete.Enabled:=True;
                            ComboBox1.ItemIndex:=dmmain.CDSquery.FieldValues['Level_Count'];
                            ComboBox_Index;

                            Edit1.Text:=dmmain.CDSquery.FieldValues['Level_Name1'];
                            Edit11.Text:=dmmain.CDSquery.FieldValues['Examine_Man1'];

                            Edit2.Text:=dmmain.CDSquery.FieldValues['Level_Name2'];
                            Edit22.Text:=dmmain.CDSquery.FieldValues['Examine_Man2'];

                            Edit3.Text:=dmmain.CDSquery.FieldValues['Level_Name3'];
                            Edit33.Text:=dmmain.CDSquery.FieldValues['Examine_Man3'];

                            Edit4.Text:=dmmain.CDSquery.FieldValues['Level_Name4'];
                            Edit44.Text:=dmmain.CDSquery.FieldValues['Examine_Man4'];

                            Edit5.Text:=dmmain.CDSquery.FieldValues['Level_Name5'];
                            Edit55.Text:=dmmain.CDSquery.FieldValues['Examine_Man5'];
                        //end;
                    end
                    else
                    begin
                        Cmd_Edit.Enabled:=False;
                        Cmd_Delete.Enabled:=False;
                    end;
                    if (dmmain.CDSquery.RecordCount)=0 then
                    begin
                        Edit1.Visible:=False; Edit2.Visible:=False;Edit3.Visible:=False;
                        Edit4.Visible:=False; Edit5.Visible:=False;
                        Edit11.Visible:=False; Edit22.Visible:=False;Edit33.Visible:=False;
                        Edit44.Visible:=False; Edit55.Visible:=False;
                        Edit1.Visible:=False; Edit1.Visible:=False;Edit1.Visible:=False;
                        Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';Edit5.Text:='';
                        Edit11.Text:='';Edit22.Text:='';Edit33.Text:='';Edit44.Text:='';Edit55.Text:='';
                    end;
                end;
            end;
        end;
    end
    else
    begin
        Exit;
    end;
end;

procedure Tfrm_Examine_Verify.ComboBox1Change(Sender: TObject);
begin
    ComboBox_Index;
end;
123

⌨️ 快捷键说明

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