unit U_GDLLManage_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
  cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit;

type
  TfrmGDLLManage_Main = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBExport: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    cxGridPopupMenu1: TcxGridPopupMenu;
    CDS_Main: TClientDataSet;
    RM1: TRMGridReport;
    RMDBMain: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    RMDBHZ: TRMDBDataSet;
    CDS_HZ: TClientDataSet;
    CDS_PRT: TClientDataSet;
    TBDel: TToolButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    TBAdd: TToolButton;
    TBEdit: TToolButton;
    Label4: TLabel;
    Label5: TLabel;
    JDBuWei: TEdit;
    GDName: TEdit;
    Label6: TLabel;
    LQName: TEdit;
    Label3: TLabel;
    FKNote: TEdit;
    Label1: TLabel;
    Label7: TLabel;
    SGDanWei: TEdit;
    cxGrid2: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1LLDate: TcxGridDBColumn;
    v1CRType: TcxGridDBColumn;
    v1SGDanWei: TcxGridDBColumn;
    v1JDBuWei: TcxGridDBColumn;
    v1LQName: TcxGridDBColumn;
    v1YLBuWei: TcxGridDBColumn;
    v1SYBuWei: TcxGridDBColumn;
    v1IFZL: TcxGridDBColumn;
    v1FKNote: TcxGridDBColumn;
    v1Note: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    Label9: TLabel;
    Label10: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ConNoMChange(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBExportClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure TBDelClick(Sender: TObject);
    procedure TBAddClick(Sender: TObject);
    procedure TBEditClick(Sender: TObject);
    procedure GDNameKeyPress(Sender: TObject; var Key: Char);
    procedure GDNameChange(Sender: TObject);
    procedure SPSpecChange(Sender: TObject);
    procedure JDBuWeiChange(Sender: TObject);
    procedure TSselClick(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
  private
    canshu1,canshu2,canshu3:string;
    procedure InitGrid();
    procedure setstatus();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGDLLManage_Main: TfrmGDLLManage_Main;

implementation
uses
  U_DataLink,U_RTFun,U_SXCKInPut, U_JGSXCKInPut,U_CLXX_Sub, U_ZDYHelp,U_GDZL_Sub;

{$R *.dfm}
procedure TfrmGDLLManage_Main.setstatus();
begin
  
end;

procedure TfrmGDLLManage_Main.FormDestroy(Sender: TObject);
begin
  frmGDLLManage_Main:=nil;
end;

procedure TfrmGDLLManage_Main.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmGDLLManage_Main.FormCreate(Sender: TObject);
begin
  //cxGrid1.Align:=alClient;
  canshu1:=Trim(DParameters1);
  canshu2:=Trim(DParameters2);
  canshu3:=Trim(DParameters3);
end;

procedure TfrmGDLLManage_Main.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select A.* ');
      sql.Add(' from GDZL_Main A');
      SQL.Add(' where A.LLDate>='''+trim(FormatDateTime('yyyy-MM-dd',begdate.date))+'''');
      SQL.Add(' and A.LLDate<'''+trim(FormatDateTime('yyyy-MM-dd',enddate.date+1))+'''');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmGDLLManage_Main.TBRafreshClick(Sender: TObject);
begin
  ToolBar1.SetFocus;
  InitGrid();
end;

procedure TfrmGDLLManage_Main.ConNoMChange(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  end;
end;

procedure TfrmGDLLManage_Main.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('领取列表FM2',Tv1,'领取仓库');
  Close;
end;

procedure TfrmGDLLManage_Main.FormShow(Sender: TObject);
begin
  ReadCxGrid('领取列表FM2',Tv1,'领取仓库');
  BegDate.Date:=SGetServerDate(ADOQueryCmd);
  endDate.Date:=BegDate.Date;
  //InitGrid();
end;

procedure TfrmGDLLManage_Main.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then exit;
  TcxGridToExcel('领取列表',cxGrid2);
end;

procedure TfrmGDLLManage_Main.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  end;
end;

procedure TfrmGDLLManage_Main.N1Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,True);
end;

procedure TfrmGDLLManage_Main.N2Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,False);
end;

procedure TfrmGDLLManage_Main.TBDelClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then Exit;
  if Application.MessageBox('确定要删除吗？','提示',32+4)<>IDYES then Exit;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add(' delete from GDZL_Main where ZLID='''+Trim(CDS_Main.fieldbyname('ZLID').AsString)+'''');
      ExecSQL;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    CDS_Main.Delete;
  except
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('操作异常!','提示',0);
  end;
end;

procedure TfrmGDLLManage_Main.TBAddClick(Sender: TObject);
begin
  try
    frmGDZL_Sub:=TfrmGDZL_Sub.Create(Application);
    with frmGDZL_Sub do
    begin
      FBCId:='';
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmGDZL_Sub.Free;
  end;
end;

procedure TfrmGDLLManage_Main.TBEditClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then Exit;
  try
    frmGDZL_Sub:=TfrmGDZL_Sub.Create(Application);
    with frmGDZL_Sub do
    begin
      FBCId:=Trim(CDS_Main.fieldbyname('ZLID').AsString);
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmGDZL_Sub.Free;
  end;
end;

procedure TfrmGDLLManage_Main.GDNameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    
  end;
end;

procedure TfrmGDLLManage_Main.GDNameChange(Sender: TObject);
begin
  
  TBFind.Click;
end;

procedure TfrmGDLLManage_Main.SPSpecChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmGDLLManage_Main.JDBuWeiChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmGDLLManage_Main.TSselClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then exit;
  Modalresult:=1;
end;

procedure TfrmGDLLManage_Main.cxTabControl1Change(Sender: TObject);
begin
  setstatus();
  InitGrid();
end;

end.