ldgysda.~pas

不完备信息的数据发现

unit ldgysda;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, Mask, DBCtrls, Db, DBTables, ExtCtrls, DBClient,Shellapi,
  Grids, DBGrids, ADODB;

type
  Tldgysdaf = class(TForm)
    DS_gysda: TDataSource;
    Panel_xg: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label15: TLabel;
    Label19: TLabel;
    DBEdit_gysbh: TDBEdit;
    DBEdit_gysmc: TDBEdit;
    DBEdit_dqmc: TDBEdit;
    DBEdit_gysjc: TDBEdit;
    DBEdit_dqbh: TDBEdit;
    DBEdit_lbbh: TDBEdit;
    DBEdit_lbmc: TDBEdit;
    SB_xdqbh: TSpeedButton;
    DBEdit_sshy: TDBEdit;
    DBEdit_sh: TDBEdit;
    DBEdit_frdb: TDBEdit;
    DBEdit_khyh: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit_yhzh: TDBEdit;
    DBEdit_lxr: TDBEdit;
    Label17: TLabel;
    Label18: TLabel;
    DBEdit_dianh: TDBEdit;
    DBComBoBox_xydj: TDBComboBox;
    Panel_top: TPanel;
    SB_exit: TSpeedButton;
    SB_save: TSpeedButton;
    Q_gysda: TADOQuery;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit_gysbhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SB_saveClick(Sender: TObject);
    procedure SB_exitClick(Sender: TObject);
    procedure SB_xdqbhClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ldgysdaf: Tldgysdaf;
  sql_condition:string;
implementation
uses dm,main_page, lgysda, xgyslb, xdqlb;
{$R *.DFM}

procedure Tldgysdaf.FormShow(Sender: TObject);
begin
  if ISinsert=true then
   begin
    Q_gysda.Close;
    Q_gysda.SQL.Text:='select * FROM '+DatabaseName+'CG_gysda where 1<>1';
    Q_gysda.Open;
    Q_gysda.Insert;
    DBEdit_gysbh.SetFocus;
    end
  else
   begin
    Q_gysda.Close;
    Q_gysda.SQL.Text:='select * FROM '+DatabaseName+'CG_gysda where gysbh='''+lgysdaf.Q_gysda.fieldbyname('gysbh').asstring+'''';
    Q_gysda.Open;
    Q_gysda.edit;

   end;
  sql_condition:=' where gysbh=''' + Q_gysda.fieldbyname('gysbh').asstring+'''';
  //设置颜色
  Panel_top.Color :=color_top;
  Panel_xg.Color :=color_panel;
end;

procedure Tldgysdaf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Q_gysda.Close;
end;

procedure Tldgysdaf.DBEdit_gysbhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then //按的是回车键
   begin
    key:=0;
    perform(wm_nextdlgctl,0,0);
   end;
end;

procedure Tldgysdaf.SB_saveClick(Sender: TObject);
var bh:variant;
begin
  Q_gysda.CheckBrowseMode;
   If trim(DBEdit_gysbh.text)='' then
   begin
    MessageBox (Handle,'供应商编号不能为空','提示信息', MB_ICONSTOP or MB_OK);
    DBEdit_gysbh.SetFocus;
    exit;
   end;
  If trim(DBEdit_lbbh.text)='' then
   begin
    MessageBox (Handle,'类别编号不能为空','提示信息', MB_ICONSTOP or MB_OK);
    DBEdit_lbbh.SetFocus;
    exit;
   end;

  try
   lgysdaf.Q_gysda.close;
   lgysdaf.Q_gysda.open;
   lgysdaf.Q_gysda.Locate('gysbh',Q_gysda.FieldByName('gysbh').asstring,[]);
   if ISinsert=true then
   begin
     if MessageBox(handle,'记录已保存，是否再增加记录？','提示信息',MB_ICONINFORMATION or MB_YESNO)=IDNo then
     begin
        ISinsert:=false;
        exit;
     end;
     Q_gysda.Insert;
     DBEdit_gysbh.SetFocus;
    end
   else
   begin
     Q_gysda.edit;
   end;
  except
   on E:Exception do
    begin
    end;
  end;



end;



procedure Tldgysdaf.SB_exitClick(Sender: TObject);
begin
  close;
end;

procedure Tldgysdaf.SB_xdqbhClick(Sender: TObject);
begin
  //选地区
  xdqlbf:=Txdqlbf.Create(nil);
  with xdqlbf do
   try
    ShowModal;
   finally
    if SelAffirm=1 then
     begin
      Q_gysda.Edit;
      Q_gysda.FieldByName('dqbh').asstring:=xdqlbf.Q_dqlb.FieldByName('dqbh').asstring;
      Q_gysda.FieldByName('dqmc').asstring:=xdqlbf.Q_dqlb.FieldByName('dqmc').asstring;
     end;
    xdqlbf.Q_dqlb.Close;
    Free;
   end;
  DBEdit_dqbh.SetFocus;
end;



procedure Tldgysdaf.Button1Click(Sender: TObject);
var dqmc:string;
begin
 dqmc:='上海';
 Q_gysda.Close;
 Q_gysda.SQL.Text:='select * FROM '+DatabaseName+'CG_gysda where dqmc='''+dqmc+'''';
 Q_gysda.Open;
 while not Q_gysda.Eof do
 begin
  Q_gysda.edit;
  Q_gysda.FieldByName('lxr').asstring:= 'good';
  Q_gysda.ExecSQL;
  Q_gysda.Next;
 end;
end;

end.